Red de conocimiento informático - Consumibles informáticos - Puntajes altos~~Requisitos adicionales de tarea final de curso electivo público de 100~Vb

Puntajes altos~~Requisitos adicionales de tarea final de curso electivo público de 100~Vb

Solo se escribe la cuenta regresiva y no hay ningún programa de dibujo. Puede completar el programa de dibujo usted mismo.

Nuevo proyecto

Agregue tres casillas de verificación y el. Los atributos de título son "Horas", "Minutos" y "Segundos".

Agregue tres cuadros combinados

Agregue dos botones de comando. Los atributos de título son "Entrada" y "Tiempo de cuenta regresiva"

¿Agregar? Tres temporizadores, los valores de intervalo son 1000, 800, 800

¿Agregar? Un cuadro de texto, BackColor=amp; ? One PictureBox, BackColor=amp H0

TextBox y Picturebox se colocan superpuestos, con Textbox en la parte superior, como se muestra en la imagen

Dim?hr?As?Integer,?mt; ?Como?Integer, ?sd?As?Integer

Privado?Sub?Check1_Click()

Si?Check1.Value?=?1?Entonces

Combo1.Enabled?= ?True

Else

Combo1.Enabled?=?False

Fin?Si

Fin?Sub

¿Privado?Sub?Check2_Click()

Si?Check2.Value?=?1?Entonces

Combo2.Enabled?=?True

Else

Combo2.Enabled?=?False

Fin?Si

Fin?Sub

Privado?Sub?Check3_Click( )

Si?Check3.Value?=?1?Entonces

Combo3.Enabled?=?True

De lo contrario

Combo3. ¿Habilitado?=?Falso

¿Fin?Si

Fin?Sub

Privado?Sub?Command1_Click()

hr?=? Val(Combo1.Text )

mt?=?Val(Combo2.Text)

sd?=?Val(Combo3.Text)

Texto1.Text ?=?"? "?Formato(hr,?"00")?"?:?"?Formato(mt,?"00")?" (sd,?"00")?amp;?"?"

Comando2.Enabled?=?True

Fin?Sub

¿Privado?Sub Command2_Click()

Combo1.Enabled?=? Falso

Combo2.Enabled?=?False

Combo3.Enabled?=?False

Temporizador1.Enabled?=?True

¿Fin?Sub

Privado?Sub?Form_Load()

Dim?i?As?Integer,?ii ?As

?String

For?i?=?0?To?23

ii?=?i

If?Len(ii)?lt;?2 ?Entonces?ii?=?"0"?amp;?ii

Combo1.AddItem?ii

Siguiente

Combo1.Text?=?Combo1. List(0)

For?i?=?0?To?59

ii?=?i

If?Len(ii)?lt; ?2?Entonces?ii?=?"0"?amp;?ii

Combo2.AddItem?ii

Combo3.AddItem?ii

Siguiente

Combo2.Text?=?Combo1.List(0)

Combo3.Text?=?Combo1.List(0)

Combo1.Enabled?=? Falso

Combo2.Enabled?=?False

Combo3.Enabled?=?False

Comando2.Enabled?=?False

Text1.Text?=?Format(hr?amp;?mt?amp;?sd,?"?00?:?00?:?00?")

End?Sub

Privado?Sub?Timer1_Timer()

Si?hr?=?0?Y?mt?=?0?Y?sd?=?0?Entonces

'Cuenta regresiva Detener

Temporizador1.Enabled?=?False

Temporizador2.Enabled?=?True

¿Salir?Sub

¿Fin?Si

Si?sd?lt;gt;?0?Entonces

sd?=?sd?-?1

Si no

Si ?mt?lt;gt;?0?Entonces

mt?=?mt?-?1

Si no

Si?hr?lt;gt; ?0?Entonces

hr?=?hr?-?1

Si no

'hr?=?23

¿Fin? If

mt?=?59

Fin?If

sd?=?59

Fin?If

Texto1.Texto?=?"?"?Formato(hr,?"00")?amp;?"?:?"?amp;?Formato(mt,?"00")?amp;?: ?"?Formato(sd,?"00")?"?"

Fin?Sub

Privado?Sub?Timer2_Timer()

Estático?n ?As?Entero

n?=?n? ?1

Si?n?Mod?2?=?1?Entonces

Texto1.Visible? =?False

Si?n?=?7?Entonces

Temporizador2.Enabled?=?False

Imagen1. ¿Escala?(-135,?50 )-(135,?-50)

¿Fin?Si

Else

Texto1.Visible?=?True

¿Fin?

If

End?Sub

Private?Sub?Timer3_Timer()

'Agregar dibujo aquí

End?Sub