Attendre que l'utilisateur appuie sur une touche

Question

Bonjour
Je me demande s'il est possible de faire attendre VB. Pour ma part, j'ai essey&#233; de "l'emprison&#233;" dans un Do Loop dont la seule issue serait que l'utilisateur ait appuy&#233; sur la touche "e". 

Dans KeyPress, j'ai dit a VB que lorsque la touche "e" (101 en ascii) est appuy&#233;, de mettre la variable boolean "Etrigged" &#224; true. La loop dont je parlais au d&#233;but se trouve dans un autre sub que KeyPress et attend que Etrigged soit a true pour permettre de sortir du Do Loop.

Eh bien &#231;a ne marche pas.. Y a t-il un bon moyen efficace que je puisse utilis&#233; qui me permettera d'attendre que l'utilisateur appuis sur une touche avant de continuer a lire le code de ma sub ?

RadioHead4Ever

cs_casy · Answer

Un petit bout de code serait pas mal pour qu'on comprenne comme ton soft fonctionne




 Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

est-ce que tu as mis des DoEvents dans ta boucle ?

si tu fais rien d'autre que t'attendre la touche, c'est pas la peine de faire de boucle, tu arr&#234;tes ton programme et tu lances la suite au moment o&#249; on tape sur la touche.

Daniel

crenaud76 · Answer

Come le dis Gobillot, rappelons a toutes fins utiles, que VB est &#233;v&#232;nementiel et non pas simplement proc&#233;dural (ce qu'il est aussi d'ailleur, mais il es tpluls que cela !!) donc le fait de dire que Le programme va attendre que l'utilisateur appui sur une touche perd un peu de son sens en VB. Mais encore une fois tout d&#233;pend du contexte. En tout cas, voila une solution &#233;ventuelle &#224; ton probleme
 Sur une form avec un CommandButton comm&#233; Command1. On ajoute cela au code de la form .
Private ETrigged As Boolean
Private Sub Form_Load()
ETrigged = False
Command1.Caption = "Click Me !!!"
End Sub

Private Sub Command1_click()
Msgbox "Apr&#232;s avoir valider ce message, appuyer sur ""e"" pour terminer la boucle"
While not ETrigged
  DoEvents
Wend
Msgbox "Boucle termin&#233;e"
End sub

Private Sub Form_KeyPress(KeyAscii As Integer)   ETrigged (KeyAscii Asc("e") Or KeyAscii = Asc("E"))
End Sub

That's all folks !!!
 Christophe R

Radiohead4ever · Answer

Crenaud76: A tu test&#233; ton code ? Si oui, il a un probleme avec mon system puisque je ne voit jamais le message qui confirme que je suis sorti du While.  (je ne l'ai m&#234;me pas ajout&#233; a mon programme, j'ai fait un nouveau projet tout simple avec ton code et un bouton!) Je gal&#232;re...

Casy: Voici le code de la sub

Private Sub ReadingMessage()
Dim Lettres As String 'Symbols de la ligne
Dim Progret As Integer '&#224; quel symbol la lecture est rendu (94 par lignes, 5 lignes)(taille de la boite)
Dim LastTime As Boolean
Dim Wait4E As Boolean


LastTime = False


StartingReadingMessage:
Etrigged = False
Wait4E = False


Messagelbl.Caption = "" 'Vide la zone de texte


For Progret = 1 To 470
MsgBox "Etrigged = " & Etrigged
DoEvents
Etrigged = False


Select Case Wait4E
  Case False
    MesStrOffset = MesStrOffset + 1


    Lettres = Mid(CurrentMessage, MesStrOffset, Len(CurrentMessage))


    If Left(Lettres, 1) = "_" Then
       Wait4E = True
       GoTo StartingReadingMessage
    End If
    If Left(Lettres, 1) = "/" Then
       LastTime = True
       Wait4E = True
       GoTo StartingReadingMessage
    End If


    Select Case Progret
      Case 94
        Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) & vbNewLine
      Case 188
        Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) & vbNewLine
      Case 282
        Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) & vbNewLine
      Case 376
        Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) & vbNewLine
      Case Else
        Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1)
    End Select


  Case True
    Do
    Select Case messagefleche.Visible
      Case True
        messagefleche.Visible = False
      Case False
        messagefleche.Visible = True
    End Select


    If Etrigged = True Then
        Select Case LastTime
          Case False
            GoTo StartingReadingMessage
          Case True
            MsgBox "lasttime = true"
            GoTo Fin
        End Select
    End If
    Loop
End Select
Timer1_Timer
Next Progret
Fin:
End Sub

Et voici une partie du code de Keypress

Select Case KeyAscii
  Case 101 '*********** Bouton D'action (e)
    Etrigged = True
    Select Case MapoffsetY
      Case 0
        Select Case MapoffsetX
          Case 0
            Select Case PersoOffsetY
              Case 3
                Select Case PersoOffsetX
                  Case 1
                    Select Case PersoBoussole
                      Case 2
                        mov000000B5 = False
                    'Fin de PersoBoussole
                    End Select
                'Fin de PersoOffsetX
                End Select
            'Fin de PersoOffsetY
            End Select
        'Fin de MapoffsetX
        End Select
    'Fin de MapoffsetY
    End Select
    InitMessage 'affiche le message correspondant si message il y a.
    ApplyMoveables 'Reset toutes les Moveables, (v&#233;rifi s'il on encore raison d'etre affich&#233;s)
End Select
RadioHead4Ever

crenaud76 · Answer

J'ai effectivement oubli&#233; de pr&#233;cisier qu'il faut que la propri&#233;t&#233; KeyPreview de la Form soit &#224; True. Sinon, c'ets le CommandButton qui &#224; le focus alors c'est lui qui recevrait l'EVT KeyPress, et non pas la form. Avec cela, ca devrait tourner.
Et si tu veux que cela fonctionne X fois de suite, il faudra rajouter un ETrigged = False juste avant de rentrer dans le While ...
(Pour info, je n'ai pas tester ce code)

 Christophe R

Radiohead4ever · Answer

Voil&#224;, ca va mieux. Mais il y a encore un probleme. Avant tout je vais expliquer le contexte. Je suis en train de faire un jeu RPG et dans ce cas ci, je travail sur le syt&#232;me de messages. Lorsque je verrai un personnage et que j'appurai sur "e", ma sub ce d&#233;clenchera. Le principe est simple. Toute la conversation est stock&#233; dans une variables String, &#233;videment. Mais je ne la diffuse pas au complet, mais bout par bout. Voila pourquoi je voudrais je l'utilisateur appui sur "e", c'est pour quand il aura fini de lire une r&#233;plique, il verra appaitre le prochain bout de texte, et comme ca, jusqu'&#224; la fin du String. Ensuite, je redonne le controle &#224; l'utilisateur et il sera libre d'aller ou il veut.. C'est pas nouveau comme concept et vous avez probablement d&#233;ja vu ca.

Mon probleme c'est que TOUT au long de ma sub, la touche "e" reste activ&#233;e (semble-t-il) donc, la sub me fait apparaitre tres rapidement, toutes les r&#233;plique, comme si la touche e restait enfonc&#233;e..

Une id&#233;e pouquoi ?

RadioHead4Ever

cs_casy · Answer

HORREUR une attaque de GoTo



STP &#233;vite d'utiliser cette SALOPERIE de goto, c'est fini le temp de QuickBasic et de ses anc&#232;tres Basica et HPBasic.



GoTo n'est admis (parqu'on a pas le choix) que dans un cas : On Error GoTo



Sinon &#231;a fait de belle m*r*e de boucles infinies, et j'ai l'impression que c'est ce que tu nous &#224; fait.


Je vois que tu te shoote au Select Case aussi. Perso pour une ou
possibilit&#233; je pref&#232;re le If/Then/Else, je r&#233;serve le Select Case
lorsque + de 2 choix son possible.



Si j'ai bien compris ton code, tu ne peux rentrer en attente de la
touche 'e' que lorsque la variable Wait4E est &#224; true, or les rares fois
ou elle est mise &#224; true, elle est syst&#232;matiquement remise &#224; false par
ton GoTo StartingReadingMessage.

Donc en fait tu ne rentre jamais en attente de la touche 'e', c'est
pour cela que tu as l'impression qu'elle est toujours activ&#233;e.


Je continu &#224; analyser ton code qui n'est pas si simple que &#231;a &#224; comprendre.

 Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_casy · Answer

Voila, j'ai un peu remani&#233; le code &#224; ma sauce avec ce que j'avais
compris. Je ne sais pas si il marche, j'esp&#232;re n'avoir pas fait trop de
co******.



Private Sub ReadingMessage()

Dim Lettres As String 'Symbols de la ligne

Dim Progret As Integer '&#224; quel symbol la lecture est rendu (94 par lignes, 5 lignes)(taille de la boite)

Dim LastTime As Boolean

Dim Wait4E As Boolean



LastTime = False



Etrigged = False

Wait4E = False



Messagelbl.Caption = "" 'Vide la zone de texte



For Progret = 1 To 470

    MsgBox "Etrigged = " & Etrigged

    DoEvents

    Etrigged = False

    

    Select Case Wait4E

      Case False

        MesStrOffset = MesStrOffset + 1

    

        Lettres = Mid(CurrentMessage, MesStrOffset, Len(CurrentMessage))

    

        If Left(Lettres, 1) "_" Or Left(Lettres, 1) "/" Then

           Wait4E = True

           If Left(Lettres, 1) "/" Then LastTime True

        Else

            Select Case Progret

              Case 94

               
Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) &
vbNewLine

              Case 188

               
Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) &
vbNewLine

              Case 282

               
Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) &
vbNewLine

              Case 376

               
Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1) &
vbNewLine

              Case Else

               
Messagelbl.Caption = Messagelbl.Caption & Left(Lettres, 1)

            End Select

        End If

        

      Case True

        Wait4E = False

        Do

            If messagefleche.Visible = True Then

                messagefleche.Visible = False

            Else

                messagefleche.Visible = True

            End If

    

            If Etrigged = True Then

                If LastTime = False Then

                    Exit Do

                Else

                   
MsgBox "lasttime = true"

                    Exit For

                End If

            End If

        Loop

    End Select

    Timer1_Timer

Next Progret



End Sub









Select Case KeyAscii

  Case 101 '*********** Bouton D'action (e)

    Etrigged = True

    If MapoffsetY = 0 And _

       MapoffsetX = 0 And _

       PersoOffsetY = 3 And _

       PersoOffsetX = 1 And _

       PersoBoussole = 2 Then

        

        mov000000B5 = False

    End If

    

    InitMessage 'affiche le message correspondant si message il y a.

    ApplyMoveables 'Reset toutes les Moveables, (v&#233;rifi s'il on encore raison d'etre affich&#233;s)



End Select





 Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Radiohead4ever · Answer

Hahahaha, c'est vrai que j'aime bien les Select Case.. Je  trouve ca plus clair. Mais je ne les utilise pas en vaint car ce que je fait en ce moment n'est que le "moteur" de mon jeu, et plus tard il y aura BEAUCOUP plus de possibilit&#233;es,, donc dans ce cas, les select case sont mieux, mais j'avou que des fois j'abuse..

Bon, j'ai test&#233; et &#233;tudi&#233; ton code. Il est fonctionnel, mais seulement pour le premier bout de texte, apres, mon appli devient surper lente, rien ne fonctionne, je peux meme pas quitter, je dois faire ctrl alt del... Je n'ai aucune id&#233;e pourquoi, parce que franchement, ton code semble impect (meme pas de goto ). D'ailleurs, c'est pas la premiere fois que je vois ce genre de r&#233;action de programme. C'est tu d'o&#249; ca vient?

RadioHead4Ever

Radiohead4ever · Answer

AHA!!!!!!!!!!!! J'ai trouv&#233; ! tu avait oubli&#233; le DoEvents dans le Do Loop ! et maintenant ca fonctionne !! Jte remerci beaucoup !  

RadioHead4Ever

Attendre que l'utilisateur appuie sur une touche

10 réponses

Discussions similaires