

'RESET



If SerialPort1.IsOpen Then
            
            SerialPort1.DtrEnable = True
            Thread.Sleep(2)
            SerialPort1.DtrEnable = False
            SerialPort1.BreakState = True
            Thread.Sleep(50)
            SerialPort1.BreakState = False
            Thread.Sleep(5)
            SerialPort1.DiscardInBuffer()



'ID


SerialPort1.Write("B")
Textbox1.AppendText(Chr(SerialPort1.ReadByte()) & " ")
Textbox1.AppendText(SerialPort1.ReadByte() & " ")

SerialPort1.Write("S")
Textbox1.AppendText(Chr(SerialPort1.ReadByte()) & " ")
Textbox1.AppendText(SerialPort1.ReadByte() & " ")

SerialPort1.Write(2)
Textbox1.AppendText(Chr(SerialPort1.ReadByte()) & " ")
Textbox1.AppendText(SerialPort1.ReadByte() & " ")

SerialPort1.Write(Chr(0))
Textbox1.AppendText(Chr(SerialPort1.ReadByte()) & " ")
Textbox1.AppendText(SerialPort1.ReadByte() & " ")

End If

 