Fiz na teoria, se baseando em um tutorial do forum calculadora.

[Marceloh 1]

To postando meu código aqui pra ver se ta certo. To sem o vb.

Design:

[txt.bx1][tx.b2][tx.b3]=[tx.b4]

[button1]

código:

Public Class Form1

Dim n1,n2,res as single

Private Sub Button1_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button1.Click

If TextBox1.Text = String.Empty Then

MsgBox("Digite um número")

Exit Sub

End If

If TextBox2.Text = String.Empty Then

MsgBox("Digite a Operação")

Exit Sub

End If

If TextBox3.Text = String.Empty Then

MsgBox("Digite outro número")

Exit Sub

End If

n1=

textbox1.text

n2=

textbox2.text

n3=

textbox3.text

Select Case textbox2.txt

case "*"

res=n1*n2

case "/"

res=n1/n2

case "+"

res=n1+n2

case "-"

res=n1-n2

textbox4.text=res

End Case

End Class

End

Espera que esteja certo, espero noticias.

Editado Julho 7, 2011 por Guilherme.
Organização do Tópico (veja o histórico de edições)

[Ink 12]

Marceloh, pelo o que eu vi aqui ta certo sim porem você pode usar botões no lugar da pessoa digitar a operação, evitando erros do programa e erros por parte do usuário da calculadora.

[Marceloh 1]

Sim. Eu pensei em usa radionbuttons

mais na hora nem usei, haushaus,

vixi so q comento, legal!

[Ink 12]

Só uma coisa, ali aonde você declarou as variáveis troca o tipo dela para Double, assim os números quebrados serão tratados melhor pelo código.

Faz uma com botões e coloca aqui para a galera ver, e comentar sobre o seu trabalho é o melhor maneira de se aprender.

[Marceloh 1]

ta vo fazer aqui e bota no topico, so um momento.

[Marceloh 1]

Public Class Form1

Dim n1,n2,res as Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button1.Click

If TextBox1.Text = String.Empty ThenMsgBox("Digite um número")

Exit Sub

End If

If TextBox2.Text = String.Empty ThenMsgBox("Digite um número")

Exit Sub

End If

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Checked Then

res=n1*n2

End if

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Checked Then

res=n1/n2

End if

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

If RadioButton3.Checked Then

res=n1+n2

End if

End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

If RadioButton4.Checked Then

res=n1-n2

End if

End Sub

n1=

textbox1.text

n2=

textbox2.text

textbox3.text=res

End Class

End

Editado Julho 8, 2011 por Marceloh (veja o histórico de edições)

[Renato 659]

não era necessário criar outro tópico para a mesma dúvida

juntei aquele tópico à este

mais atenção.

sobre a dúvida,

veja este meu tutorial:

[Marceloh 1]

entao renato, me basei no seu tutorial, esse codigo em cima, agora queria saber se a calculadora com radiobuttons ta funcionando legal. se eu estive certo so na teoria imagine na pratica, de tanto pratica algoritmo to com muita facilidade de aprender.

[Renato 659]

cara, é que eu parei de programar á um tempão.

não lembro de metade das coisas

mas, como voce quer criar uma calculadora com radio buttons? o.o

selecionar soma, subtração, divisão ou multiplicação?

[Marceloh 1]

a calculadora faz as 4 operacoes po, tipo se o usuario clika em um radiobutton que esta indicando umas das operacoes, ela ira atribuir na variavel "res" com a operacao que o usuario escolheu depois o rusultado aparece no textbox3 com o resultado. Na minha logica é assim, e queria ter certeza se ta funcionando legal. Entendeu? E se tem alguma coisa errada no codigo, se tem fala onde eu errei.

Editado Julho 8, 2011 por Marceloh (veja o histórico de edições)

[Renato 659]

Eu to sem vbnet instalado aqui, mas se você só quer saber se ta certo, porque não testa?

Se funcionar vai estar, se não funcionar não vai estar certo o.o

[Marceloh 1]

É pq to sem o vb.net aqui também, hashaus, aqui não que estala não sei por que, eu baixei naquele seu tutorial ensinando criar bot com tibiaAPI, e quando vo estalar ele não acontece nada. Vo dormi agora vlw, se puder ou alguem ajeita o codigo 2 do post não sei organiza. Vlw. ZzzZzz

[Marceloh 1]

Me desculpa se isso é flood mais to esperando 2 dias esperando uma resposta do codigo 2, alguem pode me fala se ta certo?