Acquisition , valeur dans le buffer

Private Sub CommandButton1_Click()
' Utilise COM1
MSComm1.CommPort = 1
MsgBox "le port est active"
' 9600 bauds, pas de parité, 8 bits de données et 1 bit d'arrêt.
MSComm1.Settings = "9600,N,8,1"


MsgBox "la configuration est faite "
' Indique au contrôle qu'il doit lire la totalité
' du tampon si la propriété Input est utilisée.
MSComm1.RThreshold = 1




MsgBox "l'évenement est apeler"
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText
' Ouvre le port.


MSComm1.PortOpen = True
' Envoie la commande Attention a l'apareille.
MSComm1.Output = Chr$(49) & Chr$(13)
buffer$ = buffer$ & MSComm1.Input 'jarrive a lire le contenu du buffer pas a pas
Debug.Print "la valeur d'entree = " & buffer$
buffer$ = Right(buffer$, 6)

Range("A1").Value = buffer$
MsgBox "valeur mesurer=" & buffer$
MSComm1.PortOpen = False
End Sub

Cliquez pour agrandir...