[bidaya]

(24-01-17, 02:26 PM)3asfa~mdmra كتب :

ولكن انا وضعت هذا الكود واشتغل ولكن المصيبة بعد 15 دقيقة يتوقف تايمر وبذلك

المستخدم بقوم بضغط ع زر تشغبل لمعادوة تشغيل تايمر

وهذا لا اريده ارديد تشغل تلقائي

تفضضل كود

كود :

  Dim duration As Date
Dim ts As TimeSpan = duration - DateTime.Now.AddSeconds(-1)
       Label2.Text = ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
       If Label2.Text = "00:00" Then
           Timer1.Stop()
         
       End If

كود تشغيل

كود :

 duration = DateTime.Now.AddMinutes(1)
           Timer1.Start()

ارجو المعذرة في التدخل بهذه الطريقة وهي باضافة تايمر ثاني اتمنى انني في الصواب لافادتك

كود :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim duration As Date
       Dim ts As TimeSpan = duration - DateTime.Now.AddSeconds(-1)
       Label1.Text = ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
       If Label1.Text = "00" Then
           Timer1.Stop()
           Timer2.Start()

       End If
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Timer1.Start()
   End Sub

   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       Timer1.Start()
   End Sub