Crea un cronómetro en un lenguaje sencillo
Código fuente:
Ventana de ensamblaje 1
Variable de ensamblaje, número entero
. Variable ensambladora esc, número entero
. Subrutina __Launch Window_Complete
home = Registrar tecla de acceso rápido (_Launch Window.GetWindowHandle (), etiqueta 1.GetWindowHandle (), 0, #tecla Inicio)
esc = Registrar tecla de acceso rápido Tecla ( _StartWindow.Tomar identificador de ventana (), Etiqueta 1.Tomar identificador de ventana (), 0, tecla #Esc)
Etiqueta 1.Título = A texto (0)
Subroutine_Clock1_CycleEvent<. /p>
Label1.Title = A texto (a valor (label1.title) + 1)
.Subroutine_Label1_FeedbackEvent, entero
. Parámetro parámetro uno, entero
. Parámetro dos, número entero
. Si es verdadero (parámetro uno = página de inicio)
Reloj1. Si es verdadero, finalice
. Si es verdadero (parámetro uno = esc)
Reloj 1.período de reloj = 0
Etiqueta 1.título = al texto (0)
. Si es cierto final
Mi correo electrónico: huayou60@163.com