FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Mostrar segundero
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Mostrar segundero
Posted: Thu Aug 07, 2025 10:28 PM

Hola a Todos, amigos del foro.

Mi consulta es muy sencilla, quizás alguien ya lo tenga o sepa darme luz de como hacerlo.

Quiero hacer una versión ADSOFTWARE de mi sistema. Es decir, una versión gratuita, pero que muestra publicidad.

Para ello, tengo pensado hacerlo con un dialogo y un timer mostrándolo cada cierto tiempo y en partes del sistema donde no se interrumpa ningún proceso. Por ejemplo, al entrar al módulo de clientes, o al salir, pero nunca mientras se ejecuta alguna operación de insert, delete, update, etc

Ya explicado el contexto, hago mi pregunta: hay alguna manera de que se muestre un conteo de segundos en forma regresiva para que el usuario sepa cuantos segundos restan a la publicidad para que desaparezca? exactamente como se ve en las publicidades de algunas aplicaciones móviles.

Sé que puedo hacerlo "a pie" con un get que vaya mostrando los segundos en reversa, pero me gustaría hacer algo más elaborado, que se vea bien.

alguien que me arroje luz por favor?

gracias !

"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Mostrar segundero
Posted: Fri Aug 08, 2025 01:25 PM

Buenos días, no sé qué es ADSOFTWARE. Para que lo entiendas mejor, ¿podrías mostrar con una imagen o fuente a qué te refieres con "MOSTRAR UN ANUNCIO"?

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Mostrar segundero
Posted: Tue Aug 12, 2025 02:26 PM
karinha wrote: Buenos días, no sé qué es ADSOFTWARE. Para que lo entiendas mejor, ¿podrías mostrar con una imagen o fuente a qué te refieres con "MOSTRAR UN ANUNCIO"?

Gracias, tks.

Regards, saludos.

Caro amigo João. como você está? Espero muito bem. Desculpe pela demora em responder, mas eu estava ocupado ultimamente.
um ADWARE é um software que é fornecido gratuitamente. 100% funcional, sem nenhuma limitação. A diferença é que de tempos em tempos ele mostra publicidade para o usuário. é claro que existe adware malicioso que entra furtivamente em nossos computadores sem permissão. Mas isso é outra coisa.

Minha ideia é fazer uma versão com meu sistema para concedê-lo gratuitamente, e de tempos em tempos ele vai quebrar para mostrar neste caso, não publicidade, mas dicas e utilitários. sem publicidade de vendas. apenas do mesmo sistema, como por exemplo uma tela aparecerá com uma mensagem "Você sabe como registrar um novo documento?" e o procedimento é explicado ali mesmo. No meu caso preciso que a publicidade permaneça por um certo número de segundos, sem ser interrompida pelo usuá

a ideia disso é que as pessoas que não estão dispostas a pagar pelo software por qualquer motivo possam ter acesso a ele em troca desse pequeno inconveniente. E o objetivo final é que, quando tiverem confiança no software e se sentirem confortáveis com sua utilidade, comprem a versão original, sem publicidade. É um meio de venda.

Deixo-vos uma imagem de referência, a diferença, como vos disse, é que o meu software não oferecerá produtos para venda, mas mostrar-se-á.
e espero que o Google Translate tenha feito bem o seu trabalho com o seu idioma ha,ha, ha,ha



------------------------------------------------------




Estimado amigo Joao. como estas? espero que muy bien. Disculpa la tardanza en contestar, pero estuve ocupado estos dias.

un ADWARE es un software que se otorga de manera gratuita. 100% funcional, sin ninguna limitación. la diferencia es que cada tanto va mostrando publicidad al usuario.

por supuesto hay adware malintencionado que se cuela en nuestros equipos sin permiso. Pero eso es otra cosa.

