ورود

View Full Version : سوال: درخواست کد در مورد حرکت شکل(Shape)


Henry14
پنج شنبه 24 فروردین 1391, 17:00 عصر
سلام خدمت مدیران و کاربران سایت.من تازه برنامه نویسی رو شروع کردم و مبتدی هستمدر واقع فقط چیزایی که ر کتاب مبانی کامپیوتر سال سوم متوسطه هست رو بلد هستم.
می خواستم ببینم کد این حرکت چی هست؟

دانلود فایل EXE (http://filerio.com/gaphttljbc0z)

فایل exe رو که دانلود و اجرا کنید میبینید که یه دایره هست که داره می چرخه.نحوه حرکتش اینه که داره روی یه نماد بینهایت در ریاضی می چرخه.کد این حرکت چیه؟
من خودم کد دور دایره چرخیدنش رو بلدم.
یعنی این:

Dim r As Integer
Dim a As Integer
Dim x As Integer
Dim y As Integer

Private Sub Form_Load()
a = 0
r = 1500
x = 3000
y = 2000
End Sub

Private Sub Timer1_Timer()
a = a + 1
Shape1.Left = Math.Cos(a * 3.14 / 180) * r + x
Shape1.Top = Math.Sin(a * 3.14 / 180) * r + y
End Sub


با معلممون که صحبت کردم گفت باید یه شرط هایی به این اضافه کنی تا حرکتش مثل اون فایل exe بشه.
حالا هرچی به فکرم رسید زدم نشد.
از شما دوستان راهنمایی میخوام.
محسن واژدی
پنج شنبه 24 فروردین 1391, 17:51 عصر
سلام فایل exe دانلود نمیشه، روی سرور دیگه ای آپلود کنین (مثل 4shared.com) موفق باشید
Henry14
پنج شنبه 24 فروردین 1391, 19:20 عصر
سلام فایل exe دانلود نمیشه، روی سرور دیگه ای آپلود کنین (مثل 4shared.com) موفق باشید
ببخشید.
اینم خود فایل EXE که در سایت 4SHARED اپلود شد.

دانلود فایل از سرور 4SHARED (http://www.4shared.com/file/JIhpSFhN/3_online.html)
M.T.P
جمعه 25 فروردین 1391, 00:10 صبح
من دانلود کردم چیزی نشون نمیده ، شاید تو 7 اجرا نمیشه و یا اینکه ویروسه...
محسن واژدی
جمعه 25 فروردین 1391, 05:39 صبح
سلام
فایلتون ویروسی بود (win32.sality)
Henry14
جمعه 25 فروردین 1391, 11:16 صبح
اوه ببخشید چون از سیستم مدرسمون گرفتم ویروسی شده برای خودمم هم ارور ویروسی بودن میده و برای همین کلا با غیر فعال کردن آنتیویروس هم در سون اجرا نمیشه.من با نرم افزار oracle virtual box یه ویندوز xp ساختم و روی اون با برنامه ی vb کار می کنم و چون روش انتی ویروس نصب نکردم راحت باز میشه.
حالا دوستان چیکارش کنم که برای شما هم بدون ویروس بازش کنه؟
Henry14
جمعه 25 فروردین 1391, 12:26 عصر
آقا بفرما این یکی دیگه ویروس نداره و توی 7 اجرا میشه.

دانلود فایل بدون ویروس (http://nilooblog.com/up/images/7cw1dz0p51ger79rlkq.rar)
لینک جدید جایگزاری شد.
بعد از اکسترکت فایل فشرده ، فایل exe را باز کنید.
Henry14
شنبه 26 فروردین 1391, 21:22 عصر
چرا کسی به این تاپیک پاسخ نمیده؟
Henry14
یک شنبه 27 فروردین 1391, 22:27 عصر
الان 3 روز هست من این تاپیک رو ایجاد کردم و هنوز پاسخ سوالم رو نگرفتم.
چرا کسی پاسخگو نیست؟
اگر انجمنی ساخته میشه باید پاسخگوی سوالات همدیگه باشیم.الان چرا کسی پاسخ نمیده؟
Henry14
دوشنبه 28 فروردین 1391, 20:45 عصر
یعنی کسی بلد نیست جواب بده؟؟؟؟؟؟؟؟؟
شایدم هیچ کس بلد نیست.فکر نمیکنم کد سختی باشه......
شما به همه همین جور پاسخ میدید؟
اصلا فایده نداره.
ROSTAM2
سه شنبه 29 فروردین 1391, 16:31 عصر
برای همین کلا با غیر فعال کردن آنتیویروس هم در سون اجرا نمیشه.من با نرم افزار oracle virtual box یه ویندوز xp ساختم و روی اون با برنامه ی vb کار می کنم و چون روش انتی ویروس نصب نکردم راحت باز میشه.


دانلود فایل بدون ویروس

فکر کنم کسی باورش نشده ویروس نیست ....
Henry14
سه شنبه 29 فروردین 1391, 21:45 عصر
فکر کنم کسی باورش نشده ویروس نیست ....

حالا شما نمیتونی کمکی کنی؟؟
SlowCode
سه شنبه 29 فروردین 1391, 22:48 عصر
بفرمایید، فقط من از زاویه ها استفاده کردم، مثلا توی 360 درجه نصفه دیگر رو بره و توی 270 درجه برگرده به مکان اول.
Henry14
سه شنبه 29 فروردین 1391, 23:19 عصر
بفرمایید، فقط من از زاویه ها استفاده کردم، مثلا توی 360 درجه نصفه دیگر رو بره و توی 270 درجه برگرده به مکان اول.

ایول پسر.کاش زودتر اومده بودی.
دستت درد نکنه.منم با همون زاویه ها می خواستم.میگم کدش از این ساده تر هم میشه؟
SlowCode
سه شنبه 29 فروردین 1391, 23:49 عصر
مطمئنا راه ساده تری هم پیدا میشه. حالا فردا زورم رو میزنم ببینم چی میشه.
Henry14
چهارشنبه 30 فروردین 1391, 22:36 عصر
ممنون.من منتظر پاسختون هستم.
فقط با همین توابع مثلثاتی بشه عالیه.:لبخند: