ساخت analog clock

[MBG73]

با سلام

کسی میتونه منو در حرکت دادن عقربه های ساعت راهنمایی کنه ؟

ممنون

[Tasiyan]

دوست عزيز اگه مي خواي خودت بنويسي برنامه زير رو دانلود نكن ! :متفکر:



ولي اگه ميخواي ايده بگيري برنامش خيلي عاليه :چشمک:


:لبخند:

[Rezapcclick]

سام عليك
عرض به حضور داش گل خودم اين كد هم شايد به دردت بوخوره يه ايم تا حانيش كن
اول يک تايمر به فرم اضافه کن و Interval اون رو برابر ۱۰۰۰ قرار بده. بعد :

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

[MBG73]

دوست عزيز اگه مي خواي خودت بنويسي برنامه زير رو دانلود نكن ! :متفکر:



ولي اگه ميخواي ايده بگيري برنامش خيلي عاليه :چشمک:


:لبخند:

با تشکر از شما دوست گرامی .

من این برنامه رو داشتم ولی ازش هیچی نمی فهمم .

[xxxxx_xxxxx]

با تشکر از شما دوست گرامی .

من این برنامه رو داشتم ولی ازش هیچی نمی فهمم .

چرخش عقربه ها (http://barnamenevis.org/forum/showpost.php?p=691307&postcount=4)

[MBG73]

Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed



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



با سلام خدمت شما دوست عزیز گل :لبخندساده:

اگر این دو قسمتو برای من توضیح بدین خیلی خیلی ازتون ممنون میشم .

قربان شما :بوس:

[MBG73]

X2 = 100 + Cos((S Mod 60) * 2 * P / 60) * 90
Y2 = 100 + Sin((S Mod 60) * 2 * P / 60) * 90


با تشکر از شما

من همه ی مشکلم اینه که اینایی که نوشتین نمیفهمم یعنی چی ؟ :متفکر:

اگر توضیح بدین منون میشم .

[Rezapcclick]

با سلام خدمت شما دوست عزیز گل :لبخندساده:

اگر این دو قسمتو برای من توضیح بدین خیلی خیلی ازتون ممنون میشم .

قربان شما :بوس:


قسمت اول مياد با استفاده از توابع سينوس و كسينوس و ... دايره هايي كوچك كه همون عدد هاي ساعت است ترسيم مي كنه.
ولي قسمت دوم كه از Line استفاده شده مياد سه تا خط هايي كه مربوط به دقيقه ثانيه و ساعت مي باشد رو درست مي كنه
يه ذره دقت كنيد همه چي مياد دستت .:بوس:

[MBG73]

قسمت اول مياد با استفاده از توابع سينوس و كسينوس و ... دايره هايي كوچك كه همون عدد هاي ساعت است ترسيم مي كنه.
ولي قسمت دوم كه از Line استفاده شده مياد سه تا خط هايي كه مربوط به دقيقه ثانيه و ساعت مي باشد رو درست مي كنه
يه ذره دقت كنيد همه چي مياد دستت .:بوس:

این هایی رو که شما گفتین فهمیدم منتها این رابطه ها رو از کجا آوردین ؟ :متفکر::بوس:

[xxxxx_xxxxx]

با تشکر از شما

من همه ی مشکلم اینه که اینایی که نوشتین نمیفهمم یعنی چی ؟ :متفکر:

اگر توضیح بدین منون میشم .
تصوير زير رو ببينيد.
حالا شما برنامه رو طوري تغيير بديد تا نقاطي كه sin و cos بهشون اشاره ميكنه رو رسم كنه. اونوقت به قول آقا رضا همه چي مياد دستتون.:چشمک:

اگر اين كارو بكنيد متوجه ميشيد كه چرا اگر جاي Sin و Cos رو عوض كنيد اونوقت عقربه ساعت برعكس مي چرخه (پادساعتگرد).

براي درك بهتر موضوع اين برنامه (http://barnamenevis.org/forum/showthread.php?t=132890) رو نگاه كنيد

موفق باشيد/