• 
  

  programmering serieportar med Visual Basic 6

  
  

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.

Previous：nothing Next：hur man utformar ett program dataspel

Relaterade artiklar