Prob Envois port série avec VB 2008, K8056

Salut Fred je viens de jouer un peu avec la carte voici une routine qui fonctionne avec Visual studio 2008 mais en C#. A mon avis c'est au niveau du checksum que ton code n'est pas bon

SerialPort port = new SerialPort(
"COM4", 2400, Parity.None, 8, StopBits.One);

// Open the port for communications
port.Open();


// Write a set of bytes
//port.Write(new byte[] {13, 1, 83, 49, 110}, 0, 5);
port.Write(new byte[] { 13, 1, 67, 49, 126 }, 0, 5);
// Close the port
port.Close();

j'espère que cela pourra t'ai

Bonjour

J'ai une gestion partielle des port série :

Public Shared recep_port As String
Public Shared emis_port As String
Public Shared port = New System.IO.Ports.SerialPort()
' Configuration du port série : SCS1 sur Port : COM1
Public Serial = New System.IO.Ports.SerialPort()

' Activation de la fenêtre
Private Sub Accueil_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Serial.PortName = "COM1"
Serial.BaudRate = 9600
Serial.DataBits = 8
Serial.StopBits = 1
Serial.Parity = 2 'Even
Serial.Handshake = IO.Ports.Handshake.None
Serial.ReadTimeout = 50
Serial.WriteTimeout = 50
End Sub

'------------------------------------'
' Gestion des ports série de la page '
'------------------------------------'
' Emission - reception
Public Shared Sub transmission()
Dim Thread_in As System.Threading.Thread = New System.Threading.Thread(AddressOf reception)
Thread_in.Start()
port.write(emis_port)
Thread_in.Join()
End Sub

' Port in
Public Shared Sub reception()
recep_port = ""
Try
Do
recep_port &= Chr(port.ReadByte)
Loop
Catch ex As Exception
End Try
End Sub

Partielle car ce code ne gère pas les arrivées en dehors d'une écriture.