home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / einsteig / t1test.bas next >
Encoding:
BASIC Source File  |  1990-08-09  |  4.5 KB  |  142 lines
  1. ' *********************************************************
  2. '                        Tt1test.Bas
  3. '             (c) 1990 W.Kehr/Th.Frins & toolbox
  4. '         Testprogramm für die Routinen in Tools1.Bas
  5. '       Starten durch die Option "MERGE" mit Tools1.bas
  6. ' *********************************************************
  7. DECLARE SUB HellBlinken ()
  8. DECLARE SUB Unterstrichen ()
  9. DECLARE SUB Hell ()
  10. DECLARE SUB Normal ()
  11. DECLARE SUB Blinken ()
  12. DECLARE SUB Invers ()
  13. DECLARE SUB BildLoeschen (ZeileLinksOben%, SpalteLinksOben%, ZeileRechtsUnten%, SpalteRechtsUnten%, LoeschZeichen$)
  14. DECLARE SUB Rahmen (ZeileLinksOben%, SpalteLinksOben%, ZeileRechtsUnten%, SpalteRechtsUnten%, RahmenZeichen$)
  15. DECLARE SUB InputNeu (vorgabe$, gueltig$, typ$, laenge%, nachkomma%, zeile%, spalte%)
  16. DECLARE SUB Pruefuebergabe (zeile%, spalte%, typ$, laenge%, nachkomma%, gueltig$, vorgabe$, vorzeichen%, komma%, fehler%)
  17. DECLARE SUB Warten (ZeilenNr%)
  18. DECLARE SUB Numerisch (komma%, vorzeichen%, einfmerker%, eingabe$, laenge%, position%, v$)
  19. DECLARE SUB Zeichen (einfmerker%, eingabe$, laenge%, position%, v$)
  20. DECLARE SUB Sonder (typ$, vorzeichen%, komma%, cursor%, einfmerker%, eingabe$, laenge%, position%, v$)
  21. DECLARE SUB Fehlmeld (ZeilenNr%, Fehlertext$)
  22.  
  23. DECLARE FUNCTION BalkenMenue% (ZeilenNr%, SpaltenNr%, Elemente%, ErsteWahl%, abstand%, Optionen$())
  24. DECLARE FUNCTION ZeilenMenue% (ZeilenNr%, SpaltenNr%, Elemente%, ErsteWahl%, Optionen$())
  25.  
  26. CONST ZAHLEN$ = "1234567890+-.,"  'ZEICHEN FÜR ZAHLENEINGABE
  27. CONST BUCHSTABEN$ = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZäöüÄÖÜß"
  28. 'CONST SondZeichen$ = " !$%&/()=?[]{}µ|ⁿ²'`*,.-:;_<>\+-^°@~"
  29. SondZeichen$ = " !$%&/()=?[]{}µ|ⁿ²'`*,.-:;_<>\+-^°@~" + CHR$(34)
  30. DIM I AS INTEGER
  31.  
  32. ALLE$ = ""
  33. FOR I = 1 TO 255
  34.     IF I <> 13 AND I <> 27 THEN ALLE$ = ALLE$ + CHR$(I)
  35. NEXT I
  36.  
  37. 'Testen der Attribut-Prozeduren
  38.  
  39. CLS
  40. PRINT "Ein Normaler Text"
  41. CALL Hell
  42. PRINT "Jetzt wirds Hell"
  43. CALL Normal
  44. PRINT "Zurück zur Normalität"
  45. CALL Blinken
  46. PRINT "Blinken geht auf den Geist"
  47. HellBlinken
  48. PRINT "Hellblinken noch mehr"
  49. Normal
  50. PRINT "Normalität ist nicht immer das Schlechteste"
  51. Unterstrichen
  52. PRINT "Unterstrichenes wirkt hervorgehoben"
  53. PRINT
  54. Invers
  55. PRINT "Invers - auch Revers genannt - braucht man oft"
  56. Normal
  57. PRINT "Schluß mit dem Zauber"
  58.  
  59. Warten (24)
  60.  
  61. 'Testen der Rahmen- und BildLoeschen - Prozeduren
  62.  
  63. CLS
  64. CALL Fehlmeld(24, "Rahmen-Test läuft.....")
  65. FOR I = 1 TO 22
  66.     IF wert% < 176 THEN wert% = 179
  67.     IF I < 23 - I THEN
  68.         Rahmen I, I, 23 - I, 80 - I, CHR$(wert%)
  69.     ELSE
  70.         Rahmen 23 - I, I, I, 80 - I, CHR$(wert%)
  71.     END IF
  72.     wert% = wert% - 1
  73.     Warten (24)
  74. NEXT I
  75. CALL Fehlmeld(24, "BildLoeschen-Test läuft.....")
  76. wert2% = 32
  77. wert% = 219
  78. FOR I = 1 TO 11
  79.     SWAP wert2%, wert%
  80.     CALL BildLoeschen(I, I, 23 - I, 80 - I, CHR$(wert2%))
  81.     Warten (24)
  82. NEXT I
  83.  
  84. 'Testen der Menue-Funktionen
  85.  
  86. DIM ZeilenOptionen$(4)
  87. ZeilenOptionen$(0) = "Artikel bearbeiten"
  88. ZeilenOptionen$(1) = "Artikel suchen"
  89. ZeilenOptionen$(2) = "Drucken"
  90. ZeilenOptionen$(3) = "Dienste"
  91. ZeilenOptionen$(4) = "Programmende"
  92.  
  93. DIM BearbeitOptionen$(3)
  94. BearbeitOptionen$(0) = "Eingabe neuer Artikel"
  95. BearbeitOptionen$(1) = "Ändern von Artikeln"
  96. BearbeitOptionen$(2) = "Löschen von Artikeln"
  97. BearbeitOptionen$(3) = "Zurück"
  98.  
  99. CLS
  100. Wahl% = ZeilenMenue%(4, 2, 5, 1, ZeilenOptionen$())
  101. LOCATE 20, 1: PRINT "Gewählt wurde "; : Hell: PRINT ZeilenOptionen$(Wahl% - 1)
  102. Warten (24)
  103. BalkenWahl% = BalkenMenue%(8, 26, 4, 2, 3, BearbeitOptionen$())
  104. LOCATE 21, 1: PRINT "Gewählt wurde "; : Hell: PRINT BearbeitOptionen$(BalkenWahl% - 1)
  105. Warten (24)
  106.  
  107. 'Testen der Eingaberoutine InputNeu mit Ihren Unterprozeduren
  108.  
  109. 'InputNeu (vorgabe$, gueltig$, typ$, laenge%, nachkomma%, zeile%, spalte%)
  110. CLS
  111. PRINT "1.Aufruf"
  112. CALL InputNeu("!!!!!!!", BUCHSTABEN$, "n", 10, 3, 10, 20)
  113. CLS
  114. PRINT "2.Aufruf"
  115. CALL InputNeu("Textkonstante", SondZeichen$, "n", 10, 3, 10, 20)
  116. CLS
  117. PRINT "3.Aufruf"
  118. CALL InputNeu("Textkonstante", BUCHSTABEN$, "i", 10, 3, 10, 20)
  119. CLS
  120. PRINT "4.Aufruf"
  121. CALL InputNeu("Textkonstante", BUCHSTABEN$, "a", 25, 0, 30, 20)
  122. CLS
  123. PRINT "5.Aufruf"
  124. CALL InputNeu("100-800", ZAHLEN$, "n", 25, 0, 10, 90)
  125. CLS
  126. PRINT "6.Aufruf"
  127. CALL InputNeu("100,80.0", ZAHLEN$, "n", 25, 0, 10, 20)
  128. CLS
  129. PRINT "7.Aufruf"
  130. CALL InputNeu("1,80", ZAHLEN$, "n", 3, 2, 10, 20)
  131. 'Jetzt auch mal gültige Aufrufe
  132. CLS
  133. PRINT "8.Aufruf"
  134. CALL InputNeu("121.67", ZAHLEN$, "n", 10, 2, 10, 20)
  135. CLS
  136. PRINT "9.Aufruf"
  137. CALL InputNeu("121.67", "1234567", "n", 10, 2, 10, 20)
  138. CLS
  139. PRINT "10.Aufruf"
  140. CALL InputNeu("Max ist doof !!!", BUCHSTABEN$, "c", 30, 2, 10, 20)
  141.  
  142.