Selv om modemer har blitt erstattet med høyhastighets Internett-tilgang, noen datamaskiner fortsatt bruke dem for kommunikasjon. Hvis du programmerer et program som bruker et modem , bekrefter den eksisterer og fungerer er viktig for brukergrensesnittet. Microsoft. NET inkluderer et navn mellomrom og klasse til å kommunisere med serielle porter . Du trenger
Visual Studio. NET
Vis flere instruksjoner
Åpne et nytt prosjekt
en

Opprett en ny konsoll applikasjon . Fra Visual Studio -menyen , klikk "Ny " og velg "Project ".
2

Velg " Visual Basic" på venstre side av vinduet . På høyre side er ulike prosjekt maler. Velg " Console Application ". Klikk på " OK "-knappen . En ny søknad er oppsett i Visual Studio arbeidsområdet .
3

Høyreklikk på prosjektnavnet i boksen øverst til høyre i arbeidsområdet. Velg " Add Reference . "
4

Klikk på " COM "-kategorien . Velg "Microsoft Comm Kontroll 6,0 " fra listeboksen , og klikk "Velg ". Klikk " OK " for å lukke referansen vinduet.
Setup Serial Port
5

Opprett en ny COM variabel . Du må allokere minne og erklære en ny variabel . Teksten nedenfor kaller COM klasse for bruk i resten av modulen. Bufferen variabelen brukes til å holde responsen tekst fra den serielle port.Dim myPort Som MSCommmyPort = Ny MSCommDim myBuffer As String
6

Angi porten til en . De fleste datamaskiner leveres med to serielle porter . Koden setter under kommunikasjon til port 1.myPort.CommPort = 1
7

Lag vanlige innstillinger . Angi overføringshastigheten og stopp bit informasjon som er nødvendig for modem kontroll. Dette setsmyPort.Settings = " 9600 , N , 8,1 "
8

Les hele buffer . Denne koden gjør modemet bruke hele bufferen av informasjon når de sendes til den serielle port.myPort.InputLen = 0
Kommuniser med Port
9

Åpne seriell port . Den serielle porten må åpnes og inngangsbufferen ryddet før søknaden kan kommunisere med den. Den tredje linjen i koden forteller den serielle porten for å gå tilbake til tekst i application.myPort.PortOpen = TruemyPort.InBufferCount ( ) = 0myPort.InputMode ( ) = InputModeConstants.comInputModeText
10

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

Les svaret fra seriell port . Denne sløyfen leser teksten tilbake til en "OK " er reached.DomyBuffer = myBuffer & myPort.InputLoop Inntil InStr ( myBuffer , "OK " & vbCrLf )
12

Lukk porten. Etter å ha brukt den serielle porten , er det viktig å lukke den for andre applications.myPort.PortOpen = False