send HEX to serial port

[winsonkwok]

I am using 2005 and try to send commands (in HEX) to the serial port which is connected to my equipment.

I have tried several methods using e.g. ChrW(&HD1) and it won't work. It only works when it the command is placed inside an byte array. Any help will be much appreciated, thanks!

Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click
Dim chBuf(0), trans_curr As Byte
chBuf(0) = &HD1
trans_curr = &HD1

Try

serialPort.Write(chBuf, 0, 1) ' this works'
serialPort.Write(trans_curr) 'this does not works'


With txtDataReceived
.SelectionColor = Color.Black
.ScrollToCaret()
End With
txtDataToSend.Text = String.Empty
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

[Al42]

In the example, what is it you want to send? "D1" (which in serial bits would be 2 bytes - 0100 1000 and 0011 0001) or the value 209 (which, in serial bits would be 1101 0001)? Where, in the real program, are you getting the value(s) to send? How are you defining the variable that holds them (byte, string, some type of array)?

[winsonkwok]

Hi

I need to send a Byte to the hardware, it would be in HEX D1 i.e binary 11000001.

Both are defined as Byte. The command can be defined explicitly inside the program

Thanks!

[Al42]

You could send Chr$(209).