vysielanie do sériovej linky   otázka

VB.NET, WinForms

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)

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback