Discussion:
Control Time como funciona ???
(demasiado antiguo para responder)
YoTipiando
2009-03-24 18:11:47 UTC
Permalink
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando es
el control Time ese de un relorcito

mi idea es la siguiente

poner este control en un form y poder ver la hora y los minutos que van
corriendo en modo de ejecucion , esto lo necesito porque en ese mismo form
tengo un mantenimiento de habitaciones osea si todas las habitaciones
dicen OCUPADAS cuando el reloj llegue a un determinado horario por dia
que automaticamente cambie el estado de OCUPADO a OCUPADO SUCIA . bueno
que opinan es posible esto.

gracias de ante manos
Luis Maria Guayan
2009-03-24 19:46:08 UTC
Permalink
PUBLIC goMiForm

goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN

DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"

ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"

ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"

PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando
es el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que van
corriendo en modo de ejecucion , esto lo necesito porque en ese mismo form
tengo un mantenimiento de habitaciones osea si todas las habitaciones
dicen OCUPADAS cuando el reloj llegue a un determinado horario por dia
que automaticamente cambie el estado de OCUPADO a OCUPADO SUCIA . bueno
que opinan es posible esto.
gracias de ante manos
YoTipiando
2009-03-27 02:36:51 UTC
Permalink
gracia amigo ya lo pruebo y te aviso
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando es
el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que van
corriendo en modo de ejecucion , esto lo necesito porque en ese mismo
form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a OCUPADO
SUCIA . bueno que opinan es posible esto.
gracias de ante manos
YoTipiando
2009-03-27 02:40:42 UTC
Permalink
eeeeeeeeeeeeeeee hola amigo eee un poco mas detallado, donde coloco esto
en el init ???
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando es
el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que van
corriendo en modo de ejecucion , esto lo necesito porque en ese mismo
form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a OCUPADO
SUCIA . bueno que opinan es posible esto.
gracias de ante manos
Luis Maria Guayan
2009-03-27 18:55:32 UTC
Permalink
Es un ejemplo que se ejecuta en un PRG.

Lo que debes hacer en tu formulario es colocar un objeto Label y un objeto
Timer con la propiedad Interval = 1000 y en el método Timer escribes:

*-- lblReloj o el nombre de tu objeto Label
THISFORM.lblReloj.CAPTION = TIME()
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
eeeeeeeeeeeeeeee hola amigo eee un poco mas detallado, donde coloco
esto en el init ???
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando
es el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que
van corriendo en modo de ejecucion , esto lo necesito porque en ese
mismo form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a
OCUPADO SUCIA . bueno que opinan es posible esto.
gracias de ante manos
YoTipiando
2009-05-10 22:52:23 UTC
Permalink
hola amigo no habia visto este mensaje gracias era lo que necitaba , aunque
hubiera preferido ponerlo en un campo Text y no en un Label. pero asi queda
bien gracias.
Post by Luis Maria Guayan
Es un ejemplo que se ejecuta en un PRG.
Lo que debes hacer en tu formulario es colocar un objeto Label y un objeto
*-- lblReloj o el nombre de tu objeto Label
THISFORM.lblReloj.CAPTION = TIME()
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
eeeeeeeeeeeeeeee hola amigo eee un poco mas detallado, donde coloco
esto en el init ???
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando
es el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que
van corriendo en modo de ejecucion , esto lo necesito porque en ese
mismo form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a
OCUPADO SUCIA . bueno que opinan es posible esto.
gracias de ante manos
YoTipiando
2009-05-10 22:41:51 UTC
Permalink
Hola amigo gracias por el ejemplo , pero un detalle el objeto time ya lo
tengo agregado en el form
y ya tengo un campo text ahora este codigo como funciona donde lo pongo
en el objeto Timer1 o en el init del Form

