طلب اداة حساب زمن رقمي مثل الساعة

[COLOR="#000000"]بارك الله فيك اخي اسلام والله متشكرك جدا
نزلت المشروع وما شاء الله انت عامل زي ما بدي لكن فيها خلل بس لو تصصحلي الخلل الي فيه بتكون فضلت على راس
شوفي اخي الخلل وين صورتلك صور

هي الصورة الاولة لما افتح البرنامك بيطلعلي في مربع العداد مكتوب فيها تكست مش اصفار
مثل الصورة

والصورة الثانية اخي لما اكبس على ابداء عم يظهرلي اصفار بدون ان يتحركوا ابداً

والصورة الثالثة لما اكبس على الايقاف
بيكتبلي العدد صح يعني الزمن المار لكن اثناء العد مش باين الزمن

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

اتمنى تكمل معروفك معي لو عندك شوية وقت او اي احد من الاخوى يعدل على المشروع لاني والله ما بفهم بي الامور كتير
ملاحظة مش ضروري اخي العداد يكون في محل تكست حتى لو على الواجهة مش مشكلة المهم يعمل بكفائة ان شاء الله
وجزاكم الله عني خيرا[/COLOR]

كود :

Dim EKAFF As Integer

Dim uuuS1 As Integer, uuuS2 As Integer, uuuS As Integer

Dim uuuM1 As Integer, uuuM2 As Integer, uuuM As Integer

Dim uuuH1 As Integer, uuuH2 As Integer, uuuH As Integer





Private Sub Command1_Click()

EKAFF = 1

Label1.Visible = False

Text1.Text = "00:00:00"

uuuS1 = DateTime.Second(Now)

uuuM1 = DateTime.Minute(Now)

uuuH1 = DateTime.Hour(Now)

End Sub





Private Sub Command2_Click()

If EKAFF = 0 Then GoTo 100

Label1.Visible = True

uuuS2 = DateTime.Second(Now)

uuuM2 = DateTime.Minute(Now)

uuuH2 = DateTime.Hour(Now)

If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1

If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1

uuuS = uuuS2 - uuuS1

uuuM = uuuM2 - uuuM1

uuuH = uuuH2 - uuuH1

Text1.Text = uuuH & ":" & uuuM & ":" & uuuS

EKAFF = 0

100 End Sub





Private Sub Command3_Click()

Text1.Text = "00:00:00"

End Sub





Private Sub Form_Activate()

Text1.Text = "00:00:00"

End Sub

كود :

[align=left]Dim I As Integer

Dim J As Integer

Dim EKAFF As Integer

Dim uuuS1 As Integer, uuuS2 As Integer, uuuS As Integer

Dim uuuM1 As Integer, uuuM2 As Integer, uuuM As Integer

Dim uuuH1 As Integer, uuuH2 As Integer, uuuH As Integer

Private COK As Boolean





Private Sub Command1_Click()

EKAFF = 1

Label1.Visible = False

Text1.Text = "00:00:00"

uuuS1 = DateTime.Second(Now)

uuuM1 = DateTime.Minute(Now)

uuuH1 = DateTime.Hour(Now)

COK = True

Do While COK

10 uuuS2 = DateTime.Second(Now)

uuuM2 = DateTime.Minute(Now)

uuuH2 = DateTime.Hour(Now)

If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1

If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1

uuuS = uuuS2 - uuuS1

uuuM = uuuM2 - uuuM1

uuuH = uuuH2 - uuuH1

If uuuS < J Then GoTo 10

Text1.Text = uuuH & ":" & uuuM & ":" & uuuS

    DoEvents

Loop

End Sub





Private Sub Command2_Click()

COK = False

If EKAFF = 0 Then GoTo 100

Label1.Visible = True

uuuS2 = DateTime.Second(Now)

uuuM2 = DateTime.Minute(Now)

uuuH2 = DateTime.Hour(Now)

If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1

If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1

uuuS = uuuS2 - uuuS1

uuuM = uuuM2 - uuuM1

uuuH = uuuH2 - uuuH1

Text1.Text = uuuH & ":" & uuuM & ":" & uuuS

EKAFF = 0

100 End Sub





Private Sub Command3_Click()

Text1.Text = "00:00:00"

End Sub





Private Sub Form_Activate()

Text1.Text = "00:00:00"

End Sub



[/align]