Cómo tener acceso a los puertos serie mediante Visual Basic 2005

INTRODUCCIÓN

Para una versión de Microsoft Visual Studio .NET de este artículo, consulte 823179 .

En este artículo paso a paso se describe cómo tener acceso a los puertos serie mediante Microsoft Visual Basic 2005. En este artículo también contiene ejemplos de código que ilustran los conceptos que se tratan.

Nota: No puede utilizar las clases de Microsoft.NET Framework para obtener acceso directamente a otros tipos de puertos, como puertos paralelos o USB.

Más información

Para tener acceso a los puertos serie mediante Visual Basic 2005, siga estos pasos:
  1. Inicie Microsoft Visual Studio 2005.
  2. En el menú archivo , elija
    De nuevoy, a continuación, haga clic en proyecto.
  3. En Tipos de proyecto, expanda Visual Basicy, a continuación, haga clic en Windows.
  4. En plantillas, haga clic en Aplicación de consola.
  5. En el cuadro nombre , escriba
    MyConsoleApplicationy, a continuación, haga clic en
    OK.

    De forma predeterminada, se crea el archivo Module1.vb.
  6. Para escribir datos en un puerto serie, agregue el siguiente método de SendSerialData al archivo Module1.vb.
    Sub SendSerialData(ByVal data As String)    ' Send strings to a serial port.
    Using com1 As IO.Ports.SerialPort = _
    My.Computer.Ports.OpenSerialPort("COM1")
    com1.WriteLine(data)
    com1.Close()
    End Using
    End Sub
  7. Para leer datos de un puerto serie, agregue la siguiente función de ReceiveSerialData al archivo Module1.vb.
    Function ReceiveSerialData() As String    ' Receive strings from a serial port.
    Dim returnStr As String = ""

    Using com1 As IO.Ports.SerialPort = _
    My.Computer.Ports.OpenSerialPort("COM1")
    Do
    Dim Incoming As String = com1.ReadLine()
    If Incoming Is Nothing Then
    Exit Do
    Else
    returnStr &= Incoming & vbCrLf
    End If
    Loop
    com1.Close()
    End Using

    Return returnStr
    End Function
  8. Para leer y escribir datos en un puerto serie, agregue el código siguiente al procedimiento Sub Main .
    Dim Data As StringData = "Test"

    Console.WriteLine("Writing the following data to COM1: " & Data)
    SendSerialData(Data)

    Console.WriteLine("Read the following data from COM1: " & ReceiveSerialData())

    Console.WriteLine("Press ENTER to quit")
    Console.ReadLine()
  9. Para ejecutar la solución, presione CTRL + F5.

Referencias

Para obtener más información acerca de cómo tener acceso a los puertos serie y puertos paralelo en Microsoft Visual Basic. NET, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:

823179 cómo tener acceso a los puertos serie y puertos paralelo utilizando Microsoft Visual Basic .NET

Para obtener más información acerca de cómo tener acceso a los puertos serie en Visual Basic 2005, visite los siguientes sitios Web de Microsoft Developer Network (MSDN):
Operaciones de puertos en el.NET Framework con Visual Basic
http://msdn2.microsoft.com/en-us/library/ms172760.aspx

Objeto My.Computer.Ports
http://msdn2.microsoft.com/en-us/library/e4560dx9.aspx
Propiedades

Id. de artículo: 904795 - Última revisión: 17 ene. 2017 - Revisión: 1

Comentarios