العد التنازلي - نسخة قابلة للطباعة

كاتب الموضوع : tibo

هذا شرح كيف نعمل عد تنازلى بعدد الدقايق فأول حاجة سنعرف متغير جديد وسيكون متغير عام Global

كود :

Dim alarmTime As Date

وبعد نضيف للمتغير عدد الدقايق اللى المسخدم سيدخلها وهذا يفضل يكون فى حدث كليك للزر مثلا كالتالى وبعد نشغل التايمر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

alarmTime = Date.Now.AddMinutes(CType(TextBox2.Text, Double))

Timer1.Start()

End Sub

وبعد نضيف كود العد التنازلى فى التايمر

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If alarmTime < Date.Now Then

Timer1.Stop()

MessageBox.Show("Time's up.")

Else

Dim remainingTime As TimeSpan = alarmTime.Subtract(Date.Now)

Label1.Text = String.Format("{0}:{1:d2}:{2:d2}", remainingTime.Hours, remainingTime.Minutes, remainingTime.Seconds)

End If

End Sub

تحياتي لكم
Tibo