Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Conocer estado de Tarifador (https://www.clubdelphi.com/foros/showthread.php?t=50367)

BetoAlonso 15-11-2007 17:45:51

Conocer estado de Tarifador
 
Saludos estimados foristas

Estoy desarrollando un sistema para un tarifador de llamadas, hasta ahora logro abrir el puerto usando ApdComPort1 (Componentes Apro), pero al momento ke kiero hacer la lectura no reconoce nada.

podrian por favor darme alguna sugerencia u otro componente similar?

gracias por su atencion

egostar 15-11-2007 22:37:45

Consulta este hilo, ahi está lo que necesitas.

Salud OS

BetoAlonso 29-12-2007 17:56:03

Gracias egostar fue de ayuda ese hilo.

Ahora el asunto es ke son varias cabinas, las cuales las genero en una tabla de memoria y tengo ke hacer una lectura constante. Para saber el estado de la cabina envio:

Código:


  ApdComPort1.OutPut := chr(direccion)+'a';
  /*direccion es un integer ke me indica el numero de cabina*/

Un timer es una buena opcion o tienes alguna otra sugerencia?

gracias

egostar 29-12-2007 18:12:37

Cita:

Empezado por BetoAlonso (Mensaje 255057)
Gracias egostar fue de ayuda ese hilo.

Ahora el asunto es ke son varias cabinas, las cuales las genero en una tabla de memoria y tengo ke hacer una lectura constante. Para saber el estado de la cabina envio:

Código:


  ApdComPort1.OutPut := chr(direccion)+'a';
  /*direccion es un integer ke me indica el numero de cabina*/

Un timer es una buena opcion o tienes alguna otra sugerencia?

gracias

Si eso lo mandas desde la cabina y lo recibes en una computadora central, puedes usar el Apddatapacket para recibir la información de cada cabina, es decir, lo que yo haría es poner un apdDataPacket por cada cabina y en sus propiedades le asigno la cedan que recibo del mismo Fa, #a, no se lo que corresponda a cada cabina.

No se si me explique bien, :o

Salud OS

BetoAlonso 29-12-2007 18:22:29

Un Apddatapacket por cada cabina? no lo habia pensado asi, se puede? no se cruza la informacion a pesar de ke todos los tarifadores estan conectados al COM1.

Hare el intento en este preciso momento.
gracias por tu sugerencia

BetoAlonso 29-12-2007 18:35:03

En ke propiedad del ApdDataPacket le asignaria la direccion???

egostar 29-12-2007 19:35:13

Cita:

Empezado por BetoAlonso (Mensaje 255063)
Un Apddatapacket por cada cabina? no lo habia pensado asi, se puede? no se cruza la informacion a pesar de ke todos los tarifadores estan conectados al COM1.

Hare el intento en este preciso momento.
gracias por tu sugerencia

Cita:

Empezado por BetoAlonso (Mensaje 255064)
En ke propiedad del ApdDataPacket le asignaria la direccion???

Hola BetoAlonso

Tengo una duda

Cita:

Empezado por BetoAlonso
Ahora el asunto es ke son varias cabinas, las cuales las genero en una tabla de memoria y tengo ke hacer una lectura constante. Para saber el estado de la cabina envio:.......

Que quieres decir con tabla en memoria y a donde lo envias la cadena con la funcion Output ?

Salud OS

BetoAlonso 30-12-2007 00:13:39

al decir tabla de memoria me refiero al componente kbmemtable ke es algo asi a un ibdsdataset pero solo en memoria mientras dura la ejecucion del programa su estructura es la siguiente :

Código:

cabina  direccion  estado  numero tiempo
1            225
2            226
3            227
4            228
5            229

Esta estructura la visualizo a traves de un dbgrid.

Como te decia la idea ke tengo hasta ahora es usar un timer ke se ejecute cada cierto tiempo ke yo voy a definir, este proceso debe leer secuencialmente el contenido de la tabla tomar la direccion y ejecutar el output como te decia anteriormente :

Código:

  ApdComPort1.Output := chr(kbmMemTable1direccion.AsInteger)+'a';
gracias por tu atencion y espero haber despejado tu duda.


La franja horaria es GMT +2. Ahora son las 20:04:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi