Postagem fixa

Agora nós estamos no Facebook!!
-------------------------------------------------------------------------------------

Quer ser da equipe VB World Brasil?


Para fazer parte da equipe, preencha esse formulário goo.gl/c6rwfW e aguarde nosso contato

quinta-feira, 20 de março de 2014

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:

4 comentários: