[Para Iniciantes] Códigos de uma Calculadora

[Tio Gordo 8]

Uma calculadora simples é utilizada para fazer soma, subtração, divisão e multiplicação, então vamos colocar um exemplo:

 

1º - Inicie um novo projeto.

2º - Coloque três Text Boxes (uma chamada txtvalor1 , outra chamada txtvalor2, e a outra txtresultado).

3º - Coloque 4 botões(um de multiplicação, um de divisão, um de soma e um de subtração).

Multiplicação - cmdmult

Divisão - cmddiv

Soma - cmdsoma

Subtração - cmdsub

 

Agora vamos aos códigos.

 

Dê dois cliques sobre o botão cmddiv.

 

Digite o seguinte código:

 

txtresultado.text = trim(txtvalor1.text) / trim(txtvalor2.text)[/b]

 

Dê dois cliques sobre o botão cmdsoma.

 

Digite o seguinte código:

 

txtresultado.text = trim(txtvalor1.text) + trim(txtvalor2.text)[/b]

 

Dê dois cliques sobre o botão cmdsub.

 

Digite o seguinte código:

 

txtresultado.text = trim(txtvalor1.text) - trim(txtvalor2.text)[/b]

 

e por fim:

 

Dê dois cliques sobre o botão cmdmult.

 

Digite o seguinte código:

 

txtresultado.text = trim(txtvalor1.text) * trim(txtvalor2.text)[/b]

 

Pronto, agora você terá uma calculadora simples.

 

OBS.: Não coloquei imagens, pois não estava conseguindo fazer o upload, assim que conseguir estarei colocando.

[SKull 0]

nossa mto bomÇÇ^^ÇÇ

os creditos sao seus???

ta mto bem exlicado

da pra fazer certinhu^^

 

 

 

 

Ops..

o bug do error multipler tah corrigido???

 

 

 

 

Cya~

[Kevox 0]

Bem simples o código, hein?

 

 

Dim a As Integer

Dim b As Integer

Dim d As Integer

 

a = txtvalor1.Text

b = txtvalor2.Text

 

txtresultado.Text = d

d = a * b[/b]

 

Simples, fácil e útil.

[Daveson 0]

Bem, não achei muito bom o post. Pois em qualquer apostila pra iniciante tem um exemplo de cauculadora.

Também achei muito breve a explicação.

Mas de qualquer jeito, nem todo mundo baixa uma apostila, parabéns.

até.

[Flatronez 1]

Eu testei o code que você fez, e a SOMA não está funcionando. Em vez do code somar, ele está "juntando" os números e mostrando na txtresultado.

 

Eu tentei dar uma modiifcada nele e ficou assim:

 

Dim a As Integer

Dim b As Integer

Dim c As Integer

 

Private Sub cmddiv_Click()

a = txtvalor1

b = txtvalor2

c = a / b

txtresultado.Text = c

End Sub

 

Private Sub cmdmult_Click()

a = txtvalor1

b = txtvalor2

c = a * b

txtresultado.Text = c

End Sub

 

Private Sub cmdsoma_Click()

a = txtvalor1

b = txtvalor2

c = a + b

txtresultado.Text = c

End Sub

 

Private Sub cmdsub_Click()

a = txtvalor1

b = txtvalor2

c = a - b

txtresultado.Text = c

End Sub[/b]

 

OBS: Não coloquei Public pq tava dando overflow.

[Tio Gordo 8]

Os créditos são meus sim, porém são linguagens comuns, onde todos podem criar.

 

Para resolver o problema da soma, eu acabei escrevendo o código errado, me desculpem não é:

 

txtresultado.text = trim(txtvalor1.text) + trim(txtvalor2.text)[/b]

 

mas sim...

 

txtresultado.text = ccur(txtvalor1.text) + ccur(txtvalor2.text)[/b]

[Boleta 1]

Erm... vários erros, tanto no tópico quanto nos posts:

 

Topico

Você não declarou variáveis =/. Sendo asism, podemos ter erros como o da soma.

 

@Kevox

Não seria:

d = a * b
txtresultado.Text = d

ao invés de:

txtresultado.Text = d
d = a * b

 

? =]

 

@Flatronez

Overflow se da ao excesso de bytes atribuidos a uma variável que não possui capacidade suficiente para armazenar um valor tão grande. Tente declara-las como Long =]

 

Abraços!

 

[Kevox 0]

@Kevox

Não seria:

d = a * b
txtresultado.Text = d

ao invés de:

txtresultado.Text = d
d = a * b

 

? =][/b]

 

 

Sou iniciante, me confundo muitas vezes

Mas não daria a mesma coisa? ;x

Sempre me atrapalho com besteiras, é impressionante.

[Flatronez 1]

@Boleta

 

Não tinha pensado nisso xD

 

Eu pensava q pra faz contas, só a Integer funcionava =]