ANIMATION BOULE

Dim a As Integer

Private Sub bu_Click()
MsgBox "yen na pas"
End Sub

Private Sub eighteen_Click()
Timer1.Interval = 80
End Sub

Private Sub er_Click()
Timer4.Interval = 40
Timer2.Interval = 40
Timer3.Interval = 40
Timer5.Interval = 40
Timer6.Interval = 40
Timer7.Interval = 40
Timer8.Interval = 40
Timer9.Interval = 40
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Shape3.Top = Shape3.Top + 120
Shape2.Top = Shape2.Top - 120
Shape1.Left = Shape1.Left + 120
Shape4.Left = Shape4.Left - 120
Shape1.Shape = 3
Shape2.Shape = 3
Shape3.Shape = 3
Shape4.Shape = 3
End If
If KeyCode = vbKeyDown Then
Shape5.Visible = True
Shape6.Visible = True
Shape7.Visible = True
Shape8.Visible = True
Shape3.Top = Shape3.Top - 120
Shape2.Top = Shape2.Top + 120
Shape1.Left = Shape1.Left - 120
Shape4.Left = Shape4.Left + 120
Shape5.Left = Shape5.Left + 120
Shape5.Top = Shape5.Top + 120
Shape6.Top = Shape6.Top + 120
Shape6.Left = Shape6.Left - 120
Shape7.Top = Shape7.Top - 120
Shape7.Left = Shape7.Left + 120
Shape8.Top = Shape8.Top - 120
Shape8.Left = Shape8.Left - 120
Shape1.Shape = 3
Shape2.Shape = 3
Shape3.Shape = 3
Shape4.Shape = 3
End If
If KeyCode = vbKeyRight Then
Shape1.Shape = 1
Shape1.Left = Shape1.Left + 120
Shape2.Shape = 4
Shape2.Left = Shape2.Left + 120
Shape3.Shape = 5
Shape3.Left = Shape3.Left + 120
Shape4.Shape = 2
Shape4.Left = Shape4.Left + 120
End If
If KeyCode = vbKeyLeft Then
Shape1.BackColor = &HFF00&
Shape1.Left = Shape1.Left - 120
Shape1.Shape = 3
Shape2.BackColor = &HFF0000
Shape2.Left = Shape2.Left - 120
Shape2.Shape = 3
Shape3.BackColor = &HFF&
Shape3.Left = Shape2.Left - 120
Shape3.Shape = 3
Shape4.BackColor = &HFFFF&
Shape4.Left = Shape2.Left - 120
Shape4.Shape = 3
Shape4.Left = Shape4.Left - 120
Shape4.Top = Shape4.Top + 120
End If
End Sub

Private Sub fourthen_Click()
Timer1.Interval = 40
End Sub

Private Sub gf_Click()
Timer4.Interval = 80
Timer2.Interval = 80
Timer3.Interval = 80
Timer5.Interval = 80
Timer6.Interval = 80
Timer7.Interval = 80
Timer8.Interval = 80
Timer9.Interval = 80
End Sub

Private Sub hel_Click()
MsgBox "pour bouger les boule pesser sur les flèche"
End Sub

Private Sub kj_Click()
Timer4.Interval = 320
Timer2.Interval = 320
Timer3.Interval = 320
Timer5.Interval = 320
Timer6.Interval = 320
Timer7.Interval = 320
Timer8.Interval = 320
Timer9.Interval = 320
End Sub

Private Sub new_Click(Index As Integer)
Shape1.Left = 0
Shape1.Top = 2040
Shape3.Top = 240
Shape3.Left = 3000
Shape4.Left = 5880
Shape4.Top = 2040
Shape2.Top = 4800
Shape2.Left = 3000
If Shape5.Visible = True Then
Shape5.Left = 840
Shape5.Top = 720
Shape5.Visible = False
End If
If Shape6.Visible = True Then
Shape6.Left = 5040
Shape6.Top = 840
Shape6.Visible = False
End If
If Shape7.Visible = True Then
Shape7.Left = 600
Shape7.Top = 4560
Shape7.Visible = False
End If
If Shape8.Visible = True Then
Shape8.Left = 5040
Shape8.Top = 4560
Shape8.Visible = False
End If
Shape1.Shape = 3
Shape2.Shape = 3
Shape3.Shape = 3
Shape4.Shape = 3
End Sub

Private Sub propos_Click()
MsgBox "Se jeux a été fait par Raphaël Aubin,13 ans, granby"
End Sub

Private Sub q_Click()
Timer4.Interval = 10
Timer2.Interval = 10
Timer3.Interval = 10
Timer5.Interval = 10
Timer6.Interval = 10
Timer7.Interval = 10
Timer8.Interval = 10
Timer9.Interval = 10
End Sub

Private Sub quitte_Click(Index As Integer)
End
End Sub

Private Sub speedflshround_Click()

End Sub

Private Sub sa_Click()
Timer4.Interval = 20
Timer2.Interval = 20
Timer3.Interval = 20
Timer5.Interval = 20
Timer6.Interval = 20
Timer7.Interval = 20
Timer8.Interval = 20
Timer9.Interval = 20
End Sub

Private Sub startedflash_Click()
Timer1.Interval = 100
End Sub

Private Sub startflash_Click()
Timer4.Interval = 500
Timer2.Interval = 450
Timer3.Interval = 350
Timer5.Interval = 550
Timer6.Interval = 325
Timer7.Interval = 467
Timer8.Interval = 444
Timer9.Interval = 555
End Sub

Private Sub stopfalshcircle_Click()
Timer4.Interval = 0
Timer2.Interval = 0
Timer3.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
End Sub

Private Sub stopflasher_Click()
Timer1.Interval = 0
End Sub

Private Sub ten_Click()
Timer1.Interval = 10
End Sub

Private Sub thirteen_Click()
Timer1.Interval = 30
End Sub

Private Sub th_Click(Index As Integer)
Timer1.Interval = 320
End Sub

Private Sub Timer1_Timer()
Form1.BackColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer2_Timer()
Shape3.BackColor = QBColor(Rnd * 10)
End Sub

Private Sub Timer3_Timer()
Shape2.BackColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer4_Timer()
Shape4.BackColor = QBColor(Rnd * 13)
End Sub

Private Sub Timer5_Timer()
Shape1.BackColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer6_Timer()
If Shape5.Visible = True Then
Shape5.BackColor = QBColor(Rnd * 15)
End If
End Sub

Private Sub Timer7_Timer()
If Shape6.Visible = True Then
Shape6.BackColor = QBColor(Rnd * 13)
End If
End Sub

Private Sub Timer8_Timer()
If Shape7.Visible = True Then
Shape7.BackColor = QBColor(Rnd * 11)
End If
End Sub

Private Sub Timer9_Timer()
If Shape8.Visible = True Then
Shape8.BackColor = QBColor(Rnd * 13)
End If
End Sub

Private Sub twenty_Click()
Timer1.Interval = 20
End Sub

Private Sub ty_Click(Index As Integer)
Timer1.Interval = 160
End Sub

Private Sub vb_Click()
Timer4.Interval = 160
Timer2.Interval = 160
Timer3.Interval = 160
Timer5.Interval = 160
Timer6.Interval = 160
Timer7.Interval = 160
Timer8.Interval = 160
Timer9.Interval = 160
End Sub
  

Télécharger le zip