1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
SerialPort: Handle
Buffer: string = ""
CaractereLu: string
// Ouverture du port série COM5 à 9600 bauds en 8N1 (par défaut)
SerialPort = SerialOpen("COM5", 9600)
IF SerialPort <> -1 THEN
WHILE TRUE
SerialRead(SerialPort, CaractereLu)
Buffer += CaractereLu
IF Buffer = "FIN" THEN
BREAK // Quitter la boucle
END
IF CaractereLu = '\n' THEN
Info(Buffer, "Message reçu")
Buffer = "" // Réinitialiser le tampon pour le prochain message
END
END
SerialClose(SerialPort)
ELSE
Error("Impossible d'ouvrir le port série COM5.")
END |
Partager