Mi idea es hacer con mi sistema una versión para otorgarla gratuitamente, y cada tanto el mismo ira haciendo break para mostrar en este caso, no publicidad, sino tips y utilidades del mismo. ninguna publicidad de ventas. solo del mismo sistema, como que por ejemplo aparecerá una pantalla con un mensaje "¿Sabes como registrar un nuevo documento?" y allí mismo se explica el procedimiento. En mi caso necesito que la publicidad se quede determinada cantidad de segundos, sin que pueda ser interrumpida por el usuario

la idea de esto, es que las personas que no están dispuestas a pagar por el software por cualquier razón, puedan tener acceso al mismo a cambio de esa pequeña incomodidad. Y el objetivo final es que cuando tengan confianza en el software y se sientan cómodos con la utilidad del mismo, adquieran la versión original, sin publicidad. Es una medio de venta.

te dejo una imagen referencial, la diferencia como te dije, es que mi software no ofrecerá productos en venta, sino que se mostrará a sí mismo y espero que el traductor de google haya hecho bien su trabajo con tu idioma ja,ja,ja,ja
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Mostrar segundero
Posted: Tue Aug 12, 2025 03:13 PM

Estimado, que tal un TIMER en el ON INIT del dialogo?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Mostrar segundero
Posted: Tue Aug 12, 2025 05:35 PM
karinha wrote: Estimado, que tal un TIMER en el ON INIT del dialogo?

Regards, saludos.
Estimado amigo, si, exacto esa es la manera. Lo que quiero es colocar dentro del diálogo un reloj digital donde se vean los segundo de manera inversa 20, 19, 18, 17 ... Hast el 1 y se cierra el diálogo. Así el usuario puede ver cuantos segundos restan para que la publicidad desaparezca.

Se que puedo hacerlo con un get y un contador, pero me gustaría algo más elegante.
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Mostrar segundero
Posted: Tue Aug 12, 2025 05:50 PM
FUNCTION TU_FUNCTION( oDlg )

   LOCAL nFor, nStart

   FOR nFor := 4 to 0 step -1

       SysRefresh()

       nStart = GetTickCount()

       while ( GetTickCount() - nStart ) < 1000
       end

       oDlg:cMsg := "Aguarde, Desligando o Programa em: "+ ;
                     LTrim( Str( nFor ) ) + " Segundo"   + ;
                     If( nFor > 1, "s", "" )

       oDlg:Refresh()

   NEXT

RETURN NIL
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 9
Joined: Mon Sep 09, 2024 12:41 PM
Re: Mostrar segundero
Posted: Tue Sep 23, 2025 03:03 PM

  • Escrito por Nelido Sanchez Alvarez

  • Como mejor trabaja la tarea es mostrando el tiempo en el Titulo de la Ventana

  • porque no entra en conflicto con ninguna otra operacion. Haciendo operaciones

  • aritmeticas con la hora se pueden mostrar las horas, los minutos y los segundos ***

  • transcurridos segun se desee.


  • Written by Nelido Sanchez Alvarez

  • The task works best by displaying the time in the window title because it

  • doesn't conflict with any other operations. By performing arithmetic operations

  • with the time, you can display the hours, minutes, or seconds elapsed as desired.

  • (Translated by Google Translate)


INCLUDE "HBGTINFO.CH"

FUNCTION MAIN

NTAREA := HB_IDLEADD( {|| SAYTIME()} )




CBACCION := HB_IDLEDEL( NTAREA )

RETURN NIL

FUNCTION SAYTIME()

HB_GTINFO(HB_GTI_WINTITLE," | Hora - "+IF(VAL(SUBSTR(TIME(),1,2))>12,;

        RCEROS(2,VAL(SUBSTR(TIME(),1,2))-12),IF(VAL(SUBSTR(TIME(),1,2))=0,"12",;

        RCEROS(2,VAL(SUBSTR(time(),1,2)))))+SUBSTR(TIME(),3)+;

        IF(TIME()&gt;"12:00:00",' p.m.',' a.m.'))

RETURN NIL

Continue the discussion