کد شمارش معکوس در vb6

سلام دوستان کد شمارش معکوس از 2:00:00 را می خواهم لطفا کمکم کنید.

سلام اگه منظورت اینه که به صورت ثانیه یکی یکی کم بشه که اینطوریه
اول یک Timer توی فرم میزاری و مشخصه Interval اون رو 1000 میکنیم.
بعد اگر 20000 توی یک لیبل باشه این جوری مینویسیم

label1.caption=val(label1.caption) - 1

و اگر میخواهی عدد یا حرفی را معکوس کنی باید از تابع strreverse استفاده کنی
البته یادت باشه باید رشته باشه مثل
[HTML]Print StrReverse("120")[/HTML] که خرجی 021 است و الان 120 یک رشته است

با سلام

اگه همونجوري كه شما نوشتيد يعني به صورت 20 : 12:12 باشه چون كه (:) عدد محسوب نميشه ارور ميده .

بهتره (:) رو تكست باكس هاي جداگانه بنويسي . مثل اين :

text1 text2 text3 text4 text5
20 : 12 : 12

متوجه شديد؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟ :20:

من كه اون مثال آقاي Mohsen.sh رو انجام دادم ولي كار نكرد نمي گم كد اشتباه كد درسته ولي بايد كمي تغييرات بدي . اكه بخواي ميتونم

برات يه مثال درست كنم و بفرستم . :46::40:

برای ثانیه می تونی وقتی به صفر رسید از اون یکی یکی کم کنی و سپس اون را 60 بکنی

نیازی به 3 تکست باکس نیست ... میتونی تو همون Label هم اینکار رو انجام بدی ... اینم کدی که برات نوشتم :

کد:

---

Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub Form_Load()
Timer1.Interval = 10
a = 1
b = 60
c = 60
End Sub
Private Sub Timer1_Timer()
If c >= 0 Then
 Label1.Caption = a & ":" & b & ":" & c
 c = c - 1
End If
If c = 0 Then
 c = 60
 b = b - 1
End If
If b = 0 And a <> 0 Then
 b = 60
 a = a - 1
End If
If a = 0 And b = 0 Then
 Label1.Caption = "0:00:00"
 Timer1.Enabled = False
End If
End Sub

---

دمت گرم دوست گلم.
من داشت دیگه مخم سوت میکشید که چرا هی ارور میده؟
وسطای کار بود که فهمیدم باید از یه همچین روشی استفاده کنم ،اما گفتم شاید معلم قبول نکنه.

خیلی ممنوووووووووون