Cómo: Marcar a través de módems conectados a puertos serie en Visual Basic

Artículo
08/23/2008

Actualización: noviembre 2007

En este tema se describe cómo utilizar My.Computer.Ports para marcar en un módem en Visual Basic.

Normalmente, el módem se conecta a uno de los puertos serie del equipo. Para que su aplicación se comunique con el módem, debe enviar los comandos al puerto serie adecuado.

Para marcar en un módem

Determine a qué puerto serie está conectado el módem. En este ejemplo se presupone que el módem está en COM1.
Utilice el método My.Computer.Ports.OpenSerialPort para obtener una referencia al puerto. Para obtener más información, vea My.Computer.Ports.OpenSerialPort (Método).

El bloque Using permite a la aplicación cerrar el puerto serie aun cuando se genere una excepción. Todo el código que manipula el puerto serie debe aparecer dentro de este bloque o dentro de un bloque Try...Catch...Finally.
```
Using com1 As IO.Ports.SerialPort = _
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using
```
Establezca la propiedad DtrEnable para indicar que el equipo está listo para aceptar una transmisión de entrada procedente del módem.
```
com1.DtrEnable = True
```
Envíe el comando de marcar y el número de teléfono al módem a través del puerto serie por medio del método Write.
```
com1.Write("ATDT 555-0100" & vbCrLf)
```

Ejemplo

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

Este ejemplo de código también está disponible como fragmento de código de IntelliSense. En el selector de fragmentos de código, se encuentra en Conectividad y redes. Para obtener más información, vea Cómo: Insertar fragmentos de código en el código (Visual Basic).

Compilar el código

Este ejemplo requiere una referencia al espacio de nombres System.

Programación eficaz

Este ejemplo supone que el módem está conectado a COM1. Es recomendable que el código permita al usuario seleccionar el puerto serie deseado en una lista de puertos disponibles. Para obtener más información, vea Cómo: Mostrar los puertos serie disponibles en Visual Basic.

Este ejemplo utiliza un bloque Using para asegurarse de que la aplicación cierra el puerto aun cuando produzca una excepción. Para obtener más información, vea Instrucción Using (Visual Basic).

En este ejemplo, la aplicación desconecta el puerto serie después de marcar en el módem. En realidad, deseará transferir datos al módem y desde él. Para obtener más información, vea Cómo: Recibir cadenas de puertos serie en Visual Basic.