نبضه 2 - التشغيل العشوائي لملفات صوتيه

كاتب الموضوع : م إسماعيل علي النجار

السلام عليكم درس خفيف جدا وبسيط جدا ويمكن تطويره

التشيل العشوائي لملفات صوتيه معينه

الفكره كالتالي

نقوم بسحب button 1

ونسحب label واحد ايضا ونغير خاصيه text الي القيمه 0

نضع windows media player

نضع 3 text box ونغير خاصيه الاول text الي http://media.islamway.com/several/370/10_Wa7y.mp3

وال textbox نغير خاصيته لاي رابط مباشر اخر

وهكذا الاخير

نأتي للفكره

عند الضغط علي ال button يبدأ تظهر قيمه لل label اما 0 او 1 او 2 و ........... الي القيمه

العاشرة

ثم ناتي للكود

نضع الكود الخاص في ال button

كود :

Label1.Text = CStr(Int(Rnd() * 10))

If (Label1.Text = "1") Then

AxWindowsMediaPlayer1.URL = TextBox1.Text

End If

If (Label1.Text = "2") Then

AxWindowsMediaPlayer1.URL = TextBox2.Text

End If

If (Label1.Text = "3") Then

AxWindowsMediaPlayer1.URL = TextBox3.Text

End If

شرح الكود

cstring

تعني التحويل الي string

int رقم صحيح

والارقام العشوائيه من 0 الي 10

وممكن تغيرها كيفما نشاء

ولكن لاحظ لو قمت بتشغيل البرنامج اكثر من مره تلاحظ ان الارقام العشوائيه تتغير بنفس الترتيب

مثلا عند فتح البرنامج تكون

8 ........... 7 ......... 5 ........... 2 .........8 وهكذا

واذا تم اعده التشغيل

يبقي نفس التغير

8 ........... 7 ......... 5 ........... 2 .........8

لحل الازمة وببساطه

نضع في الفورم هذه الكلمه

Randomize()

الكود كامل

للفورم

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Randomize()

End Sub

واخر دعوانا ان الحمد لله رب العالمين