La Web del Programador: Comunidad de Programadores
 
    Pregunta:  10238 - COMUNICACION PUERTOS
Autor:  oscar ardila
Que debo hacer para capturar datos desde los puertos seriales COM1 Y COM2. COM1 capturo los datos desde una balanza electronica y COM2 desde un lector de codigos de barras de mesa.

  Respuesta:  Elias Esquivel
Si aun necesitas ayuda con este tema, enviame un e-mail y te ayudare con los puertos seriales sea en DOS o WINDOWS.
chau

  Respuesta:  Jose Can
La balanza envia informacion cuando se pulsa la tecla PRINT (del teclado de la balanza) o enviandole un comando desde la computadora.
El escanner envia la informacion a la computadora automaticamente cuando se escanea el producto.
Para el primer caso, debes hacer una rutinita que abra el puerto serial, envie el comando y espere a que llegue la informacion del peso.

function leebas (pto,baud,parity,datlenght,stobit)
local word:=""
if com_open(pto,64)
if com_init(pto,baud,parity,datlenght,stobit)
com_send(pto,COMANDO_BALANZA)
inkey(0.5)
word:=com_read(pto)
if !com_close(pto)
alert ("No se pudo cerrar COM" + str(pto))
endif
else
alert ("No se pudo inicializar COM" + str(pto))
endif
else
alert("No se pudo abrir COM" + str(pto))
endif
return (word)

OJO NEcesitas de librerias que tengan estas funciones

Para leer el escaner lo mas sencillo es instalar un programa que monitore regularmente el puerto serial (BARCOM.EXE)