j'ai fait plein de recherche
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' Configuration du port série utilisé par le module secheur Try With SerialPort3 .PortName = LireINI("com3", "Portname") .BaudRate = CInt(LireINI("com3", "Vitesse")) .DataBits = CInt(LireINI("com3", "Databits")) .StopBits = CType(LireINI("com3", "Stopbit"), Ports.StopBits) .Handshake = CType(LireINI("com3", "protocole"), Ports.Handshake) .NewLine = vbCrLf 'Chr(10) & Chr(13) ' défini la fin de trame (CR+LF) différent de vbcrlf ! pour exemple .Open() End With Catch ex As Exception MsgBox("COM3 plus disponible", MsgBoxStyle.Critical) End Try code] -utlisation de l'évenment si pas besoin d'écrire pour avoir une réponse : buffer est un string à décortiquer dasn une fonction. [code=vb] Private Sub SerialPort3_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort3.DataReceived Try buffer = SerialPort3.ReadLine() Catch ex As Exception End Try End Sub