منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اسوي عداد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم


شباب انا حاب اسوي عداد يحسب كم الوقت


يعني عندي بوتن 2 وعندي تكست بوكس

بوتن رقم 1 لمن اضغط عليه يبدا عد ويحطه في التكست بوكس

وبوتن رقم 2 اذا ضغطت عليه يوقف العد وشكرا
تقريبا الكود سيكون شئ من هذا القبيل
أضف تايمر + 2 باتون + تكست بوكس الي الفورم حتي يعمل معك الكود جيدا
ممكن تستخدم Label مثلا بدلا من التكست بوكس

كود :
Public Class Form1
    Private i As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        i += 1
        TextBox1.Text = i
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Timer1.Stop()
    End Sub
End Class
(22-07-14, 07:21 AM)silverlight كتب : [ -> ]تقريبا الكود سيكون شئ من هذا القبيل
أضف تايمر + 2 باتون + تكست بوكس الي الفورم حتي يعمل معك الكود جيدا
ممكن تستخدم Label مثلا بدلا من التكست بوكس

كود :
Public Class Form1
    Private i As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        i += 1
        TextBox1.Text = i
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Timer1.Stop()
    End Sub
End Class

الله يعطيك العافيه ضبط الكود