Une balle qui bouge...

Commenter

Contenu du snippet

c' est un code très simple que j' ai fait en 15 minutes
je suis sur qu' on peut l' optimiser encore plus (mais j' ai pas trouvé), et je l' ai fait histoire d' avoir mis au moins une source
amusez vous quand même et soyez pas trop méchant ;

Source / Exemple : 


'vous avez besoin d' un shape, d' un timer, et de trois boutons:
'un, command1, qui s' appelle + vite
'un autre, command2, qui s' appelle hyper vite
'et un dernier, command3, qui s' appelle - vite

Dim DeltaX, DeltaY As Integer 'déclaration des variables
Public azerty
Private Sub Command1_Click()  ' plus vite
If (Timer1.Interval = 50 Or Timer1.Interval = 1) Then
If (azerty = 1) Then
azerty = 2
Else
azerty = 3
Command1.Enabled = False
End If
Else
Timer1.Interval = Timer1.Interval - 50
End If
End Sub
Private Sub Command2_Click()  'hyper vite
Timer1.Interval = 1
azerty = 5
Command2.Enabled = False
Command1.Enabled = False
End Sub
Private Sub Command3_Click()  ' moins vite
Timer1.Interval = Timer1.Interval + 50
azerty = 1
Command1.Enabled = True
Command2.Enabled = True
End Sub
Private Sub Timer1_Timer()    'mouvement du shape
For i = 1 To azerty
   Shape1.Move Shape1.Left + DeltaX, Shape1.Top + DeltaY
   If Shape1.Left < ScaleLeft Then DeltaX = 100
   If Shape1.Left + Shape1.Width > ScaleWidth + ScaleLeft Then
   DeltaX = -100
   End If
   If Shape1.Top < ScaleTop Then DeltaY = 100
   If Shape1.Top + Shape1.Height > ScaleHeight + ScaleTop Then
   DeltaY = -100
   End If
   Next i
End Sub
Private Sub Form_Load()
   Timer1.Interval = 1000
   DeltaX = 100
   DeltaY = 100
   azerty = 1
End Sub

A voir également

S'inscrire maintenant

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.