[VB6] Somma tra caselle di testo

[marco.santilli]

Devo sommare il valore di 3 caselle di testo.

TextTot= text1.text + text2.text + text3.text

Cosi facendo non mi fa la somma, ma mi unisce i numeri

Quindi:

TextTot= Val(text1.text) + Val(text2.text) +Val(text3.text)

Cosi facendo funziona, ma mi restituisce numeri interi.....
Putroppo hanno la virgola

Quindi ho fatto:

TextTot= CDbl(text1.text) + CDbl(text2.text) +CDbl(text3.text)


Cosi facendo mi da errore

Come posso fare per avere questa somma anche con i decimali????

Ciao e grazieeeeeeee

[Boolean]

non dici di quale errore si tratta, e nemmeno mostra la dichiarazione della variabile TextTot...
ma se si tratta di un errore di tipo non corrispondente, significa che TextTot non è tipizzata nel modo corretto.

dovresti dichiararla come Double, quindi:

Dim TextTot As Double

Boolean

[marco.santilli]

TextTotaleProteine.Text = CDbl(Txtproteine(0).Text) + CDbl(Txtproteine(1).Text) + CDbl(Txtproteine(2).Text) + CDbl(Txtproteine(3).Text) + CDbl(Txtproteine(4).Text)

Quando la eseguo mi dice

TIPO NON CORRISPONDENTE

[Boolean]

se tutti i TextBox contengono un valore numerico, allora quello che hai scritto deve funzionare senza errori... ma se almeno uno dei TextBox è vuoto o contiene valori non numerici, allora si presenta l'errore che hai riportato.

se c'è la possibilità che l'utente lasci dei TextBox vuoti, l'unica è fare un controllo di validità che, considerato che hai una matrice di controlli, fai facilmente con un ciclo For...Next

Boolean

[ans]

Il separatore dei decimali qual'è? Se è , hai errore, deve essere .