Visual Basic er programmeringsspråk utviklet av Microsoft. Visual Basic er en visuell representasjon av den klassiske Basic programmeringsspråk. Visual Basic 6 er versjonen av programmeringsspråket programmet som ble utgitt før . NET versjon . Mens programmering med Visual Basic, kan du trenger tilgang til forskjellige deler av datamaskinen, slik at programmet kan gjøre hva du trenger den å gjøre . Les og /eller sende data til en av inngangene på datamaskinen ved hjelp av høyre Visual Basic koding. Instruksjoner
en

Åpne Microsoft Visual Basic 6 . The "New Project " dialogboksen vises hver gang du åpner VB6. På "Ny "-kategorien , klikk på " Standard EXE ". Hvis du ønsker å jobbe i et eksisterende prosjekt , klikk på "Eksisterende "-fanen og deretter velger du prosjektet .
2

Klikk på "Project " menyen og deretter " Legg Module ". Klikk "Open" når " Add Module" dialogboks vises på skjermen .
3

Skriv inn en funksjon for å opprette en forekomst av den serielle porten på datamaskinen. Siden de serielle porter er som regel " Com1 " og " COM2 ", bruker dette som en referanse for å sikre at du kobler deg til høyre seriell port .

"Function OpenSerialPort ( ) som String

Dim getString som String = ""

Dim comSerial som IO.Ports.SerialPort

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

End Function "
4

Skriv inn den funksjonen som vil lese data fra den serielle bruke " comSerial " variable som du allerede er etablert .

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

Dim getString som String = ""

hjelp comSerial

Dim Motta As String = comSerial.ReadLine ( )
< p> Hvis Motta Er Ingenting Deretter

Exit Do

Else

returnStr & = Mottar & vbCrLf

End If

Loop

comSerial.Close ( )

End hjelp

Return getString

End Function "
5

Skriv inn følgende sub prosedyre som sender data til den serielle porten. Når dette sub prosedyren er etablert i denne modulen , kan du kalle det fra hvor som helst i det aktuelle prosjektet for å sende data til en av inngangene som helst du velger.

" Sub sendDataToSerial ( ByVal data som String )

hjelp comSendData Som IO.Ports.SerialPort = Ved hjelp

End Sub "
6

Pass informasjonen til sub prosedyren ved hjelp av en variabel som heter " data ". Et eksempel på dette er :

" Dim data som streng

data =" Dette er eksempel data å overføre til den serielle porten Com1 "

Console.WriteLine ( " Skriv dataene til seriell port COM1 : "& data)

sendDataToSerial ( data )"
7

Plasser koden i hvilken som helst funksjon , metode eller prosedyre i løpet av prosjektperioden å skrive data til den serielle porten. Kjør koden ved å trykke " Ctrl" og " F5 " tastene sammen.
8

Lagre prosjektet ved å klikke på "Lagre "-ikonet på verktøylinjen.