Printable View
سلام به همگی.
من میخوام که یه دایره حرکت رفت و برگشت داشته باشه و فعلا از دوتا تایمر استفاده کردم آیا این درسته:::
Private Sub Timer1_TimerEnd Sub()
If Shape1.Top > 2040 Then
Shape1.Top = Shape1.Top - 50
If Shape1.Top = 2040 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End If
End Sub
Private Sub Timer2_Timer()
If Shape1.Top < 6600 Then
Shape1.Top = Shape1.Top + 50
End If
If Shape1.Top = 6600 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
پرسیدن نداره که امتحان کن ببین درسته!!یا نه!نقل قول:
با عرض سلامنقل قول:
این از کد که دوست خوبم F.M زحمتشو کشید و براتون نوشت :
ابتدا : Timer1.Interval = 1 بعدا Timer2.enabled = False و Timer2.interval = 1
() private sub timer1_timer
shape1.top=val(shape1.top)-1
if shape1.top=0 then
timer1.enabled=false
timer2.enabled=true
end if
end sub
()private sub timer2_timer
shape1.top=val(shape1.top)+1
if shape1.top=3360 then
timer2.enabled =false
timer1.enabled=true
end if
end sub
با تشکر :40::11:
اینو نوشتم درست شد.
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top - 50
If Shape1.Top < 840 Then
Timer1.Interval = 0
Timer2.Interval = 20
End If
If Shape1.Top > 3120 And Shape1.Top < 2000 Then
Timer1.Interval = 20
Timer2.Interval = 0
End If
End Sub
Private Sub Timer2_Timer()
Shape1.Top = Shape1.Top + 50
If Shape1.Top > 3120 Then
Timer1.Interval = 20
Timer2.Interval = 0
End If
End Sub
سام به همگی. من این کارم تموم شد. حدودا 420 خط شد. چیز بدی هم نیست.
اگه میشه بگین چه طوری و کجا میتونم آپلودش کنم!!!!!!! میخوام بقیه هم استفاده کنن.
اینجا آپلود کنید.کد:http://up.--------.com