probleme affichage boucle

probleme affichage boucle - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2006 à 09:22:04    

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 :
  1. Declare Function GetAsyncKeyState Lib "user32" (ByVal nKey As Integer) As Integer
  2. Dim longueur_barre As Long
  3. Dim diametre_balle As Long
  4. Dim vitX As Long
  5. Dim vitY As Long
  6. Dim posL As Long
  7. Dim posT As Long
  8. Dim pos_barre As Long
  9. Dim largeur As Long
  10. Dim longueur As Long
  11. Dim nb_ligne As Long
  12. Dim nb_colonne As Long
  15. Sub pause(tick)
  16. newHour = Hour(Now())
  17. newMinute = Minute(Now())
  18. newSecond = Second(Now())
  19. waitTime = TimeSerial(newHour, newMinute, newSecond)
  20. Application.Wait waitTime
  21. End Sub
  22. Sub init()
  23. 'définit des parametres
  24. largeur = 3300
  25. longueur = 5500
  26. longueur_barre = 1000
  27. diametre_balle = 75
  30. 'création de la barre A
  31. ActiveSheet.Shapes.AddShape(msoShapeRectangle, (longueur - longueur_barre) / 2, largeur - 3 * diametre_balle, longueur_barre, 30).Select
  32. Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
  33. Selection.Name = "barreA"
  35. 'création de la barre B
  36. ActiveSheet.Shapes.AddShape(msoShapeRectangle, (longueur - longueur_barre) / 2, 3 * diametre_balle, longueur_barre, 30).Select
  37. Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
  38. Selection.Name = "barreB"
  40. 'création de la balle
  41. ActiveSheet.Shapes.AddShape(msoShapeOval, (longueur - diametre_balle) / 2, largeur - 4 * diametre_balle, diametre_balle, diametre_balle).Select
  42. Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
  43. Selection.Name = "balle"
  45. End Sub
  47. Sub dessin()
  48. '
  49. ' dessin Macro
  50. ' Macro enregistrée le 26/06/2006 par HT06439
  52. debut:
  53. vitX = 0
  54. vitY = 0
  55. Call New_level
  56. Call init
  58. Do
  59. 'affichage
  60. temps = temps + 1
  63. Range("FM115" ).Value = ActiveSheet.Shapes("balle" ).Left
  64. Range("FJ128" ).Value = ActiveSheet.Shapes("balle" ).Top
  65. 'rebond bord
  66. If ActiveSheet.Shapes("balle" ).Left < 2 Or ActiveSheet.Shapes("balle" ).Left + diametre_balle > longueur Then
  67.     vitX = -vitX
  68. End If
  70. If ActiveSheet.Shapes("balle" ).Top < 2 Then
  71.     MsgBox "Joueur B gagne"
  72.     ActiveSheet.Shapes("barreA" ).Delete
  73.     ActiveSheet.Shapes("barreB" ).Delete
  74.     ActiveSheet.Shapes("balle" ).Delete
  75.     GoTo debut
  76. ElseIf ActiveSheet.Shapes("balle" ).Top + diametre_balle > largeur Then
  77.     MsgBox "Joueur B gagne"
  78.     ActiveSheet.Shapes("barreA" ).Delete
  79.     ActiveSheet.Shapes("barreB" ).Delete
  80.     ActiveSheet.Shapes("balle" ).Delete
  81.     GoTo debut
  82. End If
  87. 'rebond raquette A
  88. If ActiveSheet.Shapes("balle" ).Top + diametre_balle = ActiveSheet.Shapes("barreA" ).Top _
  89. And ActiveSheet.Shapes("balle" ).Left > ActiveSheet.Shapes("barreA" ).Left _
  90. And ActiveSheet.Shapes("balle" ).Left + diametre_balle < ActiveSheet.Shapes("barreA" ).Left + longueur_barre _
  91. And temps > 30 And vitY <> 0 Then
  92.     vitY = -vitY
  93.     'acceleration de la balle
  94.     If vitY < 0 Then
  95.         vitY = vitY - 0.5
  96.     Else
  97.         vitY = vitY + 0.5
  98.     End If
  99.     temps = 0
  100. End If
  102. 'rebond raquette B
  103. If ActiveSheet.Shapes("balle" ).Top + diametre_balle = ActiveSheet.Shapes("barreA" ).Top + diametre_balle _
  104. And ActiveSheet.Shapes("balle" ).Left > ActiveSheet.Shapes("barreA" ).Left _
  105. And ActiveSheet.Shapes("balle" ).Left + diametre_balle < ActiveSheet.Shapes("barreA" ).Left + longueur_barre _
  106. And temps > 30 And vitY <> 0 Then
  107.     vitY = -vitY
  108.     'acceleration de la balle
  109.     If vitY < 0 Then
  110.         vitY = vitY - 0.5
  111.     Else
  112.         vitY = vitY + 0.5
  113.     End If
  114.    
  115.     temps = 0
  116. End If
  119. 'deplacement balle
  121. ActiveSheet.Shapes("balle" ).IncrementLeft vitX
  122. ActiveSheet.Shapes("balle" ).IncrementTop vitY
  125. 'deplacement de la raquette A
  126.    
  127.     If (GetAsyncKeyState(76) <> 0 Or GetAsyncKeyState(77) <> 0 Or GetAsyncKeyState(32) <> 0) Then
  128.     'touche G pour aller à droite
  129.         If GetAsyncKeyState(77) <> 0 Then
  130.             ActiveSheet.Shapes("barreA" ).IncrementLeft 4
  131.             If vitX = 0 And vitY = 0 Then
  132.                 ActiveSheet.Shapes("balle" ).IncrementLeft 4
  133.             End If
  134.         End If
  135.     'touche F pour aller à gauche
  136.         If GetAsyncKeyState(76) <> 0 Then
  137.             ActiveSheet.Shapes("barreA" ).IncrementLeft -4
  138.             If vitX = 0 And vitY = 0 Then
  139.                 ActiveSheet.Shapes("balle" ).IncrementLeft -4
  140.             End If
  141.         End If
  142.     'position balle debut
  143.         If vitX = 0 And vitY = 0 Then
  144.             If GetAsyncKeyState(32) <> 0 Then
  145.                 vitX = 2
  146.                 vitY = 2
  147.             End If
  148.         End If
  149.     End If
  150.    
  151. 'deplacement de la raquette B
  152.    
  153.     If (GetAsyncKeyState(65) <> 0 Or GetAsyncKeyState(90) <> 0 Or GetAsyncKeyState(32) <> 0) Then
  154.     'touche G pour aller à droite
  155.         If GetAsyncKeyState(90) <> 0 Then
  156.             ActiveSheet.Shapes("barreB" ).IncrementLeft 4
  157.         End If
  158.     'touche F pour aller à gauche
  159.         If GetAsyncKeyState(65) <> 0 Then
  160.            ActiveSheet.Shapes("barreB" ).IncrementLeft -4
  161.         End If
  162.     'position balle debut
  163.         If vitX = 0 And vitY = 0 Then
  164.             If GetAsyncKeyState(32) <> 0 Then
  165.                 vitX = 2
  166.                 vitY = 2
  167.             End If
  168.         End If
  169.     End If
  170.     'pause (1)
  171. Loop
  172. End Sub
  174. Sub New_level()
  175. largeur = 3300
  176. longueur = 5500
  177. Worksheets(1).Shapes.SelectAll
  178. Selection.Delete
  179. 'création du cadre
  180. ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, longueur, largeur).Select
  181. 'création des briques
  182.  
  183. End Sub


 
 
merci d'avance
 
LaJlute
 

Reply

Marsh Posté le 30-06-2006 à 09:22:04   

Reply

Marsh Posté le 30-06-2006 à 09:31:19    

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

Reply

Marsh Posté le 30-06-2006 à 09:42:29    

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

Reply

Marsh Posté le 30-06-2006 à 09:57:25    

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

Reply

Marsh Posté le 30-06-2006 à 10:11:46    

dessin

Reply

Marsh Posté le 30-06-2006 à 10:13:41    

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

Reply

Marsh Posté le 30-06-2006 à 10:44:04    

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

Reply

Marsh Posté le 30-06-2006 à 10:54:22    

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 :p
 
à 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..
 

Reply

Marsh Posté le 30-06-2006 à 11:19:24    

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

Reply

Marsh Posté le 30-06-2006 à 12:24:16    

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
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed