Código fuente de VB de cuenta regresiva para el examen de ingreso a la universidad
Coloque tres controles en el formulario: Temporizador1, Texto1 y Etiqueta1, y establezca el índice de Etiqueta1 en la ventana de propiedades.
Si la propiedad se establece en 0, no es necesario establecer otros controles y propiedades.
Atenuar ctStr como cadena
Private subform_Load()
Atenuar I como
Long, Y es Long, nStr es String
ctStr =
Trim(GetSetting("xUnTime", "xOpt", "xCap", ""))
Si ctStr =
""Entonces ctStr = "Examen de ingreso a la universidad""Título predeterminado
Texto1. Fuente. Negrita
=True
Etiqueta1(0). AutoSize = Verdadero : etiqueta 1(0) negrita =
Verdadero
Etiqueta1(0) . >Cargar etiqueta1(I): etiqueta1(I) visible=
verdadero
luego
i.Color de fondo=
ampHFF8888
Label1(0).Color de primer plano=
ampHFF000
Label1.ToolTipText=
"Haga clic para modificar el título. "
nStr =
Trim(GetSetting("xUnTime", "xOpt", " xTime ", ""))
NStr = "" '* *** *Código de depuración
Si nStr
= " "Entonces hora predeterminada: 7 de junio del año actual de la computadora
Y
=Formato (fecha, "aaaa")
I = DateDiff("s",
Ahora, Y amp"-6-7 9:00:00")
Si lt0
entonces Y = Y 1
Y amp"-6-7
9:00:00"
Terminará si...
Texto1 = 20:
Texto1. = nStr
Timer1.Enabled = True: Timer1.
Finalizar montaje
Submarino privado
Form_Unload (descargar como entero)
Guardar configuración "xUnTime",
"xOpt","xCap",ctStr
Guardar configuración "xUnTime","xOpt",
"xTime",Text1. Texto
Conector final
Subetiqueta privada 1_Click (indexada como
entero)
Título modificado por el usuario.
Si Index lt gt0
Entonces salga de la sección corta
Atenuar nStr como cadena
nStr
= Recortar (InputBox("Ingrese el título del evento de cuenta regresiva:", "Título establecido en cuenta regresiva", ctStr))
If
Right(nStr, 3) = "cuenta regresiva" entonces nstr = trim (left (nstr, len (nstr)-
3))
Salir de Sub si nStr = " "
ctStr =
nStr
Llamar a Form_Resize
Conector final
Submarino privado
Text1_Change()
Llamar Temporizador 1_Temporizador
Llamada
Form_Resize
Conector final
Subform_Resize privado()
Atenuar
I es largo, H es sencillo, F es sencillo, W1 es sencillo
Marcar S0 como sencillo
S1 es sencillo Sencillo, S2 es sencillo, L1 es sencillo, L2 es
único
S0 = 0
S1
= 5 LenB( StrConv(ctStr, vbFromUnicode))
Si s 1 lt; entonces 9
S1 = 9
S2 = 0.5 LenB(StrConv(text 1. text ,
vbFromUnicode))
Si S2 <16.5 entonces S2 =
16.5
F = i. ScaleX(i.scalewidth,
i.scalemode, 3)/(s0 * 2 s1 s2)' Establece el tamaño de fuente según el ancho de la ventana.
H =
I. ScaleY(i. ScaleHeight, i. ScaleMode, 3) /
12 'Establece el tamaño de fuente según la altura de la ventana.
Si F gtH
Entonces F = H
F = F - 1
Si F lt3 entonces
F = 3
Texto1. Tamaño de fuente =
F
hh =
Texto1. Tamaño de fuente
Configúrame. font=
Texto1. Fuente
W1=i. ancho del texto (" A ")
L1 =
(i.ancho de escala-w 1 *(s 1 S2))* 0.5
L2 = L1 W1 *
S1
Texto1. Ancho = W1 *
S2
Label1(0).Font.Size = F *
1.5
Para I = 1 Decir
Etiqueta1. UBound
Label1(I).Font.Size =
F
Entonces
H = Label1(1). Altura*
0.5
Título
i. ctStr amp
"Cuenta regresiva"
Etiqueta1(0). ctStr amp
"Cuenta regresiva"
Etiqueta1(0). mover (yo.
Ancho de escala - Etiqueta1(0). Ancho)*
0,5, (es decir, Altura de escala - H * 12) *
0,4
Actual
Etiqueta1(1). Título=
"Hora actual"
Etiqueta1(1). Mover L1, Etiqueta1(0). Altura superior* 4,5:
Etiqueta1(2). Mover L2,
Etiqueta1(1). Arriba
Hora del examen de ingreso a la universidad
Etiqueta 1 (3). Título=
ctStr amp "tiempo"
Etiqueta1(3). Mueve L1, etiqueta 1(1). Arriba H *
三
Texto1. Apariencia = 0
Texto1. Mover L2,
Etiqueta1(3). Arriba, Texto1. Ancho,
Etiqueta1(3). Altura
Tiempo restante
Etiqueta1(4). Mover L1,
Etiqueta1(3). Superior H * 3: Etiqueta1(4). Título=
"Tiempo restante"
Etiqueta1(5). Mueve L2, etiqueta 1(4). Arriba:
Etiqueta1(5). ForeColor = 255
Conector final
Submarino privado
Temporizador 1 _Timer()
Las dimensiones D son la misma longitud y H son las mismo Largo, M tiene la misma longitud, S tiene la misma longitud
Largo
Cuando ocurre un error, vaya a
Óxido de Cobre
Etiqueta1(2). Título = Ahora
S =
DateDiff("s ", Ahora, CDate(Text1. Text))
Si S lt Entonces 1
Etiqueta1(5). Caption = "Se acabó el tiempo": Salir de Sub.
D = S\86400'3600 * 24
S=S Mod 86400: H
= S\3600
S= S Módulo 3600: M = S \
60
S = S Mod 60
Etiqueta1(5). Título = D
amp "Dios"; H amp "Tiempo"; M amp "Min";
"Segundos"
Conector de salida
cuo:
Etiqueta1(5). Título
= "Hora incorrecta ingresada"
Finalizar conector