home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / pbvl010.zip / TUTOR2_3.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  3KB  |  87 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: TUTOR2_3.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. ' ─ ■ 2.3.1 - DEFINING SOME CUSTOM EVENT CODES ──────────────────────────
  21.  
  22.     %cmF3 = 1001
  23.     %cmF4 = 1002
  24.     %cmAltX = 1003
  25.     %cmPookie = 1004
  26.  
  27.     APP.GRAPHICSMODE = 1                    ' adds graphical mapping
  28.     APP.ATTR = &H9F                         ' sets desktop color
  29.     APP.PATTERN = 250                       ' sets desktop fill pattern
  30.  
  31.     APPTITLE &HF0, "TUTOR2_3.BAS - PRESS <ALT-X> TO END THIS PROGRAM"
  32.  
  33.     APPINIT
  34.  
  35.     AuntEdna = WINOPEN(10, 40, &H1B, 1, &H1F, "AUNT EDNA'S WINDOW", &HE0, %SHADOW)
  36.     UncleBob = WINPOPUP(2, 4, 10, 40, &H4A, 1, &H4F, "UNCLE BOB'S WINDOW", &HB0, %SHADOW)
  37.     CousinWillie = WINPOPUP(10, 35, 10, 40, &H7E, 1, &H7F, "COUSIN WILLIE'S WINDOW", &HA0, %SHADOW)
  38.  
  39.     WINSHOW AuntEdna, 0, 0, 25, 80
  40.  
  41.     WINHOTPRINT AuntEdna, 2, 2, &H1F1E, "Press ~<F3>~ to say 'Hello!'"
  42.     WINHOTPRINT AuntEdna, 4, 2, &H1F1E, "Press ~<F4>~ to changed windows."
  43.     WINHOTPRINT AuntEdna, 6, 2, &H1F1E, "Press ~<ALT-X>~ to end the program."
  44.     WINHOTPRINT AuntEdna, 8, 2, &H1F1E, "Press ~<ALT-P>~ to say 'Hi!' to Pookie."
  45.  
  46. ' ─ ■ 2.3.2 - ADDING THE CUSTOM EVENTS ───────────────────────────────────
  47.  
  48.     HOTKEYADD &H3D00, %cmF3                 ' <F3>
  49.     HOTKEYADD &H3E00, %cmF4                 ' <F4>
  50.     HOTKEYADD &H2D00, %cmAltX               ' <ALT-X>
  51.     HOTKEYADD &H1900, %cmPookie             ' <ALT-P>
  52.  
  53.     DO
  54.  
  55.         EventID = GETEVENT(0)
  56.  
  57.         SELECT CASE EventID
  58.  
  59. ' ─ ■ 2.3.3 - RESPONDING TO CUSTOM EVENTS ───────────────────────────────────────────
  60.  
  61.             CASE %cmF3              ' <F3>
  62.                 WINWRITE WINGET, "Hello, Window!  "
  63.  
  64.             CASE %cmF4              ' <F4>
  65.                 WINNEXT
  66.  
  67.             CASE %cmAltX            ' <ALT-X>
  68.                 EXIT DO
  69.  
  70.             CASE %cmPookie
  71.                 WINWRITELN WINGET, "Hi Pookie!"
  72.  
  73.             CASE 17                 ' no event
  74.  
  75.             CASE ELSE               ' Other events
  76.  
  77.         END SELECT
  78.  
  79.     LOOP
  80.  
  81.     WINCLOSE AuntEdna
  82.  
  83.     APPCLOSE
  84.  
  85.     END
  86.  
  87.