حرکت یک گوی در یک مسیر دایره ای

برنامه ای بنویسید که حرکت یک گوی را در یک مسیر دایره ای با امکانات زیر شبیه سازی کند.
1- توسط دو شی ء option botton بتوان مسیر حرکت گوی را نمایش داد و یا مخفی کرد.
2- توسط شی ءHscroll Bar بتوان سرعت حرکت را کم یا زیاد کرد. به طوری که در سرعت صفر حرکت متوقف شود. همچنین سرعت حرکت در نوار عنوان فرم نشان داده شود.
3- با زدن کلید جهتی چپ(Left arrow key) حرکت در جهت عقربه های ساعت و با زدن کلید جهتی راست (Right arrow key) حرکت در خلاف جهت عقربه ها ساعت باشد.
4- حرکت گوی به صورت پیوسته و بدون پرش باشد.
5- در شروع اجرای برنامه جهت حرکت مطابق عقربه های ساعت و بدون نمایش مسیر و همچنین سرعت روی صفر باشد.

من منتظر بودم یکی از دوستان بیاد بگه ولی ظاهرا کسی بلد
نیست من هم نمی دونم ولی سعی می کنم راهنمایی کنم.


Transparent Analog Clock

Nice Transparent Analog Clock.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=55594&strZipAccessCode=tp%2F%5B555942712

---

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


1-از کنترل شیپ استفاده کند.
2-مقدار Hscroll Bar رو برابر interval تایمر قرار دهید.
3-می توانید در فرمول حرکت مثبت را به منفی تبدیل کنید و برعکس.
4-interval تایمر رو کاهش بدید.
5-مقادیر اولیه را خودتان بدهید.

ممنون دوست عزيز

ولي يكي از دوستام مي گفت بايد از توبع مثلثاتي استفاده كني

Sin^2+Cos^2=1

كه نمودارش ميشه يه دايره

ميگفت بايد از اين راه بري ( نگفت چطوري)

من از معلم مون پرسیدم یه فورمول یه ماتریس رو به من داد
که من هم نمی دونم از اون چه جوری استفاده کنم.

پیشنهاد می کنم همین از راه ساعت کپی برداری کنید.

ولي وقتي من از معلممون پرسيدم از گوشاش دود بيرون زد :5:!!!!!!!!!!؟!!!!

این یه مثلث هست که در جهت خلاف عقربه های ساعت میچرخه ( بع عنوان راهنمایی ) بقیه با خودت::

[PHP]Private Sub Command1_Click()
pi = 4 * Atn(1)
ScaleMode = 3
Scale (-320, 240)-(320, -240)
Line (-320, 0)-(320, 0)
Line (0, 240)-(0, -240)
xa1 = 100
ya1 = 50
DrawWidth = 3
CurrentX = xa1
CurrentY = ya1
Line -Step(20, 40)
xa2 = CurrentX
ya2 = CurrentY
Line -Step(-40, 20)
xa3 = CurrentX
ya3 = CurrentY
Line -(xa1, ya1)
10: If Option1.Value = True Then
For beta = 0 To 5 * pi Step pi / 270
ForeColor = vbBlack
Line (-320, 0)-(320, 0)
Line (0, 240)-(0, -240)
xb1 = xa1 * Cos(beta) - ya1 * Sin(beta)
yb1 = xa1 * Sin(beta) + ya1 * Cos(beta)
CurrentX = xb1
CurrentY = yb1
xb2 = xa2 * Cos(beta) - ya2 * Sin(beta)
yb2 = xa2 * Sin(beta) + ya2 * Cos(beta)
Line -(xb2, yb2)
xb3 = xa3 * Cos(beta) - ya3 * Sin(beta)
yb3 = xa3 * Sin(beta) + ya3 * Cos(beta)
Line -(xb3, yb3)
Line -(xb1, yb1)
For k = 1 To 1000 Step 0.01: Next k
ForeColor = Form1.BackColor
xb1 = xa1 * Cos(beta) - ya1 * Sin(beta)
yb1 = xa1 * Sin(beta) + ya1 * Cos(beta)
CurrentX = xb1
CurrentY = yb1
xb2 = xa2 * Cos(beta) - ya2 * Sin(beta)
yb2 = xa2 * Sin(beta) + ya2 * Cos(beta)
Line -(xb2, yb2)
xb3 = xa3 * Cos(beta) - ya3 * Sin(beta)
yb3 = xa3 * Sin(beta) + ya3 * Cos(beta)
Line -(xb3, yb3)
Line -(xb1, yb1)
If Option2.Value = True Then GoTo 10

Next beta
End If
End Sub[/PHP]

اینم فایل EXE این برنامه

اول باید روی Option1 کلیک کنی بعد command1 رو بزنی
ببخشید یه کم ناجوره تازه با عجله نوشتمش به همین خاطر یه کم ناجوره
option 2 هم کار خاصی نمیکنه...!!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]





.

نقل قول:

---

نوشته شده توسط farshidshd [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این یه مثلث هست ......

End Sub[/PHP]

---

منظورتون همون دايره مثلثاتي هست ديگه ؟

برنامه EXE رو بگیر اجرا کن متوجه میشی

البته فرمول دایره: x-a)^2 + (y-b)^2 = r^2 ) هست که نقطه (a,b) مر کز دایره و r شعاع دایره. امیدوارم کمکتون کنه:46:

سلام

ممنون از كمكتون

ولي وقتي اون مثلثه مي چرخه فرم از كار ميفته و قابل تكون دادن نيست

ممنون ميشم اگه اين رو درست كنيد