كمك فوري

سلام دوستان
من يك برنامه واسه دوران خط مانند عقربه ساعت نوشتم ولي اجرا نمي شه ميشه كمكم كنيد و برام بنويسيدش
توضيحش رو هم برام بذاريد :11::11::41::41::41::11::11:
لطفا سريع

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

خوب اینکه کاری نداره
شما از یه تایمر استفاده بکن و هر دفعه نقاط x1 و y1 رو بالا پایین کن

اين چيزي كه من نوشتم ابته ميدونم كه ناقصه
timer1
me.circle(3000,2000),2200
p=4*atn(1)
x1=3000
y1=2000
r=2000
d=t*p/180
x2=x1+r*cos(d)
y2=y1+r*sin(d)
me.line(x1,y1)-(x2,y2)
t=t+10
if t=360 then t=0


ميشه برام توضيح هم بدين

شما چرا خودت رو زحمت می دی؟

اگه از کنترل خط استفاده کنی اون وقت با یه تایمر براحتی می تونی این کار رو بکنی

Dim i, j As Integer

Private Sub Form_Load()
i =Line1.X2
j = Line1.Y2
End Sub

Private Sub Timer1_Timer()
i = i + 1
j = j - 1
Line1.X2 = i
Line1.Y2 = j
End Sub

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

نقل قول:

---

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

شما چرا خودت رو زحمت می دی؟

اگه از کنترل خط استفاده کنی اون وقت با یه تایمر براحتی می تونی این کار رو بکنی

Dim i, j As Integer

Private Sub Form_Load()
i =Line1.X2
j = Line1.Y2
End Sub

Private Sub Timer1_Timer()
i = i + 1
j = j - 1
Line1.X2 = i
Line1.Y2 = j
End Sub

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

---

سلام
میخواستم بدونم که شما متغییر i رو از چه نوعی تعریف کردید؟
با تشکر

نقل قول:

---

Dim i, j As Integer

---

ان هم یه ماتریس برای حرکت دورانی

|cosx -sinx|
|sinx cosx|

[ Transparent Analog Clock ]

Nice Transparent Analog Clock.

کد:

---

http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC20041221558561913.gif

---

کد:

---

http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=55594&strZipAccessCode=tp%2F%5B555942712

---