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 p>
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 p>
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 p>