مشاهده نسخه کامل
: كمك فوري
parasto2010
16-12-2009, 18:32
سلام دوستان
من يك برنامه واسه دوران خط مانند عقربه ساعت نوشتم ولي اجرا نمي شه ميشه كمكم كنيد و برام بنويسيدش
توضيحش رو هم برام بذاريد :11::11::41::41::41::11::11:
لطفا سريع
شما کد رو اینجا بزار ببینیم مشکلش چیه
خوب اینکه کاری نداره
شما از یه تایمر استفاده بکن و هر دفعه نقاط x1 و y1 رو بالا پایین کن
parasto2010
18-12-2009, 20:00
اين چيزي كه من نوشتم ابته ميدونم كه ناقصه
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
البته این مشکل داره ولی شما با دستکاری اون می تونید به خواستتون برسید
ar.constantine
19-12-2009, 15:40
شما چرا خودت رو زحمت می دی؟
اگه از کنترل خط استفاده کنی اون وقت با یه تایمر براحتی می تونی این کار رو بکنی
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.
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.