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

واضح آرشیو وب فارسی:سایت ریسک: View Full Version : حرکت یک گوی در یک مسیر دایره ای Samba01-01-2010, 09:36 PMبرنامه ای بنویسید که حرکت یک گوی را در یک مسیر دایره ای با امکانات زیر شبیه سازی کند. 1- توسط دو شی ء option botton بتوان مسیر حرکت گوی را نمایش داد و یا مخفی کرد. 2- توسط شی ء Hscroll Bar بتوان سرعت حرکت را کم یا زیاد کرد. به طوری که در سرعت صفر حرکت متوقف شود. همچنین سرعت حرکت در نوار عنوان فرم نشان داده شود. 3- با زدن کلید جهتی چپ(Left arrow key) حرکت در جهت عقربه های ساعت و با زدن کلید جهتی راست (Right arrow key) حرکت در خلاف جهت عقربه ها ساعت باشد. 4- حرکت گوی به صورت پیوسته و بدون پرش باشد. 5- در شروع اجرای برنامه جهت حرکت مطابق عقربه های ساعت و بدون نمایش مسیر و همچنین سرعت روی صفر باشد. MR Cracker03-01-2010, 08:53 AMمن منتظر بودم یکی از دوستان بیاد بگه ولی ظاهرا کسی بلد نیست من هم نمی دونم ولی سعی می کنم راهنمایی کنم. Transparent Analog Clock Nice Transparent Analog Clock. http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC20041221558561913.gif !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! این برنامه یه خط رو دورای حرکت می ده. شما سعی کنید خط رو به جای گوی بزارید. 1-از کنترل شیپ استفاده کند. 2-مقدار Hscroll Bar رو برابر interval تایمر قرار دهید. 3-می توانید در فرمول حرکت مثبت را به منفی تبدیل کنید و برعکس. 4-interval تایمر رو کاهش بدید. 5-مقادیر اولیه را خودتان بدهید. Samba03-01-2010, 10:41 AMممنون دوست عزيز ولي يكي از دوستام مي گفت بايد از توبع مثلثاتي استفاده كني Sin^2+Cos^2=1 كه نمودارش ميشه يه دايره ميگفت بايد از اين راه بري ( نگفت چطوري) MR Cracker04-01-2010, 05:45 PMمن از معلم مون پرسیدم یه فورمول یه ماتریس رو به من داد که من هم نمی دونم از اون چه جوری استفاده کنم. پیشنهاد می کنم همین از راه ساعت کپی برداری کنید. Samba07-01-2010, 12:10 PMولي وقتي من از معلممون پرسيدم از گوشاش دود بيرون زد :5:!!!!!!!!!!؟!!!! farshidshd07-01-2010, 01:01 PMاین یه مثلث هست که در جهت خلاف عقربه های ساعت میچرخه ( بع عنوان راهنمایی ) بقیه با خودت:: Private Sub Command 1_Click() pi = 4 * Atn(1) ScaleMode = 3 Scale (-320, 240)-(320, -240) Line (-320, 0)-(320, 0) Line (0, 240)-(0, -240) xa 1 = 100 ya 1 = 50 DrawWidth = 3 CurrentX = xa 1 CurrentY = ya 1 Line -Step(20, 40) xa 2 = CurrentX ya 2 = CurrentY Line -Step(-40, 20) xa 3 = CurrentX ya 3 = CurrentY Line -(xa 1, ya 1) 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) xb 1 = xa 1 * Cos(beta) - ya 1 * Sin(beta) yb 1 = xa 1 * Sin(beta) + ya 1 * Cos(beta) CurrentX = xb 1 CurrentY = yb 1 xb 2 = xa 2 * Cos(beta) - ya 2 * Sin(beta) yb 2 = xa 2 * Sin(beta) + ya 2 * Cos(beta) Line -(xb 2, yb 2) xb 3 = xa 3 * Cos(beta) - ya 3 * Sin(beta) yb 3 = xa 3 * Sin(beta) + ya 3 * Cos(beta) Line -(xb 3, yb 3) Line -(xb 1, yb 1) For k = 1 To 1000 Step 0.01: Next k ForeColor = Form1.BackColor xb 1 = xa 1 * Cos(beta) - ya 1 * Sin(beta) yb 1 = xa 1 * Sin(beta) + ya 1 * Cos(beta) CurrentX = xb 1 CurrentY = yb 1 xb 2 = xa 2 * Cos(beta) - ya 2 * Sin(beta) yb 2 = xa 2 * Sin(beta) + ya 2 * Cos(beta) Line -(xb 2, yb 2) xb 3 = xa 3 * Cos(beta) - ya 3 * Sin(beta) yb 3 = xa 3 * Sin(beta) + ya 3 * Cos(beta) Line -(xb 3, yb 3) Line -(xb 1, yb 1) If Option2.Value = True Then GoTo 10 Next beta End If End Sub اینم فایل EXE این برنامه اول باید روی Option1 کلیک کنی بعد command 1 رو بزنی ببخشید یه کم ناجوره تازه با عجله نوشتمش به همین خاطر یه کم ناجوره option 2 هم کار خاصی نمیکنه...!! http://farshidshd.persiangig.com/farshidshd/Project1.exe . Samba07-01-2010, 01:06 PMاین یه مثلث هست ...... End Sub[/PHP] منظورتون همون دايره مثلثاتي هست ديگه ؟ farshidshd07-01-2010, 01:11 PMبرنامه EXE رو بگیر اجرا کن متوجه میشی only4u-m07-01-2010, 01:32 PMالبته فرمول دایره: x-a)^2 + (y-b)^2 = r^2 ) هست که نقطه (a,b) مر کز دایره و r شعاع دایره. امیدوارم کمکتون کنه:46: Samba07-01-2010, 07:09 PMسلام ممنون از كمكتون ولي وقتي اون مثلثه مي چرخه فرم از كار ميفته و قابل تكون دادن نيست ممنون ميشم اگه اين رو درست كنيد Samba07-01-2010, 10:29 PMسلام متن كامل سوالات رو در قالب يك فايل word براتون قرار دادم حجمش 22 كيلوبايت هستش راستي يه سوال( اون دوتا خط براي چي بر هم عمود ميشن، نبايد اون خطها باشن) اينم لينك http://samba.persiangig.com/amaly%20vb.rar farshidshd08-01-2010, 04:07 PMسلام ممنون از كمكتون ولي وقتي اون مثلثه مي چرخه فرم از كار ميفته و قابل تكون دادن نيست ممنون ميشم اگه اين رو درست كنيد هر برنامه ای تو ویژوال بیسیک که اجرا میشه فرمش همینجوری میشه فکر نمیکنم بشه درستش کرد MR Cracker09-01-2010, 03:06 PMشما تا کی برای این پروژه ها وقت دارید؟ چون می خوام یه دفعه برنامه اش رو بنویسم و بدم به شما تا از دست تون راحت بشیم:31::31::21: Samba14-01-2010, 06:10 PMشما تا کی برای این پروژه ها وقت دارید؟ چون می خوام یه دفعه برنامه اش رو بنویسم و بدم به شما تا از دست تون راحت بشیم:31::31::21: این سوال مال خودمه اگه خیلی ناراحتین جواب ندید :31: نه بابا شوخی کردم تا هر وقت نوشتینش مشکلی نداره ولی هرچه زودتر بهتر ممنون دوست عزیز:40: MR Cracker18-01-2010, 08:49 AMفکر کنم پیدا کردم البته به طور کامل دایره ای نیست ولی بقیهش با خودت. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! MR Cracker19-01-2010, 08:36 AMاین هم یه ورژن کاملتره که به طور کامل دایره ای می چرخه !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! MR Cracker19-01-2010, 10:30 AMکامل شد. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! فایل exe هم داخلش هست. البته روشش ابتدایی و ساده است. GFT11-02-2010, 09:25 AMپس من هیچی بلد نیستم!:41: سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 481]