Selvom modemer er blevet erstattet med højhastighedsadgang til internettet , nogle computere stadig bruge dem til kommunikation. Hvis du programmere en applikation, der bruger et modem , verificere det eksisterer og fungerer er vigtigt for brugergrænsefladen . Microsoft. NET indeholder et navn plads og klasse til at kommunikere med serielle porte . Ting du skal
Visual Studio. NET
Vis Flere Instruktioner
Åbn et nyt projekt
1

Opret en ny konsol applikation . Fra Visual Studio menuen, klik på "Ny " og vælg " projekt".
2

Vælg " Visual Basic " i venstre side af vinduet . På højre side er forskellige projekt skabeloner. Vælg "Console Application ". Klik på " OK " knappen. Et nyt program er setup i Visual Studio arbejdsområdet.
3

Højreklik på projektets navn i øverste højre boks i arbejdsområdet. Vælg " Tilføj kommissorium. "
4

Klik på " COM" fanebladet . Vælg "Microsoft Comm Control- 6.0 " fra listbox , og klik på " Vælg ". Klik på "OK " for at lukke henvisningen vinduet .
Setup Serial Port
5

Opret en ny COM variabel. Du er nødt til at allokere hukommelse og erklære en ny variabel . Nedenstående tekst kalder COM klassen til brug i resten af modulet . Bufferen variabel bruges til at holde svaret tekst fra den serielle port.Dim myPort Som MSCommmyPort = Ny MSCommDim myBuffer As String
6

Indstil porten til 1. . De fleste computere leveres med to serielle porte . Koden nedenfor viser kommunikationen til port 1.myPort.CommPort = 1
7

Opret almindelige indstillinger . Indstil baudrate og stop bit nødvendige oplysninger til modem kontrol. Denne setsmyPort.Settings = " 9600 , N, 8,1 "
8

Læs hele buffer. Denne kode gør modemet bruge hele buffer af oplysninger , når de sendes til den serielle port.myPort.InputLen = 0
Kommunikere med Port
9

Åbn den serielle port . Den serielle port skal åbnes og input buffer ryddet før ansøgningen kan kommunikere med den. Den tredje linje kode fortæller den serielle port til at returnere tekst til application.myPort.PortOpen = TruemyPort.InBufferCount () = 0myPort.InputMode () = InputModeConstants.comInputModeText
10

Send en kommando til seriel port . Denne kommando tester svar fra modem.myPort.Output = " ATV1Q0 " & Chr (13)
11

Læs svaret fra den serielle port. Denne løkke læser teksten igen, før et "OK" er reached.DomyBuffer = myBuffer & myPort.InputLoop Indtil InStr ( myBuffer , "OK" & vbCrLf )
12

Luk porten. Efter brug af seriel port, er det vigtigt at lukke det for andre applications.myPort.PortOpen = False