برنامه با ویژوال فوری

سلام به همه
من یک برنامه با ویژوال می خوام
یک دایره هست که یک شعاع آن 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)

خیلی خیلی ممنون میشم اگه کمک کنید

یادمه 2-3 سال پیش نوشتش
دقیق یادم نیست ولی میدونم باید از مثلثات استفاده کنی (Sin,Cos,Tan,Cot)

کد:

---

  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)
doevents
next i

---

سلام
من زیاد با ریاضیات سرو کار ندارم
اگه کدی که شما نوشتید درست باشه چیزی که به اون اخر اضافه کردم باید مشکل رو حل کنه

سلام
بهتر بود صورت سوال به صورت زیر بود
نحوه ساختن ساعت ؟

این هم سورس ساعت

نقل قول:

---

dim s, m, h, ss, mm, hh as integer
dim cx, cy as integer
const pi = 3.141592


private sub form_load()

'clock center
'===============
cx = form1.width / 2
cy = form1.height / 2
end sub

private sub timer1_timer()
form1.caption = now
dim rs, rm, rh as integer

'hands lenght
rs = 1000 'seconds
rm = 900 'minutes
rh = 800 'hour
'==================

s = second(now)
m = minute(now)
h = hour(now)
if h > 12 then h = h mod 12

ss = s * 6 - 90
mm = (m * 6 - 90) + s / 10
hh = (h * 30 - 90) + mm / 10

'draw hands

'hour
linhour.x1 = cx
linhour.x2 = cos(hh * pi / 180) * rh + cx
linhour.y1 = cy
linhour.y2 = sin(hh * pi / 180) * rh + cy


'minutes
linmin.x1 = cx
linmin.x2 = cos(mm * pi / 180) * rm + cx
linmin.y1 = cy
linmin.y2 = sin(mm * pi / 180) * rm + cy

'seconds
linsec.x1 = cx
linsec.x2 = cos(ss * pi / 180) * rs + cx
linsec.y1 = cy
linsec.y2 = sin(ss * pi / 180) * rs + cy

end sub

---

من ساعت رو نمی خوام
یه چیزی شبیه ثانیه شماره ولی خود ثانیه شمار نیست
چون ثانیه شمار با اون چیزی که من می خوام نیست
با هر بار استارت . استوپ باید خط دایره از بالا (جایگاه 12 تو ساعت ) شروع به کار کنه