كمكم كنيد

در اين بخش سوالات خودتون رو مطرح كنيد
موضوع جدید ارسال پست
nafise
حق آبو گِل داره!
حق آبو گِل داره!
پست: 385
تاریخ عضویت: دوشنبه 19 خرداد 1382, 12:00 am
محل اقامت: مشهد
تشکر شده: 1 دفعه
تماس:

كمكم كنيد

پست توسط nafise »

سلام
من یک مشکلی در مورد ویژوال بیسیک دارم
من میخوام ساعت عقربه ای طراحی کنم
روی عقربه ثانیه شمار تایمر قرار دادم که دستورات زیر رو براش نوشتم
If Timer1.Interval = 1000 Then
Line3.X2 = Line3.X2 + 80
Line3.Y2 = Line3.Y2 + 80
End If
If Timer1.Interval = 15000 Then
Line3.X2 = Line3.X2 - 40
Line3.Y2 = Line3.Y2 + 40
End If
اما درست عمل نمیکنه
نمیدونم محاسباتم رو روی کدوم طول و عرض قرار بدم و چکار کنم
یعنی تا 15 ثانیه اول درسته ولی بعد عقربه همزمان با ازدیاد ثانیه ،طولش هم افزایش پیدا میکنه
و یک مشکل دیگه در مورد ساعت دیجیتالی:
من 3تا تایمر برای ساعت ، دقیقه و ثانیه قرار دادم که دستوراتش رو در زیر نوشتم:
(ثانیه ):
If Label3.Caption < 59 Then
Label3.Caption = Label3.Caption + 1
Else
Label3.Caption = "00"
If Label2.Caption < 60 Then
Label2.Caption = Label2.Caption + 1
Timer3.Enabled = True
End If
End If
( دقیقه ):
Timer4.Enabled = False
If Label2.Caption < 60 Then
Timer3.Enabled = False
Else
Label2.Caption = "00"
Label1.Caption = Label1.Caption + 1
Timer4.Enabled = True
End If
(ساعت):
If Label1.Caption < 59 Then
Label1.Caption = Label1.Caption + 1
Else
Label1.Caption = "01"
End If
ثانیه درست عمل میکنه اما دقیقه یک لحظه 60 رو نشون میده بعد صفر میشه
میگین چکار کنم؟


در تاریخ زندگی خوانده ام : دوستی یک اتفاق،جدایی یک قانون، و تنهایی یک رسم است.
mahdi
مدیر سایت
مدیر سایت
پست: 837
تاریخ عضویت: سه‌شنبه 3 تیر 1382, 12:00 am
تشکر شده: 1 دفعه
تماس:

پست توسط mahdi »

سلام
برنامه خودتون رو برام ميل كنيد براتون نگاه كنم.
موفق باشيد
مهدي
مردي از دياري ديگر

http://irbook.ir
موضوع جدید ارسال پست

بازگشت به “Visual Basic”