Red de conocimiento informático - Aprendizaje de código fuente - El problema de los números crecientes y decrecientes en un lenguaje sencillo

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)

.