Faire avancer un objet [RéGzorromlu?]

SPH · Message par **SPH** » ven. 29/janv./2021 14:47

Comment faire avancer une balle de la position 0 a la position 1000 ?
Le code qui suit est totalement incomplet mais je sais que tout se passe ici : (Event = WaitWindowEvent())

Comment, dans ma boucle "REPEAT/FOREVER", faire avancer un objet ?

PS : je ne poste pas sur le forum anglais car je veux que le forum FR vive...

Code : Tout sélectionner

;- comment faire avancer une balle de la position 0 a la position 1000 ?


Repeat ;- ..... Repeat
 

  Event = WaitWindowEvent()
 
  Select Event
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          Resx = GetGadgetAttribute(1, #PB_OpenGL_MouseX)
          Resy = GetGadgetAttribute(1, #PB_OpenGL_MouseY)
          ;;;;;;;         
          Select EventType()
              ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;             
            Case #PB_EventType_LeftClick
              End
          EndSelect
      EndSelect
    Case #PB_Event_Menu
      Select EventMenu()
        Case 666
          End
      EndSelect
  EndSelect
 
;##############################################
;##############################################
;##############################################
 
ForEver

;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*************************************************************** ******************************************************************
;*********************************************************************************************************************************
;************************************************************************* *******************************************************

Ar-S · Message par **Ar-S** » ven. 29/janv./2021 15:39

Salut
Je n'ai jamais utilisé OpenGL..
Mais je me dis que faire avancer un objet, c'est faire avancer un objet...

Tu incrémentes dans ta boucle la position X de ton objet de N à chaque boucle.

j'ai repris le code de la doc openwindowscreen en faisant avancer le cube

Code : Tout sélectionner

If InitSprite() = 0 
    MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
    End
  EndIf
  
  If OpenWindow(0, 0, 0, 420, 200, "Un écran dans une fenêtre...", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
    CreateStatusBar(0, WindowID(0))
      AddStatusBarField(420)
      
    StatusBarText(0, 0, "Zoom automatique lors du changement de taille de la fenêtre...")
    
  If OpenWindowedScreen(WindowID(0), 0, 0,320, 200, #True, 0, 20) 
  
    CreateSprite(0, 50, 50) ; Crée un sprite vide qui sera tout noir
    vitesse = 1
    x1 = 10
    
  Repeat
    ; Il est très important de traiter tous les évènements restants dans la file d'attente à chaque tour
    ;
    Repeat
      Event = WindowEvent()
      
      If Event = #PB_Event_CloseWindow
        End 
      EndIf
    Until Event = 0
    
    FlipBuffers() 
    ClearScreen(RGB(0, 0, 200)) ; Un fond bleu
    
    DisplaySprite(0, x1, 10)  ; Affichez notre boîte noire dans le coin en haut à gauche
    DisplaySprite(0, 260, 10) ; Affichez notre boîte noire dans le coin en haut à droite
    
    x1 + vitesse
    If x1 = 210
      vitesse-1
    ElseIf x1 = 0
      vitesse+1
    EndIf
    
  ForEver
   
    Else
      MessageRequester("Erreur", "Impossible d'ouvrir l'écran fenêtré !", 0)
    EndIf
  EndIf

Mesa · Message par **Mesa** » ven. 29/janv./2021 15:51

Oui, il vaut mieux utiliser WindowEvent().

Code : Tout sélectionner

;Quelques variables
  BalleX = 400
  BalleY = 200
  BalleVitesseY.f = 5
  Gravitation.f = 2

  ;Initialisation 
  If InitSprite()
    InitKeyboard()
    InitMouse()
  EndIf

  ;Création de la fenêtre
  OpenWindow(0, 0, 0, 800, 600, "WindowEvent", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)

  ;Création du sol
  Sol = CreateSprite(#PB_Any, 800, 30)
  StartDrawing(SpriteOutput(Sol))
  Box(0,0,800,30,RGB(128, 0, 0))
  StopDrawing()

  ;Création de la Balle
  Balle = CreateSprite(#PB_Any, 16, 16)
  StartDrawing(SpriteOutput(Balle))
  Box(0,0,16,16,RGB(135, 206, 235))
  Circle(8,8,8,RGB(255, 255, 0))
  StopDrawing()

  ;Création de la jauge
  Image = CreateImage(#PB_Any, 8, 8, 24, RGB(255, 255, 255))
  *Memoire=EncodeImage(Image ,#PB_ImagePlugin_BMP)
  Jauge = CatchSprite(#PB_Any, *Memoire)

  
  ;Boucle principale
  Repeat 
  
    Repeat
    ;Gestion des évènements de la fenêtre
    ;====================================
    ;Essayez les 3 possibilités mais une seule à la fois 
    Evenement = WindowEvent()    ; Animation
    ;Evenement = WaitWindowEvent()  ; Blocage de l'animation
    ;Evenement = WaitWindowEvent(1) ; Animation mais délai d'1 ms inutile et de plus c'est une mauvaise 
                                    ; façon de programmer car la pile des évènements n'est pas vidée

    Select Evenement   
      Case #PB_Event_CloseWindow
      End
    EndSelect 
    Until Evenement=0
    
    FlipBuffers() ; ==> Avec WindowEvent(), FlipBuffers() libère le processeur pour le multitâche et dispense d'un Delay(1)
    ClearScreen(RGB(135, 206, 235))
    
    ExamineKeyboard() ;Evènement clavier
     
    DisplaySprite(Jauge, 50, 570-BalleY) ;Affichage de la jauge
    ZoomSprite(Jauge,  20, 570)
     
    DisplaySprite(Sol, 0, 570) ;Affichage du sol
    
    DisplaySprite(Balle, BalleX, BalleY) ;Affichage de la Balle
    DisplaySprite(Balle, x, 20) ;Affichage de la Balle en haut 
    
    ;Mouvement de la Balle 
    BalleVitesseY = BalleVitesseY + Gravitation 
    BalleY = BalleY + BalleVitesseY
    
    x+20
    If x > 780
      x=780
    EndIf
    
    ;Gestion de la collision de la balle avec le sol
    If SpriteCollision(Balle, BalleX, BalleY+16, Sol, 0, 570)
    BalleY= 554
    BalleVitesseY = -BalleVitesseY
    EndIf
    
  Until KeyboardPushed(#PB_Key_Escape)

M.

SPH · Message par **SPH** » ven. 29/janv./2021 17:48

Grand merci a vous deux. Je regarde ca au plus vite...

G-Rom · Message par **G-Rom** » ven. 29/janv./2021 21:19

Bonjour SPH.

regarde ce lien : https://www.purebasic.fr/french/viewtop ... 21&t=15332

cela consiste a avoir un mouvement constant entre PC de différente puissance.
cela ce résume à cela après le calcul du fameux deltatime :

position = position + vitesse_par_seconde * deltatime

soit en PB

Code : Tout sélectionner

pos_x = pos_x + 64 * deltatime

pos_x sera incrémenté de 64 par seconde.

Bon code à toi

@++

SPH · Message par **SPH** » sam. 30/janv./2021 12:26

Bon, j'ai bien regardé vos exemples. Je les comprends facilement et je sais les faire.
Mais ce que je redoutais est arrivé...

Voici une scène en polygones et un carré rouge sensé traverser l'écran. Seulement, le carré ne se déplace que quand il y a un évènement à traiter... (bougez la souris par exemple)

Le carré est à la ligne 161 à 173.

Vous comprenez mon problème ?
Comment le résoudre ?

Merciii

Code : Tout sélectionner

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  SPH(2021) ;; Polygons_Run_4 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;EnableExplicit

;-CONSTANTS
Enumeration
  #MainWindow
  #OpenGLGadget
EndEnumeration

;These two GL constants are used for texture creation. Don't change their values.
#GL_BGR = $80E0
#GL_BGRA = $80E1

If ExamineDesktops()
  ddw=DesktopWidth(0)
  ddh=DesktopHeight(0)
Else
  ddw=1024
  ddh=768
EndIf

carre_x=0
carre_y=ddh-150

;********************* DPI *********************
dpix.f=DesktopResolutionX()
dpiy.f=DesktopResolutionY()

xf.f=(1920/ddw)*dpix
yf.f=(1080/ddh)*dpiy
;**********************************************

;-STRUCTURES
Structure Integer2
  X.i
  Y.i
EndStructure
Global.Integer2 WindowDim
WindowDim\X = ddw
WindowDim\Y = ddh


;-DEFINES
Define.i Event
Define.i WindowFlags = #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget


;-DECLARES
Declare Render()
Declare Render2DQuad(OGLTexture.i, StartX.d, StartY.d, Width.i, Height.i, Z.d)
Declare SetupOpenGL()
Declare SetupGLTexture(ImageHandle.i)


;-MAIN WINDOW
win=OpenWindow(#MainWindow, 0, 0,ddw,ddh, "Polygons_Run",#PB_Window_Maximize|#PB_Window_BorderLess)
If win=0
  Beep_(500,250) : Delay(150) : Beep_(500,250)
  MessageRequester("Erreur","OpenWindow() impossible")
  End
EndIf

screenGL=OpenGLGadget(#OpenGLGadget,0,0,ddw,ddh)
If screenGL=0
  Beep_(500,250) : Delay(150) : Beep_(500,250)
  MessageRequester("Erreur","OpenGLGadget() impossible")
  End
EndIf


SetupOpenGL()

AddKeyboardShortcut(0,  #PB_Shortcut_Escape, 666) ; quitter


glOrtho_(0,ddw,ddh,0,-1,1)
glMatrixMode_(#GL_MODELVIEW)
glLoadIdentity_()
glClear_(0)

;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*********************************************************************************************************************************

    long=346
    Dim poly_mx2(long)
    Dim poly_my2(long)
    For i=1 To long
      Read.w poly_mx2(i-1)
      Read.w poly_my2(i-1)
    Next 


;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*********************************************************************************************************************************
timer=ElapsedMilliseconds()

;-MAIN REPEAT
Repeat ;- ..... Repeat
 
 ; glBlendFunc_(#GL_SRC_ALPHA,#GL_ONE_MINUS_SRC_ALPHA)
;##############################################
;##############################################
;##############################################

  Event = WaitWindowEvent()
 
  Select Event
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          Resx = GetGadgetAttribute(1, #PB_OpenGL_MouseX)
          Resy = GetGadgetAttribute(1, #PB_OpenGL_MouseY)
          ;;;;;;;         
          Select EventType()
              ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;             
          EndSelect
      EndSelect
    Case #PB_Event_Menu
      Select EventMenu()
        Case 666
          End
      EndSelect
  EndSelect
 
;##############################################
;##############################################
;############La bete noire en polygones :################

  nb2=0
  ii=0
  While poly_my2(nb2)>0
    ii=poly_my2(nb2)
    alpha2.f=poly_mx2(nb2+4)/32767
    glBegin_(#GL_POLYGON)
    If alpha2=1
      glBlendFunc_(#GL_SRC_ALPHA,0)
      glColor4f_(poly_mx2(nb2+1)/32767,poly_mx2(nb2+2)/32767,poly_mx2(nb2+3)/32767,1)
    Else
      glBlendFunc_(#GL_SRC_ALPHA,#GL_ONE_MINUS_SRC_ALPHA)
      glColor4f_(poly_mx2(nb2+1)/32767,poly_mx2(nb2+2)/32767,poly_mx2(nb2+3)/32767,alpha2)
    EndIf
   
    For i=1 To poly_my2(nb2)-5
      glVertex2f_(poly_mx2(nb2+4+i)/xf.f,poly_my2(nb2+4+i)/yf.f)
    Next
    glEnd_()
    nb2+ii
  Wend
 
;##############################################
;##############################################
;-########Un simple carré qui essaye d'avancer :#############

    alpha2.f=poly_mx2(nb2+4)/32767
    glBegin_(#GL_POLYGON)
      glBlendFunc_(#GL_SRC_ALPHA,0)
      glColor4f_(1,0,0,1)
   
      glVertex2f_(carre_x,carre_y)
      glVertex2f_(carre_x+20,carre_y)
      glVertex2f_(carre_x+20,carre_y+20)
      glVertex2f_(carre_x,carre_y+20)
    glEnd_()
 
  ;========================================================
    carre_x+2
  ;=======================================================
 
  SetGadgetAttribute(#OpenGLGadget, #PB_OpenGL_FlipBuffers, #True)
 
ForEver

;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*********************************************************************************************************************************
;*************************************************************** ******************************************************************
;*********************************************************************************************************************************
;************************************************************************* *******************************************************
;*********************************************************************************************************************************

Procedure Render()
 
  ;Clearing buffers and resetting clear color to remove old graphics from the last frame.
  glClear_(#GL_COLOR_BUFFER_BIT | #GL_DEPTH_BUFFER_BIT)
  ;  glClearColor_(0.2, 0.2, 0.2, 1.0)
  glClearColor_(0,0,0,1)
 
  ;## DRAWING TEXTURES/IMAGES
  ;First enable the Texture system.
  glEnable_(#GL_TEXTURE_2D)
 
  ;This procedure will create a quad and apply a texture to it.
  ;The Texture variable contains the texture created earlier using SetupGLTexture().
  Render2DQuad(Texture1, 0, 0, ImageWidth(Image1), ImageHeight(Image1), -2)
  ; Render2DQuad(Texture2, 0, 0, ImageWidth(Image2), ImageHeight(Image2), -1)
 
  ;After all the textures have been displayed disable the texture system.
  ;Otherwise it will conflict with the non texture graphics.
  glDisable_(#GL_TEXTURE_2D)
 
EndProcedure

Procedure Render2DQuad(OGLTexture.i, StartX.d, StartY.d, Width.i, Height.i, Z.d)
 
  ;The texture is first bound which tells OpenGL to use this texture for any future rendering.
  glBindTexture_(#GL_TEXTURE_2D, OGLTexture)
  glBegin_(#GL_QUADS)
  glColor4f_   (1,1,1,1)
  glNormal3f_  (0,0,1.0)
  glTexCoord2f_(1.0,1.0)
  glVertex3f_  (StartX+Width,StartY,Z)
  glTexCoord2f_(0.0,1.0)
  glVertex3f_  (StartX,StartY,Z)
  glTexCoord2f_(0.0,0.0)
  glVertex3f_  (StartX,StartY+Height,Z)
  glTexCoord2f_(1.0,0.0)
  glVertex3f_  (StartX+Width,StartY+Height,Z)
  glEnd_()
 
EndProcedure

Procedure SetupOpenGL()
 
  glMatrixMode_(#GL_PROJECTION)
 
  glOrtho_(0.0, WindowDim\X, WindowDim\Y, 0.0, -1000.0, 1000.0)
 
  glMatrixMode_(#GL_MODELVIEW)
 
  ; glEnable_(#GL_DEPTH_TEST)
 
  glEnable_(#GL_BLEND)
  glBlendFunc_(#GL_SRC_ALPHA, #GL_ONE_MINUS_SRC_ALPHA)
 
EndProcedure


DataSection
Data.w 24, 9, 5397, 0, 7453, 0, 11950, 0, 32767, 0, 0, 0, 0, 1079, 1919, 1079, 1919, 0, 0, 17, 4754, 0, 5140, 0, 7838, 0, 32767, 0, 253, 1079, 0, 1079, 0, 968, 66, 962, 210, 886, 211, 846, 244, 820, 263, 821, 272, 887, 332, 969, 1525, 965, 1919, 1079, 0, 13, 4754, 0, 5140, 0, 7838, 0, 32767, 0, 1810, 1079
Data.w 1919, 1079, 1918, 819, 1825, 816, 1779, 832, 1721, 899, 1528, 948, 1507, 971, 0, 10, 4626, 0, 4883, 0, 7581, 0, 32767, 0, 0, 111, 0, 0, 239, 0, 132, 46, 77, 113, 0, 9, 4626, 0, 4883, 0, 7581, 0, 32767, 0, 1919, 0, 1868, 0, 1910, 589, 1919, 591, 0, 18, 4883, 0, 6810, 0, 11179, 0, 32767, 0, 1909, 587
Data.w 1867, 0, 1626, 0, 1648, 294, 1673, 435, 1694, 549, 1687, 599, 1576, 814, 1527, 950, 1715, 898, 1779, 833, 1832, 813, 1918, 813, 0, 15, 4883, 0, 6810, 0, 11179, 0, 32767, 0, 1519, 964, 1581, 814, 1461, 846, 1312, 850, 1245, 823, 1185, 856, 710, 880, 721, 899, 482, 900, 330, 966, 0, 20, 4883, 0, 6810, 0
Data.w 11179, 0, 32767, 0, 370, 932, 494, 916, 482, 895, 426, 843, 395, 837, 379, 647, 350, 651, 342, 825, 299, 814, 262, 820, 273, 880, 333, 967, 514, 965, 530, 955, 500, 901, 0, 19, 4883, 0, 6810, 0, 11179, 0, 32767, 0, 0, 742, 0, 965, 66, 966, 210, 886, 210, 845, 242, 819, 266, 821, 300, 817, 162, 595, 156, 542
Data.w 232, 4, 133, 47, 73, 112, 0, 109, 0, 23, 8224, 0, 14135, 0, 30711, 0, 32767, 0, 377, 0, 249, 271, 234, 332, 261, 496, 285, 551, 363, 646, 380, 645, 382, 671, 419, 710, 622, 844, 663, 842, 1148, 811, 1502, 768, 1620, 546, 1613, 479, 1619, 315, 1607, 266, 1455, 0, 0, 22, 0, 0, 17733, 0, 32767, 0, 32767, 0
Data.w 387, 0, 310, 203, 293, 330, 298, 388, 334, 509, 380, 547, 416, 710, 646, 708, 757, 765, 1151, 756, 1413, 564, 1515, 512, 1512, 496, 1516, 366, 1402, 208, 1350, 1, 1327, 0, 0, 21, 0, 0, 0, 0, 0, 0, 32767, 0, 421, 495, 389, 515, 378, 551, 407, 616, 417, 713, 585, 1079, 738, 1079, 682, 975, 643, 703, 599, 611
Data.w 631, 588, 1302, 232, 1226, 161, 1171, 41, 1039, 12, 831, 11, 0, 29, 0, 0, 0, 0, 0, 0, 32767, 0, 629, 588, 423, 491, 439, 411, 505, 354, 554, 231, 651, 160, 721, 38, 830, 13, 1302, 233, 1360, 343, 1425, 403, 1452, 479, 1485, 494, 1496, 533, 1253, 591, 1152, 749, 1123, 888, 1123, 945, 934, 884, 913, 957
Data.w 925, 989, 926, 1012, 934, 1079, 819, 1079, 0, 10, 0, 0, 0, 0, 0, 0, 32767, 0, 833, 1079, 719, 1079, 683, 976, 726, 952, 751, 877, 0, 18, 0, 0, 0, 0, 0, 0, 32767, 0, 1182, 993, 1174, 962, 934, 881, 951, 946, 931, 965, 933, 1011, 911, 1016, 911, 1079, 1919, 1079, 1409, 1011, 1405, 1001, 1367, 975, 1218, 976
Data.w 0, 12, 0, 0, 0, 0, 0, 0, 32767, 0, 1408, 1010, 1919, 1007, 1919, 1079, 1394, 1079, 0, 1079, 0, 1012, 449, 1011, 0, 8, 0, 0, 0, 0, 0, 0, 32767, 0, 446, 1010, 546, 944, 583, 1051, 0, 13, 0, 0, 0, 0, 0, 0, 32767, 0, 1278, 623, 1228, 770, 1219, 982, 1370, 980, 1441, 770, 1459, 620, 1497, 533, 1241, 570
Data.w 0, 9, 22102, 0, 17476, 0, 14392, 0, 32767, 0, 901, 704, 913, 705, 911, 664, 906, 664, 0, 9, 22102, 0, 17476, 0, 14392, 0, 32767, 0, 937, 578, 943, 515, 958, 516, 944, 578, 0, 9, 22102, 0, 17476, 0, 14392, 0, 32767, 0, 821, 511, 832, 557, 839, 556, 837, 512, 0, 9, 14135, 0, 3212, 0, 0, 0, 32767, 0, 789, 436
Data.w 795, 452, 813, 454, 806, 438, 0, 9, 14135, 0, 3212, 0, 0, 0, 32767, 0, 967, 426, 961, 443, 979, 442, 985, 425, 0, 9, 22102, 0, 17476, 0, 14392, 0, 32767, 0, 835, 646, 827, 694, 837, 693, 839, 649, 0, 0
Data.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
EndDataSection

Zorro · Message par **Zorro** » sam. 30/janv./2021 12:59

change ton "Event = WaitWindowEvent() " en : -> Event = WaitWindowEvent(2)

SPH · Message par **SPH** » sam. 30/janv./2021 13:06

Zorro a écrit :change ton "Event = WaitWindowEvent() " en : -> Event = WaitWindowEvent(2)

Ca alors, ca marche

Ne risque pas d'y avoir "du bourrage papier" dans les evenements ?

Bon, merci beaucoup (tu vois que tu recodes !

Non, je sais, tu ne recodes pas

)

Bon, j'espère que cette instruction ne me créera pas d'autres problèmes...

ENCORE MERCIIIII

G-Rom · Message par **G-Rom** » sam. 30/janv./2021 13:10

Change ton traitement des évènements :

Code : Tout sélectionner

Repeat
    Event = WindowEvent()

    Select Event
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Resx = GetGadgetAttribute(1, #PB_OpenGL_MouseX)
            Resy = GetGadgetAttribute(1, #PB_OpenGL_MouseY)
            ;;;;;;;         
            Select EventType()
                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;             
            EndSelect
        EndSelect
      Case #PB_Event_Menu
        Select EventMenu()
          Case 666
            End
        EndSelect
    EndSelect
    
  Until event = 0

SPH · Message par **SPH** » sam. 30/janv./2021 13:18

Merci pour ce déluge de réponses.

Vais pouvoir continuer mon projet

Ar-S · Message par **Ar-S** » sam. 30/janv./2021 15:41

Et comme te l'a dit Mesa au 3eme Message

Mets

Code : Tout sélectionner

   Event = WindowEvent() au lieu de WaitWindowEvent

G-Rom vient de le dire aussi mais vu qu'il faut le répéter

SPH · Message par **SPH** » sam. 30/janv./2021 17:18

Ar-S a écrit :Et comme te l'a dit Mesa au 3eme Message
Mets
Code : Tout sélectionner
   Event = WindowEvent() au lieu de WaitWindowEvent
G-Rom vient de le dire aussi mais vu qu'il faut le répéter

Dac (meme si les 2 méthodes marchent)

G-Rom · Message par **G-Rom** » dim. 31/janv./2021 12:19

Pour que tu comprennes , ton premier code , utilise la fonction bloquante "WaitWindowEvent" , qui attends un event et bloque le reste de ton programme
rajouté 2ms , bloque toujours ton programme de 2 ms, sur un super pc , et en fonction de ton application cela n'aura pas d'impact, mais pense au très petite config , en mettant 2ms , tu prives le programme de potentiellement 500 frames par seconde. La troisième solution n'est pas bloquante , elle traitre les évents tant qu'il y en a et quitte la boucle.

SPH · Message par **SPH** » dim. 31/janv./2021 13:38

G-Rom a écrit :Pour que tu comprennes , ton premier code , utilise la fonction bloquante "WaitWindowEvent" , qui attends un event et bloque le reste de ton programme
rajouté 2ms , bloque toujours ton programme de 2 ms, sur un super pc , et en fonction de ton application cela n'aura pas d'impact, mais pense au très petite config , en mettant 2ms , tu prives le programme de potentiellement 500 frames par seconde. La troisième solution n'est pas bloquante , elle traitre les évents tant qu'il y en a et quitte la boucle.

Ok, alors c'est la 3eme solution que je vais utiliser

Zorro · Message par **Zorro** » lun. 01/févr./2021 10:42

sauf que l'utilisation de WindowEvent() oblige a utiliser soit un Delay() , soit FlipBuffer()
ce qui reviens au meme que de mettre un WaitWindowEvent(xx) ..

sinon bonjour la monté en charge du processeur sur l'application ,a voir dans le gestionaire des taches

le truc qu'on ignore, c'est a quoi correspond le minuteur
lorsqu'on met Waitwindowevent(1) , le 1 correspond a quoi ? , une Frame par seconde ? , une milliseconde ? ,

je pense qu'il s'agit d'une Frame par seconde, ça devrai logiquement etre callé sur la VBL ...
sinon c'est dommage que ce soit calé sur une horloge ....

PureBasic

Faire avancer un objet [RéGzorromlu?]

Faire avancer un objet [RéGzorromlu?]

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet

Re: Faire avancer un objet [Rézorrolu]

Re: Faire avancer un objet [Rézorrolu]

Re: Faire avancer un objet [Rézorrolu]

Re: Faire avancer un objet [Rézorrolu]

Re: Faire avancer un objet [Rézorrolu]