home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / PBVL010.ZIP / TUTOR2_2.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  3KB  |  97 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: TUTOR2_2.BAS                                                   │
  3. '│ PURPOSE: PB/VISION(tm) LITE Tutorial Example Program                    │
  4. '├─────────────────────────────────────────────────────────────────────────┤
  5. '│ For instant help on any PB/VISION(tm) keyword, place the cursor on that │
  6. '│ keyword and press <CTRL-F1>.  The PB/VISION(tm) index can be accessed   │
  7. '│ by pressing <SHIFT-F1> twice.  The file "PBVLITE.PBH" _must_ be in the  │
  8. '│ same directory as the PowerBASIC IDE (PB.EXE) for this feature to work  │
  9. '│ properly.                                                               │
  10. '└─────────────────────────────────────────────────────────────────────────┘
  11.  
  12. %ISPBU = 0
  13.  
  14. DEFINT A-Z
  15. $DYNAMIC
  16.  
  17. $INCLUDE ".\WINDOW.BI"
  18. $INCLUDE ".\EVENT.BI"           ' Event-driven programs require this
  19.  
  20.     APP.GRAPHICSMODE = 1                    ' adds graphical mapping
  21.     APP.ATTR = &H80                         ' sets desktop color
  22.     APP.PATTERN = 32                        ' sets desktop fill pattern
  23.  
  24.     APPTITLE &HF0, "TUTOR2_2.BAS - RESPONDING TO GENERIC KEYS"
  25.  
  26.     APPINIT
  27.  
  28.     AuntEdna = WINOPEN(10, 60, &H4F, 1, &H4F, "AUNT EDNA'S - PRESS <ESC> TO END", &HE0, %SHADOW)
  29.     WINSHOW AuntEdna, 0, 0, 25, 80
  30.  
  31.     DO
  32.  
  33.         EventID = GETEVENT(0)
  34.  
  35.         IF EventID <> 17 THEN
  36.  
  37.             ' ignore event #17
  38.  
  39.             WINWRITE AuntEdna, "Event" + STR$(EventID) + " - "
  40.  
  41.         END IF
  42.  
  43.         SELECT CASE EventID
  44.  
  45.             CASE 17                 ' "No Event" event
  46.  
  47. ' ─ ■ 2.2.1 - RESPONDING TO ALPHA-NUMERIC KEYS ───────────────────────────
  48.  
  49.             CASE 100
  50.                 IF (KEYGET < 256) AND (KEYGET > 0) THEN
  51.                     WINWRITELN AuntEdna, CHR$(34,KEYGET,34) + " was pressed."
  52.                 ELSE
  53.                     WINWRITELN AuntEdna, "some other key was pressed."
  54.                 END IF
  55.  
  56. ' ─ ■ 2.2.2 - RESPONDING TO BUILT-IN KEYBOARD EVENTS ─────────────────────
  57.  
  58.             CASE 101                ' CR
  59.                 WINWRITELN AuntEdna, "<CR> was pressed."
  60.  
  61.             CASE 102                ' ESC
  62.                 EXIT DO
  63.  
  64. ' ─ ■ 2.2.3 - <F1> IS THE BUILT-IN "HELP" KEY ────────────────────────
  65.  
  66.             CASE 103                ' F1
  67.                 WINWRITELN AuntEdna, "<F1> (Help) was pressed."
  68.  
  69.             CASE 104                ' TAB
  70.                 WINWRITELN AuntEdna, "<TAB> was pressed."
  71.  
  72.             CASE 105                ' SHIFT-TAB
  73.                 WINWRITELN AuntEdna, "<SHIFT-TAB> was pressed."
  74.  
  75.             CASE 106                ' ALT-TAB
  76.                 WINWRITELN AuntEdna, "<ALT-TAB> was pressed."
  77.  
  78.             CASE 107                ' CTRL-TAB
  79.                 WINWRITELN AuntEdna, "<CTRL-TAB> was pressed."
  80.  
  81.             CASE 108                ' ALT-SPACE
  82.                 WINWRITELN AuntEdna, "<ALT-SPACE> was pressed."
  83.  
  84.             CASE ELSE               ' Other events
  85.                 WINWRITELN AuntEdna, "Other event (don't worry about it yet)"
  86.  
  87.         END SELECT
  88.  
  89.     LOOP
  90.  
  91.     WINCLOSE AuntEdna
  92.  
  93.     APPCLOSE
  94.  
  95.     END
  96.  
  97.