[VB6] Come calcolare interesse composto?
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
Codice:
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
Codice:
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
