home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / titel / demo.prg next >
Encoding:
Text File  |  1991-07-10  |  6.3 KB  |  227 lines
  1. /*--------------------------------------------------------*/
  2. /*                        DEMO.PRG                        */
  3. /*                     für Clipper 5.0                    */
  4. /*           (C) 1991 Volker Vogeley & TOOLBOX            */
  5. /*--------------------------------------------------------*/
  6.  
  7. * Einstellungen der Programmumgebung:
  8.  
  9. ALTD(1)
  10. SET DATE GERMAN
  11. SET TALK OFF
  12. SET SCOREBOARD OFF
  13. SET DELETED ON
  14. SET ESCAPE OFF
  15. SET ECHO OFF
  16. SET INTENSITY ON
  17. SET CURSOR ON
  18. CLOSE
  19.  
  20. * Variablendefinition für die Zuweisung der Farben:
  21.  
  22. IF ISCOLOR()           && Feststellen, ob ein Farbadapter
  23.   farbe1 = "w+/gb"     && vorhanden ist.
  24.   farbe2 = "gr+/gb"
  25.   farbe3 = "gb/b+,gr+/n,n/w,,"
  26.   farbe4 = "r/gb"
  27.   farbe5 = "w+/b,n/w+"
  28.   farbe6 = "w+/b+"
  29.   farbe7 = "r/b+"
  30. Rahme_ein = CHR(201) + CHR(205) + CHR(187) + CHR(186) + ;
  31.             CHR(188) + CHR(205) + CHR(200) + CHR(186) + "#"
  32. ELSE
  33.   farbe1 = "w+/I"
  34.   farbe2 = "w/I"
  35.   farbe3 = "n/w"
  36.   farbe4 = "w/n"
  37.   farbe5 = "w+/n"
  38.   farbe6 = "w+/i"
  39.   farbe7 = "W/n"
  40. Rahme_ein = CHR(201) + CHR(205) + CHR(187) + CHR(186) + ;
  41.             CHR(188) + CHR(205) + CHR(200) + CHR(186) + "░"
  42. ENDIF
  43.  
  44. * Festlegung der Druckercodes der einzelnen Schriftarten:
  45.  
  46. breitein  = CHR(27) + CHR(87) + "1"
  47. breitaus  = CHR(27) + CHR(87) + "0"
  48. schmalein = CHR(15)
  49. schmalaus = CHR(18)
  50. fettein   = CHR(27) + CHR(69)
  51. fettaus   = CHR(27) + CHR(70)
  52. lqein     = CHR(27) + "x" + "1"
  53. lqaus     = CHR(27) + "x" + "0"
  54. pica      = CHR(27) + CHR(80)
  55. elite     = CHR(27) + CHR(77)
  56. hochgein  = CHR(27) + CHR(83) + "0"
  57. hochgaus  = CHR(27) + CHR(84)
  58. tiefgein  = CHR(27) + CHR(83) + "1"
  59. tiefgaus  = CHR(27) + CHR(84)
  60.  
  61. * Variablen für das gesamte Programm festlegen:
  62.  
  63. * Farbvariablen , die im gesamten Programm genutzt werden:
  64. PUBLIC farbe1, farbe2, farbe3, farbe4, farbe5, farbe6
  65. PUBLIC farbe7, Rahme_ein
  66.  
  67. * Druckervariablen, die im gesammten Programm zur Steuerung
  68. * der Druckerausgabe verwendet werden:
  69. PUBLIC tiefgein, tiefgaus, hochgein, hochgaus, pica, elite
  70. PUBLIC lqein, lqaus, breitein, breitaus, schmalein
  71. PUBLIC schmalaus fettein, fettaus
  72.  
  73. SET CONSOLE ON
  74.  
  75. *                     HAUPTPROGRAMM
  76.  
  77. CLEAR
  78. Ausw = " "        && Ausw ist eine Variable des Types String
  79. DO WHILE .T.
  80.   zeit = TIME()   && Funktion TIME() gibt die Zeit zurück
  81.   tag  = DATE()   && Funktion DATE() gibt das Datum zurück
  82.   SET COLOR  TO (farbe7) && Farbzuweisung
  83.   * Menüleiste darstellen
  84.   @ 1, 0
  85.   @ 22, 0
  86.   text = "****  Sportmanager 1.0  ****"
  87.   SET COLOR TO (farbe5)
  88.   @ 1, (80 - LEN(TRIM(text))) / 2 SAY (text)
  89.   SET COLOR TO (farbe7)
  90.   @  3,  1, 21, 78 BOX SPACE(40)
  91.   @  2,  0, 21, 79 BOX Rahme_ein
  92.   @  0,  0 TO  2, 79 DOUBLE
  93.   @  2,  0 SAY "╠"
  94.   @  2, 79 SAY "╣"
  95.   @ 21,  0 TO 23, 79 DOUBLE
  96.   @ 21,  0 SAY "╠"
  97.   @ 21, 79 SAY "╣"
  98.   @ 24,  0
  99.   SET COLOR TO (farbe4)
  100.   @ 3, 1 CLEAR TO 20, 78
  101.   SET COLOR TO (farbe3)
  102.   
  103.   * Hauptmenü
  104.   SET WRAP ON
  105.   SET MESSAGE TO 24 CENTER
  106.   && Meldungen in Zeile 24 zentriert anzeigen
  107.   @ 22,  2 PROMPT "Trainingsplan";
  108.     MESSAGE "Trainingsplan-Verwaltung"
  109.   @ 22, 17 PROMPT "Trainingsdaten" ;
  110.     MESSAGE "Trainingsdaten-Verwaltung"
  111.   @ 22, 33 PROMPT "Terminkalender" ;
  112.     MESSAGE "Verabstaltungskalender"
  113.   @ 22, 49 PROMPT "Bestenlisten"   ;
  114.     MESSAGE "Bestenlisten-Aufstellung"
  115.   @ 22, 63 PROMPT "Planung" MESSAGE "Rennplanung"
  116.   @ 22, 72 PROMPT "Ende" MESSAGE "Beenden des Sportmanagers"
  117.   
  118.   MENU TO ausw
  119.   DO CASE
  120.     CASE ausw = 1
  121.       SAVE SCREEN TO scr
  122.       @ 12,14 SAY "Sie haben den Menüpunkt 1 gewählt"
  123.       @ 13,14 SAY " Bitte Taste drücken"
  124.       SET CONSOLE OFF
  125.       WAIT TO taste
  126.       SET CONSOLE ON
  127.       * DO PLAN             && Hier könnte ein Unterprogramm
  128.                             && aufgerufen werden.
  129.       RESTORE SCREEN FROM scr
  130.     CASE AUSW = 2
  131.       SAVE SCREEN TO scr
  132.       @ 12,14 SAY "Sie haben den Menüpunkt 2 gewählt"
  133.       @ 13,14 SAY " Bitte Taste drücken"
  134.       SET CONSOLE OFF
  135.       WAIT TO taste
  136.       SET CONSOLE ON
  137.       * DO DATEN1
  138.       RESTORE SCREEN FROM scr
  139.     CASE AUSW = 3
  140.       SAVE SCREEN TO scr
  141.       @ 12,14 SAY "Sie haben den Menüpunkt 3 gewählt"
  142.       @ 13,14 SAY " Bitte Taste drücken"
  143.       SET CONSOLE OFF
  144.       WAIT TO taste
  145.       SET CONSOLE ON
  146.       * DO BESTLIST
  147.       RESTORE SCREEN FROM scr
  148.     CASE AUSW = 4
  149.       SAVE SCREEN TO scr
  150.       @ 12,14 SAY "Sie haben den Menüpunkt 4 gewählt"
  151.       @ 13,14 SAY " Bitte Taste drücken"
  152.       SET CONSOLE OFF
  153.       WAIT TO taste
  154.       SET CONSOLE ON
  155.       * DO KALENDER
  156.       RESTORE SCREEN FROM scr
  157.     CASE AUSW = 5
  158.       SAVE SCREEN TO WETTK
  159.       @ 12,14 SAY "Sie haben den Menüpunkt 5 gewählt"
  160.       @ 13,14 SAY " Bitte Taste drücken"
  161.       SET CONSOLE OFF
  162.       WAIT TO taste
  163.       SET CONSOLE ON
  164.       * DO WETTK
  165.       RESTORE SCREEN FROM wettk
  166.     CASE AUSW = 6 .OR. LastKey() = 27        && Programmende
  167.  
  168.     *  Programmende mit Sicherheitsabfrage:
  169.  
  170.     SAVE SCREEN TO ENDSCR
  171.     SET COLOR TO
  172.     CLEAR
  173.     SET COLOR TO (farbe7)
  174.     ende = CHR(213) + CHR(205) + CHR(184) + CHR(179) + ;
  175.            CHR(190) + CHR(205) + CHR(212) + CHR(179) + "▒"
  176.     @ 4, 2, 14, 77 BOX ende
  177.     z = 6
  178.     SET COLOR TO (farbe1)
  179.     STORE " Sie haben - E N D E -  gewählt! " TO text
  180.     @ z, (80 - LEN(TRIM(text))) / 2 SAY (TEXT)
  181.     STORE " Wollen Sie wirklich beenden? (J/N) " TO text
  182.     z = z + 4
  183.     SET COLOR TO (farbe1)
  184.     @ z, (80 - LEN(TRIM(text))) / 2 SAY (TEXT)
  185.     FOR i = 1 TO 2
  186.       TONE(940, 5)
  187.       TONE(328, 5)
  188.     NEXT
  189.     SET COLOR TO
  190.     SET CONSOLE OFF
  191.     SET CURSOR OFF
  192.     @ 24, 79
  193.     WAIT TO ewahl
  194.     SET CONSOLE ON
  195.     IF ewahl = "J" .OR. ewahl = "j"
  196.       EXIT
  197.     ELSE
  198.       RESTORE SCREEN FROM endscr
  199.       ausw = " "
  200.     ENDIF
  201.   ENDCASE
  202. ENDDO
  203. CLEAR
  204. SET COLOR TO (farbe4)
  205. @ 2, 8 TO 10, 72 DOUBLE
  206. @ 3, 9 clear TO 9, 71
  207. SET COLOR TO (farbe2)
  208. z = 4
  209. STORE " Vielen Dank für den Einsatz des Sport - Managers " ;
  210.   TO text
  211. @ z, (80 - LEN(TRIM(text))) / 2 SAY (TEXT)
  212. SET CURSOR OFF
  213. FOR e = 1 TO 2000                            && Zeitschleife
  214. NEXT
  215. ?
  216. ?
  217. ?
  218. ?
  219. ?
  220. SET COLOR TO   && Farbe auf Standardwerte zurücksetzen
  221. CLOSE ALL      && Alle offnen Dateien schließen
  222. SET CURSOR ON  && Cursor wieder einschalten
  223. QUIT           && Programm beenden
  224.  
  225. /*--------------------------------------------------------*/
  226. /*                Ende von DEMO.PRG                       */
  227.