Compartir a través de

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

  • Artículo

En este tema se explica cómo usar My.Computer.Ports para llamar a un módem en Visual Basic.

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

Para llamar un módem

  1. Determine a qué puerto serie está conectado el módem. En este ejemplo se presupone que el módem está en COM1.

  2. Use el método My.Computer.Ports.OpenSerialPort para obtener una referencia al puerto. Para obtener más información, vea OpenSerialPort.

    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

  3. 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

  4. 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 Fragmentos de código.

Compilar el código

Este ejemplo requiere una referencia al espacio de nombres System.

Programación sólida

En este ejemplo se presupone que el módem está conectado a COM1. Es recomendable que el código permita al usuario seleccionar el puerto serie deseado de una lista de puertos disponibles. Para obtener más información, vea How to: Show Available Serial Ports (Cómo: Mostrar los puertos serie disponibles en Visual Basic).

En este ejemplo se usa un bloque Using para asegurarse de que la aplicación cierra el puerto incluso si se produce una excepción. Para obtener más información, vea Using (Instrucción).

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

Vea también