dotNETportal.cz

dobrý deň,

nemám s vb veľa skúsenosti a riešim odosielanie nejakých dát do sériovej linky a chcel by som poprosiť o pomoc či sa táto funkcia nedá nejak elegantnejšie alebo jednoduchšie napísať. V listboxe mám uložene dáta a potrebujem ich skombinovať s log. OR 0x80H a vyslať na linku. Potrebujem takto poslať aj 64bajtov ale príde mi blbosť vypísať takto 64 riadkov... Vďaka vopred za rady

Dim a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 As Byte
Dim prikaz As Byte = &H1C

        a0 = CByte("&H" & List.SelectedItem(0)) Or 128 '&H80
        a1 = CByte("&H" & List.SelectedItem(1)) Or 128 '&H80
        a2 = CByte("&H" & List.SelectedItem(2)) Or 128 '&H80
        a3 = CByte("&H" & List.SelectedItem(3)) Or 128 '&H80
        a4 = CByte("&H" & List.SelectedItem(4)) Or 128 '&H80
        a5 = CByte("&H" & List.SelectedItem(5)) Or 128 '&H80
        a6 = CByte("&H" & List.SelectedItem(6)) Or 128 '&H80
        a7 = CByte("&H" & List.SelectedItem(7)) Or 128 '&H80
        a8 = CByte("&H" & List.SelectedItem(8)) Or 128 '&H80
        a9 = CByte("&H" & List.SelectedItem(9)) Or 128 '&H80
        a10 = CByte("&H" & List.SelectedItem(10)) Or 128 '&H80
        a11 = CByte("&H" & List.SelectedItem(11)) Or 128 '&H80
        a12 = CByte("&H" & List.SelectedItem(12)) Or 128 '&H80
        a13 = CByte("&H" & List.SelectedItem(13)) Or 128 '&H80
        a14 = CByte("&H" & List.SelectedItem(14)) Or 128 '&H80
        a15 = CByte("&H" & List.SelectedItem(15)) Or 128 '&H80

        Dim STX As Byte = &H2 '2
        Dim ETX As Byte = &H3 '3
        Dim Buffer() As Byte = {STX, prikaz, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, ETX}
        SerialPort1.Write(Buffer, 0, 19)