Ako čítať sériových portov pomocou jazyka Visual Basic

Aj keď modemy boli nahradené s vysokorýchlostným pripojením k internetu , niektoré počítače stále používať pre komunikáciu . Ak programujete aplikáciu, ktorá používa modem , overenie , že existuje , a funkcia je dôležitá pre užívateľské rozhranie . Microsoft . NET obsahuje menný priestor a triedu komunikovať so sériovými porty . Veci , ktoré budete potrebovať
Visual Studio . NET
Zobraziť ďalšie inštrukcie
Otvorte nový projekt
1

Vytvorenie novej aplikácie konzoly . Z ponuky Visual Studio , kliknite na tlačidlo " Nový" a zvoľte " Projekt " .
2

vyberte " Visual Basic " na ľavej strane okna . Na pravej strane sú rôzne šablóny projektu . Vyberte " Console Application . " Kliknite na tlačidlo " OK " . Nová aplikácia je nastavenie v aplikácii Visual Studio priestoru .
3

Pravým tlačidlom myši na názov projektu v pravom hornom poli v priestore . Vyberte " Pridať odkaz " .
4

Kliknite na kartu " COM " . Vyberte " Microsoft Comm Control 6.0 " z listbox , a kliknite na tlačidlo " Vybrať " . Kliknite na tlačidlo " OK " zatvorte referenčné okno .
Nastavenie sériového portu
5

Vytvoriť nový COM premennú . Musíte prideliť pamäť a deklarovať novú premennú . V ďalšom texte volá triedu COM pre použitie vo zvyšku modulu . Vyrovnávacia premenná sa používa na držanie texte odpovede od sériového port.Dim MyPort Ako MSCommmyPort = Nové MSCommDim myBuffer As String
Praha 6

Nastavte port na 1. Väčšina počítačov sa dodáva s dvoma sériovými porty. Nasledujúci kód nastaví komunikáciu na porte 1.myPort.CommPort = 1
7

Vytvorenie spoločné nastavenie . Nastavte prenosovú rýchlosť a stop bit informácie potrebné pre riadenie modemu . Tento setsmyPort.Settings = " 9600 , N , 8,1 "
8

Prečítajte si celý vyrovnávacej pamäti . Tento kód je modem použiť celú vyrovnávaciu pamäť informácií pri odoslaní do sériového port.myPort.InputLen = 0
Komunikujte s prístavu
9

Otvorte sériový port . Sériový port musí byť otvorený a vstupné buffer vymazaný , než sa aplikácia môže komunikovať s ním . Tretí riadok kódu hovorí sériový port vrátiť text na application.myPort.PortOpen = TruemyPort.InBufferCount ( ) = 0myPort.InputMode ( ) = InputModeConstants.comInputModeText
10

Odoslať príkaz sériový port . Tento príkaz testuje reakcie z modem.myPort.Output = " ATV1Q0 " & Chr ( 13 )
11

Prečítajte si odpovede od sériového portu . Táto slučka číta text sa vrátil do " OK " je reached.DomyBuffer = myBuffer & myPort.InputLoop Do Instru ( myBuffer , " OK " a vbCrLf )
12

Zatvorte port . Po použití sériového portu , je dôležité , aby ste ho zavreli za iný applications.myPort.PortOpen = False

• Predchádzajúca strana: Ako Ping pomocou jazyka Visual Basic 
• Ďalšia strana: Ako volať Premenné prostredia Z jazyka