[RESOLVED] ASCII to HEX buffer converting

[dr_aybyd]

Hi I found this function from the net.
But I have a problem with the reply buffer.
The reply buffer is in ASCII value...but I need is HEX value.
Is there any way that the reply buffer is in hex?

Public Function read_write_string(ByVal devicehandle, ByVal command, ByVal commandlenght) As String
        Dim inputReportBuffer(100) As Byte
        unManagedBuffer = Marshal.AllocHGlobal(inputReportBuffer.Length)
        numberOfBytesRead = 0
        numberOfBytesWritten = 0

        success = WriteFile _
        (devicehandle, _
        command, _
        commandlenght, _
        numberOfBytesWritten, _
        IntPtr.Zero)
        Thread.Sleep(50)

        success = ReadFile _
           (devicehandle, _
            unManagedBuffer, _
            inputReportBuffer.Length, _
            numberOfBytesRead, _
            unManagedOverlapped)

        Marshal.Copy _
        (unManagedBuffer, inputReportBuffer, 0, numberOfBytesRead)

        ReDim Preserve inputReportBuffer(numberOfBytesRead - 1)

        Dim inputReportBuffer_element As Byte

        Dim rest As String = ""
        Dim n As Integer = 0


        For Each inputReportBuffer_element In inputReportBuffer
            If n > commandlenght - 1 Then
                Select Case inputReportBuffer_element

                    Case Is < &H20
                        rest = rest & " "
                    Case Is = &H20
                        rest = rest & " "
                    Case Is > &H20

                        rest = rest & Chr(Val("&h" & inputReportBuffer_element.ToString("X2")))
                End Select
            End If
            n += 1
        Next

        Return rest.Trim
    End Function

This is my codes that I am sending to device via usb

    Private Sub AxLaVolpeButton6_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxLaVolpeButton6.ClickEvent
        Dim sp_f() As Byte = {&H1B, &H0, &H10, &H53, &H0, &H5, &H0, &HF, &H16, &H12, &HD}
        TextBox1.Text = read_write_str(deviceHandle, sp_f, sp_f.Length)
    End Sub

My expected answer is:

1B 10 00 53 00 5C 0F 40 16 13 12 55 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 00 44 80 00 00 00 00 00 00 06 24 40 70 00 00 00 00 00 00 18 07 00 00 00 00 00 00 50 00 00 05 FF FF FF 00 B4 00 00 05 FF FF FF 01 18 00 00 05 FF FF FF 01 7C 00 00 05 FF FF FF 01 E0 00 00 05 FF FF FF 02 44 00 00

but in my current codes the answer is:

      Uÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ D€       $@p              P   ÿÿÿ ´   ÿÿÿ     ÿÿÿ |   ÿÿÿ à   ÿÿÿ D

which is not i need.

Anyone can help me?

[dr_aybyd]

Up for my thread!!!

[mickey_pt]

Why do you do this?

rest & Chr(Val("&h" & inputReportBuffer_element.ToString("X2")))

You get the Hex value of the buffer, then you get the value (double with Val), and finally get the char value... If you expect the hex value just use this part...

rest = rest & "&h" & inputReportBuffer_element.ToString("X2")

[dr_aybyd]

I mildly got it now
by this codes

 Private Sub AxLaVolpeButton6_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxLaVolpeButton6.ClickEvent
        Dim sp_f() As Byte = {&H1B, &H0, &H10, &H53, &H0, &H5, &H0, &HF, &H16, &H12, &HD}
        Dim myString As String = read_write_str(deviceHandle, sp_f, sp_f.Length)

        Dim myEncoding As New System.Text.ASCIIEncoding
        Dim myArr() As Byte = myEncoding.GetBytes(myString)
        For Each aski As Byte In myArr
            ListBox2.Items.Add(Convert.ToString(aski, 16))
        Next
    End Sub

My question now is how can I use Textbox instead of ListBox?
To appear like this

1B 10 00 53 00 5C 0F 40 16 13 12 55 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 00 44 80 00 00 00 00 00 00 06 24 40 70 00 00 00 00 00 00 18 07 00 00 00 00 00 00 50 00 00 05 FF FF FF 00 B4 00 00 05 FF FF FF 01 18 00 00 05 FF FF FF 01 7C 00 00 05 FF FF FF 01 E0 00 00 05 FF FF FF 02 44 00 00

and one thing I noticed also is the FF FF is appear something like 3f 3f


@mickey_pt

thats for my other use..

[mickey_pt]

