probleme affichage boucle

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : probleme affichage boucle

jlute

Bonjour, je suis débutant en VBA et je cherche un faire un ptit jeu, ici un pong pour essayer d'apprendre de facon assez ludique.

dans l'ensemble ca marche relativement bien (pas optimis je pense, et les rebonds sont pourris mais je vais essayer de faire mieux une fois un ptit probleme résolu.

donc j'ai fait une boucle type do... loop pour deplacer ma balle et scanner les touches clavier pour deplacement mes barres
probleme : qd je lance la macro, rien ne bouge.... j'appuie sur echap et ca fait planter ma macro (normal)

j'ai mis une pause de 0 sec (je sais pas pourquoi mais c comme ca ^^)
je relance rien ne bouge... j'appuie sur Echap pour quitter ma macro et pouf ca ne fait pas planter ma macro et mon jeu "fonctionne".

impossible de le faire fonctionner de telle maniere sans appuyer sur echap au prealable..

vu que je commence j'ai pas mal chercher à droite à gauche mais la j'ai vraiment plus d'idée donc je me toune vers vous

ci-joint mon code :

Code :

Declare Function GetAsyncKeyState Lib "user32" (ByVal nKey As Integer) As Integer
Dim longueur_barre As Long
Dim diametre_balle As Long
Dim vitX As Long
Dim vitY As Long
Dim posL As Long
Dim posT As Long
Dim pos_barre As Long
Dim largeur As Long
Dim longueur As Long
Dim nb_ligne As Long
Dim nb_colonne As Long
Sub pause(tick)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now())
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub
Sub init()
'définit des parametres
largeur = 3300
longueur = 5500
longueur_barre = 1000
diametre_balle = 75
'création de la barre A
ActiveSheet.Shapes.AddShape(msoShapeRectangle, (longueur - longueur_barre) / 2, largeur - 3 * diametre_balle, longueur_barre, 30).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
Selection.Name = "barreA"
'création de la barre B
ActiveSheet.Shapes.AddShape(msoShapeRectangle, (longueur - longueur_barre) / 2, 3 * diametre_balle, longueur_barre, 30).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
Selection.Name = "barreB"
'création de la balle
ActiveSheet.Shapes.AddShape(msoShapeOval, (longueur - diametre_balle) / 2, largeur - 4 * diametre_balle, diametre_balle, diametre_balle).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
Selection.Name = "balle"
End Sub
Sub dessin()
'
' dessin Macro
' Macro enregistrée le 26/06/2006 par HT06439
debut:
vitX = 0
vitY = 0
Call New_level
Call init
Do
'affichage
temps = temps + 1
Range("FM115" ).Value = ActiveSheet.Shapes("balle" ).Left
Range("FJ128" ).Value = ActiveSheet.Shapes("balle" ).Top
'rebond bord
If ActiveSheet.Shapes("balle" ).Left < 2 Or ActiveSheet.Shapes("balle" ).Left + diametre_balle > longueur Then
vitX = -vitX
End If
If ActiveSheet.Shapes("balle" ).Top < 2 Then
MsgBox "Joueur B gagne"
ActiveSheet.Shapes("barreA" ).Delete
ActiveSheet.Shapes("barreB" ).Delete
ActiveSheet.Shapes("balle" ).Delete
GoTo debut
ElseIf ActiveSheet.Shapes("balle" ).Top + diametre_balle > largeur Then
MsgBox "Joueur B gagne"
ActiveSheet.Shapes("barreA" ).Delete
ActiveSheet.Shapes("barreB" ).Delete
ActiveSheet.Shapes("balle" ).Delete
GoTo debut
End If
'rebond raquette A
If ActiveSheet.Shapes("balle" ).Top + diametre_balle = ActiveSheet.Shapes("barreA" ).Top _
And ActiveSheet.Shapes("balle" ).Left > ActiveSheet.Shapes("barreA" ).Left _
And ActiveSheet.Shapes("balle" ).Left + diametre_balle < ActiveSheet.Shapes("barreA" ).Left + longueur_barre _
And temps > 30 And vitY <> 0 Then
vitY = -vitY
'acceleration de la balle
If vitY < 0 Then
vitY = vitY - 0.5
Else
vitY = vitY + 0.5
End If
temps = 0
End If
'rebond raquette B
If ActiveSheet.Shapes("balle" ).Top + diametre_balle = ActiveSheet.Shapes("barreA" ).Top + diametre_balle _
And ActiveSheet.Shapes("balle" ).Left > ActiveSheet.Shapes("barreA" ).Left _
And ActiveSheet.Shapes("balle" ).Left + diametre_balle < ActiveSheet.Shapes("barreA" ).Left + longueur_barre _
And temps > 30 And vitY <> 0 Then
vitY = -vitY
'acceleration de la balle
If vitY < 0 Then
vitY = vitY - 0.5
Else
vitY = vitY + 0.5
End If
temps = 0
End If
'deplacement balle
ActiveSheet.Shapes("balle" ).IncrementLeft vitX
ActiveSheet.Shapes("balle" ).IncrementTop vitY
'deplacement de la raquette A
If (GetAsyncKeyState(76) <> 0 Or GetAsyncKeyState(77) <> 0 Or GetAsyncKeyState(32) <> 0) Then
'touche G pour aller à droite
If GetAsyncKeyState(77) <> 0 Then
ActiveSheet.Shapes("barreA" ).IncrementLeft 4
If vitX = 0 And vitY = 0 Then
ActiveSheet.Shapes("balle" ).IncrementLeft 4
End If
End If
'touche F pour aller à gauche
If GetAsyncKeyState(76) <> 0 Then
ActiveSheet.Shapes("barreA" ).IncrementLeft -4
If vitX = 0 And vitY = 0 Then
ActiveSheet.Shapes("balle" ).IncrementLeft -4
End If
End If
'position balle debut
If vitX = 0 And vitY = 0 Then
If GetAsyncKeyState(32) <> 0 Then
vitX = 2
vitY = 2
End If
End If
End If
'deplacement de la raquette B
If (GetAsyncKeyState(65) <> 0 Or GetAsyncKeyState(90) <> 0 Or GetAsyncKeyState(32) <> 0) Then
'touche G pour aller à droite
If GetAsyncKeyState(90) <> 0 Then
ActiveSheet.Shapes("barreB" ).IncrementLeft 4
End If
'touche F pour aller à gauche
If GetAsyncKeyState(65) <> 0 Then
ActiveSheet.Shapes("barreB" ).IncrementLeft -4
End If
'position balle debut
If vitX = 0 And vitY = 0 Then
If GetAsyncKeyState(32) <> 0 Then
vitX = 2
vitY = 2
End If
End If
End If
'pause (1)
Loop
End Sub
Sub New_level()
largeur = 3300
longueur = 5500
Worksheets(1).Shapes.SelectAll
Selection.Delete
'création du cadre
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, longueur, largeur).Select
'création des briques
End Sub

