Problema Com Operações

[fonzar]

Olá...

Estou criando uma calculadora basica... so que não estou conseguindo fazer as operaçoes entre elas...

exemplo de como estou fazendo:

Dim n1, n2, res

public sub btn_somar_Click()

txt_1valor.text = n1

txt_2valor.text = n2

res = (n1 + n2)

txt_res.text = res

End sub.

oque acontece é que ao invés de "somar" os valores.. ele os "une" por exemplo: 1 + 1 ao ives de ser = 2, fica como 11...

já tentei criar uma function soma(a, b ), mais dai ao invés de somar fica em branco.. (não acontece nada)...

Por favor... se alguém puder me ajudar...

Obrigado !

Editado Julho 28, 2007 por fonzar

[kuroi]

declare assim:

Dim n1 As Double, n2 As Double, res As Double

[fonzar]

cara... não to conseguindo mesmo assim...

fiz da seguinte forma.. conforme você indicou:

Dim n1 As Double, n2 As Double, res As Double

--------------------------------------------------------

Function soma(a, B )

Dim resultado

resultado = (Val(a) + Val(B ) )

End Function

--------------------------------------------------------

Private Sub btn_somar_Click()

txt_1valor.Text = n1

txt_2valor.Text = n2

txt_res.Text = soma(n1, n2)

End Sub

mais ainda não esta dando certo... por favor se for noobisse da minha parte.. peço que me ajude...

obrigadoo...

Editado Julho 28, 2007 por fonzar

[Graymalkin]

Aqui...

txt_1valor.Text = n1
txt_2valor.Text = n2

... deveria ser...

n1 = txt_1valor.Text
n2 = txt_2valor.Text

... não? :huh:

Abraços,

Graymalkin

[kuroi]

e alem disso, a funcao soma noa vai retornar nd, você não passa valor pra ela. devia ser assim:

Function soma(a, B) As Double
soma = (Val(a) + Val(B ) )
End Function[/code]
outra coisa, usando a funcao val() como você faz ele não vai conseguir somar numeros com virgulas.

[fonzar]

VLW GALERA...

ASSUNTO ENCERRADO...rsrs

VLW PELA AJUDA...