Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Un Detalle Del Control Timer
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Un Detalle Del Control Timer 
 
Hola buenas como estan un saludo a todos los programadores analistas y administradores.

Poseo un detalle que quiero plantear y es con la forma logica de ejecutar otro formulario cuando se cumpla la hora y minutos determinados por ejemplo:

Yo quiero que cuando mi formulario n1 en su hora diga que son 6:00 se cierre y me ejecute el formulario n2.

Yo lo veo de esta forma con el evento timer:

Public Sub Timer1_Timer()
ValueBox1.Value = Time(Hour(Now), Minute(Now), Second(Now))
if valuebox1.value="6:00" then
endif
me.close
formularion2.show
End

Pero creo que lo estoy haciendo mal porque parece que el timer no me reconoce IF para la condicion! lo ejecuto y de una vez me jecuta el formulario n2 sin validar si la hora es igual a 6:00.

Que me proponen ustedes les agradezco de antemano.
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Del Control Timer 
 
jousseph:

No hay una orden después de la condición.Esta fuera.

Cuenta con los segundos, que también lo estas mostrando en el valuebox.

Ejemplo:
PUBLIC SUB Timer1_Timer()
  ValueBox1.Value = Time(Hour(Now), Minute(Now), Second(Now))
  IF valuebox1.value = "10:36:00" THEN  
    ME.close
    Form1.show
  ENDIF
END
 


Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Domingo, 02 Septiembre 2012, 09:40; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Del Control Timer 
 
No se si la condición se clumplira introduciendo un =, ya que es posible que segun el tiempo del timer se pase de la hora.
yo Intentaria un tipo >=
 



 
arubioc - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Del Control Timer 
 
Hola señor SHELL buenas noches como esta un gusto, si lo que usted afirmo es cierto funciono, era que me estaba comiendo los 00 seg y que tambien el endif lo estaba colocando muy antes y ejecutaba todo de una vez, tambien habia algo que yo no notaba que la hora en mi maquina son del tipo de hora 12am y 12pm en el sistema con el timer me lo coloca en hora militar como haria yo para que no diera hora militar y muchas gracias por su ayuda.

Es asi como me quedo gracias:

ValueBox1.Value = Time(Hour(Now), Minute(Now), Second(Now))
If valuebox1.value = "22:40:00" Then  -----------------------------------------horma militar quisiera ponerlo en hora normal gracias.
    Me.close
    carga_hora_salida.show
  Endif
  End

Señor Arubioc hola un saludo, la condicion funciono con el "=" muchas gracias.
 



 
última edición por jousseph el Lunes, 03 Septiembre 2012, 04:28; editado 1 vez 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Del Control Timer 
 
jousseph:

Hay una forma de poner en el formato 12h.
Pero no sabes si es AM o PM.

Prueba a jugar con esta expresión.Cámbiale la hora

PRINT Format(Now, "hh:nn AM/PM")
 


A ver que te parece esta función.Si es del todo correcta.
Private Function formato12h(hora As String) As String
  Dim posicion As Integer
  Dim shora As String
  Dim sminutos As String
  
  posicion = InStr(hora, ":")
  shora = Left(hora, posicion - 1)  
  sminutos = Right(hora, posicion - 1)
  
  Select Case CInt(shora)
      Case 0          'De 0:00 a 0:59
        shora = CInt(shora + 12) & ":" & sminutos & " A.M"
      Case 1 To 11    'De 1:00 a 11:59
        shora = shora & ":" & sminutos & " A.M"  
      Case 12         'De 12:00 a 12:59
        shora = shora & ":" & sminutos & " P.M"  
      Case 13 To 23   'De 13:00 a 23:00
        shora = CInt(shora - 12) & ":" & sminutos & " P.M"
  End Select
  Return shora
End
 


Cuando no hay, hay que inventar.
Es un ejemplo, naturalmente.

Saludos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Del Control Timer 
 
MMM ya veo voy a probarlo a ver, muchas gracias señor SHELL
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Timer En Aplicacion De Consola Gambas destroyer General 3 Miercoles, 27 Octobre 2010, 11:52 Ver último mensaje
destroyer
No hay nuevos mensajes Timer??? arkyansoul Controles/Librerías/Componentes 4 Miercoles, 22 Diciembre 2010, 01:13 Ver último mensaje
arkyansoul
No hay nuevos mensajes Ejemplo De Barra De Progreso Con Timer Shell Aplicaciones/Fragmentos de Código 15 Viernes, 22 Marzo 2013, 10:09 Ver último mensaje
Shell
No hay nuevos mensajes Como Usar El Timer mesm82 Controles/Librerías/Componentes 6 Martes, 02 Julio 2013, 20:50 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron