منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
اذا الترتيب متساوي ممكن هشكل

(27-11-19, 10:55 PM)3booody كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اذا الترتيب متساوي ممكن هشكل

كود :

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub

نعم ممكن عن طريق مكتبة تشغيل ملفات الصوت التي ارفقتها لك بمشروع سابقآ : تشغل مثلآ اذان
نفس فكرة المنبه

---

تفضل اخي عملتك هالطريقة توضيحية
بس حاول تتأكد من قيمة t اذا تتوافق مع الاوقات التي تحملها

(27-11-19, 11:29 PM)3booody كتب : [ -> ]نعم ممكن عن طريق مكتبة تشغيل ملفات الصوت التي ارفقتها لك بمشروع سابقآ : تشغل مثلآ اذان
نفس فكرة المنبه

---

تفضل اخي عملتك هالطريقة توضيحية
بس حاول تتأكد من قيمة t اذا تتوافق مع الاوقات التي تحملها

كود :

Dim t As String = ""
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       t = TimeOfDay.ToString("h:mm tt")
       Select Case t
           Case ListBox1.Items(0)
               'حان موعد اذان الفجر
           Case ListBox1.Items(1)
               'حان موعد اذان الظهر
           Case ListBox1.Items(2)
               'حان موعد اذان العصر
           Case ListBox1.Items(3)
               'حان موعد اذان المغرب
           Case ListBox1.Items(4)
               'حان موعد اذان العشاء
       End Select
   End Sub