home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / mouse / mouseqb / mousedem.bas < prev   
Encoding:
BASIC Source File  |  1993-07-28  |  3.3 KB  |  139 lines
  1. '──────────────────────────────
  2. '     Demoprogramm für die
  3. '    Mousebox,  Version 1.0
  4. '        Quick Basic 4.5
  5. '  Copyright (c) 1988, 89, 90
  6. '             by
  7. '
  8. '         Ralf Krause
  9. '
  10. '    Leuchtenberger Str. 7a
  11. '   D-8480 Weiden i. d. Opf.
  12. '──────────────────────────────
  13.  
  14. ' $INCLUDE: '\QB\MOUSEBOX\MOUSEBOX.INC'
  15. DECLARE SUB Rahmen ()
  16. DECLARE SUB InfoBox ()
  17. DECLARE SUB DisplayPosition ()
  18.  
  19. CONST True = -1
  20. CONST False = 0
  21. CONST Black = 0
  22. CONST White = 7
  23.  
  24. DIM MouseFlag AS INTEGER, ExitFlag AS INTEGER
  25. DIM X AS INTEGER, Y AS INTEGER
  26.  
  27. HauptProgramm:
  28.   SCREEN 0
  29.   COLOR 0, 7, 7
  30.   CLS
  31.   Rahmen
  32.   MouseFlag = InitMouse
  33.   LOCATE 2, 2, 0
  34.   PRINT "Ende Info"
  35.   LOCATE 4, 2
  36.   PRINT "X-Position    :"
  37.   LOCATE 6, 2
  38.   PRINT "Y-Position    :"
  39.   LOCATE 8, 2
  40.   PRINT "Linke Taste   :"
  41.   LOCATE 10, 2
  42.   PRINT "Rechte Taste  :"
  43.   LOCATE 12, 2
  44.   PRINT "Mittlere Taste:"
  45.   ShowCursor
  46.   WHILE NOT ExitFlag
  47.     DisplayPosition
  48.     IF LeftButton THEN
  49.       X = GetXTextPosition
  50.       Y = GetYTextPosition
  51.       iXMickey = GetXMickey
  52.       IF Y = 2 THEN
  53.         IF (X >= 2) AND (X <= 5) THEN ExitFlag = True
  54.         IF (X >= 7) AND (X <= 10) THEN
  55.           InfoBox
  56.         END IF
  57.       END IF
  58.     END IF
  59.   WEND
  60.   HideCursor
  61.   ResetMouse
  62.   CLS
  63. END
  64.  
  65. SUB DisplayPosition
  66.   LOCATE 4, 21
  67.   PRINT GetXTextPosition
  68.   LOCATE 6, 21
  69.   PRINT GetYTextPosition
  70.   LOCATE 8, 21
  71.   PRINT LeftButton
  72.   LOCATE 10, 21
  73.   PRINT RightButton
  74.   LOCATE 12, 21
  75.   PRINT MiddleButton
  76. END SUB
  77.  
  78. SUB InfoBox
  79.   SHARED ExitFlag AS INTEGER
  80.  
  81.   LOCATE 8, 25: PRINT "┌────────────────────────────┐"
  82.   LOCATE 9, 25: PRINT "│";
  83.   COLOR White, Black
  84.   PRINT "       Info - Fenster       ";
  85.   COLOR Black, White
  86.   PRINT "│"
  87.   LOCATE 10, 25: PRINT "├────────────────────────────┤"
  88.   LOCATE 11, 25: PRINT "│   Mousebox,  Version 1.0   │"
  89.   LOCATE 12, 25: PRINT "│                            │"
  90.   LOCATE 13, 25: PRINT "│ Copyright (c) 1988, 89, 90 │"
  91.   LOCATE 14, 25: PRINT "│            by              │"
  92.   LOCATE 15, 25: PRINT "│        Ralf Krause         │"
  93.   LOCATE 16, 25: PRINT "│   Leuchtenberger Str. 7a   │"
  94.   LOCATE 17, 25: PRINT "│  D-8480 Weiden i. d. Opf.  │"
  95.   LOCATE 18, 25: PRINT "├────────────────────────────┤"
  96.   LOCATE 19, 25: PRINT "│       ┌───────────┐        │"
  97.   LOCATE 20, 25: PRINT "│       │ Abbrechen │        │"
  98.   LOCATE 21, 25: PRINT "│       └───────────┘        │"
  99.   LOCATE 22, 25: PRINT "└────────────────────────────┘"
  100.   COLOR White, Black
  101.   LOCATE 20, 34: PRINT " Abbrechen "
  102.   COLOR Black, White
  103.   WHILE NOT iExit
  104.     DisplayPosition
  105.     IF LeftButton THEN
  106.       iX = GetXTextPosition
  107.       iY = GetYTextPosition
  108.       IF iY = 20 THEN
  109.         IF (iX >= 34) AND (iX <= 44) THEN iExit = True
  110.       END IF
  111.       IF iY = 2 THEN
  112.         IF (iX >= 2) AND (iX <= 5) THEN
  113.           iExit = True                     ' Flag für Infobox
  114.           iExitFlag = True                 ' Flag für Hauptprogramm
  115.         END IF
  116.       END IF
  117.     END IF
  118.   WEND
  119.   HideCursor
  120.   FOR it = 8 TO 22
  121.     LOCATE it, 25
  122.     PRINT SPACE$(30);
  123.   NEXT it
  124.   ShowCursor
  125. END SUB
  126.  
  127. SUB Rahmen
  128.  
  129.   LOCATE 1, 1
  130.   PRINT "┌"; STRING$(78, "─"); "┐"
  131.   FOR it = 2 TO 22
  132.     LOCATE it, 1
  133.     PRINT "│"; SPACE$(78); "│"
  134.   NEXT it
  135.   LOCATE 23, 1
  136.   PRINT "└"; STRING$(78, "─"); "┘";
  137. END SUB
  138.  
  139.