Me he hecho este codigo, esto no deberia lanzar un mensaje "HOLA" cuando el intervalo llegue a 0?


#include "Form1.frm"


procedure Main
Activate()
? "Hola radiola"
return

Function Activate
Local oForm
oForm := TTimer():Create( @oForm )
oForm:Enabled := .T.
oForm:Interval := 100
oForm:Caption := "HOLA"
oForm:OnTimer := { | oObjeto | MessageDlg("HOLA") }
return

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu,

No, la clase TTimer lanza el evento OnTimer cada vez que pase el tiempo indicado por Interval en milisegundos.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

la idea es que lance el mensaje o la funcion indicada, pero no me sale nada....idea de porque? el intervalo lo he incrementado y reducido

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu, mira este proyecto a ver si te sirve de ejemplo.

Un saludo.
Vïctor

Victor, creo que el fichero viene corrupto o le falta el form.

Salu2 José Manuel

Jose Manuel, tienes razón , se me quedó el form. Aquí va de nuevo.

Un saludo.
Víctor

Hola Bruno:

he estado un par de dias off en otros temas...
No he escrito bien el codigo?
creo la clase con ttimer():create(@oTimer)
asigno intervalo y cargo un codeblock en ontimer...no se puede hacer asi?
es que quiero evitar el uso del form como pone en el ejemplo Victor

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu , esta forma de declarar el objeto timer no es correcta.

ttimer():create(@oTimer)

Esta sería correcta.

oTimer:=TTimer():Create( Self )

o bien de esta otra forma.

oTimer:=TTimer():Create()


Un saludo.
Víctor

Josu,

El problema es que no sigues las normas, en tu código saltas a la función Activate, creas un objeto TTimer, le asignas unas propiedades, retornas a la función main, muestras un mensaje y termina la aplicación, ¿qué más quieres? El programa se acaba, no hay bucle que mantenga viva la aplicación. Te recomiendo que uses el IDE para ir comprendiendo cómo funcionan los programas en Windows, hay una serie de requisitos que deben cumplir.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Hola Bruno:

Para comprobar la clase,el mensaje lo dejo abierto.no hago nada, es una forma de dejar la aplicacion corriendo sin pulsar una tecla y sin tener que hacer un bucle tonto de do while-enddo que cuente 2 millones de segundos.

Quiero usar el timer para crearme una clase llamada Tdemostracion, en la cual al crear la aplicacion se activa, y si el programa no esta registrado, entonces cada 10 minutos deberia salir un mensaje, esa es la idea...lo unico que se me ocurre es que cuando estoy en el showmodal del mensaje esperando, el otimer no se ejecute y por eso no sale. He quitado el ? "HOLA" y he puesto un bucle do while de 20 millones y no sale nada, por lo que deduzco que no cargo bien el codeblock para ejecutar el ontimer?

procedure Main
Local nI
Public nContador
nI := 0
Activate()
Do While nI < 20000000
nI++
Enddo
return

Function Activate
Local oTimer,nContador
oTimer := TTimer():Create()
oTimer:Enabled := .T.
oTimer:Interval := 1000
oTimer:Caption := "HOLA"
oTimer:left := 0
oTimer:OnTimer := { | oTimer | EstoyEnDemo(oTimer) }
return



Function EstoyenDemo(oTimer)
MessageBox("HOLA caracola")
nContador++
return

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Hola, Josu.

Como te dice Bruno (y te animo a que le escuches - yo lo hago muy a menudo), insistes en aplicar tus conocimientos de Clipper (bajo D.O.S.) en un entorno Windows. Tienes que hacer el esfuerzo de cambiar tu forma de pensar con respecto a la programacion, ya que en windows no funcionan las cosas igual que en la epoca de clipper.
Como ampliación al comentario de Bruno te comento que colocar un bucle Do/While VACIO y con un contador muy grande lo unico que puedes conseguir es BLOQUEAR la máquina, ya que estas impidiendo que windows realiza otras MUCHAS tareas que tiene que hacer para funcionar (no solo esta atento a tu programa, cosa que con clipper era así), y el codigo que muestras no es eficiente ni puede hacer nada, ya que declaras unas variables, defines un timer, haces que windows espere un tiempo Y FINALIZA-TERMINA-SE ACABA-FIN.
Bueno, insisto, animate, reciclate y sigue las normas, ya que éstas no se pueden cambiar.

Animo!!!!!

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola de nuevo, Josu.

Bueno, aqui te dejo una demo de lo que quieres... no necesito una clase llamada TDemostracion... pero FUNCIONA!!!!!!!

_________________
Un saludo.
Jesús P. Melgar Velasco

gracias.

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006