merci d'avance

LaJlute

Publicité

jpcheck

Pioupiou

pour débuter, il y a d'autres jeux plus faciles
je n'ai pas lu tout ton code, pardon, mais si il faut appuyer sur echap a chaque fois, et que ton jeu marche après, tu peux faire un sendkeys à la fin de ta macro...

jlute

ben j'essaie surtout de comprendre pourquoi faut appuyer sur echap ^^
le but n'étant pas faire marcher mon jeu absolument mais de m'entrainer au VBA

merci qd même

Jlute

jpcheck

Pioupiou

ta sub main, c'est laquelle ? :sweat:

jlute

dessin

jlute

j'ai copié tout mon code, il y avait surement matiere à en mettre moins, n'hesitez pas à mettre des commentaires sur tout et n'importe koi ... enfin un poil en relation avec mon histoire quand même ^^

jpcheck

Pioupiou

si tu incrémentes tes coordonnées de balle de 0 (vitX et vitY à 0 je crois), ta balle ne va pas bouger, initialise les à 0.5 ou 1 (je ne connais pas le pas de vitesse appliqué).

jlute

les vitesse n'initialise lors d'un appuie sur la touche "espace" (ascii 32).
j'ai test de les initialiser à 1 mais ca ne change rien à mon programme

à mon avis, c un probleme de rafraichissement d'ecran, j'ai essayer updatescreen ca marche mais ca me fait le jeu n'avance plus du tout par rapport à lancer normal puis echap..

jpcheck

Pioupiou

n'y a -t-il pas d'autes méthodes que le GetAsyncKey... pour gérer les touches de claviers ?
l'ajout de la biblio user32 ca plante chez moi...

jlute

si il en existe une autre, j'ai pas trouvé accessible dans pour vba.

Je suppose que la fonction getch() doit avoir une équivalence en vba

FORUM HardWare.fr

Programmation

VB/VBA/VBS

probleme affichage boucle

Sujets relatifs
probleme: les modification ne prennent pas effet !!	JTable : pb affichage cellule ! ne se refresh pas sauf si scroll/clic
Problème flashplayer	[PHP/Javascript] PB lors de l'affichage de caractère dans une page
Java et les tableaux (J’ai un gros-petit problème)	problème de variable en boucle arrivant d'un formulaire
[VBA] Problème avec les formats de date	probleme de double boucle et variables... [résolu]
Plus de sujets relatifs à : probleme affichage boucle

Page générée en 0.061 secondes