Visual Basic is de programmeertaal ontwikkeld door Microsoft . Visual Basic is een visuele weergave van de klassieke Basic programmeertaal . Visual Basic 6 is de versie van de programmering toepassing die werd uitgebracht vóór de . NET versie . Tijdens het programmeren met Visual Basic , moet u toegang tot de verschillende onderdelen van de computer, zodat het programma kan doen wat je nodig hebt om te doen . Lees en /of data naar de seriële poorten op de computer met behulp van de juiste Visual Basic codering . Instructies
Open Microsoft Visual Basic 6 1 . De " New Project" dialoogvenster verschijnt iedere keer dat je VB6 openen. Op het tabblad " Nieuw" , klik op " Standard EXE . " Als je wilt werken in een bestaand project , klikt u op het tabblad " Bestaand " en selecteer vervolgens het project .
Klik 2 op de " Project " menu en vervolgens ' Voeg Module . " Klik op " Open" wanneer de " Add Module " dialoogvenster verschijnt op het scherm .
Typ in een functie om een instantie van de seriële poort op de computer te maken 3 . Sinds de seriële poorten zijn meestal " Com1 " en " Com2 , ' gebruik dit als referentie om ervoor te zorgen dat u verbinding maakt met de juiste seriële poort . " Function OpenSerialPort ( ) op als String
Dim getString als String = " "
Dim comSerial zoals IO.Ports.SerialPort
comSerial = My.Computer.Ports.OpenSerialPort ( " Com1 " ) End Function
"
Type 4 in de functie die de gegevens uit de serie met de " comSerial ' variabele die u reeds zult lezen . " Function readSerialPort
( comSerial als IO.Ports.SerialPort ) als String Dim getString
als String = " "
gebruiken comSerial
Do
Dim ontvangen als Koord = comSerial.ReadLine ( ) op Als ontvangen dan niets is Exit Verlanglijstje
Else returnStr & = Ontvangst & vbCrLf End
Als Loop
< br comSerial.Close ( ) > End of gebruik Terug getString End Function "
Type
5 in de volgende sub- procedure die data naar de seriële poort stuurt . Zodra deze sub procedure is vastgelegd in deze module , kunt u het bellen vanaf elke plek in het huidige project om gegevens te verzenden naar de seriële poorten elk moment dat u kiest . " Sub sendDataToSerial ( ByVal gegevens als Koord ) op Twitter behulp comSendData Zoals IO.Ports.SerialPort = Met behulp End of Sub "
6 de informatie doorgeven aan de sub procedure met behulp van een variabele genaamd " data . " Een voorbeeld hiervan is :
" Dim data As String databank = " Dit is bijvoorbeeld te verzenden data naar de seriële poort COM1 " Console.WriteLine
( " Write de gegevens op de seriële poort COM1 : " & data ) op Twitter sendDataToSerial ( data ) "
Place 7 de code in een functie , methode of procedure tijdens het project om de gegevens te schrijven op de seriële poort . Voer de code door op de " Ctrl " en toets " F5 " samen .
8 Sla het project door te klikken op de " Opslaan" -pictogram in de werkbalk .
|
