capturar puerto COM (db9) - VB-MUNDO

Black_devil · #1 (**permalink**) 13-09-2007, 17:16:08

Estimados, me es muy grato estar nuevamente por estos lados ...

Necesito una ayuda si se puede, la idea es poder capturar el puerto COM del equipo (win 98) para poder utilizar un escaner de códigos de barra y poder visualizar los resultados en un textbox, el escaner es un metrologic MS700i, o realizar un .BAT para poder capturar el puerto COM, gracias ...

Alella · #2 (**permalink**) 14-09-2007, 07:35:49

Hola, que tal.

En este ejemplo capturo el scanner en una caja de texto. En el MsComm has de poner el COM1 o el que hagas servir. Necesitas además un botón y un timer.

Código:

Private Sub Command1_Click()

DataToEncode = Text1
MsgBox DataToEncode

End Sub

Private Sub Form_Unload(Cancel As Integer)
    MSComm1.PortOpen = False ' Cerramos el puerto
    MsgBox "Cerramos el programa", vbInformation
    End
End Sub

Private Sub Timer1_Timer()
    If MSComm1.PortOpen = False Then ' Si el puerto no está abierto
       MSComm1.PortOpen = True ' lo Abrimos
    End If
     
    If MSComm1.InBufferCount > 0 Then ' Si nos llega algo al puerto
        inst = inst + MSComm1.Input ' Leemos el datos
        Text1 = inst ' Visualizamos este dato
        
    End If
End Sub

Ya nos contarás.