[aldery]

(19-10-19, 11:47 PM)fouadhdfouad كتب :

(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع 

كود :

Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C

استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد

كود :

Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class

أشكرك على الرد أخي ولكن أنا أحتاج الوقت يمشي وليس ثابت وشيئ ثاني انا اريد الوقت ان يضهر في label ويمشي بنقص -