home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / anwendg / window.prg < prev    next >
Encoding:
Text File  |  1988-12-14  |  6.2 KB  |  176 lines
  1. * -------------------------------------------------------- *
  2. *                       WINDOW.PRG                         *
  3. *         Bildschirmhandling unter dBASE III PLUS          *
  4. *          (c) 1989 Jürgen Liskowskis & TOOLBOX            *
  5. * -------------------------------------------------------- *
  6.  
  7. * -------------------------------------------------------- *
  8. * Initialisieren des Systems
  9.  
  10. SET STATUS OFF                 && Statuszeile ausblenden
  11. SET TALK OFF                   && Meldungen unterdrücken
  12. SET DATE GERMAN                && deutsches Datumsformat
  13. SET SCOREBOARD OFF             && Tastaturanzeige abschalten
  14. SET BELL OFF                   && Summer aus
  15. SET COLOR TO W+/B, GR+/R, BG   && Farbwahl
  16. STORE " " TO TASTE, AUSWAHL    && Variablen vorbereiten
  17. CLEAR                          && Bildschirm löschen
  18.  
  19. * -------------------------------------------------------- *
  20. * Laden der Binärdateien.
  21. * Datei WINDOWx.BIN dient zur Sicherung des Bildschirms.
  22. * Aufruf: CALL S WITH "S" entspricht SaveScreen
  23. *         CALL S WITH "R" entspricht RestoreScreen
  24. * Die Parameter S und R müssen großgeschrieben werden.
  25. * Die Anzahl ist maximal fünf Module.
  26.  
  27. IF FILE ("WINDOW5.BIN")        && Datei gefunden ?
  28.    LOAD WINDOW5.BIN            && Wenn ja, dann laden
  29. ENDIF                          && 5. Bildschirmebene
  30. IF FILE ("WINDOW4.BIN")        && Datei gefunden ?
  31.    LOAD WINDOW4.BIN            && Wenn ja, dann laden
  32. ENDIF                          && 4. Bildschirmebene
  33. IF FILE ("WINDOW3.BIN")        && Datei gefunden ?
  34.    LOAD WINDOW3.BIN            && Wenn ja, dann laden
  35. ENDIF                          && 3. Bildschirmebene
  36. IF FILE ("WINDOW2.BIN")        && Datei gefunden ?
  37.    LOAD WINDOW2.BIN            && Wenn ja, dann laden
  38. ENDIF                          && 2. Bildschirmebene
  39. IF FILE ("WINDOW1.BIN")        && Datei gefunden ?
  40.    LOAD WINDOW1.BIN            && Wenn ja, dann laden
  41. ENDIF                          && 1. Bildschirmebene
  42.  
  43. DISPLAY STATUS                 && Geladene Module anzeigen
  44. @ 24,00 SAY "Die geladenen Module. Weiter mit <RETURN>"
  45. @ 24,75 GET TASTE PICTURE "X"
  46. READ
  47. CLEAR GETS                    && Eingabeaufforderung löschen
  48.  
  49. * -------------------------------------------------------- *
  50. * 1. Bildschirmseite ausgeben
  51. CLEAR                         && Bildschirm löschen
  52. @ 00,00 TO 20,79 DOUBLE       && Rahmen zeichnen
  53. @ 03,01 TO 03,78              && Strich zeichnen
  54. @ 02,03 SAY "Beispiele zum Handling des Bildschirmspeichers"
  55. @ 02,47 SAY " unter dBASE III PLUS"
  56. @ 05,02 SAY "[ 1 ] = Text"
  57. @ 07,02 SAY "[ 2 ] = Text"
  58. @ 09,02 SAY "[ 3 ] = Text"
  59. @ 11,02 SAY "[ 4 ] = Text"
  60. @ 13,02 SAY "[ 5 ] = Text"
  61. @ 15,02 SAY "[ 0 ] = Progamm beenden"
  62. @ 18,10 SAY "Mit <RETURN> wird der Bildschirm gelöscht."
  63. @ 19,02 SAY "[   ]   Zur Demonstration bitte eine Taste..."
  64. @ 07,40 SAY "Dies ist unsere erste Bildschirmseite."
  65. @ 08,40 SAY "──────────────────────────────────────"
  66. SET COLOR TO GR+/R            && Farben ändern
  67. @ 05,04 SAY "1"               && Menüpunkte ausgeben
  68. @ 07,04 SAY "2"
  69. @ 09,04 SAY "3"
  70. @ 11,04 SAY "4"
  71. @ 13,04 SAY "5"
  72. @ 15,04 SAY "0"
  73. SET COLOR TO W+/B, GR+/R, BG
  74. @ 19,04 GET AUSWAHL PICTURE "X"
  75. READ
  76. CALL WINDOW5 WITH "S"         && Bildschirm sichern
  77. CLEAR
  78.  
  79. * -------------------------------------------------------- *
  80. * 2. Bildschirmseite ausgeben
  81. SET COLOR TO GR+/R
  82. @ 10,15 CLEAR TO 19,45
  83. @ 10,15 TO 19,45 DOUBLE
  84. @ 11,16 SAY "Hier können Hilfstexte "
  85. @ 12,16 SAY "eingeblendet werden"
  86. @ 07,40 SAY "Dies ist unsere zweite Bildschirmseite."
  87. @ 08,40 SAY "───────────────────────────────────────"
  88. @ 22,02 SAY "Weiter mit RETURN bitte : "
  89. @ 22,30 GET AUSWAHL PICTURE "X"
  90. READ
  91. CALL WINDOW4 WITH "S"
  92. CLEAR
  93.  
  94. * -------------------------------------------------------- *
  95. * 3. Bildschirmseite ausgeben
  96. @ 00,00 TO 20,79 DOUBLE
  97. @ 03,01 TO 03,78
  98. @ 02,03 SAY "Um den Unterschied zu verdeutlichen, "
  99. @ 02,40 SAY "hier eine andere Farbwahl"
  100. @ 07,40 SAY "Dies ist unsere dritte Bildschirmseite."
  101. @ 08,40 SAY "───────────────────────────────────────"
  102. @ 18,02 SAY "Weiter mit RETURN bitte : "
  103. @ 18,30 GET AUSWAHL PICTURE "X"
  104. READ
  105. CALL WINDOW3 WITH "S"
  106.  
  107. * -------------------------------------------------------- *
  108. * 4. Bildschirmseite ausgeben
  109. SET COLOR TO W+/N, W+/N, N
  110. @ 10,05 CLEAR TO 18,45
  111. @ 10,05 TO 18,45 DOUBLE
  112. @ 07,40 SAY "Dies ist unsere vierte Bildschirmseite."
  113. @ 08,40 SAY "───────────────────────────────────────"
  114. @ 05,02 SAY "Es wurde kein CLEAR - Befehl vor dem"
  115. @ 06,02 SAY "Aufbau dieses Bildschirmes gegeben, "
  116. @ 07,02 SAY "sondern nur die Farbwahl geändert.  "
  117. @ 19,02 SAY "Weiter mit RETURN bitte : "
  118. @ 19,30 GET AUSWAHL PICTURE "X"
  119. READ
  120. CALL WINDOW2 WITH "S"
  121. SET COLOR TO W+/B, GR+/R, BG
  122. CLEAR
  123.  
  124. * -------------------------------------------------------- *
  125. * 5. Bildschirmseite ausgeben
  126. @ 00,00 TO 20,79 DOUBLE
  127. @ 03,01 TO 03,78
  128. @ 02,03 SAY "Handling des Bildschirmspeichers"
  129. @ 07,40 SAY "Dies ist die fünfte Bildschirmseite."
  130. @ 08,40 SAY "────────────────────────────────────"
  131. @ 15,03 SAY "Nach diesem Bildschirm rufen wir die "
  132. @ 15,40 SAY "gespeicherten"
  133. @ 16,03 SAY "Bildschirmseiten in Originalgeschwindigkeit "
  134. @ 16,47 SAY auf."
  135. @ 18,02 SAY "Weiter mit RETURN bitte : "
  136. @ 18,30 GET AUSWAHL PICTURE "X"
  137. READ
  138. CALL WINDOW1 WITH "S"
  139.  
  140. * -------------------------------------------------------- *
  141. * Alle 5 Seiten anzeigen.
  142. CALL WINDOW5 WITH "R"
  143. CALL WINDOW4 WITH "R"
  144. CALL WINDOW3 WITH "R"
  145. CALL WINDOW2 WITH "R"
  146. CALL WINDOW1 WITH "R"
  147. @ 15,03 CLEAR TO 16,70
  148. @ 19,02 SAY "Jetzt noch einmal auf Tastendruck"
  149. @ 18,30 GET AUSWAHL PICTURE "X"
  150. READ
  151.  
  152. CALL WINDOW5 WITH "R"             && Ausgabe Bildschirm 1
  153. @ 23,00 GET AUSWAHL PICTURE "X"
  154. READ
  155.  
  156. CALL WINDOW4 WITH "R"             && Ausgabe Bildschirm 2
  157. @ 23,00 GET AUSWAHL PICTURE "X"
  158. READ
  159.  
  160. CALL WINDOW3 WITH "R"             && Ausgabe Bildschirm 3
  161. @ 23,00 GET AUSWAHL PICTURE "X"
  162. READ
  163.  
  164. CALL WINDOW2 WITH "R"             && Ausgabe Bildschirm 4
  165. @ 23,00 GET AUSWAHL PICTURE "X"
  166. READ
  167.  
  168. CALL WINDOW1 WITH "R"             && Ausgabe Bildschirm 5
  169. @ 23,00 SAY "Nächstes <RETURN> beendet das PROGRAMM"
  170. @ 23,40 GET AUSWAHL PICTURE "X"
  171. READ
  172. CLEAR
  173.  
  174. * -------------------------------------------------------- *
  175. *                  Ende von WINDOW.PRG                     *
  176.