SoloCodigo

Amigo Nebire acabo de probar tu programa y en verdad funciona porque escanea los puertos y solo me da error en los puertos que no estan habilitados, hasta ahi todo bien solo que en la parte:
[CODE] If puertos(0) > 0 Then
      ' se podrían poner en un listbox para cambiar si un puerto arrojara problemas
      '   o si eso ocurre se podría volver a ejecutar nuevamente la rutina de detección de puertos
       MSComm1.CommPort = puertos(1) ' tomamos el primero de los hallados, es lo más consecuente
       MSComm1.PortOpen = True
      'MSComm1.Settings= ' establecemos las características que deseemos y qeu sean acorde a nuestro hardware
      ' otras acciones

Me gustaria que el programa no habilite el primer puerto encontrado sino que me muestre a mi los puertos válidos y me de la posibilidad de escojer el puerto que yo desee.

Perdon la insistencia y las molestias pero soy bastante ignorante en cuanto a basic y me gustaria que me des esta mano final.
Gracias de antemano
Esteban

Hola amigo Nebire, gracias por interesarte en el tema y por tu ayuda, la verdad ya logre la conversion y tengo el dato en ASCII, el pic me envia dos numeros que envia primero el de decenas y luego el de centenas, con el hiperterminal conectado serialmente logro observar la temperatura correspondiente, pero yo necesito ver el dato en BASIC, tengo una aplicación para el resto de cosas y en ella uso un timer el cual cada milisegundo escanea el com serial y compara lo que le llega almacenandolo en una variable A, hasta ahi todo bien, ahora mi pregunta es como presentar el dato en pantalla, estaba usando un text para que el momento en que lleguen los datos presentarlos en el mismo pero no se si la programación estará bien, el asunto es que tipo debo declarar a la variable para que almacene los 2 numeros enviados y todo eso? El codigo iba mas o menos asi:

para la parte deseada de temperatura:

Private Sub Timer1_Timer()
A = MSComm1.Input
If Len(A) > 3 Then
End If
If A = "f" Then 'La f es solo como comprobacion para saber que es la temperatura
lblResul.Visible = True
cmdAcep.Visible = True
cmdMenu.Visible = True
cmdSal.Visible = True
X = MSComm1.Input   ' asigno los dos numeros que me llegan a la variable
TextResult.Visible = True
TextResult.Text = X  'Supuestamente aqui enseño la temp. pero no se si esta bien
End If
End Sub


Por favor ayúdame en esta parte que ya ees lo ultimo que tengo que hacer para terminar mi proyecto.
Gracias de antemano

PD: djunto como texto la programación completa del formulario

Amigo por favor enviame el codigo que dicer tener es que lo necesito de urgencia. Reitero mi correo es esteban_santiago83@yahoo.es

Buenos días, estoy haciendo mi tesis y cree una aplicación en Visual Basic para comunicarme serialmente con un dispositivo de control domótico, hasta ahora he logrado comunicarme.
Para abrir el puerto de comunicación serial utilice el botón correspondiente y con el comando MSComm1.portopen=true pero necesito que antes de habilitar el puerto el programa escanee los puertos seriales válidos que tenga el computador donde se lo corra y me permita la opción de escoger elñ puerto que el usuario necesite.
Una vez hecho esto el programa debe utilizar este puerto como predeterminado para la comunicación, osea que siga ejecutando el resto de la aplicación usando el puerto escogido. Como puedo hacer esto?
Gracias por su ayuda, la necesito de forma urgente