تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نبضه 2 - التشغيل العشوائي لملفات صوتيه
#1
كاتب الموضوع : م إسماعيل علي النجار


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

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

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

نقوم بسحب 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


واخر دعوانا ان الحمد لله رب العالمين
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تصنع نسخة إحتياطية لملفات الداتا بيز silverlight 0 373 31-01-16, 12:37 AM
آخر رد: silverlight
  [VB.NET] تحريك الادوات بالماوس وقت التشغيل Ahmed_online 4 870 26-11-15, 02:28 PM
آخر رد: eldmasy11
  نبضه 1 - إضافه الاداوات علي الفورم بالاكواد RaggiTech 0 332 05-10-12, 04:12 AM
آخر رد: RaggiTech
  تعلم أضافة الأدوات على الفورم وقت التشغيل وإضافة أحداث الضغط وما شايه لها RaggiTech 0 425 03-10-12, 09:29 AM
آخر رد: RaggiTech
  تخزين ملف ما ضمن Exe البرنامج أثناء التطوير واستعادته أثناء التشغيل RaggiTech 1 435 03-10-12, 08:14 AM
آخر رد: RaggiTech
  تحريك الادوات بالفأرة على النموذج وقت التشغيل RaggiTech 0 395 03-10-12, 07:42 AM
آخر رد: RaggiTech
  إضافة أدوات على الفورم وقت التشغيل مع إضافة الأحداث كلها....متجدد RaggiTech 0 455 02-10-12, 12:43 AM
آخر رد: RaggiTech
  تحريك الادوات بالفأرة وقت التشغيل Ahmed_online 3 640 24-09-12, 01:54 PM
آخر رد: m.sami.ak

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم