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

برنامه ای بنویسید که حرکت یک گوی را در یک مسیر دایره ای با امکانات زیر شبیه سازی کند.
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:

سلام

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

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

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

سلام

متن كامل سوالات رو در قالب يك فايل word براتون قرار دادم حجمش 22 كيلوبايت هستش

راستي يه سوال( اون دوتا خط براي چي بر هم عمود ميشن، نبايد اون خطها باشن)


اينم لينك

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

نقل قول:

---

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

سلام

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

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

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

---

هر برنامه ای تو ویژوال بیسیک که اجرا میشه فرمش همینجوری میشه

فکر نمیکنم بشه درستش کرد

شما تا کی برای این پروژه ها وقت دارید؟

چون می خوام یه دفعه برنامه اش رو بنویسم و بدم به شما تا
از دست تون راحت بشیم:31::31::21:

نقل قول:

---

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

شما تا کی برای این پروژه ها وقت دارید؟

چون می خوام یه دفعه برنامه اش رو بنویسم و بدم به شما تا
از دست تون راحت بشیم:31::31::21:

---

این سوال مال خودمه

اگه خیلی ناراحتین جواب ندید :31:

نه بابا شوخی کردم

تا هر وقت نوشتینش مشکلی نداره ولی هرچه زودتر بهتر


ممنون دوست عزیز:40:

فکر کنم پیدا کردم البته به طور کامل دایره ای نیست ولی
بقیهش با خودت.

کد:

---

http://mrc1945.persiangig.com/line.rar

---

این هم یه ورژن کاملتره که به طور کامل دایره ای می چرخه

کد:

---

http://mrc1945.persiangig.com/line2.rar

---

کامل شد.

کد:

---

http://mrc1945.persiangig.com/line2.rar

---

فایل exe هم داخلش هست.

البته روشش ابتدایی و ساده است.

پس من هیچی بلد نیستم!:41: