SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sirespi en Domingo 12 de Septiembre de 2004, 11:11

Título: Uso Del Tipo Date
Publicado por: 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.
Título: Re: Uso Del Tipo Date
Publicado por: ebolo en Domingo 12 de Septiembre de 2004, 17:23
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.
Título: Re: Uso Del Tipo Date
Publicado por: sirespi en Lunes 13 de Septiembre de 2004, 09:55
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.
Título: Re: Uso Del Tipo Date
Publicado por: DiabloRojo en Martes 14 de Septiembre de 2004, 15:02
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
  1.  
  2. If now>=HoraInicial and now<=HoraFinal Then
  3.    Beep
  4. End If
  5.  
  6.  

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


DiabloRojo
Título: Re: Uso Del Tipo Date
Publicado por: sirespi en Martes 14 de Septiembre de 2004, 15:56
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.
Título: Re: Uso Del Tipo Date
Publicado por: DiabloRojo en Miércoles 15 de Septiembre de 2004, 14:53
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
  1.  
  2. ' Sección general de declaraciones
  3. Dim HorInicio As Date
  4. Dim HorFinal As Date
  5. Dim Sonar As Boolean
  6. Dim hora As Date
  7.  
  8. Private Sub Command2_Click() 'Detener
  9.    Sonar = False
  10. End Sub
  11.  
  12. Private Sub Command1_Click() 'Aceptar
  13.    '
  14.    ' Los datos introducidos en Text1 y Text2
  15.    ' deben tener el formato hh:mm:ss
  16.    HorInicio = CDate(Text1.Text)
  17.    '
  18.    HorFinal = CDate(Text2.Text)
  19.    '
  20.    Sonar = True
  21.    '
  22. End Sub
  23.  
  24. Private Sub Form_Load()
  25.    Timer1.Interval = 2000 'Por lo general se usa 500
  26.    Timer1.Enabled = True
  27. End Sub
  28.  
  29. Private Sub Timer1_Timer()
  30.    Label1.Caption = Str(Time)
  31.    '
  32.    hora = CDate(Format(Time, "hh:mm:ss")) ' Para eliminar la partícula a.m/p.m
  33.    '
  34.    If (Sonar = True) Then    
  35.       If (hora >= HorInicio And hora <= HorFinal) Then
  36.          Beep
  37.          'Print "Hola"
  38.       End If
  39.    End If
  40. End Sub
  41.  
  42.  

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
Título: Re: Uso Del Tipo Date
Publicado por: sirespi en Miércoles 15 de Septiembre de 2004, 19:56
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.
Título: Re: Uso Del Tipo Date
Publicado por: sirespi en Jueves 16 de Septiembre de 2004, 07:50
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.