05-10-12, 04:14 AM
كاتب الموضوع : م إسماعيل علي النجار
السلام عليكم درس خفيف جدا وبسيط جدا ويمكن تطويره
التشيل العشوائي لملفات صوتيه معينه
الفكره كالتالي
نقوم بسحب 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
شرح الكود
cstring
تعني التحويل الي string
int رقم صحيح
والارقام العشوائيه من 0 الي 10
وممكن تغيرها كيفما نشاء
ولكن لاحظ لو قمت بتشغيل البرنامج اكثر من مره تلاحظ ان الارقام العشوائيه تتغير بنفس الترتيب
مثلا عند فتح البرنامج تكون
8 ........... 7 ......... 5 ........... 2 .........8 وهكذا
واذا تم اعده التشغيل
يبقي نفس التغير
8 ........... 7 ......... 5 ........... 2 .........8
لحل الازمة وببساطه
نضع في الفورم هذه الكلمه
Randomize()
الكود كامل
للفورم
واخر دعوانا ان الحمد لله رب العالمين
السلام عليكم درس خفيف جدا وبسيط جدا ويمكن تطويره
التشيل العشوائي لملفات صوتيه معينه
الفكره كالتالي
نقوم بسحب 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
واخر دعوانا ان الحمد لله رب العالمين