Zelfs als modems zijn vervangen met high speed internet toegang , nog enkele computers te gebruiken voor communicatie . Als u een toepassing die gebruik maakt van een modem , het verifiëren van het programmeren is dat het bestaat en functies is van belang voor de gebruikersinterface . Microsoft . NET bevat een naam ruimte en klasse om te communiceren met seriële poorten . Wat je nodig hebt Visual Studio . NET Toon Meer Aanwijzingen Open een nieuw project 1 Maak een nieuwe console applicatie . Vanuit de Visual Studio -menu op "Nieuw" en selecteer " Project . " Kopen van 2 Selecteer " Visual Basic " aan de linkerzijde van het venster . Aan de rechterkant zijn verschillende project templates . Selecteer " Console Application . " Klik op de knop "OK " . Een nieuwe applicatie is opgezet in de Visual Studio werkruimte . 3 Rechtsklik op de naam van het project in de rechterbovenhoek box aan de werkruimte . Selecteer " Add Reference . " 4 Klik op de tab "COM" . Selecteer " Microsoft Comm.regeling 6.0 " uit de keuzelijst en klik op ' Kies '. Klik op " OK " om de referentie- venster te sluiten . Setup de Serial Port 5 Maak een nieuwe COM variabele . Je nodig hebt om geheugen toe te wijzen en verklaren een nieuwe variabele . De tekst hieronder noemt de COM klasse voor gebruik in de rest van de module . De buffer variabele wordt gebruikt om de reactie van de tekst houden van de seriële port.Dim MIJNPOORT Zoals MSCommmyPort = Nieuwe MSCommDim myBuffer als Koord 6 Stel de poort naar 1 . De meeste computers worden geleverd met twee seriële poorten . De onderstaande code stelt communicatie op poort 1.myPort.CommPort = 1 7 Maak gemeenschappelijke instellingen . Stel de baud rate en stop bit informatie die nodig is voor de modem controle. Deze setsmyPort.Settings = " 9600 , N , 8,1 " 8 Lees het hele buffer . Deze code maakt het modem de gehele buffer van de informatie wordt verzonden naar de seriële port.myPort.InputLen = 0 Communiceer met de Port 9 Open de seriële poort . De seriële poort moet worden geopend en de input buffer gewist voordat de applicatie kan communiceren. De derde regel code vertelt de seriële poort naar de tekst terug te keren naar de application.myPort.PortOpen = TruemyPort.InBufferCount ( ) = 0myPort.InputMode ( ) = InputModeConstants.comInputModeText 10 Stuur een commando om de seriële poort . Dit commando test de reactie van de modem.myPort.Output = " ATV1Q0 " & Chr ( 13 ) 11 Lees de reactie van de seriële poort . Deze lus leest het terug tot een "OK " is reached.DomyBuffer = myBuffer & myPort.InputLoop Tot InStr ( myBuffer , " OK " & vbCrLf ) op Twitter 12 Sluit de poort tekst . Na gebruik van de seriële poort , is het belangrijk om te sluiten voor andere applications.myPort.PortOpen = False
|