Programación General > Visual Basic 6.0 e inferiores
Uso Del Tipo Date
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 declaracionesDim HorInicio As DateDim HorFinal As DateDim Sonar As BooleanDim hora As Date Private Sub Command2_Click() 'Detener Sonar = FalseEnd 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 = TrueEnd Sub Private Sub Timer1_Timer() Label1.Caption = Str(Time) ' hora = CDate(Format(Time, "hh:mm:ss")) ' Para eliminar la partícula a.m/p.m ' If (Sonar = True) Then If (hora >= HorInicio And hora <= HorFinal) Then Beep 'Print "Hola" End If End IfEnd 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.
Navegación
[*] Página Anterior
Ir a la versión completa