Problème d'envoie et de reçevoir data avec port com

Signaler
Messages postés
13
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
23 avril 2012
-
salut pour tous ;
comment je peut vérifier que mon programme en vb8 envoie et reçue data à travers le port com
c'est la fonctionne responsable à la connexion au port com dans mon programme
Private Function com(ByVal veri As Byte) As Boolean
Dim ver As Boolean
Try
SerialPort1.BaudRate = 9600
SerialPort1.PortName = Port_Com.Text
SerialPort1.DataBits = 8
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.Open()
SerialPort1.ReadTimeout = 500
If veri = 1 Then
SerialPort1.Write("G")
ver = False
If SerialPort1.ReadByte() = 84 Then
ver = True
End If
Else
SerialPort1.Write("V")
ver = False

If SerialPort1.ReadByte() = 84 Then
ver = True
End If
End If

SerialPort1.Close()

If ver Then

Conn_tool.ForeColor = Color.Green
Conn_tool.Text = "Connecté "
Return True

Else

Conn_tool.ForeColor = Color.Red
Conn_tool.Text = "Pas de connexion "
Return False

End If
Catch

Conn_tool.ForeColor = Color.Red
Conn_tool.Text = "Pas de connexion "
Return False

End Try

End Function