Asteriscos en Gambas para Ubuntu






El IDE gambas para ubuntu es otra ayuda mas para los desarrolladores, esta vez si lo que quereis es usar una plataforma opensource, a continuacion os dejo el CODIGO:

' Gambas class file
PUBLIC SUB Button1_Click()
  DIM i, j AS Integer
  Label2.Caption = ""
IF IsNumber(Val(TextBox1.Text))
  FOR i = 1 TO Val(TextBox1.Text)
      FOR j = 1 TO i
        Label2.Caption = Label2.Caption & "*"
      NEXT
      Label2.Caption = Label2.Caption & "\n"
  NEXT
  TextBox1.Clear
  TextBox1.SetFocus
ELSE
  Message.Info("Debe ser un numero del 1 al 20")
  Label2.Caption = ""
  TextBox1.Clear
  TextBox1.SetFocus
ENDIF
END


PUBLIC SUB Button2_Click()
  DIM mensajeFinal AS String
      mensajeFinal = Message.Question("¿Seguro que quieres salir?", "Si", "No", "Cancelar")
   IF mensajeFinal = 1 THEN
      Message.Info("Gracias por usar mi primer programa")
      ME.Close
   ELSE
      Message.Info("a ver si te aclaras, guapa")
   ENDIF
END

Ya sabeis, para usar este programa, primero necesitais tener instalado el SO ubuntu, luego instalar gambas, y es suficiente para ver como funciona.

No hay comentarios: