24/06/2005, 23:23
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 4
Antigüedad: 20 años Puntos: 0 | |
| te envio el codigo que utilizè para una aplicacion sencilla de la escuela con un slot reader rs232, tal vez este incompleto y tngas que modificar poropiedades en diseño, pero te puede servir:
Private Sub MSComm1_OnComm()
lbl_code.Caption = MSComm1.Input
MSComm1.PortOpen = False 'cerramos el puerto de comunicacion con el lector...
MSComm1.PortOpen = True 'se vuelve a abrir el puerto para asegurar entradas de datos...
MSComm1.Output = "" 'reiniciamos los valores guardados en el puerto de comunicacion con el lector de codigos de barras...
Hora.Caption = Time
Fecha.Caption = Date
Adodc1.Refresh
End Sub |