نگاه کن

اشکال کد را بگین








Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Shape1.Left < Form1.Width - Shape1.Width - 200 Then
Shape1.Left = Shape1.Left + 100
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
If Shape1.Top < Form1.Height - Shape1.Height - 595 Then
Shape1.Top = Shape1.Top + 100
Else
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub
Private Sub Timer3_Timer()
If Shape1.Left < Form1.Width + Shape1.Width + 200 Then
Shape1.Left = Shape1.Left - 100
Else
Timer3.Enabled = False
Timer4.Enabled = False
End If
End Sub

Private Sub Timer4_Timer()
If Shape1.Top < Form1.Height + Shape1.Height + 595 Then
Shape1.Top = Shape1.Top + 100
Else
Timer4.Enabled = False
Timer1.Enabled = True
End If
End Sub

مشکل در قسمت تایمر 3 و تایمر 4 بود که باید برعکس 1 و 2 عمل کنند -- نه همانند آنها -- در تایمر 3 هم تایمر 4 را خاموش کردی به جای روشن!

یادت باشه که توی فرم هر چهار تا تایمر رو false کن و Interval رو 1 یا عددی غیر از صفر بذار.

خوب من اشکال کدت رو با قرمز مشخص کردم و پایین اشکال - درستش رو با سبز نوشتم:

کد:

---

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Shape1.Left < Form1.Width - Shape1.Width - 200 Then
Shape1.Left = Shape1.Left + 100
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
If Shape1.Top < Form1.Height - Shape1.Height - 595 Then
Shape1.Top = Shape1.Top + 100
Else
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
If Shape1.Left < Form1.Width + Shape1.Width + 200 Then
If Shape1.Left > 0 Then
Shape1.Left = Shape1.Left - 100
Else
Timer3.Enabled = False
Timer4.Enabled = False
Timer4.Enabled = True
End If
End Sub

Private Sub Timer4_Timer()
If Shape1.Top < Form1.Height + Shape1.Height + 595 Then
If Shape1.Top > 0 Then

Shape1.Top = Shape1.Top + 100
Shape1.Top = Shape1.Top - 100
Else
Timer4.Enabled = False
Timer1.Enabled = True
End If
End Sub

---

یادت باشه خط قرمزا غلطن! و باید جاشون رو با سبز ها عوض کنی!
موفق باشی -- اگه بازم مشکلی داشتی حتما بگو ! :11: