Is that possible? Checking if the port is open is okay but i don't know why i can't receive data/string after i sent a data.
In main Form:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
connect_btn.Enabled = False
With com1
.PortName = "COM2"
.BaudRate = 9600
.Parity = Parity.None
.StopBits = StopBits.One
.DataBits = 8
.Handshake = Handshake.RequestToSend
.RtsEnable = True
.DtrEnable = True
End With
com1.Open()
AddHandler RFID.DataReceived, SerialDataReceivedEventHandler1
End Sub
Sending Data:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim response As String = TextBox1.Text
If RFID.IsOpen Then
RFID.WriteLine(response)
End If
End Sub
Data Receive:
Private Sub com1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs)
If com1.IsOpen = True Then
read()
End If
End Sub
Friend Sub DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
Dim newReceivedData As String
newReceivedData = RFID.ReadExisting
MessageBox.Show(newReceivedData)
End Sub
When i try to run it, There is no error.
EDITED
Using PuTTY and VSPE work to send a data.