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

Seleccione idioma Seleccione idioma
Id. de artículo: 904795 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

INTRODUCCIÓN

Para obtener una versión de Visual Studio.NET de este artículo, consulte 823179.
Este artículo paso a paso describe cómo obtener acceso a los puertos serie mediante Microsoft Visual Basic 2005. 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 tener acceso directamente a otros tipos de puertos, como puertos paralelos o puertos USB.

Más información

Para obtener acceso a los puertos serie mediante Visual Basic 2005, siga estos pasos:
  1. Inicie Microsoft Visual Studio 2005.
  2. En el menú archivo , seleccione nuevo y, a continuación, haga clic en proyecto .
  3. En Tipos de proyecto , expanda Visual Basic y, a continuación, haga clic en Windows .
  4. En plantillas , haga clic en Console Application .
  5. En el cuadro nombre , escriba MyConsoleApplication y, a continuación, haga clic en Aceptar .

    De forma predeterminada, se crea el archivo Module1.vb.
  6. Para escribir datos en un puerto serie, agregue el siguiente método 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 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 String
    Data = "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 paralelos en Microsoft Visual Basic. NET, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
823179Cómo tener acceso a puertos serie y puertos paralelos utilizando Microsoft Visual Basic. NET
Para obtener más información acerca de cómo obtener acceso a los puertos serie en Visual Basic 2005, visite los siguientes sitios Web de Microsoft Developer Network (MSDN):
Operaciones de puerto en .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: miércoles, 06 de diciembre de 2006 - Versión: 2.3
La información de este artículo se refiere a:
  • Microsoft Visual Studio 2005 Standard Edition
  • Microsoft Visual Studio 2005 Professional Edition
  • Microsoft Visual Basic 2005
Palabras clave: 
kbmt kbinfo kbhowto kbprogramming KB904795 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 904795

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com