Anche se il modem sono stati sostituiti con accesso Internet ad alta velocità, alcuni computer utilizzano ancora per la comunicazione. Se si sta programmando un'applicazione che utilizza un modem, verificare esista e funzioni è importante per l'interfaccia utente. Microsoft.NET include uno spazio dei nomi e una classe di comunicare con le porte seriali.

Istruzioni

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" sul lato sinistro della finestra. Sul lato destro sono diversi modelli di progetto. Selezionare "Applicazione Console". Fare clic sul pulsante "OK". Una nuova applicazione è configurato nell'area di lavoro di Visual Studio.

3

Pulsante destro del mouse il nome del progetto nella casella di destra superiore dell'area di lavoro. Selezionare "Aggiungi riferimento".

4

Scegliere la scheda "COM" selezionare "Microsoft Comm controllo 6.0" dalla casella di riepilogo e fare clic su "Select". Fare clic su "OK" per chiudere la finestra di riferimento.

Configurazione della porta seriale

5

Creare una nuova variabile di COM. È necessario allocare memoria e dichiarare una nuova variabile. Il testo riportato di seguito chiama la classe COM per uso nel resto del modulo. La variabile buffer viene utilizzata per contenere il testo di risposta dalla porta seriale.
Dim myPort come MSComm
myPort = nuovo MSComm
Dim myBuffer As String

6

Impostare la porta 1. Maggior parte dei computer sono dotati di due porte seriali. Il codice riportato di seguito imposta comunicazione alla porta 1.
myPort.CommPort = 1

7

Creare impostazioni comuni. Impostare il baud rate e stop bit informazioni necessarie per il controllo del modem. Questo imposta
myPort.Settings = "9600, N, 8, 1"

8

Leggere l'intero buffer. Questo codice fa sì che il modem utilizza l'intero buffer di informazioni quando vengono inviate alla porta seriale.
myPort.InputLen = 0

Comunicare con la porta

9

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

10

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

11

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

DomyBuffer = myBuffer & myPort.Input

Loop fino a InStr(myBuffer, "OK" & vbCrLf)

12

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