[لسه مبتدئ]

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

[trakktour]

(26-09-19, 09:32 AM)لسه مبتدئ كتب : السلام عليكم ورحمة الله وبركاته 
اخواني كنت عايز أعمل تايمر
يعني مثلا لو كتبت 10 ثواني في تيكست بوكس وضغطت على زرار ابدأ 
يبدأ الوقت في النزول حتى انتهاؤه 
شاكر لكم

و عليكم السلام اخي الكريم
تفضل هذا الكود
كل ما عليك هو اضافة timer & textbox & label

كود :

Public Class Form1

   Dim M As Int32
   Dim S As Int32
   Dim T As Int32
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 1000
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Try
           T -= 1
           If T >= 0 Then
               M = Int(T / 60)
               S = T - (M * 60)
               Dim D As New Date(1900, 1, 1, 0, M, S)
               Label1.Text = Format(D, "mm:ss")
           Else
               Label1.Text = "done"
               Timer1.Stop()
           End If

       Catch ex As Exception

       End Try
   End Sub


   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       T = TextBox1.Text
       Timer1.Start()
   End Sub
End Class

[لسه مبتدئ]

جزاكم الله خيرا أخي الكريم وبارك الله في عملك