[Résolu] [2D] MessageRequester() ne s'affiche pas

[falsam]

[Window10 Pro] [PB 5.40 x86]

MessageRequester() ne fonctionne pas quand on met fin à une boucle evenementielle. Surprenant.

Code : Tout sélectionner

InitSprite() : InitKeyboard() : InitMouse()

OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)

Repeat 
  Repeat 
    Event = WindowEvent()
    
    Select Event    
      Case #PB_Event_CloseWindow
        End
    EndSelect  
  Until Event=0
  
  FlipBuffers()
  ClearScreen(RGB(101, 159, 62))
  ExamineKeyboard()  
Until KeyboardPushed(#PB_Key_Escape)

MessageRequester("Information", "Le message que vous ne verrez pas")

Ce n'est pas très grave car il y a moyen de faire autrement.

[falsam]

Merci beaucoup Spock mais ça reste quand même étrange comme comportement.

[Ar-S]

Tu peux aussi utiliser un

Code : Tout sélectionner

Event = WaitWindowEvent(10) 

On peut aussi mettre l'examinekeyboard() dans la boucle graphique ou comme l'a dit spock dans la boucle event.

P.S : Par contre j'ai toujours trouvé plus logique de mettre le clearscreen au début du code et le flip la fin.

Code : Tout sélectionner

Repeat
  ExamineKeyboard()
  ClearScreen(RGB(101, 159, 62))
  
  
  Repeat
    
    Event = WindowEvent()
    
    Select Event   
      Case #PB_Event_CloseWindow
        quite = 1
    EndSelect 
  Until Event=0
 
  FlipBuffers()
  
Until KeyboardPushed(#PB_Key_Escape) Or quite = 1

[Ar-S]

Ma ménagère est un peu maniaque, elle est pas sûre que la pièce est propre pour les futurs invités alors elle passe toujours un petit coup de propre avant la teuf

[venom]

Ma ménagère est un peu maniaque, elle est pas sûre que la pièce est propre pour les futurs invités alors elle passe toujours un petit coup de propre avant la teuf

Comme beaucoup de ménagère. Un coup avant et un coup après






@++

[Shadow]

Salut,

Code : Tout sélectionner

InitSprite() : InitKeyboard() : InitMouse()

OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)

Repeat
  Repeat
    Event = WindowEvent()
   
    Select Event   
      Case #PB_Event_CloseWindow
     ---> END <---
    EndSelect 
  Until Event=0
 
  FlipBuffers()
  ClearScreen(RGB(101, 159, 62))
  ExamineKeyboard() 
Until KeyboardPushed(#PB_Key_Escape)

MessageRequester("Information", "Le message que vous ne verrez pas")

C'étais pourtant si simple !

Par contre c'est bizarre en effet que ça prenne aussi si ont appuie sur échap
car normalement c la fin de boucle et ça devrais quitter !

Voilà, là ça marche:

Code : Tout sélectionner

InitSprite() : InitKeyboard() : InitMouse()

OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)

Repeat
  Repeat
 ---> ExamineKeyboard() <---
    Event = WindowEvent()
   
    Select Event   
      Case #PB_Event_CloseWindow
        End
    EndSelect 
  Until Event=0
 
  FlipBuffers()
  ClearScreen(RGB(101, 159, 62))
  
Until KeyboardPushed(#PB_Key_Escape)

MessageRequester("Information", "Le message que vous verrez !")

[falsam]

C'étais pourtant si simple !

Et pas fonctionnel.

MessageRequester() ne fonctionne pas dans ton code.

[Shadow]

J'ai pas modifiés, j'ai juste montré dans le 1 !
Le 2 fonctionne !

[falsam]

J'ai pas modifiés, j'ai juste montré dans le 1 !
Le 2 fonctionne !

Quand on quitte avec Escape ou par fermeture de la fenetre la fonction MessageRequester() ne fonctionne pas dans ton code.

Par contre le code de Spock fonctionne correctement.

[Shadow]

Le code 2 fonctionne !
Sauf pour le fermeture de la fenêtre avec la crois exacte.

[Shadow]

Ceci fonctionne !

Code : Tout sélectionner

InitSprite() : InitKeyboard() : InitMouse()

OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)

Repeat
  Repeat
    ExamineKeyboard() 
    Event = WindowEvent()
   
    Select Event   
      Case #PB_Event_CloseWindow
        Break 2
    EndSelect 
  Until Event=0
 
  FlipBuffers()
  ClearScreen(RGB(101, 159, 62))
  
Until KeyboardPushed(#PB_Key_Escape)

MessageRequester("Information", "Le message que vous verrez !")

[falsam]

Ceci fonctionne !

Pas tout à fait. Essaye de fermer la fenetre avec la croix.

je t'assure que le code de Spock est fonctionnel

[Shadow]

Écoute moi que je ferme la fenêtre ou que je fasse échap, le message apparais !

[Ar-S]

Quelle version de pb ?...

[Shadow]

5.41 TLS x64
Essayé en x86