Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2012-10

TTimer

9 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Martin Gomez
to Daniel Cáceres

No que yo sepa, pero existe GetTickCount y haces la cuenta tu mismo.

http://forum.lazarus.freepascal.org/index.php?topic=6099.0

Est� en la unit LCLIntf y tambien en la unit Windows (llama a la API, pero devuelve otro valor)

2012/10/10 Daniel C�ceres <daniel en serviceparaguay.com>

Show quoted text 10 lines
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<Lazarus-es en lists.lazarus.freepascal.org> http://lists.lazarus.**freepascal.org/mailman/**listinfo/lazarus-es<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es>
Try not to become a man of success but rather to become a man of value. *Albert Einstein* ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121010/8d7e8f6e/attachment.html>

Reply by email

Jose Daboin
to Daniel Cáceres: Buenas, una consulta es posible obtener el valor que va tomando el TTIMER? Daniel…

que es lo que deseas hacer, contar los milisegundos o segundos del timmer?

El 10 de octubre de 2012 16:10, Daniel C�ceres
<daniel en serviceparaguay.com>escribi�:

Show quoted text 10 lines
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<Lazarus-es en lists.lazarus.freepascal.org> http://lists.lazarus.**freepascal.org/mailman/**listinfo/lazarus-es<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es>
*Saludos. Jose Daboin* ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121010/5e6b5c25/attachment-0001.html>

Reply by email

Jose Daboin
to Daniel Cáceres: Buenas, una consulta es posible obtener el valor que va tomando el TTIMER? Daniel…

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�:

Show quoted text 10 lines
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<Lazarus-es en lists.lazarus.freepascal.org> http://lists.lazarus.**freepascal.org/mailman/**listinfo/lazarus-es<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es>
*Saludos. Jose Daboin* ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121010/c4175e98/attachment.html>

Reply by email

Daniel Cáceres
to Jose Daboin

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�:

Show quoted text 51 lines
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 <mailto: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 <mailto:Lazarus-es en lists.lazarus.freepascal.org> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es -- /*Saludos. Jose Daboin*/ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121011/c0a1f68d/attachment.html>

Reply by email

Jose Daboin
to Daniel Cáceres

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 06:25, Daniel C�ceres
<daniel en serviceparaguay.com>escribi�:

Show quoted text 67 lines
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* ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121011/d608d052/attachment.html>

Reply by email

Jose Daboin
to Jose Daboin

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�:

Show quoted text 102 lines
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.freepascal.org/pipermail/lazarus-es/attachments/20121011/70eb80ac/attachment-0001.html>

Reply by email

Daniel Cáceres
to Daniel Cáceres: Gracias Jose, como no estoy muy metido todavia con Lazarus y Pascal, queria saber si el…

Perfecto Jos� me sirvio tu codigo!! Buen aporte!!

Saludos Cordiales,
Daniel C�ceres

El 11/10/2012 7:55, Daniel C�ceres escribi�:

Show quoted text 63 lines
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 <mailto: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 > <mailto:Lazarus-es en lists.lazarus.freepascal.org> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es > > > > > -- > /*Saludos. > > Jose Daboin*/ > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121011/bc934953/attachment.html>

Reply by email

Daniel Cáceres
to Jose Daboin: Disculpa, al final no seria =10 en el if o el condicional, seria al llegar a 0cero que se…

Perfecto Jos�, Gracias!

Saludos,
Daniel C�ceres

El 11/10/2012 9:36, Jose Daboin escribi�:

Show quoted text 147 lines
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 <mailto: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 <mailto: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 > <mailto: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 > <mailto:Lazarus-es en lists.lazarus.freepascal.org> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es > > > > > -- > /*Saludos. > > Jose Daboin*/ > > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus.freepascal.org <mailto:Lazarus-es en lists.lazarus.freepascal.org> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org <mailto:Lazarus-es en lists.lazarus.freepascal.org> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es -- /*Saludos. Jose Daboin*/ -- /*Saludos. Jose Daboin*/ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20121011/18b07fe0/attachment.html>

Reply by email