Anche se i modem sono stati sostituiti con accesso a Internet ad alta velocità, alcuni computer ancora li utilizzano per la comunicazione. Se si programma un'applicazione che utilizza un modem, verificando che esista e funzioni è importante per l'interfaccia utente. Microsoft .NET include uno spazio nome e la classe di comunicare con le porte seriali.

istruzione

Aprire un nuovo progetto

1 Creare una nuova applicazione console. Dal menu di Visual Studio, fare clic su "Nuovo" e selezionare "Progetto".

2 Selezionare "Visual Basic" nella parte sinistra della finestra. Sul lato destro sono diversi modelli di progetto. Selezionare "Applicazione console." Fare clic sul pulsante "OK". Una nuova applicazione è installata nello studio di lavoro visiva.

3 Fare clic con il nome di progetto nella casella in alto a destra nell'area di lavoro. Selezionare "Add Reference".

4 Fare clic sulla scheda "COM". Selezionare "Microsoft Comm Control 6.0" dalla casella di riepilogo e fare clic su "Select". Fai clic su "OK" per chiudere la finestra di riferimento.

Imposta la porta seriale

5 Creare una nuova variabile COM. È necessario allocare la memoria e dichiarare una nuova variabile. Il seguente testo chiama la classe COM per l'uso nel resto del modulo. La variabile del buffer è usata per contenere il testo di risposta dalla porta seriale.
Dim myport Come MSComm
myport = Nuovo MSComm
Dim mybuffer As String

6 Impostare la porta a 1. La maggior parte dei computer sono dotati di due porte seriali. Il codice seguente imposta la comunicazione alla porta 1.
myPort.CommPort = 1

7 Creare impostazioni comuni. Impostare la velocità di trasmissione e fermare le informazioni necessarie per il bit di controllo del modem. questo imposta
myPort.Settings = "9600, N, 8,1"

8 Leggi l'intero buffer. Questo codice rende il modem utilizzare l'intero buffer di informazioni quando vengono inviati alla porta seriale.
myPort.InputLen = 0

Comunicare con la porta

9 Aprire la porta seriale. La porta seriale deve essere aperto e il buffer di input cancellato prima che l'applicazione in grado di comunicare con esso. La terza linea di codice indica la porta seriale per tornare testo per l'applicazione.
myPort.PortOpen = True
myPort.InBufferCount () = 0
myPort.InputMode () = InputModeConstants.comInputModeText

10 Inviare un comando alla porta seriale. Questo comando verifica la risposta del modem.
myPort.Output = "ATV1Q0" & Chr (13)

11 Leggi la risposta dalla porta seriale. Questo ciclo legge il testo restituito finché un "OK" viene raggiunto.

DomyBuffer = myBuffer & myPort.Input

Loop Fino InStr (mybuffer, "OK" & vbCrLf)

12 Chiudere la porta. Dopo aver utilizzato la porta seriale, è importante per chiuderla per altre applicazioni.
myPort.PortOpen = False