calculadora

Montando uma Calculadora
Existe uma forma fácil, em Visual Basic, para montar uma calculadora. É até mesmo mais fácil do que ir à loja e comprar uma nova...
Os objetos utilizados em nossa calculadora são nossos velhos conhecidos: botões e uma caixa de texto. Vejamos:
O projeto é fácil...
Inicialmente, vamos mostrar os objetos e as propriedades que foram alterados. Em seguida, mostraremos os códigos dos botões.

OBJETO

PROPRIEDADES

Form
Text: Calculadora
Button1 (Botão
Text: 1
Button2 (Botão
Text: 2
Button3 (Botão
Text: 3
Button4 (Botão
Text: 4
Button5 (Botão
Text: 5
Button6 (Botão
Text: 6
Button7 (Botão
Text: 7
Button8 (Botão
Text: 8

1)
2)
3)
4)
5)
6)
7)

Button9 (Botão 9)
Text: 9
Button10 (Botão 0)
Text: 0
Button11 (Botão +)
Text: +
Button12 (Botão =)
Text: =
Button13 (Botão Sair)
Text: Sair
Button14 (Botão C)
Text: C
Button15 (Botão x)
Text: x
Button16 (Botão /)
Text: /
Button17 (Botão -)
Text: TextBox1 (Caixa de Texto)
Font: alterada para Arial 18 Negrito

8)

Em seguida, apresentaremos os códigos para os diversos objetos, mas antes de programar os objetos, precisamos declarar duas variáveis: valor e função.
Public valor As Single
Public funcao As String
ATENÇÃO: Digite estas duas linhas de comando abaixo da linha onde temos “Public Class Form1”. Veja:

OBJETO

CÓDIGO
Private Sub Button1_Click(ByVal sender As System.Object,
Handles Button1.Click
TextBox1.Text = TextBox1.Text & 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,
Handles Button2.Click
TextBox1.Text = TextBox1.Text & 2
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,
Handles Button3.Click
TextBox1.Text = TextBox1.Text & 3
End Sub
Private Sub Button4_Click(ByVal sender As System.Object,
Handles Button4.Click
TextBox1.Text = TextBox1.Text & 4
End Sub
Private Sub Button5_Click(ByVal sender As System.Object,
Handles Button5.Click
TextBox1.Text = TextBox1.Text & 5

ByVal e As System.EventArgs)

ByVal e As System.EventArgs)

ByVal e As System.EventArgs)

ByVal e As