Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Kernelpanic on September 05, 2020, 02:56:13 pm

Title: Calculated the end total
Post by: Kernelpanic on September 05, 2020, 02:56:13 pm
Calculated the end total of a constant annual capital deposit. Payable in advance and annually in arrears(?) - Financial English!

It is an old program, written with QB4.02b now convert in QB64 - and it is in German.

Code: QB64: [Select]
  1. '1200.001Berechnet ein angesammeltes Kapital nach n Jahren,
  2. 'Siehe -Duden Mathematik- S.540f                   -  5. Okt.  1994
  3. 'Ausdruck der Daten                                       - 12. M„rz  1995
  4. 'Vor- und Nachschssige Berechnung und Ausdruck    - 15. Sept. 1996
  5. 'Calculated the end total of a constant annual capital deposit - Sept 2020
  6. '=========================================================================
  7.  
  8. DECLARE SUB Drucken (Einzahlung AS DOUBLE, Zinssatz AS SINGLE, Zeit AS INTEGER, q AS DOUBLE)
  9.  
  10. DIM Einzahlung AS DOUBLE, EndKapVor AS DOUBLE, EndKapNach AS DOUBLE
  11. DIM Zeit AS INTEGER, Zinswert AS SINGLE, q AS DOUBLE
  12. DIM Zaehler AS INTEGER, ZwiSumVor AS DOUBLE, ZwiSumNach AS DOUBLE
  13. DIM Spalte AS INTEGER
  14. DIM Antwort AS STRING
  15. '--------------------------------------------------------------
  16. DIM SHARED Datum AS STRING, Monat AS STRING
  18.  
  19.  
  20. 'Bildschirmfarbe: Weiss auf Blau
  21. COLOR 15, 1
  23.  
  24. 'Muss im Hauptmodul stehen, s.a. N61 "B.-Befehlsverzeichnis"
  25. Datum$ = DATE$
  26. FOR I% = 1 TO VAL(Datum$)
  27.   READ Monat$
  29. DATA Januar,Februar,Maerz,April,Mai,Juni,Juli
  30. DATA August,September,Oktober,November,Dezember
  31.  
  32. Tag$ = MID$(Datum$, 4, 2)
  33. IF LEFT$(Tag$, 1) = "0" THEN Tag$ = RIGHT$(Tag$, 1)
  34. Jahr$ = RIGHT$(Datum$, 4)
  35.  
  37. LOCATE 1, 12
  38. PRINT "BERECHNET ZU WELCHER ENDSUMME SICH EINE GLEICHBLEIBENDE"
  39. LOCATE 2, 21
  40. PRINT "JÄHRLICHE KAPITALEINZAHLUNG SUMMIERT"
  42. FOR I% = 1 TO 80
  43.   PRINT "Ü";
  45. COLOR 15, 1
  46. LOCATE 5, 3
  47. INPUT "Geben Sie die j„hrliche Einzahlung ein ( Euro ) : ", Einzahlung
  48. LOCATE 6, 3
  49. INPUT "Geben Sie den Zinsfuá ein ( % )                 : ", Zinswert
  50. LOCATE 7, 3
  51. INPUT "Geben Sie die Einzahlungsdauer ( Jahre ) ein    : ", Zeit
  52. IF Zeit > 99 THEN
  53.   Zeit = 99
  55.  
  56. 'Zinsfaktor berechnen
  57. q = (1 + (Zinswert / 100))
  58.  
  59. LOCATE 9, 44
  60. PRINT "Vorschssig    ³   Nachschssig"
  61.  
  62. Spalte = 40
  63. FOR I% = 1 TO 39
  64.   LOCATE 10, Spalte
  65.   PRINT "Ä"
  66.   Spalte = Spalte + 1
  68.  
  69. Zaehler = 5
  70. WHILE Zaehler < Zeit
  71.   ZwiSumVor = (Einzahlung * q * (((q ^ Zaehler) - 1) / (q - 1)))
  72.   ZwiSumNach = (Einzahlung * (((q ^ Zaehler) - 1) / (q - 1)))
  73.   LOCATE , 3
  74.   PRINT USING "Das Kapital betr„gt nach ## Jahren: ###,###,###.## Euro ³ ###,###,###.## Euro"; Zaehler; ZwiSumVor; ZwiSumNach
  75.   Zaehler = Zaehler + 5
  76.   'Spielt nur bei Einer-Schritten eine Rolle
  77.   'IF Zaehler = Zeit THEN GOTO WEITER
  79.  
  80. 'WEITER:
  81. EndKapVor = (Einzahlung * q * (((q ^ Zeit) - 1) / (q - 1)))
  82. EndKapNach = (Einzahlung * (((q ^ Zeit) - 1) / (q - 1)))
  83.  
  84. 'Wird mit einer Variablen "Zeile" gearbeitet, kommt es zum Programmabbruch,
  85. 'wenn die Ausgabe ber 25 Zeilen hinausgeht.
  87. LOCATE , 3
  88. PRINT USING "Endkapital nach ## Jahren         : "; Zeit;
  89.  
  91. LOCATE , 39
  92. PRINT USING "###,###,###.## Euro"; EndKapVor;
  93. LOCATE , 61
  94. PRINT USING "###,###,###.## Euro"; EndKapNach;
  96.  
  98. LOCATE , 41
  99. PRINT "=================";
  100. LOCATE , 63
  101. PRINT "=================": PRINT
  102.  
  103. END '*** Ende Hauptprogramm ***
  104.  
