I think this should beRich (BB code):Sub RELAYON() Dim data(2) As Byte data(0) = 255 data(1) = 0 If (Form2.Label2.Text) = 1 Then data(2) = 1 If (Form2.Label2.Text) = 2 Then data(2) = 2 If (Form2.Label2.Text) = 3 Then data(2) = 4 If (Form2.Label2.Text) = 4 Then data(2) = 8 SerialPort1.PortName = "COM" + Form2.TextBox1.Text SerialPort1.Open() SerialPort1.Write(data, 0, 3) SerialPort1.Close()
Rich (BB code):
data(0) = 92 //command ID
data(1) = 8 //set relay 4
....
SerialPort1.Write(data, 0, 2)