QTH:
Gdańsk JO94HI
Posty: 553 #2610186
|
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...
_________________
Mariusz
sp2hfh
FT857
FT1000MP MARK V Field
TM261
TS450SAt - long time ego
ant. H422
ant. WARC- home made multiband dipol
ant. Bazooka 40m - "holiday" antenna
ant. Bazooka 20m - "holiday" antenna |
FILMY VIDEO