Lenguaje de programación Visual Basic .Net
Mostramos una función que obtiene los puertos serie (COM) disponibles en un equipo. Obtiene el nombre de cada puerto serie del equipo (COM1, COM2, COM3, ...). Para ello usaremos Microsoft Visual Basic .Net y el espacio de nombres Computer.Ports.SerialPortNames.
Function obtenerPuertosSeriePC() As List(Of String)
Dim puertosSerie As List(Of String)
puertosSerie = New List(Of String)
Try
puertosSerie = New List(Of String)
For Each puertosSerieObtenidos As String In My.Computer.Ports.SerialPortNames
puertosSerie.Add(puertosSerieObtenidos)
Next
obtenerPuertosSeriePC = puertosSerie
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical +
MsgBoxStyle.OkOnly)
obtenerPuertosSeriePC = puertosSerie
End Try
End Function
Ejemplo de llamada y uso:
Private Sub btObtenerPuertos_Click(sender As System.Object,
e As System.EventArgs) Handles btObtenerPuertos.Click
Dim puertosSerie As List(Of String)
Dim i As Integer
txtPuerto.Items.Clear()
puertosSerie = obtenerPuertosSeriePC()
For i = 0 To puertosSerie.Count - 1
txtPuerto.Items.Add(puertosSerie(i).ToString)
Next
If txtPuerto.Items.Count >= 1 Then
txtPuerto.Text = txtPuerto.Items(0)
Else
txtPuerto.Text = ""
End If
If puertosSerie.Count = 0 Then
MsgBox("No se han detectado puertos serie en su equipo, " +
"asegúrese de que están correctamente configurados.",
MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
End If
End Sub
Publicado el: 2011-08-14