Animation boule
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
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.