Title: Re: Calculated the end total
Post by: bplus on September 05, 2020, 03:23:37 pm
Next a program to convert Euro to Dollar :)

Welcome to forum, Kernelpanic

Title: Re: Calculated the end total
Post by: Kernelpanic on September 05, 2020, 04:31:39 pm
Quote
Next a program to convert Euro to Dollar :)
Ha, ha, ha, . . . ;-)

Thank you!
It was a nice time with Basic. My first contact with programming was with Apple Basic.


Title: Re: Calculated the end total
Post by: FellippeHeitor on September 05, 2020, 04:45:13 pm
Welcome aboard!
Title: Re: Calculated the end total
Post by: Kernelpanic on September 07, 2020, 05:20:09 pm
Thanks, Fellippe!

And I have a problem: I have forgotten how I have convert a QB 4.02 program that I then can load it in QB64. I can not see my old QB programs.
Title: Re: Calculated the end total
Post by: FellippeHeitor on September 07, 2020, 05:22:23 pm
I don't think I understand your problem. Care to elaborate?
Title: Re: Calculated the end total
Post by: SMcNeill on September 07, 2020, 05:24:26 pm
Quote from: FellippeHeitor on September 07, 2020, 05:22:23 pm
I don't think I understand your problem. Care to elaborate?

Sounds like the program was saved in tokenized (non-text) format.  If that’s the issue, there should be a link to a conversion program in the wiki.
Title: Re: Calculated the end total
Post by: FellippeHeitor on September 07, 2020, 05:29:16 pm
The conversion program has been integrated into the IDE, but it won't load QB4.02 format. It'll only work with QB4.5 format. Unless there wasn't a change between those two versions.
Title: Re: Calculated the end total
Post by: Kernelpanic on September 07, 2020, 05:41:13 pm
Yeah, how can it in English say? I don't know.
In German:
Vor einigen Monaten ist mein Rechner kaputt gegangen, und ich mußte meinen uralt, eingemotteten Rechner mit Win XP wieder reaktivieren . . . vielleicht habe ich in der Zeit das alte QB-Programm in QB64 übersetzt - eine andere Erklärung habe ich nicht. Ich habe alles probiert was ich finden konnte - Null.

Exuse me, but so is it.
Title: Re: Calculated the end total
Post by: FellippeHeitor on September 07, 2020, 05:42:21 pm
Attach the file here and let us have a look.
Title: Re: Calculated the end total
Post by: Kernelpanic on September 08, 2020, 01:33:55 pm
Hello, this is what it looks when I open old programs in QB64. With some it works, maybe I loaded them into QuickBasic as text under Win XP and then transferred them to QB64.
I'll try to install MS-DOS in Hyper-V, and then QuickBasic. Let's see.

Title: Re: Calculated the end total
Post by: Kernelpanic on September 08, 2020, 04:09:13 pm
The file:

Text Only | Text with Attachments