Visual Basic is een event - driven programmeertaal geproduceerd door Microsoft . De originele programmeertaal en geïntegreerde ontwikkelomgeving is bedoeld om de COM- programmeermodel ondersteunen . De huidige versie van Visual Basic is volledig geïntegreerd in het Microsoft . NET ontwikkelomgeving. Visual Basic is ook kabel van het programmeren van de computer seriële poorten als je een behoefte te openen of te wijzigen computer periferie bij uw aanvraag door het gebruik van de MSComm controle die wordt opgenomen in Visual Basic . Wat je nodig hebt Microsoft Visual Studio . NET Integrated Development Environment Toon Meer Aanwijzingen 1 Open Microsoft Visual Studio en selecteer " File - > New - > project " uit het menu primaire bestand . Kies dan " Project Types - > Visual Basic Projects " en selecteer de " Console Application " onder het menu -sjablonen. Kopen van 2 rechtermuisknop op het pictogram project en selecteer de " Add Reference " menu-optie . Vervolgens kiest u de " Com " tab menu en selecteer " Microsoft Comm.regeling 6.0 " die wordt vermeld onder "Component Name " . Kies " Select " , gevolgd door de "OK" knop . 3 Dubbelklik op het programma module zichtbaar in de Visual Basic IDE . Dit zal de programmeervenster de volgende programmeer code opent Ingang 4 op de seriële poort data structuren die zullen worden gebruikt om de seriële poort , eenmaal geopend manipuleren initialiseren : . Dim MSComm1 als MSCommMSComm1 = Nieuwe MSCommDim Buffer StringMSComm1.CommPort = 1MSComm1.Settings = " 9600 , N , 8,1 " MSComm1.InputLen = 0 5 Open de seriële poort door het opnemen van de volgende programmeer code na de laatste regel code in ingevoerde stap 4 : MSComm1.PortOpen = TrueMSComm1.InputMode ( ) = InputModeConstants.comInputModeTextMSComm1.InBufferCount ( ) = 0MSComm1.Output = " ATV1Q0 " & Chr ( 13 ) 6 Manipuleer de seriële poort informatie en vervolgens sluit de seriële poort door het invoeren van de volgende code aan de onderkant van het programmeren in Visual Basic -module : DoBuffer = Buffer & MSComm1.InputLoop Tot InStr ( Buffer , " OK " & vbCrLf ) MSComm1.PortOpen = FalseConsole.WriteLine ( " Sluit de seriële poort . " ) endmodule 7 Selecteer de " CTRL + F5 "toetsen gelijktijdig in te bouwen en draaien het project .
|