Autor Tema: Uso Del Tipo Date (Leído 2026 veces)

sirespi · « **en:** Domingo 12 de Septiembre de 2004, 11:11 »

Muy buenas a todos.

Ha ver si alguien me puede decir como se hace esto. Estoy buscando realizar algo a partir de una determianda fecha, algo asi como programar la aplicacion. Es decir, un ejemplillo facil qeu estoy intentando pero que no me sale ni a tiros.

En un textbox meto la fecha en que quiero que el programa, por ejemplo, empice a hacer beep., y en otra meto la hora en que quiero que acabe.

Es decir, mi programita debe "programar" el ato que esta sonando el beep del ordena mediante las fechas que yo le meto en dos textobx.

Yo se como usar los textbox y la variable date, pero como decirl qeu empiece a sonar cuando la hora de verdad coincida con la que yo programo???

Si alguien sabe como hacer esto, le quedaria mu agradecido.

Saludos.

ebolo

Hola sirespi, debes poner un control timer en el formulario, en la propiedasd interval pones cada cuanto quieres que compruebe, y en el único evento que tiene pones las acciones que quieres que haga.
Saludos.

sirespi

Hola ebolo muchas gracias.

Sin embargo no consigo dar con ello. Creo qeu me falla la estructura del programa, vamos qeu a pesar de saber com ousar una variable date y una time, no se como puedo hacer para que ejecute algo a partir de una fecha que yo le introduzca. Podrias ponerme un ejemplo o decirme donde puedo encontrar alguno??.

Muchas gracias.

DiabloRojo

Qué tal sirespi?
Interesante tu planteamiento. Me tomo la libertad de darte un par de ideas que tal vez podrían funcionar:
-Podrías almacenar las fechas en la que deseas que ocurran determinados eventos (o que se ejecute algún código) en una base de datos. Así por ejemplo, podrías tener en tu tabla los campos Fecha, HoraInicio y HoraFinal -podría haber alguno como TipoEvento y/o Descripción, depende de lo que desees hacer-.
-Luego en el evento Load de tu aplicación podrías consultar dicha tabla y comparar las fechas con la fecha actual, de ser iguales "bajarías" la información de los campos HoraInicio y HoraFinal -y cualquier otro campo- a determinadas variables. Incluso podrías introducirlas en una colección, por aquello de si tienes más de una "programación" para el mismo día.
-Finalmente, puedes hacer lo que te indica ebolo en su post. Algo así como:

Código: Text

 
If now&#62;=HoraInicial and now&#60;=HoraFinal Then
   Beep
End If

Bueno sirespi, sólo son unas ideas. Espero te sean de alguna utilidad.
Suerte.

DiabloRojo

sirespi

Muchas gracias a los dos.

Diablo Rojo las ideas estan de p.m. Lo malo es que tengo el tiempo justo justo, oprque esto es para el PFC y entre que el tio lo quiere tener rapido para su tesis y que no tengo tiempo con el curro pues ya ves. SI a eso juntamos que no tengo ni papa de bases de datos, pues como veis voy apañao. EN cualquier caso con lo que me habeis dicho los dos este fin de semana cuando tenga algo de tiempo intentare hacerlo.

Solo una preguntilla mas. EN el codigo que has puesto, diablo rojo, el mira si la la hora actual esta entre las dos, al de inicio y fin y si lo esta hace el beep. COo hago para que esto lo haga continuamente, no solo una vez. Un do while bastaria???.

Bueno, lo dicho, muchas gracias a los dos, que a este paso voy a tener que meter al foro de solocodigo en la referencia y agradecimientos del proyecto, jejeje que seria de mi sin vosotros.

P.D. jejej, y ahora tengo otra duda que te cagas, pero esa va en otro post. Un saludo.

DiabloRojo

sirespi.
Primero debo decirte que en el ejemplo anterior que te dí hay un error NO debes usar la función Now sino la función Time.
Aquí te mando un ejemplo de cómo hacer para que el Beep suene a una hora determinada. Crea un proyecto nuevo añade dos TextBox (Text1 y Text2), un Label, dos CommandButton y un control timer. Copia el siguiente código:

Código: Text

 
' Sección general de declaraciones
Dim HorInicio As Date
Dim HorFinal As Date
Dim Sonar As Boolean
Dim hora As Date
 
Private Sub Command2_Click() 'Detener
   Sonar = False
End Sub
 
Private Sub Command1_Click() 'Aceptar
   '
   ' Los datos introducidos en Text1 y Text2
   ' deben tener el formato hh:mm:ss
   HorInicio = CDate(Text1.Text)
   '
   HorFinal = CDate(Text2.Text)
   '
   Sonar = True
   '
End Sub
 
Private Sub Form_Load()
   Timer1.Interval = 2000 'Por lo general se usa 500
   Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
   Label1.Caption = Str(Time)
   '
   hora = CDate(Format(Time, &#34;hh:mm:ss&#34;)) ' Para eliminar la partícula a.m/p.m
   '
   If (Sonar = True) Then    
      If (hora &#62;= HorInicio And hora &#60;= HorFinal) Then
         Beep
         'Print &#34;Hola&#34;
      End If
   End If
End Sub
 
 

Comentarios:
-Por cuestiones de practicidad no incluyo validaciones así que te debes asegurar de proporcionar datos correctos.
-Text1 corresponde a la hora en que deseas que el Beep comience a sonar.
-Text2 corresponde a la hora en que deseas que el Beep deje de sonar.
-Text2 debe ser mayor a Text1.
-Command2 detiene el Beep.
-El control timer se utiliza para realizar o ejecutar fragmentos de código en períodos regulares de tiempo (aunque en la práctica el timer no es muy exacto). Estos períodos regulares se establecen con la propiedad interval.

Si por ejemplo colocas HorInicio = 08:00:00 y HorFinal = 08:15:00 el Beep sonará repetidamente hasta que la condición (Hora>=HorInicio And Hora<=HorFinal) sea False, es decir, durante 15 min.

Bueno espero que te sea de utilidad.
Suerte.

DiabloRojo

sirespi

Mil gracias DiabloRojo.

Ni te puedes imaginar loque te loagradezco. He entrado a currar hoy a las 7:30 y acabo de mirar la pagina ahora que teng un ratin libre. Esta noche cuando llegue a casa probare tu codigo, pero no me cabe duda de qeu funcionara a la perfeccion. Muchisimas gracias por todo, me has ayudado un monton.

Saludos.

sirespi

Confirmado.

Funciona a las mil maravillas. Ahoar voy a ver como hago para meterlo dentro de mi aplicacion y que comienze a transmitir el puerto serie cuando yo le diga y que pare cuando se lo diga.

Mil gracias.

SoloCodigo

Autor Tema: Uso Del Tipo Date (Leído 2026 veces)

sirespi

Uso Del Tipo Date

ebolo

Re: Uso Del Tipo Date

sirespi

Re: Uso Del Tipo Date

DiabloRojo

Re: Uso Del Tipo Date

sirespi

Re: Uso Del Tipo Date

DiabloRojo

Re: Uso Del Tipo Date

sirespi

Re: Uso Del Tipo Date

sirespi

Re: Uso Del Tipo Date