Testando o GAMBAS

Após termos instalado o GAMBAS, vamos testa-lo criando uma calculadora em sua forma mais simples.

Se você ainda não instalou-o, siga os passos do tutorial: Baixando e Instalando o GAMBAS

Abra o Gambas;

Clique em "NOVO PROJETO";

Selecione o TIPO "QT Graphical Application" e em OPÇÕES selecione "Visual Basic Conversion Help"


Selecine o diretório onde será salvo o seu projeto. Clique em Next.

Digite o Nome e o Título do seu projeto. Neste caso, podemos chama-lo de TESTE ou CALC.
Clique em OK.

Vamos agora, criar a parte gráfica da calculadora, neste modelo:


Use os seguintes componentes e propriedades:

Na palheta form:
TextBox1 - Apague a propriedade Text
TextBox2 - Apague a propriedade Text
TextBox3 - Apague a propriedade Text

Button1 - Na propriedade Text digite "+"
Button2 - Na propriedade Text digite "-"
Button3 - Na propriedade Text digite "X"
Button4 - Na Propriedade Text digite "/"
Button5 - Na propriedade Text digite "="
Button6 - Na propriedade Text digite "Novo Cálculo"

Label1 - Coloque-o entre o TextBox1 e TextBox2 e apague sua propriedade Text.

Na palheta Container:
Frame1 - Na propriedade Text digite "Resultado"

Pronto! Agora q terminamos a parte gráfica, vamos aos códigos!!!!

Para inserir um código em um componente, clique duas vezes sobre ele.

Copie e cole os seguintes códigos, nos seguintes componentes:

Button1 "+":
PUBLIC SUB Button1_Click()

Label1.text = "+"
TextBox2.SetFocus
END

Button2 "-":
PUBLIC SUB Button2_Click()

Label1.text = "-"
TextBox2.SetFocus

END

Button3 "X":
PUBLIC SUB Button3_Click()

Label1.text = "X"
TextBox2.SetFocus

END

Button4 "/":
PUBLIC SUB Button4_Click()

Label1.text = "/"
TextBox2.SetFocus

END

Button5 "=":
PUBLIC SUB Button5_Click()

IF Label1.text = "+" THEN
TextBox3.text = textbox1.text + TextBox2.text
ENDIF

IF Label1.text = "-" THEN
TextBox3.text = textbox1.text - TextBox2.text
ENDIF

IF Label1.text = "X" THEN
TextBox3.Text = textbox1.Text * TextBox2.Text
ENDIF

IF Label1.text = "/" THEN
TextBox3.text = textbox1.text / TextBox2.text
ENDIF

END



Button6 "Novo Cálculo":
PUBLIC SUB Button6_Click()

textbox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label1.Text = ""
textbox1.SetFocus

END

Depois de ter inserido o código em todos os botões, salve seu projeto e clique em "Executar", na barra de ferramentas.

Faça o teste de sua calculadora!