كمك فوري

[parasto2010]

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

[MrGee]

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

[MrGee]

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

[parasto2010]

اين چيزي كه من نوشتم ابته ميدونم كه ناقصه
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


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

[MrGee]

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

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

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

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

[ar.constantine]

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

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

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 رو از چه نوعی تعریف کردید؟
با تشکر

[MrGee]

Dim i, j As Integer

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

|cosx -sinx|
|sinx cosx|

[MrGee]

[ Transparent Analog Clock ]

Nice Transparent Analog Clock.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید