[vb6] Lecture en boucle via port COM
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:
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:
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...
