Visual Basic är det programmeringsspråk som utvecklats av Microsoft . Visual Basic är en visuell representation av den klassiska Basic programmeringsspråk. Visual Basic 6 är den version av programmering ansökan som släpptes innan . NET version . Även programmering med Visual Basic , kanske du behöver komma åt olika delar av datorn, så att programmet kan göra vad du behöver det för att göra . Läs och /eller skicka data till seriella portar på datorn genom att använda rätt Visual Basic kodning . Instruktioner
1
Öppna Microsoft Visual Basic 6 . Den " Nytt projekt " dialogrutan visas varje gång du öppnar VB6 . På " New " fliken , klicka på " Standard EXE . " Om du vill arbeta i ett befintligt projekt , klicka på " Befintlig " fliken och välj sedan projektet .
2
Klicka på " Projekt " i menyn och sedan " Lägg till modul . " Klicka på " Öppna " när " Add Module " dialogruta visas på skärmen . Addera 3
Skriv in en funktion för att skapa en instans av den seriella porten på datorn . Eftersom de seriella portarna är oftast " Com1 " och " COM2 " använda detta som en referens, så att du ansluter till rätt serieport .
" Function OpenSerialPort ( ) As String
Dim getString som String = " "
Dim comSerial som IO.Ports.SerialPort
comSerial = My.Computer.Ports.OpenSerialPort ( " Com1 " ) katalog
End Function "
4
Skriv in den funktion som kommer att läsa data från den seriella hjälp av " comSerial " variabel som du redan etablerad .
" Function readSerialPort ( comSerial som IO.Ports.SerialPort ) som String
Dim getString som String = " "
Använda comSerial
Gör
Dim emot As String = comSerial.ReadLine ( ) katalog
Om mottagning är ingenting Sedan
Exit Do
Else
returnStr & = Mottagning & vbCrLf
End If
Loop
comSerial.Close ( ) katalog
End Använda
Return getString
End Function "
5
Skriv in följande sub procedur som skickar data till den seriella porten . När detta sub förfarande fastställs i denna modul , kan du ringa det från någonstans i det aktuella projektet att skicka data till seriella portar som helst du väljer .
" Sub sendDataToSerial ( ByVal data som String ) katalog
Använda comSendData Som IO.Ports.SerialPort = Använda
End Sub "
6
vidarebefordra informationen till sub proceduren med en variabel som heter " data . " Ett exempel på detta är :
" Dim uppgifter som sträng
uppgifter = " Detta är exempel data att sända till den seriella porten Com1 "
Console.WriteLine ( " Skriv data till serieporten COM1 : " & uppgifter ) katalog
sendDataToSerial ( data) "
7
Placera koden i någon funktion , metod eller procedur under projektet för att skriva data till den seriella porten . Kör koden genom att trycka " Ctrl " och "F5" tillsammans .
8
Spara projektet genom att klicka på " Spara " -ikonen i verktygsfältet .
