PROBLEMA COM CALCULO
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...
Todas as outras funções dela estão normais, menos deste botão.
Oq poderia ser?
obrigado
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
Qual q mensagem de erro q esta dando?
Ou é o calculo q esta errado
Ou é o calculo q esta errado
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.
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.
Troque todos os VAL por CDOUBLE.
Abç.
Abç.
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