17-10-12, 08:54 PM
كاتب الموضوع : tibo
هذا شرح كيف نعمل عد تنازلى بعدد الدقايق فأول حاجة سنعرف متغير جديد وسيكون متغير عام Global
وبعد نضيف للمتغير عدد الدقايق اللى المسخدم سيدخلها وهذا يفضل يكون فى حدث كليك للزر مثلا كالتالى وبعد نشغل التايمر
وبعد نضيف كود العد التنازلى فى التايمر
تحياتي لكم
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