[Iniciante]Calculadora básica

[FusioN]

Pessoal vamos neste tutorial fazer um calculadora bem básica mesmo, mas vamos usar um pouco de lógica para ela. Peço que a galera que ta iniciando ai em lógica de programação da uma olhada na função do código e como ele funciona, pois é bem bacana quando entende o que será feito e com isso pode evitar erros. Não crie apenas por criar entenda

# TUTORIAL #

Adicione 8 Button's e 3 TextBox's, como mostra a imagem abaixo:




Modifique os componentes como se pede abaixo, veja na imagem:

Text1 TextBox / Properties: Text = 0
Text2 TextBox / Properties: Text = 0
Text3 TextBox / Properties: Text = Resultado / Properties: Enabled = False
Command1 CommandButton / Properties: Caption = ZV ( Zerar Valor )
Command2 CommandButton / Properties: Caption = ZR ( Zerar Resultado )
Command3 CommandButton / Properties: Caption = + ( Soma )
Command4 CommandButton / Properties: Caption = - ( Subtração )
Command5 CommandButton / Properties: Caption = * ( Multiplicação )
Command6 CommandButton / Properties: Caption = / ( Divisão )
Command7 CommandButton / Properties: Caption = % ( Porcentagem )
Command8 CommandButton / Properties: Caption = ^ ( Expoente )




Iremos declarar as variáveis abaixo na parte General do projeto:

Dim Num1 As Integer
Dim Num2 As Integer
Dim Resu As Integer 

Agora vamos adicionar os códigos de cada botão, veja os códigos abaixo:

Command1 CommandButton

text1.text = ("0")
text2.text = ("0") 

Command2 CommandButton

text3.text = ("Resultado") 

Command3 CommandButton

Num1 = Text1.Text
Num2 = Text2.Text
Resu = Num1 + Num2
Text3.Text = Resu 

Command4 CommandButton

Num1 = Text1.Text
Num2 = Text2.Text
Resu = Num1 - Num2
Text3.Text = Resu 

Command5 CommandButton

Num1 = Text1.Text
Num2 = Text2.Text
Resu = Num1 * Num2
Text3.Text = Resu 

Command6 CommandButton

Num1 = Text1.Text
Num2 = Text2.Text
Resu = Num1 / Num2
Text3.Text = Resu 

Command7 CommandButton

Num1 = Text1.Text
Num2 = Text2.Text
Resu = Num1 * Num2 /100
Text3.Text = Resu 

Command8 CommandButton

Num1 = Text1.Text
Num2 = Text2.Text
Resu = Num1 ^ Num2
Text3.Text = Resu 

Pronto, sua calculadora básica está pronta.

NOTA

Gostaria de acrescentar que é possível expandir a função da calculadora com mais calculos, basta entender um pouco de matemática e lógica.

Creditos: FusioN - Imperyus Games