1

Intento establecer la comunicación entre dos ordenadores conectados por puerto serie (COM).

Para abrir el puerto lo hago así:

Dim puerto As IO.Ports.SerialPort = Nothing
Me.puerto = New IO.Ports.SerialPort
Me.puerto.PortName = Me.cmbPuertoCOM.Text
Me.puerto.BaudRate = 9600
Me.puerto.Parity = IO.Ports.Parity.None
Me.puerto.DataBits = 8
Me.puerto.StopBits = 1
If Me.comEAN.IsOpen Then
   Me.comEAN.Close()
Else
   Me.comEAN.Open()
EndIf

El problema llega cuando hay veces que me dice que no puedo abrir el puerto y veo que realmente no está abierto por ningún otro proceso. Esto me ha llegado a pasar incluso tras ejecutar el programa después de encender el ordenador.

En PowerShell con la orden:

Get-WMIObject Win32_SerialPort

Me dice que el StatusInfo es 2 y por lo que he buscado pone que es Unknown (Desconocido). Si voy al Administrador de Dispositivos y deshabilito y vuelvo a habilitar el puerto, cuando vuelvo a ejecutar el código de PowerShell me dice que el StatusInfo es 3. He actualizado el controlador del puerto COM pero sigue igual. De hecho hay veces que sin apagar el ordenador aunque me abra el puerto y pueda ejecutar el programa, si pasa un tiempo y no estoy haciendo nada en el ordenador hay veces que le vuelve a pasar.

Por si sirve de algo, para cerrar el puerto pongo:

Me.puerto.Close()
Me.puerto.Dispose()

Me gustaría saber si o bien hay alguna manera de deshabilitar y volver a habilitar el puerto desde código, o poder saber el StatusInfo del puerto ya que ese programa se ejecuta con otro más que también se conecta a otro puerto COM del mismo ordenador y que sí que funciona bien.

El error que me sale al intentar abrir el puerto es este: Error al intentar abrir puerto COM1

7
  • Si desde el visual intento abrir el puerto y está en el StatusInfo 2 según PowerShell solo me dice que no se puede abrir el puerto, así que tampoco me soluciona nada que me diga eso si luego veo que haciendo "a mano" lo de deshabilitar y volver a habilitar funciona. Necesito que esto sea automático.
    – Maria
    Commented el 25 may. 2017 a las 13:20
  • El puerto serie va en placa o es un usb? Es posible que no está funcionando correctamente?
    – Pikoh
    Commented el 25 may. 2017 a las 13:28
  • El puerto serie está en la placa, si.
    – Maria
    Commented el 25 may. 2017 a las 13:31
  • Es un poco extraño lo del estado Unknown, y tampoco estoy muy seguro de porque eso debería influir. De todas maneras, puedes consultar el Win32_SerialPort desde tu programa si eso te sirve
    – Pikoh
    Commented el 25 may. 2017 a las 13:33
  • Desde el programa solo he podido saber si el puerto se abre o no, desconozco como saber el estado del puerto o cómo Habilitarlo en caso de que por el motivo que sea esté deshabilitado. Aclaro que el programa no va a estar definitivamente en mi ordenador por eso que intento pensar en todas las posibilidades.
    – Maria
    Commented el 25 may. 2017 a las 13:36

1 respuesta 1

1

Te pongo un ejemplo de como consultar el StatusInfo por código:

Dim Scope As New ManagementScope("\\.\ROOT\cimv2")
Dim Consulta As New ObjectQuery("SELECT * FROM Win32_SerialPort Where DeviceID='COM1'") ' cambialo por el puerto que necesites
Dim Searcher As New ManagementObjectSearcher(Scope, Consulta)
Dim queryCollection As ManagementObjectCollection = Searcher.Get
'Obtenemos el valor del primer resultado
Dim status As Integer = queryCollection.Cast(Of ManagementObject).First()("StatusInfo")
Console.WriteLine("StatusInfo : {0}", status)

Debes añadir en tu proyecto una referencia a System.Management, asi como Imports System.Management

Edit

Tras varias pruebas, la solución pasa por cambiar el nombre del puerto en el administrador de dispositivos. Intuyo que el puerto que se estaba utilizando de alguna manera estaba mapeado por algun otro dispositivo, provocando el problema detectado.

11
  • Desde el desconocimiento: haciendo esto no se abre el puerto, verdad? Solo comprueba el estado. Lo digo porque como funciona con otro programa más, por poner una comprobación antes de que si uno de los dos puertos que intento abrir no tiene el estado habilitado (el 3), no ejecute el resto del programa.
    – Maria
    Commented el 25 may. 2017 a las 13:51
  • @Maria si claro, esto simplemente es una consulta del estado, igual que haces desde powershell. Lo otro a mi nunca creo recordar que me haya pasado. De todas maneras, puedes editar la pregunta y poner exactamente el error que te lanza al intentar abrirlo cuando esta en ese estado?
    – Pikoh
    Commented el 25 may. 2017 a las 13:53
  • 1
    @Maria y yo probaría en algun otro equipo, no descartaría en ningun caso un fallo de hardware o quiza drivers
    – Pikoh
    Commented el 25 may. 2017 a las 13:55
  • Ya está puesta la imagen del error. Desgraciadamente ahora mismo no puedo probar en otro equipo pero es muy raro que deshabilitando y volviendo a habilitar el puerto COM funcione y nada más inicie el ordenador no vaya y el StatusInfo sea 2.
    – Maria
    Commented el 25 may. 2017 a las 14:02
  • 1
    @Maria como una prueba a ciegas...podrías probar a cambiar el numero de puerto? es decir, si el que falla es COM1, puedes probar a cambiarlo a COM3 por ejemplo?
    – Pikoh
    Commented el 25 may. 2017 a las 14:03

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.