Visual Basic er det programmeringssprog udviklet af Microsoft. Visual Basic er en visuel repræsentation af den klassiske Basic programmeringssprog. Visual Basic 6 er den version af programmeringen program, der blev udgivet før . NET versionen. Mens programmering med Visual Basic, kan du nødt til at få adgang til forskellige dele af computeren , så programmet kan gøre, hvad du har brug for det at gøre. Læs og /eller sende data til de serielle porte på computeren ved at bruge de rigtige Visual Basic kodning. Instruktioner
1

Åbn Microsoft Visual Basic 6 . Den " Nyt projekt " dialogboksen vises, hver gang du åbner VB6 . På " Ny" fanen , klik på " Standard EXE ". Hvis du ønsker at arbejde i et eksisterende projekt , skal du klikke på "Eksisterende " fanen og vælg derefter projektet.
2

Klik på "Projekt " menupunkt og derefter " Tilføj Module ". Klik på "Åbn ", når "Add Module " dialogboksen vises på skærmen .
3

Indtast en funktion til at oprette en instans af den serielle port på computeren. Da de serielle porte er som regel " Com1 " og " Com2 , " bruge dette som en reference til sikre, at du opretter forbindelse til den rigtige serielle port.

"Function OpenSerialPort () som String

Dim getString som String = " "

Dim comSerial som IO.Ports.SerialPort

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

End Function "
4

Indtast den funktion, der vil læse data fra den serielle ved hjælp af " comSerial " variable , som du allerede etableret.

"Function readSerialPort ( comSerial som IO.Ports.SerialPort ) som String

Dim getString som String = " "

Brug comSerial

Gør

Dim Modtagelse As String = comSerial.ReadLine ()
< p> Hvis Modtagelse Er Ingenting Så

Exit Do

Else

returnStr & = Modtager & vbCrLf

End If

Loop < br >

comSerial.Close ()

End Brug

Return getString

End Function "
5

Indtast følgende sub procedure, der sender data til den serielle port. Når denne sub procedure er etableret i dette modul , kan du kalde det fra overalt i det aktuelle projekt til at sende data til serielle porte helst du vælger.

"Sub sendDataToSerial ( ByVal data som String )

Brug comSendData Som IO.Ports.SerialPort = Brug KAYAK

End Sub "
6

videregive oplysningerne til sub procedure ved hjælp af en variabel med navnet " data ". Et eksempel på dette er :

" Dim data As String

data =" Dette er eksempelvis data til at sende til den serielle port Com1 "

Console.WriteLine ( " Skriv data til den serielle port COM1 : "& data)

sendDataToSerial (data )"
7

Placer koden i enhver funktion , metode eller procedure i løbet af projektet til at skrive data til den serielle port. Kør koden ved at trykke på "Ctrl " og " F5 " nøgler sammen .
8

Gem projektet ved at klikke på "Gem" ikonet i værktøjslinjen.