Une balle qui bouge...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 413 fois - Téléchargée 33 fois

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

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
samedi 26 mars 2005
Statut
Membre
Dernière intervention
30 mars 2005

c'est bon , essayer de creer des exemples sur des domaines pratiques .
c'est excellent
foncez
Messages postés
13
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
22 août 2008

voila je viens d essayer ton code (sans utilité personnellement) mais je pense que les nouveaux programmateur pourront tirée partie de ton code.
Messages postés
13
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
22 août 2008

Salut CORBnet ,
je n'es pas pris le temp de bien regardé ton code (félicitations tout le monde ne sait pas programmer non plus).
Par contre je tiens a passer un coup de guelle sur certaine critiques. Le but de mettre un code c'est de l amméliorré (en faisant des critiques) or je vois des gens qui critique autre chose, alors on se permet de faire des critiques sans but pour CORBnet car on sait programmer franchement nul. Sur ceux CORBnet je te souhaite bonne continuations.
Messages postés
38
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
4 août 2007

Truc:
Pour que le code sois plus "comprenable" il serait mieux de mettre des TAB avant les lignes dans l'instruction IF.

Meursi
Messages postés
47
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
7 janvier 2012

j' aurai préféré qu' on critique le code...
Afficher les 8 commentaires

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.