Animation boule

Soyez le premier à donner votre avis sur cette source.

Vue 5 031 fois - Téléchargée 767 fois

Description

pour faire se programme il fait 8 shape 9 timer et ces tout

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

microdav
Messages postés
46
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2007
-
c ets bien cool tou ça !! maius ce n est pas un jeu... Plutot une animations !!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.