كيف اعمل مؤقت

بعد وضع Timer وضبط خاصية إنترفل على 1000 ووضع ليبل ضع الكود الاتى

Private Sub Timer1_Timer()
    Dim Start
    Start=Time
    Label1.Caption=Format(Time-Start,"hh-mm-ss")
End Sub

السلام عليكم

شكرا وجزاك الله خير على الرد السريع

اخي عملت ما هو مطلوب تماما ولكن يظهر oo oo oo يعني اصفار فقط

ولا تظهر ارقام ..... ولا يظهر اي رقم والوقت لا يتحرك

ارجو ا المساعدة ولك جزيل الشكر

المعزره تعديل بسيط

Private Sub Timer1_Timer()
    Dim Start
    Start=Timer
    Label1.Caption=Format(Timer-Start,"hh-mm-ss")
End Sub

اخي العزيز ....... السلام عليكم

شكرا جزيلا على الرد

اخي بعد تعديل الكود لم يعمل الوقت يعني اصفار فقط ولا يتغير

ارجوا المساعدة

وشكرا وانا بنتظار الرد

عزرا وهذا التعديل الاخير فلم أجرب الكود السابق

' فى قسم الاعلانات
'نضع هذا الاعلان
    Dim HH, MM, SS
Private Sub Form_Load()
   HH = Hour(Now)
   MM = Minute(Now)
   SS = Second(Now)
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Hour(Now) - HH & " - " & _
    Minute(Now) - MM & " - " & Second(Now) - SS
End Sub

اخ رمضان ......... السلام عليكم

الف شكر على الرد وجزاك الله كل خير ... والكود الاخير يعمل

مع ملاحظة ... الوقت يعمل ولكن ليس دقيق يعني لو راقبت الوقت

سوف ترى الثواني غير منتضمة مثلا يقفز من 50 الى 1.7

او من 13 الى 16 يعني غير دقيق بالوقت

واعتقد ليس الخطأ من الكود بل من النظام

ارجوا المساعدة اذا كان لهذة المشكلة حل

مع جزيل الشكر لك وللاخوة اعضاء المنتدى

إذا قلت أن هذا الكود لم يعمل فإما ان تكسر جهازك أو أكسر جهازى انا

Dim HH, MM, SS
Dim StartCount As Boolean
Private Sub Command1_Click()
If Command1.Caption = "Start" Then
    Command1.Caption = "Stop"
    StartCount = True
Else
    Command1.Caption = "Start"
    StartCount = False
End If
GG:
Label1.Caption = Hour(Now) - HH & " - " & Minute(Now) - MM _
    & " - " & Second(Now) - SS
    DoEvents
If StartCount Then GoTo GG

End Sub

Private Sub Form_Load()
HH = Hour(Now)
MM = Minute(Now)
SS = Second(Now)
StartCount = False
Command1.Caption = "Start"
End Sub

Private Sub Timer1_Timer()

Label1.Caption = Val(Label1.Caption) + 1

If Label1.Caption = "60" Then

Label2.Caption = Val(Label2.Caption) + 1

Label1.Caption = "0"

Timer1.Enabled = True

End If

If Label2.Caption = "60" Then

Label3.Caption = Val(Label3.Caption) + 1

Label2.Caption = "0"

Timer1.Enabled = True

End If

End Sub

اضف الى الفروم 3 lebel

1 timer

llabel1.Caption=0

llabel2.Caption=0

llabel3.Caption=0

ويمكن التحكم بسرعة الوقت فى تغير سرعة timer

السلام عليكم

اسف على التأخير

شكرا جزيلا للاخوة الكرام اعضاء المنتدى

يا اخ رمضان اشتغل الكود ... شكرا جزيلا على الاهتمام

وشكرا للاخ محمد الخطيب على الكود وهو كذلك شغال مع كل الشكر والتقدير لك الاخوة

شكرا جزيلا