Comment : passer des appels avec des modems attachés aux ports série dans Visual Basic

Article
06/10/2015

Cette rubrique montre comment utiliser My.Computer.Ports pour appeler un modem avec Visual Basic.

En général, le modem est connecté à l'un des ports série de l'ordinateur. Pour que votre application communique avec le modem, elle doit envoyer des commandes au port série approprié.

Pour utiliser un modem

Déterminez le port série auquel le modem est connecté. Cet exemple suppose que le modem est connecté à COM1.
Utilisez la méthode My.Computer.Ports.OpenSerialPort pour obtenir une référence au port. Pour plus d'informations, consultez OpenSerialPort.

Le bloc Using permet à l'application de fermer le port série même s'il génère une exception. Tout le code qui manipule le port série doit apparaître dans ce bloc ou dans un bloc Try...Catch...Finally.
```
Using com1 As IO.Ports.SerialPort = 
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using
```
Définissez la propriété DtrEnable pour indiquer que l'ordinateur est prêt à accepter une transmission entrante du modem.
```
com1.DtrEnable = True
```
Envoyez la commande de numérotation et le numéro de téléphone au modem via le port série à l'aide de la méthode Write.
```
com1.Write("ATDT 555-0100" & vbCrLf)
```

Exemple

Sub DialModem()
    ' Dial a number via an attached modem on COM1. 
    Using com1 As IO.Ports.SerialPort = 
            My.Computer.Ports.OpenSerialPort("COM1", 9600)
        com1.DtrEnable = True
        com1.Write("ATDT 555-0100" & vbCrLf)
        ' Insert code to transfer data to and from the modem. 
    End Using 
End Sub

Cet exemple de code est également disponible sous forme d'extrait de code IntelliSense. Dans le sélecteur d'extrait de code, il se trouve dans Connectivité et réseau. Pour plus d'informations, consultez Extraits de code.

Compilation du code

Cet exemple requiert une référence à l'espace de noms System.

Programmation fiable

Cet exemple suppose que le modem est connecté à COM1. Nous recommandons que votre code permette à l'utilisateur de sélectionner le port série souhaité dans une liste de ports disponibles. Pour plus d'informations, consultez Comment : afficher les ports série disponibles dans Visual Basic.

Cet exemple utilise un bloc Using pour vérifier que l'application ferme le port même si une exception est levée. Pour plus d'informations, consultez Using, instruction (Visual Basic).

Dans cet exemple, l'application déconnecte le port série après avoir utilisé le modem. Dans la pratique, vous souhaitez éventuellement transférer des données au modem et vice versa. Pour plus d'informations, consultez Comment : recevoir des chaînes des ports série dans Visual Basic.