Comunicar puertos COM

[nostromos]

Holas;

en la empresa en la cual estoy, esta realizando una instalación de pesaje, ahora quieren hacer un software de monitoreo industrial para recibir los datos de la celda de carga y enviarla a una base de datos.

Ahora, baje un ejemplo básico en VB para enviar y recibir datos a un puerto, COM1...COM6, El código es el siguiente:

Código PHP:

  Dim textout, textin As String 
Private Sub cmdConectar_Click() 
    If cmdConectar.Caption = "Conectar" Then 
        puerto.CommPort = Val(cboCom.ListIndex + 1) 
        puerto.PortOpen = True 
        cmdEnviar.Visible = True 
        Timer1.Enabled = True 
        cmdConectar.Caption = "Desconectar" 
    End If 
    procedimiento para desconectar puerto 
    If cmdConectar.Caption = "Desconectar" Then 
        Timer1.Enabled = False 
        cmdEnviar.Visible = False 
        puerto.PortOpen = False 
        cmdConectar.Caption = "Conectar" 
    End If 
End Sub 
 
Private Sub cmdEnviar_Click() 
    textout = txtEnviar.Text 
    puerto.Output = textout 
End Sub 
 
Private Sub Timer1_Timer() 
    textin = puerto.Input 
    If textin <> "" Then 
        lblMostrar.Caption = textin 
    End If 
End Sub  
   

Al ejecutarlo indica error en tiempo de ejecución: Número de puerto no válido.

DAtos del sistema en que operamos;

Windows 7, he habilitado desde del firewall, colocar nueva regla, los datos entregados, es que el programa está habilitado para todos los puertos, no se que hacer. Primera vez que programa este tipo de aplicación.

Necesito una orientación para poder continuar, bajamos otros programas igual el tipo de error.

Nos vemos