QTH:
Gdańsk JO94HI
Posty: 553 #2610232
|
Private Sub serialButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles serialButton.Click
Dim wynik(4) As Byte
Dim serial As UInt32 = Convert.ToInt32(serialTextBox.Text)
wynik(0) = ((serial \ 256) \ 256) \ 256
wynik(1) = (serial \ 256) \ 256
wynik(2) = serial \ 256
wynik(3) = serial Mod 256
SerialPort1.Write(wynik, 0, 4)
End Sub
Taka wersja działa  Teraz tylko "uładnić" zapis
Nie napisałem na początki że numer seryjny jest uint32_t ( czyli cztery bajty )
A jaką literaturę polecacie tak na przyszłość gdybym przypadkowo musiał jeszcze coś "mądreg" zrobić w VB/ Poza YouTube
_________________
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