حرکت رفت و برگشت

[arsess2012]

سلام به همگی.
من میخوام که یه دایره حرکت رفت و برگشت داشته باشه و فعلا از دوتا تایمر استفاده کردم آیا این درسته:::
Private Sub Timer1_Timer


()
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
End Sub

[mehdimp3]

سلام به همگی.
من میخوام که یه دایره حرکت رفت و برگشت داشته باشه و فعلا از دوتا تایمر استفاده کردم آیا این درسته:::

Private Sub Timer1_Timer


()






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



End Sub

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

[Rishter]

سلام به همگی.
من میخوام که یه دایره حرکت رفت و برگشت داشته باشه و فعلا از دوتا تایمر استفاده کردم آیا این درسته:::

Private Sub Timer1_Timer


()






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



End Sub

با عرض سلام

این از کد که دوست خوبم 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:

[arsess2012]

اینو نوشتم درست شد.

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

[arsess2012]

سام به همگی. من این کارم تموم شد. حدودا 420 خط شد. چیز بدی هم نیست.
اگه میشه بگین چه طوری و کجا میتونم آپلودش کنم!!!!!!! میخوام بقیه هم استفاده کنن.

[MrGee]

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