PROBLEMA COM CALCULO

RATOPD9 03/08/2009 16:31:14
#318722
Gente, tinha um projeto pronto de uma calculadora aqui em meu pc montado por mim mesmo.
esta tudoo 100% funcionando, mas, tive que formatar meu pc.
Salvei meu projeto, formatei, instalei novamente o vb, problema é que um botao da calculadora deixou de funcionar.

o botao é esse...

  Private Sub Command14_Click()

Dim dist As Double
Dim taco As Double

dist = Val((txtdistinicial.Text) / Val(txtmaxpin.Text))
taco = Val(txtftaco.Text) / 100
txthwiinicial.Text = (Val(dist) ^ Val(taco)) * Val(txtfullshot.Text)
txt1.Text = ((Val(dist) ^ Val(taco)) * Val(txtfullshot.Text)) - Val(txtalthwi.Text)
End Sub


Todas as outras funções dela estão normais, menos deste botão.

Oq poderia ser?

obrigado
ALVAROVB2009 03/08/2009 17:24:44
#318735
Qual q mensagem de erro q esta dando?
Ou é o calculo q esta errado
RATOPD9 03/08/2009 17:36:36
#318740
Não da mensagem de erro nenhum, o botao apenas nao esta funcionando
reparei tb que um outro botao de soma, tb esta com problema..

era para ele somar, exemplo..

1,29848757575 + 25 = 26,29848757575

mas ele me da o resultado 26, nao esta mantendo os numeros apos a virgula.


BIODIESEL 03/08/2009 17:39:37
#318741
Troque todos os VAL por CDOUBLE.

Abç.
ALVAROVB2009 03/08/2009 17:48:28
#318745
esta dando esse resultado inteiro pois é o VAL faz, agora vc pode trocar por ccur e ou pelo cdouble
Tópico encerrado , respostas não são mais permitidas