home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / einsteig / deftst_a.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-03  |  1.4 KB  |  30 lines
  1. 1   '* --------------------------------------------------- *
  2. 2   '*                  DEFTST_A.BAS                       *
  3. 3   '*        Beispiel für die Verwendung von DEF FN       *
  4. 4   '* --------------------------------------------------- *
  5. 20  CLS
  6. 22  DEF FNMITTE$ (TEXT$) = MID$(TEXT$, LEN(TEXT$) / 2-LEN(TEXT$) / 4 + 1, LEN(TEXT$) / 2)
  7. 30  DEF FNMWST! (NETTO, SATZ) = NETTO * SATZ / 100
  8. 40  DEF FNBRUTTO! (NETTO, SATZ) = NETTO + FNMWST!(NETTO, SATZ)
  9. 50  KREIS = -1
  10. 60  WHILE KREIS
  11. 70    INPUT "Netto eingeben: (0 = ENDE) ", NET
  12. 80    IF NET = 0 THEN KREIS = 0: GOTO 60   'Sprung zum WHILE
  13. 90    INPUT "Steuersatz eingeben: ", PROZ
  14. 100   PRINT USING "Bei einem Nettobetrag von ###,###.## DM "; NET
  15. 110   PRINT USING "und einem Steuersatz von ##.#%"; PROZ
  16. 120   PRINT USING "ergibt sich eine Mehrwertsteuer von #,###.## DM"; FNMWST!(NET, PROZ)
  17. 130   PRINT USING "und ein Bruttobetrag von ###,###.## DM"; FNBRUTTO!(NET, PROTZ)
  18. 140 WEND
  19. 150 CLS
  20. 160 PRINT "Jetzt noch ein Beispiel für eine FN-String-Funktion:"
  21. 170 PRINT "Geben Sie einen String ein (maximal 40 Zeichen), und Sie erhalten "
  22. 180 PRINT "einen Teilstring von der halben Länge Ihres Strings, der in der Mitte liegt."
  23. 190 PRINT
  24. 200 INPUT "String: ", TEXTUS$
  25. 210 PRINT
  26. 220 PRINT "Der Teilstring lautet: "; FNMITTE$(TEXTUS$)
  27. 230 END
  28. 235 '* --------------------------------------------------- *
  29. 236 '*              Ende von DEFTST_A.BAS                  *
  30.