Visual Basic 2010 |
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 |