تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
العد التنازلي
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم