ساعت عقربه اي

[hhasti72]

مي خواستم يه ساعت عقربه اي درست كنم ولي چرخش عقربه هاش اشكال داره
ميشه كد چرخش عقربه ها رو برام بگين ؟

[moeinjoon]

اينم يه ساعت عقربه اي توپ اميدوارم كمكت كنه(اگه كارت راه افتاد دكمه تشكر يادت نره)

[hhasti72]

ممنون اين ديگه خيلي كامله :لبخند:
يه كم ساده ترش رو مي خواستم

[xxxxx_xxxxx]

سلام
شما براي چرخش عقربه ها ناچاريد از توابع سينوسي و كسينوسي استفاده كنيد.
و در هر لحظه(ثانيه) بايد يك خط به عنوان عقربه رسم كنيد.
نقطه شروع خط هميشه ثابت هست و فقط نقطه انتهايي خط تغيير ميكنه. كه بايد بهش مختصات x و y بديم.
خاصيت ScaleMode فرم رو به Pixel تغيير بديد و يك تايمر با Interval 1000 بزاريد رو فرم.


Const P = 3.14
Dim S As Integer

Private Sub Timer1_Timer()
Cls
S = S + 1
X2 = 100 + Cos((S Mod 60) * 2 * P / 60) * 90
Y2 = 100 + Sin((S Mod 60) * 2 * P / 60) * 90
Me.Line (100, 100)-(X2, Y2)
End Sub

براي عقربه دقيقه و ساعت هم به همين ترتيب عمل كنيد.
موفق باشيد/