[ismail2012]

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد وعلى آله وصحبه أجمعين

السلام عليكم ورحمة الله وبركاته

كيف يمكنني عمل عداد بالثانية باستخدام الدالة TimeSpan
يعني على شكل زر لما اضغط عليه يبتدي العداد يعد مثلا
00:00:00
وبعد كده
00:00:01
لما يصل إلى
00:00:59
يصبح الرقم
00:01:00
لما يصل إلى
00:59:00
يصبح الرقم
01:00:00
وهكذا
شكرا

---

حاولت وقد توصلت للنتيجة الحمد لله
قلت أرفق المثال للأستفادة
ملحوظة قيمة interval للتيمر 1000

كود :

Public Class Form1
    Dim s As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not Timer1.Enabled = True Then
            Timer1.Enabled = True
        Else
            Timer1.Enabled = False
            s = 0
        End If
      
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        s += 1
        Dim span As TimeSpan = New TimeSpan(0, 0, 0)
        Dim span1 As TimeSpan = New TimeSpan(0, 0, s)
        span = span.Add(span1)
        Application.DoEvents()
        TextBox1.Text = span.Duration.ToString

    End Sub
End Class