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 29 30 31 32 33 34 35
| Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CheckForIllegalCrossThreadCalls = False
AddHandler SerialPort1.DataReceived, AddressOf SerialPort1_DataReceived
Try
SerialPort1.Open()
Catch ex As Exception
MsgBox("Impossible d'ouvrir le port COM")
End Try
End Sub
Public Sub send(ByVal texte As String)
SerialPort1.Write(texte)
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
If SerialPort1.IsOpen = True Then
Read()
End If
End Sub
Private Sub Read()
If SerialPort1.IsOpen Then
Dim data As String = SerialPort1.ReadExisting()
Me.RichTextBox1.Text += data
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
send(vbLf)
'Attendre que RichTextBox.text change avant de continuer
End Sub
End Class |
Partager