Visual Basic är det programmeringsspråk utvecklat av Microsoft . Visual Basic är en visuell representation av den klassiska grundläggande programmeringsspråk. Visual Basic 6 är den version av programperioden program som har släppts innan . NET -versionen. Även programmering med Visual Basic kan du behöva få tillgång till olika delar av datorn så att programmet kan göra vad du behöver göra . Läs och /eller skicka data till den seriella portarna på datorn genom att använda rätt Visual Basic kodning
1 .
Öppna Microsoft Visual Basic 6 . Den ” nya projekt ” dialogruta visas varje gång du öppnar VB6 . På den ”nya ” fliken , klicka på ” Standard EXE . ” Om du vill arbeta i ett befintligt projekt , klicka på ”Befintliga ” fliken och välj sedan projektet .
2 .
Klicka på ” Projekt ”i menyn och sedan ” Add Module . ” Klicka på ” Öppna ” när ” Lägg modul ” dialogrutan visas på skärmen .
3 .
Skriv in en funktion för att skapa en instans av den seriella porten på datorn . Eftersom seriella portar vanligtvis ”COM1 ” och ” COM2 , ” använda detta som en hänvisning till att du ansluter till rätt serieport .
” Funktion OpenSerialPort ( ) som String
Dim getString som String=” ”
Dim comSerial Som IO. Ports. SerialPort
comSerial=My. Computer. Ports. OpenSerialPort ( ”COM1 ” )
End Function ”
4 .
Skriv in den funktion som kommer att läsa data från det seriella hjälp av ” comSerial ” variabel som du redan är etablerad.
” Funktion readSerialPort ( comSerial som IO. Ports. SerialPort ) som String
Dim getString som String=” ”
Använda comSerial
Har
Dim emot As String=comSerial . Readline ( )
Om mottagande är ingenting då
Exit Do
Else
returnStr =mottagande vbCrLf
End If
Loop
comSerial. Close ( )
ändan med
Return getString
End Function ”
5 .
Skriv in följande sub förfarande som skickar data till den seriella porten . När denna sub förfarandet är etablerad i den här modulen kan du ringa från var som helst i det aktuella projektet att skicka data till den seriella portar som helst du vill.
” Sub sendDataToSerial ( ByVal data som String)
Använda comSendData Som IO. Ports. SerialPort=My. Computer. Ports. OpenSerialPort ( ” COM1 ” )
comSendData. WriteLine ( data )
comSendData. Close ( )
End Använda
End Sub ”
6 .
förmedla informationen till sub förfarandet med en variabel som heter ” data ”. Ett exempel på detta är :
” Dim data As String
data=” Detta är exempel Data som skall överföras till den seriella porten COM1 ”
Console . WriteLine ( ” skriva data till den seriella porten COM1 : ” data )
sendDataToSerial ( data) ”
7
placera koden i en funktion . , till metod eller förfarande under projektets skriva data till den seriella porten . Kör koden genom att trycka på ”Ctrl ”och ”F5 ” knappen samtidigt.
8 .
Spara projektet genom klicka på ” Spara ” -ikonen i verktygsfältet.
コメント