'So kann der ZinsesZins-Rechner ohne Klimmzüge in FB0.17 benutzt werden.. 'es ist eine 'leicht' geänderte Version.. Dim As Single aKo, aKn, an, ap , Ko, Kn, n, p, ax 'Variablen deklarieren Dim Eingabe As String 'Eingabe deklarieren Color 2, 0 'Farbe Grün, Hintergrund schwarz Do Print "=========================" 'Zur Deko;) Print "Zinseszinsrechner, Eingabe von ende bei Anfangskapital beendet das Programm "; Print "nach Tastendruck" Print "-------------------------" Print "EINGABEN": Input "Anfangskapital:", Eingabe 'Eingabe ist ne text variable ist If Eingabe="ende" Then Exit Do 'springt aus der do:loop-schleife hinten raus Ko=Val(Eingabe) 'wandelt eingabe in einen zahlenwert um und speichert diesen 'dann in der Zahlenvariable Input "Zeitraum in Jahren:", n 'Variable:n Input "Zinssatz:", p 'Variable:p Input "Endkapital:", Kn 'Variable:Kn Print "-------------------------" 'Rechnung aKn = IIF(Kn=0, Ko * (1 + p / 100) ^ n, Kn) '-------------------------------------- aKo = IIF(Ko=0, Kn / ((1 + p / 100) ^ n), Ko) '--------------------------------------- If Ko<>0 Then ax = Kn / Ko 'Variable ax bekommt den Wert aus Kn/Ko '--------------------------------------- '--------------------------------------- Print "ERGEBNISSE:" Print Using "Endkapital ########.##"; aKn Print Using "Anfangskapital ########.##"; aKo Print Using "Zeitraum ########.##"; IIF(n=0, Log (ax) / Log(1+p/100), n)'Einsetzen von ax Print Using "Zinssatz ########.##"; IIF(p=0, (ax ^ (1/n) -1)*100, p) Print "=========================" sleep cls'Clear Screen-Vorherige Ergebnisse löschen Loop Sleep 'Nach Tastendruck beenden