sábado, 21 de junho de 2014

.:.:Visual Basic:.:. Como fazer uma calculadora simples

Como fazer uma calculadora simples no vb.net

Deixa o seu designer assim: 
image_thumb 
primeiramente bora definir as variáveis globais:
Dim operador As String  
Dim num1 As Double 
Dim num2 As Double

Essas são as variáveis, os números a se somar ficarão armazenados na variável num1 e num2, e o sinal da operação ( + - x / ) ficara armazenado na variável operador. 
Agora bora “dar vida” aos sinais ( + – x / ) 
no botão de + coloque o codigo 

If TextBox1.Text = "" Then
           MsgBox("Coloque algum numero")
       Else
           num1 = TextBox1.Text
           operador = "+"
           TextBox1.Text = ""
       End If


Aqui é o botão do mais "+" e quando clicar nele o operador vai mudar para "+" e os numeros que estiver na textbox1 ficara armazenado na variavel num1, e a textbox1.text se limpara. as mesmas coisas abaixo, mais com o operador diferente. 
no botão de - coloque o codigo 

If TextBox1.Text = "" Then
           MsgBox("Coloque algum numero")
       Else
           num1 = TextBox1.Text
           operador = "-"
           TextBox1.Text = ""
       End If


no botão “/” coloque o codigo: 

If TextBox1.Text = "" Then
           MsgBox("Coloque algum numero")
       Else
           num1 = TextBox1.Text
           operador = "/"
           TextBox1.Text = ""
       End If


no botão de “x” coloque o codigo: 

If TextBox1.Text = "" Then
           MsgBox("Coloque algum numero")
       Else
           num1 = TextBox1.Text
           operador = "x"
           TextBox1.Text = ""
       End If


Agora a parte que faz “ a magica” o botão do igual “=”, coloque o codigo 

If TextBox1.Text = "" Then
           MsgBox("Coloque algum numero")
       Else
           num2 = TextBox1.Text
           If operador = "x" Then 'vezes
               TextBox1.Text = num1 * num2
           End If

           If operador = "+" Then 'mais
               TextBox1.Text = num1 + num2
           End If

           If operador = "-" Then 'menos
               TextBox1.Text = num1 - num2
           End If

           If operador = "/" Then 'dividido
               TextBox1.Text = num1 / num2
           End If

       End If

ele somara de acordo com o sinal da soma que estiver na variavel operador, por exemplo:

 ElseIf operador = "x" Then
            TextBox1.Text = num1 * num2

nesse codigo acima, " se o operador for "x", vai somar num1 vezes num2 e aparecera a variavel na textbox1. 
Agora chegou a hora um pouco chatinha, “dar vida” aos botões dos numeros, bora la: 
No botão do 0 coloque o codigo:

TextBox1.Text += "0"

‘Adicionara o numero "0" na textbox1 
No botão do 1 coloque o codigo:

TextBox1.Text += "1"

‘Adicionara o numero "1" na textbox1 
No botão do 2 coloque o codigo:
TextBox1.Text += "2"

‘Adicionara o numero "2" na textbox1 
e assim em diante até o numero 9, 
E no botão da virgula coloque o codigo:
TextBox1.Text += ","

‘Adicionara a virgula "," na textbox1 
Terminamos, teste ai, nao esqueça de comentar e tirar suas duvidas ai.
Abraço. 

                             Baixe o projeto: clique aqui

0 comentários:

Postar um comentário

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Affiliate Network Reviews