ورود

نسخه کامل مشاهده نسخه کامل : سوال از کنترل Timer



Mohsen.Sh_PC
20-02-2010, 10:43
سلام من زیاد با این کنترل آشنایی ندارم. فقط بلدم باهاش ساعت کامپیوتر رو نمایش بدم.
من میخوام مثلا کاربر توی text1 یک عددی مانند 45:00 رو وارد کنه و اون وقت Timer شروع به کار کنه و اون عدد رو تا 00:00 به صورت معکوس بر اساس ثانیه بره و وقتی به صفر رسید یک msgbox باز بشه . پیغام به طرف بده که 45 دقیقه تموم شد.
خیلی حیاتیه لازمش دارم.
لطفا کمکم کنید.

Rishter
20-02-2010, 11:27
این کد رو تو Timer بنویس :


text1.text = text1.text -1
if text1.text ="0' then
msgbox "Your massage
end if


ببین کار میکنه ؟ :40:

Mohsen.Sh_PC
20-02-2010, 11:34
این کد رو تو Timer بنویس :


text1.text = text1.text -1
if text1.text ="0' then
msgbox "Your massage
end if


ببین کار میکنه ؟ :40:

نشد حالا خودتون امتحان کنید

Mohsen.Sh_PC
20-02-2010, 11:54
فهمیدم البته با کمک شما
ابتدا باید ویژگی Interval رو روی 1000 تنظیم کنیم که به ثانیه عمل کنه.
بعد همون چیزی که شما گقتید

a = Val(Text1.Text)
a = a - 1
Text1.Text = a

رو توی تایمر مینویسیم و Timer بر اساس ثانیه به عقب میره.
خیلی متشکرم از شما:10:

Rishter
20-02-2010, 13:04
خواستم همون رو اول بنویسیم ولی یادم رفت ببخش ولی مهم اینه که خودت تونستی بفهمی

و مشکلت رو حل کردی . :41::10: