none
VB MSCommEvent sortir de la boucle MSCommReceive lors d'une perte de communication RRS feed

  • Question

  • EN VB6 et en partant d'un modèle sur MSN, si la communication est interrompue pour une raison X,  lorsque je suis en acquisition de données et en attente d'un caractère  X  (CHR$(13) ou EOF ou autre), comment puis-je sortir de cette boucle?

    Seul CTRL-ALT-DEL fonctionne. Les interruptions par des Timers ne sont pas lues, ni les commandes du clavier etc.

    _________________________________________________________________________________________________

     

    Private Sub Form_Load()
    MSComm1.Settings = "2400,n,8,1"
    MSComm1.CommPort = 1
    MSComm1.InputLen = 1
    MSComm1.PortOpen = True   

    Private Sub MSComm1_OnComm()

    Select Case MSComm1.CommEvent
     
        Case comEvReceive

           Do Until entrée = Chr$(4)
              
           entrée = MSComm1.Input
           
          "Traitement de l'entrée" 

         Comment sortir de cette boucle lors d'une perte soudaine de communication de l'équipement branché sur le port série?

           Loop
          
        End Select

        MSComm1.PortOpen = False

    End Sub

    ________________________________________________________________________________________________

    Quelle est la notion fondamentale qui m'échappe?

    Merci,

    lundi 22 décembre 2014 16:43