Discussion :

[Original Prankster]

Bonsoir à tous

Toujours dans le cadre de ma communication avec une carte électronique, je souhaite consulter dans une boucle l'état de la carte, selon l'algorithme suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
While 1
    Lire clavier
    Si commande (validée par retour chariot)
        Envoyer commande sur port COM
    Fin si
    Lire état sur port COM
End while

Seulement voilà, je ne suis pas encore habitué à un langage événementiel tel le VB, et tout ce que j'ai pu trouver aujourd'hui se résume à écrire un traitant à partir des fonctions appelées automatiquement sur un événement, du style Text1_KeyPress().

Est-il possible donc d'effectuer un tel traitement ? Comment effectuer une lecture au clavier dans le cadre d'une telle boucle ? Comment récupérer les informations retournées sur le port COM ?

A l'heure actuelle, j'ai ceci, mais cela ne me convient pas du tout ("W" étant la commande me permettant de lire l'état de la carte après une écriture)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call SendUCM
    End If
End Sub
 
Private Sub SendUCM()
    Text1.Text = ""
    frmMain.MSComm1.Output = Text1.Text & vbCrLf
 
End Sub
 
Private Sub DialogUCM()
    While 1
        frmMain.MSComm1.Output = "W"
        Text2.Text = Text2.Text & vbCrLf & frmMain.Tampon
    Wend
End Sub

Merci d'avance pour vos réponses...

[Original Prankster]

Ah je crois que je viens de comprendre l'utilité des timers en VB...