bueno solo ese detalle gracias.
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando es
el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que van
corriendo en modo de ejecucion , esto lo necesito porque en ese mismo
form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a OCUPADO
SUCIA . bueno que opinan es posible esto.
gracias de ante manos
Luis Maria Guayan
2009-05-12 10:54:12 UTC
Permalink
Lo puedes poner en un Text con el siguiente código en el método Timer

*-- txtReloj o el nombre de tu objeto Text
THISFORM.txtReloj.Value = TIME()

Es conveniente que el control Text este desabilitado, o aqrega en el método
When del Text el código RETURN .F.
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo gracias por el ejemplo , pero un detalle el objeto time ya
lo tengo agregado en el form
y ya tengo un campo text ahora este codigo como funciona donde lo pongo
en el objeto Timer1 o en el init del Form
bueno solo ese detalle gracias.
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando
es el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que
van corriendo en modo de ejecucion , esto lo necesito porque en ese
mismo form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a
OCUPADO SUCIA . bueno que opinan es posible esto.
gracias de ante manos
YoTipiando
2009-05-12 14:30:57 UTC
Permalink
ah ok amigo me funciono perfecto gracias. cuando lo probe fue con el
datetime por eso no me funciono . gracia.
Post by Luis Maria Guayan
Lo puedes poner en un Text con el siguiente código en el método Timer
*-- txtReloj o el nombre de tu objeto Text
THISFORM.txtReloj.Value = TIME()
Es conveniente que el control Text este desabilitado, o aqrega en el
método When del Text el código RETURN .F.
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo gracias por el ejemplo , pero un detalle el objeto time ya
lo tengo agregado en el form
y ya tengo un campo text ahora este codigo como funciona donde lo
pongo en el objeto Timer1 o en el init del Form
bueno solo ese detalle gracias.
Post by Luis Maria Guayan
PUBLIC goMiForm
goMiForm = NEWOBJECT("MiForm")
goMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
CAPTION = "Ejemplo"
NAME = "frmReloj"
ADD OBJECT tmrReloj AS TIMER WITH ;
INTERVAL = 1000, NAME = "tmrReloj"
ADD OBJECT lblReloj AS LABEL WITH ;
AUTOSIZE = .T., FONTBOLD = .T., FONTSIZE = 20, ;
ANCHOR = 9, ALIGNMENT = 2, BACKSTYLE = 0, ;
HEIGHT = 35, LEFT = 240, TOP = 12, WIDTH = 112, ;
CAPTION = (TIME()), NAME = "lblReloj"
PROCEDURE tmrreloj.TIMER
THISFORM.lblReloj.CAPTION = TIME()
ENDPROC
ENDDEFINE
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos
Post by YoTipiando
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando
es el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que
van corriendo en modo de ejecucion , esto lo necesito porque en ese
mismo form tengo un mantenimiento de habitaciones osea si todas las
habitaciones dicen OCUPADAS cuando el reloj llegue a un determinado
horario por dia que automaticamente cambie el estado de OCUPADO a
OCUPADO SUCIA . bueno que opinan es posible esto.
gracias de ante manos
Martin Zamudio
2009-06-03 03:54:55 UTC
Permalink
Saludos, es posible, factible y real.
Siempre si le pones atención a la función DateTime()
Creo que te serviría mas que el control time.
Encontraras mucha ayuda en ejemplos que te ofrecen los amigos del foro
en descargas.
Post by YoTipiando
Hola amigo , nunca hice uso de este control y ahora lo voy encesitando
es el control Time ese de un relorcito
mi idea es la siguiente
poner este control en un form y poder ver la hora y los minutos que van
corriendo en modo de ejecucion , esto lo necesito porque en ese mismo form
tengo un mantenimiento de habitaciones osea si todas las habitaciones
dicen OCUPADAS cuando el reloj llegue a un determinado horario por dia
que automaticamente cambie el estado de OCUPADO a OCUPADO SUCIA . bueno
que opinan es posible esto.
gracias de ante manos
Loading...