El problema de los números crecientes y decrecientes en un lenguaje sencillo
.Versión 2
.Ventana de ensamblaje Ensamblaje 1
.Crear subrutina __Iniciar ventana__
.Subrutina_Button1_Clicked
Etiqueta1.Título = al texto ( a valor (label1.title) + 1)
.Si es verdadero (a valor (editbox1.content) > 0)
editbox1.content = a texto (a valor (editbox1. contenido) - 5)
.Fin si es verdadero
.Se hizo clic en la subrutina _Botón 2_
Etiqueta 1.Título =ToText(ToValue(Etiqueta1.Título) - 1)
EditBox1.Content = ToText(ToValue(EditBox1.Content) + 5)
.