La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1056 - PROGRAMAR EL PUERTO SERIAL EN CLIPPER 5.2
Autor:  Enrique Saavedra
Necesito programar un puerto serial en clipper 5.2, es decir; tengo que tomar datos de una bascula electronica cuyo lector tiene referencia AD-4321, quisiera saber como tomar la lectura que se refleja en este, aclaro que he tratado Utilizando los TOOLS 3.2 del clipper 5.2 donde se encuentra un capitulo de puertos seriales, pero he tenido dificultad para tomar la lectura desde el lector de la bascula hacia mi programa por el puerto serial.

Les agradesco la ayuda brindada GRACIAS...


  Respuesta:  Newlin Nieves
yo tengo una libreria para el AD4321 pero esta compilada en summer87 si la quieres escribeme

  Respuesta:  Edgar Flores
Si aun tienes el problema, de captura por el puerto serial, utiliza la libreria SIBELIUS.LIB, alli hay ejemplos para capturar la señal que biene de la bascula.
Te puedo enviar la rutina, si estas interesado.

  Respuesta:  Elias Esquivel
Hola Enrique

Yo tengo mucha experiencia en este tipo de programas. La balanza a la que te refieres me parece que es una vegatronic y estas funcionan por demanda.

He realizado programas para balanza de marca toledo, gse, vegatronic, rice like, fairbanks, phillips, panters, sartorios, etc, etc

Comunicate conmigo y te ayudare en estos asuntos.

Chau...

  Respuesta:  Mauricio
Utiliza telepathy, es una excelente librería de comunicaciones asíncronas para Clipper

  Respuesta:  Ramon Oliva
Esta es la Rutina espero que les sirva, deben usar la libreria ct.lib
Static Function ReadPeso(Puerta,Veloc,Fila, Columna)

If COM_OPEN(Puerta)
If COM_INIT(Puerta,Veloc,´E´,7,2)
nKey := 0
Do While nKey # K_RETURN
While COM_READ(Puerta,1) # chr(13)
End
While COM_COUNT(Puerta) < 16
End
Lectura := SUBSTR(COM_READ(Puerta,16),7,5)
@ Fila,Columna Say Lectura Pict ´99999´
nKey := Inkey()
EndDo
Lectura:= Val (Lectura)
Else
COM_CLOSE(Puerta)
Return(Lectura)
EndIf
Else
Return(Lectura)
EndIf
COM_CLOSE(Puerta)
Return(Lectura)