[VB6] Calcolare l'interesse composto

[RideVB]

Ciao ragazzi stò facendo un programmino che mi calcola l'interesse composto...Mi spiego meglio: dato un capitale iniziale, un interesse annuo fisso e un tempo (t) in cui esso matura restituisce il valore del capitale finale aumentato di ogni anno dell'interesse di quell'anno..

Tramite la formula:

Capitale iniziale * (1+ tasso interesse)^t

Ad esempio metto 100 euro in banca con un tasso del 6% annuo dopo sei anni avrò 179,08euro...

Nel form ho 5 text box (la uno indica il capitale iniziale, la due l'interesse, la tre gli anni, la quattro visualizza il risultato e la cinque converte automaticamente l'interesse in percentuale > quindi se metto nella due il numero 6 in automatico nella 5 viene fuori 0.06)
Due command button (reset e calcola)

Il codice integrale è questo

Private Sub Text2_Change()
Text5.Text = Val(Text2.Text) / 100
End Sub


Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) * (1 + Val(Text5.Text)) ^ Val(Text3.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Tuttavia la text4 come risultato mi da il valore della 1...se provo a togliere la storia della text5 che si converte dalla due funziona...
Cioè se metto

Text4.Text = Val(Text1.Text) * (1 + Val(Text2.Text)) ^ Val(Text3.Text)

Come mai non recepisce il valore della text5???
Help..

P.S: poi ho una combolist con due opzioni...come faccio a fare apparire due form diversi solo schiacciando su una delle 2 opzioni?? In alternativa con un bottone da cliccare dopo la scelta..?
Grrrrazie

[oregon]

Originariamente inviato da RideVB
Ad esempio metto 100 euro in banca con un tasso del 6% annuo dopo sei anni avrò 179,08euro...

179 ... e' per 10 anni ...

Comunque usa la funzione

CDbl

al posto della Val nel tuo programma.

[RideVB]

Perfetto funziona! Anche se non ho capito bene per il perchè

P.S: Grazie della correzione, sovrapensiero ho sbagliato a scrivere..

Per quanto riguarda la Combobox???
Tnx

[oregon]

Originariamente inviato da RideVB
Perfetto funziona! Anche se non ho capito bene per il perchè

La Val prevede i decimali separati sempre dal punto. Dato che il valore nella text5 era con la virgola decimale, allora devi usare la CDbl.

Per quanto riguarda la Combobox???

Per la combo sarebbe bene aprire un nuovo thread apposito, dato che e' cosi' che si fa in un forum (a che servirebbe il titolo ...?)