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

واضح آرشیو وب فارسی:سایت ریسک: naser_200622-04-2009, 07:20 PMسلام می خواستم بدونم که من اگر بخوام با تایمر یه شمارنده ی معکوس داشته باشم باید چه کارکنم که بعد از اینکه صفر شد از اول شروع کنه مثلا اگه 5 بدیم بعد اینکه 5 به 0 تبدیل شد از دوباره از 5 شروع بشه و... با تشکر naser_200622-04-2009, 10:20 PMخواهشا یکی به این سوال جواب بده 3Dmajid22-04-2009, 11:34 PMیه شرط بزار توی تایمر که اگه اون عدد مساوی 0 شد دوباره به 5 تبدیل بشه. مثلا : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! من وی بی ندارم وگرنه واست میساختم. naser_200623-04-2009, 12:22 AMممنون اگر عدد رو بخواهیم از طریق کادر text بدیم که وقتی عدد text صفر شد بازم ازاول شروع کنه چطور 3Dmajid23-04-2009, 02:01 PMببخشید ... منظورت رو متوجه نمیشم لطفا سوالت رو واضح تر بپرس. naser_200623-04-2009, 03:22 PMمان یه text روی فرم قراردادم و یه دونه timer میخوام وقتی در text عددی مثلا 5 مینویسی اون عدد هر ثانیه یکی کم بشه و وقتی صفر شد بازم از 5 شروع بشه وهمینطور ادامه داشته باشه 3Dmajid23-04-2009, 03:46 PMخوب این که کاری نداره... باید شرط رو روی Text1.Text امتحان کنی. ar.constantine23-04-2009, 05:04 PMبا سلام ميتوني از دستورات زير استفاده كني : خاصيت text رو از ويژگي هاي text1=5 قرار بده Private Sub Timer1_Timer Text1.Text = Text1.Text - 1 If Text1.Text = -1 Then Text1.Text = 5 End If Ens Sub [email protected] naser_200624-04-2009, 12:23 AMبازم ممنون اما منظورم اینه معدد رو از طریق text بدیم نه اینکه از طریق پنجره کد textرو مساوی 5 قراردهیم یعنی ورودی رو از طریق text بگیریم(هرعددی ) ar.constantine25-04-2009, 02:46 PMبا سلام مجدد اميدوارم اين بار ديگه مشكل شما حل بشه! يك عدد رو text box بنويس و بعد دكمه ي شروع رو بزن. ببينيد اول يه متغير از نوع Double تعريف كنيد. بعد يك تايمر با visible=false قرار دهيد و خاصيت Interval آن را برابر با 1000 قرار دهيد. و يك Command_Button قرار دهيد و بعد كدهاي زير : Dim s As Double Private Sub Command 1_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 اينم لينك دانلود برنامه : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! با تشكر. [email protected] file:///D:/Form.JPG ar.constantine25-04-2009, 09:15 PMبا سلام ميتوني به برنامه بالا اين دستور رو هم اضافه كني؟ if text1.text="" then command 1.enabled=false else command 1.enabled=true end if [email protected] :5: MicrosoftH03-05-2009, 05:42 PMسلام به دستان از اول تاپیک تاآخر تاپیک همه اشتباه کردن ایشون یک برنامه شمارش معکوس میخواد که براش نوشتم تو 35 ثانیه تو لین زیر هست برید دانلودکنید قبل از دانلود باید تابع های تاریخ وزمان VB رو کامل بلد باشید اگر اینجوری برنامه نویسی یاد بگیرید خیالتون رو راحت کنم به هیچ جا نمی رسید پس مفهمومی از پایه آغاز کنید تا .... اگر نفمیدید یک پیام خصوصی برام ارسال کن تا جوابت رو ربدم. حجمش کمه: دانلود : !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! موفق باشید. :2: سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 739]