Red de conocimiento informático - Descarga de software - Código fuente del programa de cronómetro implementado en Delphi

Código fuente del programa de cronómetro implementado en Delphi

Botón de control 1 Botón de inicio de cronometraje

Botón 2 Botón cero

Edit1 y timer1 se combinan para mostrar el tiempo desde el comienzo del juego hasta el presente, que cambia con el tiempo.

El temporizador 1 se utiliza para cronometrar, intervalo = 10.

Memo1 se utiliza para almacenar los registros de tiempo de todos.

Unidad unidad 1;

Conexión

Uso

Ventana, mensaje, sistema, variable, clase, gráficos, control, formulario,

Cuadros de diálogo, controles extendidos y controles estándar.

Tipo

TForm1 = clase(TForm)

nota 1: TM emo;

botón 1: TButton

editar 1: TEdit;

botón 2: botón t;

temporizador 1: TTimer;

botón Programar 1 clic (remitente: al objeto);

Botón de proceso 2 Haga clic (remitente: al objeto);

Visualización del formulario del programa (remitente: al objeto

Temporizador del temporizador 1 del proceso (Remitente: al); objeto);

Privado

{Declaración privada}

Público

{Declaración pública}

Fin;

Definir variables

forma 1: t forma 1;

I: entero;

Hora:tdatetime

s: cadena;

Rendimiento

{$R *. dfm}

Programa TForm1. Button1Click(Remitente: al objeto); //Botón de inicio del temporizador

Iniciar

Si i=0, entonces

Iniciar

I := 1;

Hora:=ahora;

s:= '00:00:00 000';

Temporizador 1. habilitado: = verdadero;

Salir;

Fin;

s: = formato fecha y hora (' hh: nn: ss: zzz ', ahora-hora) ;

nota1. DE ACUERDO. Agregar;

Fin;

Programa TForm1. Button2Click(remitente: al objeto); //Botón cero

Iniciar

Temporizador 1. habilitado:= falso;

s:= '00:00:00 000';

memo1. Borrar;

editar 1. text:= '00:00:00 000';

I:= 0; //Bandera i=1 utilizada para determinar si se inicia el temporizador Para el temporizador, i=0 no inicia el temporizador.

Fin;

Programa TForm1. FormShow(remitente: al objeto);

Inicio

I:= 0;

editar 1. texto:= ' 00:00:00 000 ';

Fin;

Programa TForm1. Timer1Timer(remitente: al objeto);

Iniciar

editar1.

text:= format datetime(' hh: nn: ss: zzz ', ahora-hora

Fin

Fin.

¡La prueba pasó y el cronómetro funciona igual!