ساخت ساعت

[برنامه نویس اینده]

سلام
من هنرجوی رشته کامپیوتر و علاقه مند به برنامه نویسی هستم
میخواهم یک ساعت انالوگ را با عقربه و .... در ویژوال بیسیک طراحی کنم به طوری که عقربه ها کاملا حرکت کرده و زمان درست رو نشون ما بده
ممنون میشم کمکم کنین اگه میشه جوابو یعنی کدنویسی شو بزارید

[SlowCode]

سلام
دو راه داری:
1- استفاده از Line واسه عقربه ها که باید توابع مثلثاتی بلد باشه.
2- استفاده از تصویر که باید سورس چرخاندن تصویر رو پیدا کنی و یا از کنترل AlphaImage استفاده کنی.
راه دوم ساده تر و تمیز تره.

[برنامه نویس اینده]

سلام
دو راه داری:
1- استفاده از Line واسه عقربه ها که باید توابع مثلثاتی بلد باشه.
2- استفاده از تصویر که باید سورس چرخاندن تصویر رو پیدا کنی و یا از کنترل AlphaImage استفاده کنی.
راه دوم ساده تر و تمیز تره.
از راهنماییتون مچکرم لطفا اگه میشه بیشتر راهنمایی کنین من مبتدی هستم

[بهروز عباسی]

درود به شما.
اول يک تايمر به فرم اضافه کنيد و Interval اون رو برابر 1000 قرار بدين. بعد :
Private Sub Form_Load()
Me.BackColor = vbBlack
End Sub

Private Sub Timer1_Timer()

Form1.Refresh
X = Form1.Width / 2
Y = Form1.Height / 2.2
Circle (X, Y), Y - 200, vbWhite
Circle (X, Y), Y - 220, vbWhite
For i = 1 To 12
Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed
Next
h = Hour(Time())
If h > 12 Then
h = h - 12
End If
m = Minute(Time())
s = Second(Time())
Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue
Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow
Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite

End Sub
لینک زیر هم ببین
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=71024&lngWId=1
موفق باشید.

[برنامه نویس اینده]

سلام
خیلی ممنون اقای عباسی واقعا همونی بود که میخواستم عالی بود
:قلب: