Även om modem har ersatts med hög hastighet till Internet, vissa datorer fortfarande använda dem för kommunikation . Om du programmerar ett program som använder ett modem , kontrollera den finns och fungerar är viktigt för användargränssnittet . Microsoft . NET innehåller ett namn utrymme och klass för att kommunicera med seriella portar . Saker du behöver Review, Visual Studio . NET
Visa fler instruktioner
Öppna ett nytt projekt
1
Skapa en ny konsol ansökan . Från Visual Studio menyn , klicka på " Ny " och välj " Project . "
2
Välj " Visual Basic " på vänster sida av fönstret . På höger sida finns olika projektmallar . Välj " Console Application . " Klicka på " OK " -knappen . En ny ansökan har angetts i Visual Studio arbetsyta .
3
Högerklicka på projektets namn i det övre högra rutan i arbetsytan . Välj " Add Reference ".
4
Klicka på " COM "-fliken . Välj " Microsoft Comm Control 6.0 " från listrutan och klicka på " Välj ". Klicka på " OK " för att stänga referens fönstret .
Setup Serial Port
5
Skapa en ny COM variabel . Du måste allokera minne och deklarera en ny variabel . Texten nedan anropar COM klass för användning i resten av modulen . Bufferten variabel används för att hålla svaret text från den seriella port.Dim myPort Som MSCommmyPort = Ny MSCommDim myBuffer As String
6
Ställ porten till 1 . De flesta datorer levereras med två serieportar . Koden nedan visar kommunikationen till port 1.myPort.CommPort = 1
7
Skapa gemensamma inställningar . Ställ in överföringshastighet och stoppa bit information som är nödvändig för modem kontroll . Denna setsmyPort.Settings = " 9600 , N , 8,1 "
8
Läs hela bufferten . Denna kod gör modemet använda hela bufferten av information när den skickas till den seriella port.myPort.InputLen = 0 Addera Kommunicera med Port
9
Öppna den seriella porten . Den seriella porten behöver öppnas och indatabufferten rensas innan ansökan kan kommunicera med den. Den tredje raden i koden talar om seriell port för att återgå till text till application.myPort.PortOpen = TruemyPort.InBufferCount ( ) = 0myPort.InputMode ( ) = InputModeConstants.comInputModeText
10
Skicka ett kommando till serieport. Detta kommando testar svar från modem.myPort.Output = " ATV1Q0 " & Chr ( 13 )
11
Läs svaret från den seriella porten . Denna slinga läser texten tillbaka tills en " OK " är reached.DomyBuffer = myBuffer & myPort.InputLoop Tills InStr ( myBuffer , " OK " & vbCrLf )
12
Stäng porten . Efter att ha använt den seriella porten , är det viktigt att stänga den för andra applications.myPort.PortOpen = False
