Visual Basic 2010 |
Tą stronę znam. Po zrealizowaniu kodu: Private Sub serialButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles serialButton.Click Dim abData() As Byte Dim Str As String Dim i As Long Str = "12345" abData = System.Text.Encoding.Default.GetBytes(Str) For i = 0 To UBound(abData) SerialPort1.Write(Hex(abData(i))) Next End Sub Na terminalu odbiorczym otrzymujemy: 33 31 33 32 33 33 33 34 33 35 Czyli nadal źle Jak pisałem wcześniej: cokolwiek zrobię dostaję ASCII w tej lub nieco innej formie... |