+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخدام Timer لعدة ازرير (/showthread.php?tid=6930)
استخدام Timer لعدة ازرير - aftfm - 11-11-12
السلام عليكم ورحمة الله وبركاته
اخواني لدي مثال اتعامل به مع Timer
ولكن لكل ازرار احتاج تايمر هل من الممكن ان استخدم 1 Timer لكل الازارير
مثلا
في
PHP كود :
Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
End Sub
في حالة الضغط على Button1
قم بتنفيذ الاجراء (*****)
وفي حالة الضغط على Button2
قم بتنفيذ الاجراء (*****)
مع ملاحظة ان لكل ازرار امره المختلف عن غيرة
استخدام Timer لعدة ازرير - سعود - 11-11-12
طبعا ممكن وذلك بتعميم متغير يتم تخزين به قيمة على حسب الطلب يتم التحقق عنه عند عمل المؤقت مثلا
زر الامر رقم 1 نكتب
myval= sub1
الزر الثاني
myval=sub2
وفي المؤقت نكتب
if myval = sub1 .............
وهكذا
استخدام Timer لعدة ازرير - aftfm - 11-11-12
اخي سعود انا لدي هذا الكود
PHP كود :
Private Sub lblg72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblg72.Click
Me.lblg72.Text = ""
Me.lblg72.ForeColor = Color.Blue
Timer15.Interval = 250
Timer15.Start()
End Sub
Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
Static ptr As Integer = 0
If ptr < Me.lbl72.Text.Length Then
lblg72.Text = lblg72.Text & lbl72.Text.Substring(ptr, 1)
ptr += 1
Else
Timer15.Stop()
ptr = 0
End If
End Sub
واريد ان اكرره عدة مرات
انا عامل الى ا لان عدد 16 تايمر
السابقة 15 وهذه 16
PHP كود :
Private Sub lblg73_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblg73.Click
Me.lblg73.Text = ""
Me.lblg73.ForeColor = Color.Blue
Timer16.Interval = 250
Timer16.Start()
End Sub
Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick
Static ptr As Integer = 0
If ptr < Me.lbl73.Text.Length Then
lblg73.Text = lblg73.Text & lbl73.Text.Substring(ptr, 1)
ptr += 1
Else
Timer16.Stop()
ptr = 0
End If
End Sub
كيف اعمل المتغير للكود
PHP كود :
Static ptr As Integer = 0
If ptr < Me.lbl73.Text.Length Then
lblg73.Text = lblg73.Text & lbl73.Text.Substring(ptr, 1)
ptr += 1
Else
Timer16.Stop()
ptr = 0
End If
ام الى اي كود ممكن توضح على الكودين السابقين
استخدام Timer لعدة ازرير - سعود - 11-11-12
اخي العزيز : ممكن تقول ايش الفكرة اللي تريد تطبقها لعل يوجد حل اسهل.
لاني لم افهم
استخدام Timer لعدة ازرير - SaLoOoMX - 11-11-12
ارفق المثال لايكفي وجود الكود لان كودك مبهم
استخدام Timer لعدة ازرير - aftfm - 11-11-12
تفضلو اخواني جزاكم الله خير
هذ مثال مصغر به عدد 2 Timer
اريد استخدم فقط واحد Timer
استخدام Timer لعدة ازرير - SaLoOoMX - 11-11-12
استدعي السب Tcontrol1 + Tcontrol2
في تايمر واحد :o
جرب وشوف
استخدام Timer لعدة ازرير - سعود - 11-11-12
http://vb4arb.com/vb/uploaded/34_01352621109.zip
تعديل سريع والباقي عليك
استخدام Timer لعدة ازرير - aftfm - 11-11-12
الف شكر للجميع
وشكر خاص للأخ سعود