Análisis del código fuente del temporizador

Un código más corto, conciso y fácil de entender escrito por mí que le permite especificar una cuenta regresiva dentro de las 24 horas. Cuando se especifica, hh es la hora y se le asigna un valor de 0-23, mm es el minuto y se le asigna un valor de 0-59, y ss es el segundo y se le asigna un valor de 0-59, pero mm y ss suelen ser 0. Haga clic en el botón de cuenta regresiva para comenzar.

Necesita crear el control Command1 y el control Timer1 en el formulario.

dim

timeall

Me gusta

long

Calcula el número total de segundos de la cuenta atrás.

Privado

Submarino

Comando1_Click()

Temporizador1. Habilitar

=

Real

Fin

Submarino

Submarino

Timer1_Timer( )

Si

timeall

=

Entonces

Comando 1. Título

=

"00:00:00"

Cuadro de diálogo

"¡Cuenta atrás!"

Temporizador1. Habilitar

=

comando

otro

incorrecto 1. Título

=

Formato (todos los tiempos

\

3600,

"00")

p>

& amp

":"

& amp

Formato ((timeall

\

60)

Ministerio de Defensa Juventud Moderna

60,

"00")

& amp

":"

& amp

Formato (todos los tiempos

Ministerio de Defensa; Juventud Moderna

60,

p>

"00")

timeall

=

timeall

-

1

Fin

Si

Fin

Submarino

Privado

Submarino

form_activate()

dim

hh%,

hmm%,

ss %

El doble de duro

=

1:

mm

=

0 :

Materia suspendida

=

Especifica la duración de la cuenta atrás.

Comando 1. Título

=

Formato (hh,

"00")

& amp

":"

& amp

Formato (mm,

"00")

& amp

":"

& amp

Formato (ss,

"00")

timeall

=

Dos veces más duro

*

3600 & amp

+

mm

*< / p>

60 & amp

+

Sólidos en suspensión

-

1

Temporizador 1. Habilite el temporizador

=

incorrecto

1. Intervalo

=

1000

Fin

Submarino