Forum Krótkofalarskie PKI

Private Sub serialButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles serialButton.Click

Dim dana As Integer
Dim wynik As String
dana = 12345
wynik = Hex(dana)
SerialPort1.Write(wynik)

End Sub

Serial Port wysyła cztery bajty ascii 33 30 33 39 zamiast dwóch bajtów hex 30 39