SOMA DE MOEDAS

GOLVEIAR 31/05/2007 11:44:59
#219089
Ola Galera blz? Agradeço a tofos que sempre me ajudaram neste forum. que Deus abençoe a todos eu estou fazendo um cadastro de contas quero que o valor da soma apareça de acordo com o preenchimento dos campos.vja meu Exemplo
Option Explicit

Private Sub Soma()
txtTotal.Text = CDbl(txtValor1) + CDbl(txtValor2) + CDbl(txtValor3)
End Sub


Private Sub cmdSair_Click()
End
End Sub


Private Sub txtValor1_LostFocus()
Soma
End Sub


Private Sub txtValor2_LostFocus()
Soma
End Sub


Private Sub txtValor3_LostFocus()
Soma
End Sub

so que não aceita valor em branco causa o erro 13 alguem pode me ajudar desde ja agradeço
USUARIO.EXCLUIDOS 31/05/2007 11:48:45
#219092

Pense bem..

O VB n entende que branco é igual a 0..então ele n consegue somar 5 com nada..

Então faça com que se o campo for deixado em branco, colocar zero

e pronto..ta resolvido

Boa sorte
ALMARTI 31/05/2007 11:51:33
#219095 Resposta escolhida
private sub Soma()

DIm v1 as double
Dim v2 as double
dim v3 as double

if not isNumeric(txtValor1) then v1 = 0 else v1 = txtValor1
if not isNumeric(txtValor2) then v2 = 0 else v2 = txtValor2
if not isNumeric(txtValor3) then v3 = 0 else v3 = txtValor3

txtTotal.Text = v1 + v2 + v3

End sub

Mas lhe digo que isto não representa uma forma delegante. Pesquise sobre o uso de MaskEditBox
GOLVEIAR 31/05/2007 11:54:03
#219096
caro amigo obrigado pela ajuda mas o evento lostfocos ele soma todos os resultado de uma vez só tem campo que eu ainda não preenchi sera que não tem como anular o valor nulodos campos ate que eu preencha eles
GOLVEIAR 31/05/2007 11:57:32
#219097
caro amigo ALMARTI tu es u sabio em vb um dia ainda chego a 1% de tevaleu pela dica mesmo
USUARIO.EXCLUIDOS 31/05/2007 11:57:44
#219098


Inicie eles como padrão zero

tipo

Form_load

text1 = 0
text2 = 0
text3 = 0

Sim...qdo digitar o primeiro valor...e fizer a soma...funcionará
Tópico encerrado , respostas não são mais permitidas
Voltar