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

[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
ar.constantine@yahoo.com

[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


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


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

با تشكر.
ar.constantine@yahoo.com



file:///D:/Form.JPG

[ar.constantine]

با سلام
ميتوني به برنامه بالا اين دستور رو هم اضافه كني؟

if text1.text="" then
command1.enabled=false
else
command1.enabled=true
end if


ar.constantine@yahoo.com
:5:

[MicrosoftH]

سلام به دستان از اول تاپیک تاآخر تاپیک همه اشتباه کردن
ایشون یک برنامه شمارش معکوس میخواد که براش نوشتم تو 35 ثانیه تو لین زیر هست برید دانلودکنید
قبل از دانلود باید تابع های تاریخ وزمان VB رو کامل بلد باشید اگر اینجوری برنامه نویسی یاد بگیرید
خیالتون رو راحت کنم به هیچ جا نمی رسید پس مفهمومی از پایه آغاز کنید تا ....
اگر نفمیدید یک پیام خصوصی برام ارسال کن تا جوابت رو ربدم.
حجمش کمه:
دانلود :

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