منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ربط وقت تايمر بالـComboBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ربط وقت تايمر بالـComboBox (/showthread.php?tid=20368)

ربط وقت تايمر بالـComboBox - e-coder - 13-05-17

سلام عليكم
اخواني كيف ممكن اربط
كود :
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

       Label3.Text = sec.ToString
       sec = sec + 1
       If (sec = 10) Then
           sec = 0
           Timer3.Stop() 'Timer stops functioning
           Label3.Text = "Kicked"
       End If
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       Timer3.Interval = 1000
       Timer3.Start()
   End Sub

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       Timer3.Stop()
       Timer3.Interval = 1
       sec = 0
   End Sub
اريد اضافة ComboBox
وتكون حاملة توقيت يحددها المستخدم كيف يشاء
يعني
100
200
300
400
وتطبيقها ع كود اعلاه 
مع كيفية عمل ريست
والعودة من جديد عبر زر بوتين
وشكراً


RE: ربط وقت تايمر بالـComboBox - mansoor - 14-05-17

PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    If IsNumeric(ComboBox1.Text) Then Timer1.Interval = CInt(ComboBox1.Text)

End Sub 

PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Timer1.Stop()

End Sub 

PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer1.Start()

End Sub