سلام
من یک مشکلی در مورد ویژوال بیسیک دارم
من میخوام ساعت عقربه ای طراحی کنم
روی عقربه ثانیه شمار تایمر قرار دادم که دستورات زیر رو براش نوشتم
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 رو نشون میده بعد صفر میشه
میگین چکار کنم؟