Programovanie sériových portov pomocou Visual Basic 6

Visual Basic je programovací jazyk vyvinutý spoločnosťou Microsoft . Visual Basic je vizuálna reprezentácia klasické základné programovací jazyk . Visual Basic 6 je verzia programového aplikácia , ktorá bola vydaná pred NET verzii .. Kým programovanie Visual Basic , budete možno musieť pre prístup rôznych častí počítača , takže program môže robiť to , čo budete potrebovať urobiť . Prečítajte si a /alebo odosielanie dát na sériové porty na počítači pomocou pravého jazyka kódovania . Návod dovolená 1

Otvorte Microsoft Visual Basic 6. Dialógové okno " New Project " sa zobrazí pri každom otvorení VB6 . Na záložke " New " , kliknite na " Štandardné EXE . " Ak chcete pracovať v existujúcom projekte , kliknite na záložku " existujúce " a potom vyberte projekt .
2

Kliknite na " projekte " položky menu a potom " Pridať modul . " Kliknite na " Otvoriť " , keď sa objaví " Pridať modul " dialógové okno na obrazovke .
3

Zadajte funkciu vytvoriť inštanciu sériového portu na počítači . Vzhľadom k tomu , že sériové porty sú zvyčajne " COM1 " alebo " COM2 , " použiť ako referenčná uistite sa , že sa pripájate na správne sériového portu .

" Funkcia OpenSerialPort ( ) ako reťazec

Dim getString ako String = " "

Dim comSerial ako IO.Ports.SerialPort

comSerial = My.Computer.Ports.OpenSerialPort ( " COM1 " )

End Function "
4

Zadajte funkciu , ktorá bude čítať dáta z sériového pomocou " comSerial " premenné , ktoré ste už zavedené .

" Funkcia readSerialPort ( comSerial ako IO.Ports.SerialPort ) ako String

Dim GetString ako String = " "

Použitie comSerial

Dim Príjem As String = comSerial.ReadLine ( )

Ak bol prijímajúci nič Potom

Exit Do

Else

returnStr & = Príjem & vbCrLf

End If

slučky

comSerial.Close ( )

End Použitie

Späť GetString

End Function "
5

Zadajte nasledujúci sub postup , ktorý odosiela dáta do sériového portu . Akonáhle je táto čiastkové postup stanovený v tomto module , môžete volať odkiaľkoľvek v aktuálnom projekte pre odosielanie dát na sériové porty kedykoľvek vybrať .

" Sub sendDataToSerial ( byval dáta ako reťazec )

Použitie comSendData ako IO.Ports.SerialPort = Použitie

End Sub "
6

odovzdať informáciu na čiastkové postup s použitím premennej s názvom " dát . " Príkladom toho je :

" Dim Data As String

dáta = " Toto je príklad dát pre prenos do sériového portu COM1 "

Console.WriteLine ( " napíš dáta na sériový port COM1 : " a ) údaje

sendDataToSerial ( dáta ) "
7

Umiestnite kód v ľubovoľnom funkcie , metódy alebo procesu v rámci projektu zapísať dáta k sériovému portu . Spustiť kód stlačením tlačidla " Ctrl " a " F5 " kľúča spolu .
8

Uložte projekt kliknutím na ikonu " Uložiť " v paneli nástrojov.

• Predchádzajúca strana: Ako používať prístup a zadajte dáta na jednom formulári předplnit Ďalšia 
• Ďalšia strana: Ako používať VBS vrátiť Recordset