afsaneh_baran
24-11-2008, 16:58
سلام به همه
من یک برنامه با ویژوال می خوام
یک دایره هست که یک شعاع آن 360 درجه می چرخه و به جای اول بر می گرده و همین طور ادامه پیدا می کنه البته در هر ثانیه
کمک کنید خیلی فوری بهش احتیاج دارم
من خودم همچین برنامه ای نوشتم ولی فقط دایره رسم می کنه
x = Form1.Width / 2
y = Form1.Height / 2.2
Circle (x, y), y
d = 360 / n
For i = 1 To n
Line (x, y)-(x + Cos((i * d) * pi / 180) * (r + 2), y - Sin((i * d) * pi / 180) * (r + 2))
X1 = x + Cos(((i * d) - (d / 2)) * pi / 180) * (r / 2)
Y1 = y - Sin(((i * d) - (d / 2)) * pi / 180) * (r / 2)
کسی اگه سورس کامل برنامه رو داره برام بفرسته تو رو خدا فردا باید تحویل بدم
فقط اگه می فرستید ثانیه شمار ساعتو نفرستید چون اون اشتباهه برنامه من باید بعد از توقف کردیم و دوباره شروع به چرخش کرد باید از بالا شروع به چرخش کنه
من یک برنامه با ویژوال می خوام
یک دایره هست که یک شعاع آن 360 درجه می چرخه و به جای اول بر می گرده و همین طور ادامه پیدا می کنه البته در هر ثانیه
کمک کنید خیلی فوری بهش احتیاج دارم
من خودم همچین برنامه ای نوشتم ولی فقط دایره رسم می کنه
x = Form1.Width / 2
y = Form1.Height / 2.2
Circle (x, y), y
d = 360 / n
For i = 1 To n
Line (x, y)-(x + Cos((i * d) * pi / 180) * (r + 2), y - Sin((i * d) * pi / 180) * (r + 2))
X1 = x + Cos(((i * d) - (d / 2)) * pi / 180) * (r / 2)
Y1 = y - Sin(((i * d) - (d / 2)) * pi / 180) * (r / 2)
کسی اگه سورس کامل برنامه رو داره برام بفرسته تو رو خدا فردا باید تحویل بدم
فقط اگه می فرستید ثانیه شمار ساعتو نفرستید چون اون اشتباهه برنامه من باید بعد از توقف کردیم و دوباره شروع به چرخش کرد باید از بالا شروع به چرخش کنه