Calculadora Básica en Gambas

Buenas, en esta oportunidad hice un tutorial de como realizar una calculadora básica, es una aplicacion muy novata pero quiero orientar a aquellos que recien comienzan , para aquellos que migran de Visual Basic la syntaxis del codigo no es muy diferente, se les va a hacer mas fácil, y para los que no tienen ni idea voy a hacer lo posible para que lo entiendan.
Quiero aclarar que en este tutorial no vamos a tratar manejo de errores con respecto a division por 0 o campos vacios, lo vamos a ver mas profundamente en otro tutorial que voy a hacer :)
Nota1: Si no sabes como crear proyectos en breve voy a crear un tutorial de como hacerlo ya que Gambas nos da la posibilidad de elegir que tipo de aplicación queremos realizar, aún asi no es nada dificil hacerlo solo unos clicks ^^.
Nota2:Hacer click en las imagenes mas grandes para verlas completas.
Comenzando

Al crear nuestro proyecto nos vamos a encontrar con nuestro campo de trabajo:

Nota3: Es muy probable de que a lo primero no te aparezca el menu derecho (Controles,Propiedades,Etc) si es así presionamos "F6" y listo.
Controles

Los controles que vamos a utilizar son los siguientes:
5 - Buttons
3 - Labels
2 - TextBox

Luego los vamos a colocar como más nos guste en este caso, asi los puse yo:


Explicación

5 Buttons son para las cuatro operaciónes (Suma, Resta, Division y Multiplicación) y el restante para limpiar los campos.

3 Labels uno para "¿?" que cambiará según la operación que elijamos otro para "Resultado:" y la ultima para mostrar el resultado.

2 TextBox para las cifras que en este caso lvamos a trabajar con 2.
Código

Como dije antes, el codigo es similar NO igual a Visual Basic... lo voy a colocar por partes y al final dejo el codigo completo.

Suma:

Label3.text = TextBox1.Text + TextBox2.Text
Label1.Text = "+"

Resta:

Label3.text = TextBox1.Text - TextBox2.Text
Label1.Text = "-"

Multiplicación:

Label3.text = TextBox1.Text * TextBox2.Text
Label1.Text = "x"

Division:

Label3.text = TextBox1.Text / TextBox2.Text
Label1.Text = "/"

Limpiar:

TextBox1.Text = NULL
TextBox2.Text = NULL
Label1.Text = "¿?"
Label3.Text = NULL

Si quieren en vez de NULL pueden poner el típico "" pero recomiendo NULL
Centrar ventana:

Es muy simple solo con poner la siguiente linea tendremos el formulario centrado.

ME.Center

Codigo Completo

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
ME.Center
END


PUBLIC SUB Button1_Click()
Label3.text = TextBox1.Text + TextBox2.Text
Label1.Text = "+"
END

PUBLIC SUB Button2_Click()

Label3.text = TextBox1.Text - TextBox2.Text
Label1.Text = "-"

END

PUBLIC SUB Button3_Click()

Label3.text = TextBox1.Text * TextBox2.Text
Label1.Text = "x"

END

PUBLIC SUB Button4_Click()

Label3.text = TextBox1.Text / TextBox2.Text
Label1.Text = "/"

END

PUBLIC SUB Button5_Click()

TextBox1.Text = NULL
TextBox2.Text = NULL
Label1.Text = "¿?"
Label3.Text = NULL

END

Captura



Eso es todo, luego voy a hacer algunos mas para que vayan practicando. :)


Saludos !