home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / qbnws204.arj / WINDOWS.ZIP / WINDEM.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-07-15  |  11.3 KB  |  264 lines
  1. ' WINDEM.BAS    popup window demonstration program
  2. '
  3. '   Author:     Christy Gemmell
  4. '   For:        QuickBASIC Newsletter
  5. '   Date:       15/7/1991
  6. '
  7. '   $DYNAMIC
  8. '
  9. '   External functions and procedures in ASSEMBLY.LIB/QLB.
  10. '
  11.     DECLARE FUNCTION Attribute% (BYVAL Fore%, BYVAL Back%)
  12.     DECLARE SUB Explode (BYVAL Y1%, BYVAL X1%, BYVAL Y2%, BYVAL X2%,_
  13.                          BYVAL Attr%, BYVAL Speed%)
  14.     DECLARE SUB FastPrint (BYVAL Row%, BYVAL Col%, Message$, BYVAL Attr%)
  15.     DECLARE SUB PopUp (BYVAL Row%, BYVAL Col%, BYVAL Hght%, BYVAL Wdth%,_
  16.                        BYVAL Attr%, BYVAL Brdr%, BYVAL Shdw%, BYVAL Zoom%)
  17.     DECLARE SUB ShutUp (BYVAL Speed%)
  18.  
  19. '   Local functions and procedures included in this module.
  20. '
  21.     DECLARE FUNCTION Randy% (Lowest%, Highest%)
  22.     DECLARE SUB FlushKey ()
  23.  
  24.     RANDOMIZE TIMER
  25.  
  26. '   Draw title and screen background.
  27. '
  28.     CLS : LOCATE , , 0: FastPrint 1, 1, SPACE$(80), 31
  29.     FastPrint 1, 27, "POPUP WINDOW DEMONSTRATION", 31
  30.     FastPrint 2, 1, STRING$(80, "─"), 31
  31.     A$ = STRING$(1760, "░"): FastPrint 3, 1, A$, 30
  32.     FastPrint 25, 1, SPACE$(80), 48: A$ = ""
  33.  
  34. '   Overture - pop up and close three batches of windows.
  35. '
  36.     FOR M% = 1 TO 3
  37.         Area% = 0: O% = 0: B% = 1
  38.         DO
  39.             H% = Randy%(5, 10): W% = Randy%(14, 40)
  40.             Area% = Area% + (H% + 1) * (W% + 1)
  41.             IF Area% > 7200 THEN EXIT DO
  42.             K% = Randy%(4, 24 - H%): J% = Randy%(1, 79 - W%)
  43.             R% = Randy%(1, 4): S% = Randy%(1, 4)
  44.             Attrib% = Attribute%(15, B%)
  45.             PopUp K%, J%, H%, W%, Attrib%, R%, S%, -1
  46.             FastPrint K%, J% + ((W% \ 2) - 5), "[ WINDOW ]", Attrib%
  47.             O% = O% + 1: B% = B% + 1: IF B% > 6 THEN B% = 1
  48.          LOOP UNTIL O% = 30
  49.          IF (M% = 3) THEN SLEEP 3 ELSE SLEEP 1
  50.          FOR I% = O% TO 1 STEP -1
  51.              ShutUp -1
  52.          NEXT I%
  53.     NEXT M%
  54.  
  55. '   Introduction - tell 'em what it's all about.
  56. '
  57.     PopUp 4, 15, 10, 30, 52, 4, 1, -1: PopUp 3, 36, 13, 40, 47, 3, 1, -1
  58.     PopUp 9, 10, 13, 40, 31, 2, 1, -1: PopUp 12, 42, 11, 36, 67, 1, 1, -1
  59.     PopUp 2, 31, 5, 20, 78, 2, 1, -1: FastPrint 4, 34, "Presenting ...", 78
  60.     SLEEP 3: FlushKey: Attrib% = Attribute%(0, 7)
  61.     PopUp 8, 20, 7, 40, Attrib%, 2, 1, -1
  62.     FastPrint 8, 31, "[ QUICK  WINDOWS ]", Attrib%
  63.     FastPrint 10, 29, "Windowing Routines for", Attrib%
  64.     FastPrint 11, 30, "Microsoft QuickBASIC", Attrib%
  65.     SLEEP 3: FlushKey: Attrib% = Attribute%(0, 3)
  66.     PopUp 17, 55, 7, 24, Attrib%, 1, 3, -1
  67.     FastPrint 19, 66, "By", Attrib%
  68.     FastPrint 20, 59, "Christy  Gemmell", Attrib%
  69.     SLEEP 3: FlushKey: Attrib% = Attribute%(14, 1)
  70.     PopUp 13, 2, 10, 23, Attrib%, 2, 4, 0
  71.     FastPrint 15, 4, "A Library of screen", Attrib%
  72.     FastPrint 16, 4, "handling procedures", Attrib%
  73.     FastPrint 17, 4, "and functions which", Attrib%
  74.     FastPrint 18, 4, "can be incorporated", Attrib%
  75.     FastPrint 19, 4, "in your QuickBASIC", Attrib%
  76.     FastPrint 20, 9, "programs.", Attrib%
  77.     SLEEP 4: FlushKey: Attrib% = Attribute%(15, 1)
  78.     PopUp 16, 27, 5, 26, Attrib%, 2, 1, 0
  79.     FastPrint 18, 30, "HOLD ONTO YOUR HATS", Attrib%
  80.     SLEEP 2: FlushKey: FOR I% = 1 TO 9: ShutUp -1: NEXT
  81.  
  82. '   Start simple - show a plain unadorned window.
  83. '
  84.     Attrib% = 112: PopUp 9, 16, 8, 50, Attrib%, 2, 2, 0: RESTORE
  85.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, Attrib%: NEXT
  86.     SLEEP 6: FlushKey: Explode 10, 17, 15, 64, Attrib%, 0
  87.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, Attrib%: NEXT
  88.     SLEEP 5: FlushKey: PopUp 5, 5, 6, 35, Attribute%(1, 2), 0, 1, -1
  89.     SLEEP 3: FlushKey: ShutUp -1: Explode 10, 17, 15, 64, 112, 0
  90.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  91.  
  92. '   Demonstrate the full set of border styles.
  93. '
  94.     SLEEP 6: FlushKey: Attrib% = Attribute%(15, 6)
  95.     PopUp 6, 5, 8, 35, Attrib%, 0, 2, -1
  96.     FastPrint 6, 15, "[  No  Frame  ]", Attrib%
  97.     SLEEP 1: FlushKey: Attrib% = Attribute%(11, 1)
  98.     PopUp 7, 8, 8, 35, Attrib%, 1, 2, -1
  99.     FastPrint 7, 17, "[ Frame Style 1 ]", Attrib%
  100.     SLEEP 1: FlushKey: Attrib% = Attribute%(0, 2)
  101.     PopUp 8, 11, 8, 35, Attrib%, 2, 2, -1
  102.     FastPrint 8, 20, "[ Frame Style 2 ]", Attrib%
  103.     SLEEP 1: FlushKey: Attrib% = Attribute%(0, 3)
  104.     PopUp 9, 14, 8, 35, Attrib%, 3, 2, -1
  105.     FastPrint 9, 23, "[ Frame Style 3 ]", Attrib%
  106.     SLEEP 1: FlushKey: Attrib% = Attribute%(14, 4)
  107.     PopUp 10, 17, 8, 35, Attrib%, 4, 2, -1
  108.     FastPrint 10, 26, "[ Frame Style 4 ]", Attrib%
  109.     SLEEP 1: FlushKey: Attrib% = Attribute%(12, 5)
  110.     PopUp 11, 20, 8, 35, Attrib%, 5, 2, -1
  111.     FastPrint 11, 29, "[ Frame Style 5 ]", Attrib%
  112.     SLEEP 1: FlushKey: Attrib% = Attribute%(13, 6)
  113.     PopUp 12, 23, 8, 35, Attrib%, 6, 2, -1
  114.     FastPrint 12, 32, "[ Frame Style 6 ]", Attrib%
  115.     SLEEP 1: FlushKey: Attrib% = Attribute%(15, 2)
  116.     PopUp 13, 26, 8, 35, Attrib%, 7, 2, -1
  117.     FastPrint 13, 35, "[ Frame Style 7 ]", Attrib%
  118.     SLEEP 1: FlushKey: Attrib% = Attribute%(1, 3)
  119.     PopUp 14, 29, 8, 35, Attrib%, 8, 2, -1
  120.     FastPrint 14, 39, "[ Frame Style 8 ]", Attrib%
  121.     SLEEP 4: FlushKey: FOR I% = 1 TO 9: ShutUp -1: NEXT
  122.  
  123. '   Display the range of foreground colours
  124. ' 
  125.     Explode 10, 17, 15, 64, 112, 0
  126.     FOR I% = 11 TO 13: READ Me$: FastPrint I%, 20, Me$, 112: NEXT
  127.     SLEEP 6: FlushKey
  128.     FOR I% = 1 TO 15
  129.         Label$ = "[ Colour:" + STR$(I%) + " ]"
  130.         J% = Randy%(1, 51): K% = Randy%(1, 13)
  131.         Attrib% = Attribute%(I%, 0)
  132.         PopUp K% + 1, J% + 1, 7, 24, Attrib%, 4, 0, 0
  133.         FastPrint K% + 1, J% + 6, Label$, Attrib%
  134.         SLEEP 1: FlushKey
  135.     NEXT I%
  136.     Attrib% = Attribute%(31, 1)
  137.     PopUp 7, 20, 7, 24, Attrib%, 4, 2, 0
  138.     FastPrint 7, 25, "[ Colour: 31 ]", Attrib%
  139.     SLEEP 4: FlushKey: FOR I% = 1 TO 16: ShutUp 0: NEXT
  140.  
  141. '   Demonstrate left and right shadow.
  142. '
  143.     Explode 10, 17, 15, 64, 112, 0
  144.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  145.     SLEEP 6: FlushKey: PopUp 2, 2, 11, 30, Attribute%(15, 1), 7, 0, 0
  146.     SLEEP 3: FlushKey: ShutUp 0: Explode 10, 17, 15, 64, 112, 0
  147.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  148.     SLEEP 6: FlushKey: Attrib% = Attribute%(14, 5)
  149.     PopUp 5, 5, 10, 30, Attrib%, 2, 1, 0
  150.     FastPrint 9, 14, "Left Shadow", Attrib%
  151.     SLEEP 2: FlushKey: Attrib% = Attribute%(0, 2)
  152.     PopUp 5, 45, 10, 30, Attrib%, 2, 2, 0
  153.     FastPrint 9, 54, "Right Shadow", Attrib%
  154.     SLEEP 2: FlushKey: ShutUp 0: ShutUp 0
  155.  
  156. '   Demonstrate zooming and imploding windows.
  157. '
  158.     Explode 10, 17, 15, 64, 112, 0
  159.     FastPrint 12, 31, "Windows can be zoomed", 112
  160.     FastPrint 13, 33, "onto the screen.", 112
  161.     SLEEP 3: FlushKey: PopUp 2, 2, 15, 60, Attribute%(0, 2), 2, 0, -1
  162.     SLEEP 2: FlushKey: PopUp 13, 10, 10, 60, Attribute%(0, 3), 3, 0, -1
  163.     SLEEP 2: FlushKey: PopUp 7, 33, 10, 45, Attribute%(14, 5), 1, 0, -1
  164.     SLEEP 2: FlushKey: Attrib% = Attribute%(15, 4)
  165.     PopUp 9, 10, 12, 63, Attrib%, 2, 1, -1
  166.     FastPrint 14, 32, "<<< W O W >>>", Attrib%
  167.     SLEEP 3: FlushKey: FOR I% = 1 TO 4: ShutUp -1: NEXT
  168.  
  169. '   Demonstrate overlapping windows.
  170. '
  171.     Explode 10, 17, 15, 64, 112, 0
  172.     FOR I% = 10 TO 14: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  173.     SLEEP 6: FlushKey: Explode 10, 17, 15, 64, 112, 0
  174.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  175.     SLEEP 6: FlushKey: Explode 10, 17, 15, 64, 112, 0
  176.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  177.     SLEEP 6: FlushKey: Attrib% = Attribute%(0, 2)
  178.     PopUp 3, 5, 15, 45, Attrib%, 4, 1, -1
  179.     FastPrint 9, 14, "This is the first level ...", Attrib%
  180.     SLEEP 2: FlushKey: Attrib% = Attribute%(15, 4)
  181.     PopUp 6, 29, 17, 50, Attrib%, 4, 1, -1
  182.     FastPrint 12, 40, "This is the second level ...", Attrib%
  183.     SLEEP 2: FlushKey: Attrib% = Attribute%(0, 3)
  184.     PopUp 9, 22, 15, 35, Attrib%, 4, 1, -1
  185.     FastPrint 16, 26, "This is the third level ...", Attrib%
  186.     SLEEP 2: FlushKey: FastPrint 16, 26, "Now to go back ...         ", Attrib%
  187.     SLEEP 1: ShutUp -1: SLEEP 1: ShutUp -1: SLEEP 1: ShutUp -1: SLEEP 2
  188.     ShutUp -1: PopUp 4, 15, 10, 30, 52, 4, 1, -1
  189.  
  190. '   A word from our sponsor.
  191. '
  192.     PopUp 3, 36, 13, 40, 47, 3, 1, -1: PopUp 9, 10, 13, 40, 78, 2, 1, -1
  193.     PopUp 12, 42, 11, 36, 67, 1, 1, -1: PopUp 9, 16, 8, 52, 112, 2, 1, -1
  194.     FastPrint 11, 20, "The video routines in ASSEMBLY Library", 112
  195.     FastPrint 12, 20, "give you all you need to create powerful", 112
  196.     FastPrint 13, 20, "and professional screen displays in your", 112
  197.     FastPrint 14, 20, "QuickBASIC programs.", 112: SLEEP 9: FlushKey
  198.     FOR I% = 1 TO 5: ShutUp -1: SLEEP 1: FlushKey: NEXT
  199. END
  200.  
  201. '┌────────────────────────────────────────────────────────────────────────┐
  202. '│  Local procedures and functions.                                       │
  203. '└────────────────────────────────────────────────────────────────────────┘
  204. '
  205. '   Returns a random integer between the limits specified.
  206. '
  207. FUNCTION Randy% (Lowest%, Highest%) STATIC
  208.     Randy% = INT(RND * ((Highest% - Lowest%) + 1)) + Lowest%
  209. END FUNCTION    
  210.  
  211. '   Flush all keystrokes from the keyboard typeahead buffer
  212. '
  213. '   Note:   this is used in conjunction with the SLEEP function since,
  214. '           if the user terminates a SLEEP delay by pressing a key, the
  215. '           keystroke is not automatically removed from the buffer.
  216. '
  217. SUB FlushKey () STATIC
  218.     DO: LOOP UNTIL INKEY$ = ""
  219. END SUB
  220.  
  221. '┌────────────────────────────────────────────────────────────────────────┐
  222. '│  Data Division.                                                        │
  223. '└────────────────────────────────────────────────────────────────────────┘
  224. '
  225. DATA "These QBNews ASSEMBLY libraries provide you"
  226. DATA "with all the facilities necessary for you to"
  227. DATA "implement a full range of window features in"
  228. DATA "your programs.  With just one statement, for"
  229. DATA "instance, you can 'Pop-up' a window onto the"
  230. DATA "screen."
  231. DATA "The window can be a simple rectangle, in any"
  232. DATA "the QuickBASIC background colors, such as .."
  233. DATA "Alternatively it may have a border in one of"
  234. DATA "eight styles ...."
  235. DATA "The border itself may be in any one of the"
  236. DATA "QuickBASIC foreground colors. It can blink"
  237. DATA "if you want it to ..."
  238. DATA "The window, too, can be presented in several"
  239. DATA "different ways. It can be flat..."
  240. DATA "or it can have a black shadow underneath, to"
  241. DATA "give a three-dimensional effect..."
  242. DATA "Once you have a window on the screen, simply"
  243. DATA "use FASTPRINT, also in the ASSEMBLY Library,"
  244. DATA "to put text into it, in any colour you like."
  245. DATA "You can also use EXPLODE from the same place"
  246. DATA "to clear the window's contents."
  247. DATA "All the functions in the Library are written"
  248. DATA "in fast assembly language, but this does not"
  249. DATA "prevent them from being very easy to use."
  250. DATA "This for instance, is the call to create the"
  251. DATA "present window ....."
  252. DATA "   PopUp 8, 14, 8, 52, 112, 2, 0, -1"
  253. DATA "Before opening a window, the function stores"
  254. DATA "the screen beneath it in an internal buffer."
  255. DATA "When you close a window, the screen contents"
  256. DATA "are restored to their original location. Use"
  257. DATA "the statement 'ShutUp -1' to close the last"
  258. DATA "window opened.  For example ...."
  259.  
  260. '┌────────────────────────────────────────────────────────────────────────┐
  261. '│      (c) 1991 By Christy Gemmell and Singular Software.                │
  262. '└────────────────────────────────────────────────────────────────────────┘
  263.  
  264.