Como fazer uma calculadora simples no vb.net

Deixa o seu designer assim:

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:

Leia Mais ►

#2 Fazendo cálculos com VB.NET

Com a linguagem vb.net é muito fácil fazer cálculos, aqui irei falar um pouco sobre matemática no visual basic.

Operações básicas:










Adição (+)
Subtração (-)
Multiplicação (*)
Divisão (/)
Exponenciação (^)
Divisão Inteira (\)
Resto da divisão (Mod)

Mais nao é so isso 

tem mais 

Função	Uso
Math.Abs()	Retorna o valor absoluto.Math.Abs(-10) retorna 10.
Math.Ceiling()	Retorna o menor inteiro maior que é maior ou igual  ao número especificado:Math.Ceiling(5.333) retorna 6.
Fix()	Retorna a porção inteira de um número. Fix(5.3333) retorna 5.
Math.Floor()	Retorna o maior inteiro que é menor que ou igual  ao número especificado: Fix(5.3333) retorna 5.Para números negativos o comportamento pode ser diferente: Math.Floor(4.8) retorna 4. Math.Floor(-4.8) retorna -5.
Int()	Retorna a porção inteira de um número: Int(5.3333) retorna 5.
Math.Max()	Retorna o maior entre dois números:Math.Max(5,7) retorna 7.
Math.Min()	Retorna o menor dentre dois números: Math.Min(5,7) retorna 5.
Math.Pow()	Retorna um número elevado a potência indicada: Math.Pow(12,2) - (doze ao quadrado) retorna 144.
Rnd()	Retorna a número aleatório entre 0 e 1. Usado em conjunto com a instrução Randomize para iniciar o gerador de números aleatórios:
Math.Round()	Arredonda um número para um número específico de casas decimais. Arredonda com 5 casas decimais.Math.Round(1.1234567,5) retorna 1.12346
Math.Sign()	Retorna o sinal de um número. Retorna -1 se negativo e 1 se positivo.Math.Sign(-5) retorna -1.
Math.Sqrt()	Retorna a raiz quadrada de um número positivo: Math.Sqrt(144) retorna 12.
Math.Pi	Representa a constante PI A = Math.PI * Math.Pow(raio, 2) - retorna a área do círculo  para o raio informado (A= PI . R ^2) Obs: O símbolo ^ significa "elevado a"

                                                A tabela é do site Macoratti.net

alguns exemplos:

Adição:

MsgBox(" A soma entre 2 + 2 é  " & 2 + 2)

Somando textbox1 com a textbox2:

  dim num1 as double = textbox1.text
dim num2 as double = textbox2.text

msgbox("A soma do textbox1 + textbox2 é: " & num1 + num2)
  

Veja como criar a calculadora com vb.net Clique Aqui

Leia Mais ►