Como fazer uma calculadora simples no vb.net
Deixa o seu designer assim:
primeiramente bora definir as variáveis globais:
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
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
no botão “/” coloque o codigo:
no botão de “x” coloque o codigo:
Agora a parte que faz “ a magica” o botão do igual “=”, coloque o codigo
ele somara de acordo com o sinal da soma que estiver na variavel operador, por exemplo:
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:
‘Adicionara o numero "0" na textbox1
No botão do 1 coloque o codigo:
‘Adicionara o numero "1" na textbox1
No botão do 2 coloque o codigo:
‘Adicionara o numero "2" na textbox1
e assim em diante até o numero 9,
E no botão da virgula coloque o codigo:
‘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
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


14:49
Denisson




0 comentários:
Postar um comentário