Diseñe un cronómetro en vb2008 que actualice la hora cada 0,1 segundos.
booleano privado IsFirst = verdadero
formulario público 1()
{
inicializar componente();
}
Botón de anulación privado1_Click(Remitente del objeto, EventArgs e)
{
if (IsFirst)
{
HoraInicio =FechaHora. Ahora;
Temporizador1. Habilitado = verdadero
IsFirst = false
}
Otro
{
Temporizador 1. Habilitar =! Temporizador1. Habilitado;
}
}
Botón de anulación privada 3_Click(Remitente del objeto, EventArgs e)
{
HoraInicio =FechaHora. Ahora;
Este es el código para hacer un cronómetro online, espero que te sea de ayuda.
1)
Inicie Visual Basic6.0 y abra un nuevo proyecto estándar.
2)
Agregue 6 espacios de etiqueta, 2 botones de comando y 1 temporizador en el Formulario 1. Los atributos de título de los botones de comando son Iniciar y Detener respectivamente.
La propiedad Intervalo de Timer1 es 1.
Label1 Label2 Label3 tiene atributos de título de hora de inicio, hora de finalización y tiempo transcurrido respectivamente, y el atributo Enable de Timer1 es False.
3) Código
El tiempo de inicio de la regulación se utiliza como variable
El tiempo de finalización de la regulación se utiliza como variable
Dim desaparece como una variable
Private Sub cmdStart_Click()
Mostrar hora de inicio
lblStart. Título=Hora$
Hora de inicio=Ahora
Iniciar control del reloj
Temporizador 1. Habilitar=Verdadero
Finalizar conector
Sub cmdStop_Click()
Hora de parada de registro
Hora de finalización=Ahora
Apagar el control del reloj
Temporizador 1. enable=false
Mostrar tiempo transcurrido
lblApaed. caption = Formato(hora de finalización-hora de inicio, " hh:mm:ss "
Conector final
Subtemporizador privado 1_Timer()
lblStop. Caption =Tiempo en dólares
Conector final
Lo anterior se implementa usando VB6.0. Agregue el control timer1 al formulario, luego copie el siguiente código para ejecutar:
Dim x As Long
Dim h tiene la misma longitud, m tiene la misma longitud, s tiene la misma longitud, ms tiene la misma longitud
Dim cjlh tiene la misma longitud, cjlm tiene la misma longitud, la misma longitud que cjls
Marcar cjlms como una cadena
Private Sub Form_KeyDown (KeyCode es un número entero, Shift es un número entero)
Seleccione el código de clave del caso
Caso 13
Temporizador 1.
Caso 32
Temporizador 1
x = 0
i.caption = " Ejecutando " &IIf(Len(Trim(Str(h)))<2, "0" y .
Trim(Str(h)), Trim(Str(h))& "hora" & IIf(Len(Trim(Str(m)))< 2, "0" y. Trim(Str(m) )), Trim(Str(m))& "fen"&IIf(Len(Trim(Str(s)))< 2, "0" y. Trim(Str(s)), Trim( Str(s))&" segundos"&cjlms&"milisegundos"
Caso 114, 82
i Cls
Selección final
Conector final
Private SubForm_Load()
i.Font.Size = 14
i. /p>
Form 1. Caption = "Cronómetro dinámico real (hora: minuto:segundo.milisegundo)"
Imprimir "00:00:00.000"
Temporizador 1. intervalo = 10
timer1.enabled=false
x = 0
end_timer1_Timer ()'Dispara 100 veces cada 1 segundo
X = x+10 'La unidad es milisegundos. cjlh = Int(x / 3600000)
H. = cjlh 'Tiempo de recogida
Cjlm = INT ((x mod 3600000)/60000))' Esta es la clave, redondeada con INT, no INT, es un poco extraño ingresar 1 cada 30 segundos /p>
M = cjlm 'obtener minutos
cjls = Int((x Mod 3600000)Mod 60000)/1000)
S = cjls obtiene segundos.
ms =(((x Mod 3600000)Mod 60000)Mod 1000)
Si Len(Trim(Str(ms)))) = 2, entonces
cjlms = " 0 " & ampTrim(String(ms))
Terminará si...
Si Len(Trim(Str(ms)))>Entonces = 3
cjlms = Trim(Str(ms))
Terminará si...
cjlms = Left(cjlms, 2)& Trim(Str (Int (Rnd * 9)))
I. Cls
print IIf(Len(Trim(Str(h)))< 2, "0" and. Trim(Str(h)), Trim(Str(h))+":" + IIf(Len(Trim(Str(m)))<2, "0" y. Trim(Str(m)), Trim(Str(m))+":"+IIf(Len(Trim(Str (s )))<2. Trim(Str(s)), Trim(Str(s))+" "+ cjlms
¿Finalizar corto para forzar p>?