Jeu ou la boule de destruction est attirée vers la souris des fois difficile a diriger !
Soyez le premier à donner votre avis sur cette source.
Vue 7 736 fois - Téléchargée 724 fois
Description
Il faut degomer les image qui defilent en dirigant la boule de destruction avec la souris...
pas facile a manier mais avec de la patiente on y arive !
Une de mes premieres sources laisser vos commentaires
pas facile a manier mais avec de la patiente on y arive !
Une de mes premieres sources laisser vos commentaires
Codes Sources
A voir également
- Jeu perds pas la boule
- Jeux avec une boule à diriger - Meilleures réponses
- Boule à facettes - Conseils pratiques - Graphisme
- Animation boule - Codes sources - Visual Basic / VB.NET (Jeux)
- Visual Basic / VB.NET : Jeux de destruction de sous marin (version corrigee) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Form en boule de feu.... - CodeS SourceS - Guide
- Visual Basic / VB.NET : Boule de billard n°8 ou comment faire confiance au hasard... - CodeS Sou - Guide
- Messages postés
-
589
- Date d'inscription
- lundi 25 août 2003
- Statut
- Membre
- Dernière intervention
- 18 juillet 2010
122 mai 2007 à 17:19
22 mai 2007 à 17:12
- Messages postés
-
589
- Date d'inscription
- lundi 25 août 2003
- Statut
- Membre
- Dernière intervention
- 18 juillet 2010
122 mai 2007 à 01:17
Pour tes images utilise BitBlt et TransparentBlt, ensuite lorsque tu sors de l'ecran de jeu la boule passe de l'autre coté mais ne perds pas de vitesse en se rapprochant mais en gagne.
Euh ensuite, je crois que c'est tout. Bonne continuation.
- Messages postés
-
589
- Date d'inscription
- lundi 25 août 2003
- Statut
- Membre
- Dernière intervention
- 18 juillet 2010
122 mai 2007 à 01:12
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Type Timers
T1 As Long
T2 As Long
State As Boolean
Interval As Integer
End Type
Dim MonTimer As Timers
Private Sub Form_Load()
Dim Running As Boolean
Running = True
MonTimer.Interval = 10000 '10000ms=10s
Do
If TimerIs(MonTimer) Then
MsgBox "Fin"
Running = False
End If
DoEvents
Loop Until Running = False
End Sub
Private Function TimerIs(TimerUsed As Timers) As Boolean
With TimerUsed
.T2 = GetTickCount
If .State = False Then
.T1 = GetTickCount
.State = True
End If
If .T2 - .T1 >= .Interval Then
TimerIs = True
.State = False
End If
End With
End Function
21 mai 2007 à 21:53
merci d'avance MarGot
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.