FoxPro/Visual FoxPro - AYUDA CONTROL TIMER

 
Vista:

AYUDA CONTROL TIMER

Publicado por HUGO (207 intervenciones) el 11/05/2007 23:37:40
HOLA AMIGOS: TENGO UN PROYECTO EN VFP-7, TENGO UN FORMULARIO DONDE ESTA UN CONTROL TIMER LIGADO A UN LABEL PARA PONER LA HORA ESTE ES MI CODIGO QUE TENGO EN EL METODO INIT DE MI FORMA

IF THISFORM.lblTime.Caption != Time()
THISFORM.lblTime.Caption = Time()
ENDIF

HASTA AHÍ VAMOS BIEN.

MI PREGUNTA ES COMO LE HAGO PARA CAMBIAR UN CAPTION DE MI FORMA CUANDO X TIEMPO HALLA LLEGADO :

EJEMPLO : EL TURNO ( 1 ) ES DE 8:00 a 13:00 y el TURNO 2 ES DE 13:30 A 19:00 horas

EN MI FORMA DEBE CAMBIAR EL TURNO CUANDO SE CUMPLA LA HORA SEÑALADA AUTOMATICAMENTE.

OJALA PUEDAN AYUDARME..GRACIAS DE ANTEMANO.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA CONTROL TIMER

Publicado por andres (56 intervenciones) el 12/05/2007 00:36:22
Pude ser algo asi

if time()>'08.00'.and.time()<'13.30'
store 'MAÑANA' to turno
ELSE
if time()>'13.30'.and.time()<'19.00'
store 'TARDE' to turno
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PARA: ANDRES

Publicado por HUGO (207 intervenciones) el 12/05/2007 01:05:12
AMIGO ANDRES GRACIAS POR ESTE CODIGO YA HICE UNA PRUEBA Y ME SALIO MUY BIEN , EXACTAMENTE ERA LO QUE QUERIA. NUEVAMENTE GRACIAS. BYE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PARA: ANDRES

Publicado por HUGO (207 intervenciones) el 12/05/2007 01:45:46
Amigo Andres...puse tu codigo de la siguiente forma pero no da ningun resultado en que puedo estar mal

if time()>='16.58'.and.time()<='16.59'
ThisForm.LblTurno.Caption="turno 1"
if time()>='16.59'.and.time()<'17.00'
ThisForm.LblTurno.Caption="turno 2"
ENDIF
ENDIF

gracias de antemano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PARA: ANDRES

Publicado por ANDRES (56 intervenciones) el 12/05/2007 16:41:00
No sé a que te refieres sobre lo que no te funciona, por las dudas
prueba asi:

IF time()>='16.58'.and.time()<='16.59'
ThisForm.LblTurno.Caption="turno 1"
ELSE
time()>='16.59'.and.time()<'17.00'
ThisForm.LblTurno.Caption="turno 2"
ENDIF

o mejor con una extructura CASE

DO CASE
CASE time()>='16.58'.and.time()<='16.59'
ThisForm.LblTurno.Caption="turno 1"
CASE time()>='16.59'.and.time()<'17.00'
ThisForm.LblTurno.Caption="turno 2"
ENDCASE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda

Publicado por Junior (3 intervenciones) el 03/11/2009 18:38:37
quisiera saber como poner la hora automaticamente en un label de mi formulario.

tengo thisform.label1.caption=time()
y me sale bien pero quisiera que automaticamente se estuviera incrementando
gracias por todo anticipadamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA CONTROL TIMER

Publicado por cristhian franco (2 intervenciones) el 08/11/2010 19:01:06
esta muy buena la pregunta y tambien la combinacion....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA CONTROL TIMER

Publicado por cristhian franco (2 intervenciones) el 08/11/2010 19:03:44
esta muy buena la pregunta y tambien la combinacion....
y quiero ver si me puedes enseñar unos deberes sobre el timer que dices...spero tu respuesta...
este es mi correo [email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar