[Lazarus-es] TTimer
Jose Daboin
metalbox9000 en gmail.com
Jue Oct 11 14:36:41 CEST 2012
Disculpa, al final no seria =10 en el if o el condicional, seria al llegar
a 0cero que se pare el timmer, corrijelo
Aplica lo mismo
var //Variables Globales Del unit
a:integer; //colocas "a" o lo que quieras como integer
En el formcreate o el evento oncreate del formulario como quieres es
descontar lo igualas a 10 o lo que quieras
a:=10
y en el timmer// como vas a descontar en vez de sumar restas y cambias los
edit por label. Prueba con los dos ejemplos q deje
var b:integer;//variable dentro del timmer
begin //begin del timer
b:=1;
a:=a-b;
edit3.Text:='';
edit3.Text:=IntToStr(a);
if a=10 then//para el timer y deja el edit en 1 o 0
timer1.Enabled:=false;
El 11 de octubre de 2012 08:03, Jose Daboin <metalbox9000 en gmail.com>escribió:
> Aplica lo mismo
>
> var //Variables Globales Del unit
> a:integer; //colocas "a" o lo que quieras como integer
>
> En el formcreate o el evento oncreate del formulario como quieres es
> descontar lo igualas a 10 o lo que quieras
>
> a:=10
>
> y en el timmer// como vas a descontar en vez de sumar restas y cambias los
> edit por label. Prueba con los dos ejemplos q deje
>
> var b:integer;//variable dentro del timmer
> begin //begin del timer
> b:=1;
> a:=a-b;
> edit3.Text:='';
> edit3.Text:=IntToStr(a);
> if a=0 then//para el timer y deja el edit en 1 o 0 no lo he probado
> timer1.Enabled:=false;
>
>
> El 11 de octubre de 2012 06:25, Daniel Cáceres <daniel en serviceparaguay.com
> > escribió:
>
> Gracias Jose, como no estoy muy metido todavia con Lazarus y Pascal,
>> queria saber si el TTimer tenia alguna propiedad o funcion para mostrar el
>> valor que va tomando,
>> ej. si inicio en 10 segundos, quiero poner un label y que vaya tomando y
>> mostrando esos valores 10, 9, 8, 7... y asi
>>
>> Saludos,
>> Daniel C.-
>>
>> El 10/10/2012 20:16, Jose Daboin escribió:
>>
>> Si te entendi lo que quieres es contar el tiempo del timmer
>>
>> Yo lo haria asi
>>
>> var //Variable Global
>> a:integer;
>>
>> La igualo a cero en el formcreate
>>
>> y en el timmer
>>
>> var b:integer;
>> begin
>> b:=1;
>> a:=b+a;
>> edit3.Text:='';
>> edit3.Text:=IntToStr(a);
>> if a=10 then
>> timer1.Enabled:=false;
>>
>> No se si eso es lo que quieres
>>
>> El 10 de octubre de 2012 16:10, Daniel Cáceres <
>> daniel en serviceparaguay.com> escribió:
>>
>>> Buenas, una consulta es posible obtener el valor que va tomando el
>>> TTIMER?
>>>
>>> Saludos Cordiales,
>>> Daniel Cáceres
>>>
>>> _______________________________________________
>>> Lazarus-es mailing list
>>> Lazarus-es en lists.lazarus.freepascal.org
>>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>>
>>
>>
>>
>> --
>> *Saludos.
>>
>> Jose Daboin*
>>
>>
>>
>> _______________________________________________
>> Lazarus-es mailing listLazarus-es en lists.lazarus.freepascal.orghttp://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>>
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>>
>
>
> --
> *Saludos.
>
> Jose Daboin*
>
>
--
*Saludos.
Jose Daboin*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20121011/70eb80ac/attachment-0002.html>
More information about the Lazarus-es
mailing list