Código fuente de la ventana de inicio de sesión en lenguaje sencillo
.Versión
2
.Assembly
Ensamblaje de ventana 1
.Subrutina
_Button1_Clicked
.If
(Cuadro de edición 1.content
=
"abcd"
y
Cuadro de edición 2.)
Cuadro de mensaje
("¡La contraseña es correcta!",
0,
)< / p>
_Ventana de inicio. Visible
=
Falso
Cargando
(Ventana 1,
,
Falso)
. De lo contrario
Cuadro de mensaje
("¡Contraseña incorrecta!",
0,
)
Fin
()
. Si termina