Bonjour,

J'aimerais programmer un jeu sous vba s'affichant sur l'userform.
Il s'agit d'un running game un peu comme flappy birds.

J'ai cependant un problème au niveau de la boucle générale :
En gros voici l'algo de mon code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim dernierTampon as double
Dim FPS as Integer
Dim gameOver as Boolean
 
Private Sub boucle()
While gameOver=false
If Timer-dernierTampon >=1/FPS Then 'Le code en dessous ne s'éxecute que toutes les trentièmes de secondes
dernierTampon=Timer
Call creerEnnemis
Call controlerHeros
Call deplacerEntites
Call testerCollisions 'Teste les collisions et inverse le booleen gameOver si un ennemi a touché le heros
End If
Wend
End Sub
 
Private Sub UserForm_Initialize()
dernierTampon=Timer
FPS=30
gameOver=false
Call boucle
End Sub

J'ai simplifié l'algo à l'intérieur de la boucle car ce n'est pas ce qui fait buguer le programme.
Le programme freeze en entrant dans la boucle While infiniment, ("ne répond pas") et je n'ai aucun rendu visuel à l'écran.
Je bloque depuis quelques heures, j'ai cherché sur internet mais je n'ai rien trouvé.
Est-ce que quelqu'un aurait une solution ?

Merci d'avance