نیاز به یک راهنمایی کوچیک

[naser_2006]

سلام
می خواستم بدونم که من اگر بخوام با تایمر یه شمارنده ی معکوس داشته باشم باید چه کارکنم که بعد از اینکه صفر شد از اول شروع کنه مثلا اگه 5 بدیم بعد اینکه 5 به 0 تبدیل شد از دوباره از 5 شروع بشه و...
با تشکر

[naser_2006]

خواهشا یکی به این سوال جواب بده

[3Dmajid]

یه شرط بزار توی تایمر که اگه اون عدد مساوی 0 شد دوباره به 5 تبدیل بشه.

مثلا :

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

من وی بی ندارم وگرنه واست میساختم.

[naser_2006]

ممنون
اگر عدد رو بخواهیم از طریق کادر text بدیم که وقتی عدد text صفر شد بازم ازاول شروع کنه چطور

[3Dmajid]

ببخشید ... منظورت رو متوجه نمیشم لطفا سوالت رو واضح تر بپرس.

[naser_2006]

مان یه text روی فرم قراردادم و یه دونه timer میخوام وقتی در text عددی مثلا 5 مینویسی اون عدد هر ثانیه یکی کم بشه و وقتی صفر شد بازم از 5 شروع بشه وهمینطور ادامه داشته باشه

[3Dmajid]

خوب این که کاری نداره... باید شرط رو روی Text1.Text امتحان کنی.

[ar.constantine]

با سلام
ميتوني از دستورات زير استفاده كني :

خاصيت text رو از ويژگي هاي text1=5 قرار بده

Private Sub Timer1_Timer

Text1.Text = Text1.Text - 1
If Text1.Text = -1 Then
Text1.Text = 5
End If
Ens Sub
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[naser_2006]

بازم ممنون
اما منظورم اینه معدد رو از طریق text بدیم نه اینکه از طریق پنجره کد textرو مساوی 5 قراردهیم یعنی ورودی رو از طریق text بگیریم(هرعددی )

[ar.constantine]

با سلام مجدد
اميدوارم اين بار ديگه مشكل شما حل بشه!
يك عدد رو text box بنويس و بعد دكمه ي شروع رو بزن.
ببينيد اول يه متغير از نوع Double تعريف كنيد.
بعد يك تايمر با visible=false قرار دهيد و خاصيت Interval آن را برابر با 1000 قرار دهيد.
و يك Command_Button قرار دهيد و بعد كدهاي زير :

Dim s As Double

Private Sub Command1_Click()
s = Val(Text1.Text)
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Text1.Text <> "" Then
Text1.Text = Text1.Text - 1
End If
If Val(Text1.Text) = -1 Then
Text1.Text = s
End If
End Sub

اينم لينك دانلود برنامه :

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

با تشكر.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[IMG]file:///D:/Form.JPG[/IMG]