Ce code fonctionne parfaitement sous Window et sous Linux.
Un autre logiciel arrive çà envoyer des octets par le même port série.
Il y a donc un problème avec PB4.61.
Avez-vous une idée, ou est-ce un bug ?
De l'autre coté du câble, il y a un appareil qui ne fait que renvoyer ce qu'il vient de recevoir (pour test).
Cordialement
Code : Tout sélectionner
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
Port$ = "COM6"
CompilerElse
Port$ = "/dev/ttyS0"
CompilerEndIf
If OpenSerialPort(0, Port$, 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
MessageRequester("Information", "SerialPort opened with success")
buffet = 1
WriteSerialPortData(0, @Buffet, 1)
While buffet < 255
If AvailableSerialPortInput(0)
ReadSerialPortData(0, @Buffer, 1)
buffet = Buffer + 1
WriteSerialPortData(0, @Buffet, 1)
EndIf
Wend
CloseSerialPort(0)
MessageRequester("Information","Transmission RX TX OK",#PB_MessageRequester_Ok)
End
Else
MessageRequester("Error", "Can't open the serial port: "+Port$)
EndIf