Just do something like:

For Each aski As Byte In myArr
   TextBox1.Text &= Convert.ToString(aski, 16) & " "
Next

[dr_aybyd]

Ouch i noticed another error:
The output is like this:

55 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 20 44 3f 20 20 20 20 20 20 20 24 40 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 20 20 3f 3f 3f 20 3f 20 20 20 3f 3f 3f 20 20 20 20 20 3f 3f 3f 20 7c 20 20 20 3f 3f 3f 20 3f 20 20 20 3f 3f 3f 20 44

My expected output must be like this:

1B 10 00 53 00 5C 0F 40 16 13 12 55 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 00 44 80 00 00 00 00 00 00 06 24 40 70 00 00 00 00 00 00 18 07 00 00 00 00 00 00 50 00 00 05 FF FF FF 00 B4 00 00 05 FF FF FF 01 18 00 00 05 FF FF FF 01 7C 00 00 05 FF FF FF 01 E0 00 00 05 FF FF FF 02 44 00 00

@mickey

when i use your codes:

rest & Chr(Val("&h" & inputReportBuffer_element.ToString("X2")))

The replied buffer is like this:

&h55&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF&hFF &h44&h80       &h24&h40&h70              &h50   &hFF&hFF&hFF &hB4   &hFF&hFF&hFF     &hFF&hFF&hFF &h7C   &hFF&hFF&hFF &hE0   &hFF&hFF&hFF &h44

[mickey_pt]

In the different values obtained in the answer i think i can't help you, i don't know what answer to expect and i don't know what you're writing and reading...

To correct the reply buffer...

rest & Chr(Val(inputReportBuffer_element.ToString("X2"))) & " "

[noname1]

Hi I found this function from the net.
But I have a problem with the reply buffer.
The reply buffer is in ASCII value...but I need is HEX value.
Is there any way that the reply buffer is in hex?

Public Function read_write_string(ByVal devicehandle, ByVal command, ByVal commandlenght) As String
        Dim inputReportBuffer(100) As Byte
        unManagedBuffer = Marshal.AllocHGlobal(inputReportBuffer.Length)
        numberOfBytesRead = 0
        numberOfBytesWritten = 0

        success = WriteFile _
        (devicehandle, _
        command, _
        commandlenght, _
        numberOfBytesWritten, _
        IntPtr.Zero)
        Thread.Sleep(50)

        success = ReadFile _
           (devicehandle, _
            unManagedBuffer, _
            inputReportBuffer.Length, _
            numberOfBytesRead, _
            unManagedOverlapped)

        Marshal.Copy _
        (unManagedBuffer, inputReportBuffer, 0, numberOfBytesRead)

        ReDim Preserve inputReportBuffer(numberOfBytesRead - 1)

        Dim inputReportBuffer_element As Byte

        Dim rest As String = ""
        Dim n As Integer = 0


        For Each inputReportBuffer_element In inputReportBuffer
            If n > commandlenght - 1 Then
                Select Case inputReportBuffer_element

                    Case Is < &H20
                        rest = rest & " "
                    Case Is = &H20
                        rest = rest & " "
                    Case Is > &H20

                        rest = rest & Chr(Val("&h" & inputReportBuffer_element.ToString("X2")))
                End Select
            End If
            n += 1
        Next

        Return rest.Trim
    End Function

This is my codes that I am sending to device via usb

    Private Sub AxLaVolpeButton6_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxLaVolpeButton6.ClickEvent
        Dim sp_f() As Byte = {&H1B, &H0, &H10, &H53, &H0, &H5, &H0, &HF, &H16, &H12, &HD}
        TextBox1.Text = read_write_str(deviceHandle, sp_f, sp_f.Length)
    End Sub

My expected answer is:

1B 10 00 53 00 5C 0F 40 16 13 12 55 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 00 44 80 00 00 00 00 00 00 06 24 40 70 00 00 00 00 00 00 18 07 00 00 00 00 00 00 50 00 00 05 FF FF FF 00 B4 00 00 05 FF FF FF 01 18 00 00 05 FF FF FF 01 7C 00 00 05 FF FF FF 01 E0 00 00 05 FF FF FF 02 44 00 00

but in my current codes the answer is:

      Uÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ D€       $@p              P   ÿÿÿ ´   ÿÿÿ     ÿÿÿ |   ÿÿÿ à   ÿÿÿ D

which is not i need.

Anyone can help me?

Hi, I am too stuck at the same place. If you have done this please help me too.

BR