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

[ashykn]

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

[Mohsen.Sh_PC]

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

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

[سونامی]

و اگر میخواهی عدد یا حرفی را معکوس کنی باید از تابع strreverse استفاده کنی
البته یادت باشه باید رشته باشه مثل

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

که خرجی 021 است و الان 120 یک رشته است

[Rishter]

با سلام

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

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

text1 text2 text3 text4 text5
20 : 12 : 12

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

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

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

[SMNsoft]

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

[M i L @ D]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[ezio potter]

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

[swear7]

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