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