Escribir candados en un lenguaje sencillo
.Versión 2
.Subroutine_button1_clicked Ocultar barra de tareas()
Ocultar icono de escritorio()
reloj1.ciclo de reloj = 3000
carga ( ventana1, , verdadero)
.Subrutina _clock1_cycle_event_destroy ()------------------------------- -- -------------.Versión 2
.Subroutine_Button1_clicked.Si es verdadero (cuadro de edición 1. contenido = "123456")
Mostrar icono del escritorio ( )
Mostrar barra de tareas ().Si es verdadero fin
Cuadro de mensaje ("¡Contraseña incorrecta!", 48, "Advertencia") Para iniciar la ventana simplemente cree un botón y un reloj y reemplace el primer código. Luego cree la ventana 1, cree un cuadro de edición y un botón, y reemplace la segunda pieza de código.