[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

[@@أبورائد@@]

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


أنت من القلة الذين إذا حل سؤاله بنفسه يضعه للإستفادة

بارك الله فيك، وأرجو أن يقتدوا الآخرين بك.


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

[ismail2012]

بارك الله بكم جميعا

[سعود]

إقتباس :بارك الله فيك، وأرجو أن يقتدي بك الاخرون.

اي والله مثل ماقلت ياخوي مااجمل ان يكتب السائل جواب سؤاله ان وجده لانه بهذا يثبت حسن ظنه باخوانه..والاجمل لو كتب موضوع جديد بقسم المقالات او مثال بقسم المشاريع.