home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / qbasic / bkinpqb.zip / BKEXAMP.BAS < prev    next >
BASIC Source File  |  1990-08-11  |  4KB  |  212 lines
  1. 'BKExamp.BAS
  2. 'demonstrates the use of BKInput.LIB
  3.  
  4. ' $INCLUDE: 'BKInput.BI'
  5. ' $INCLUDE: 'Colors.BI'
  6.  
  7. DEFINT A-Z
  8.  
  9. CONST False% = 0, True% = NOT False
  10. CONST Null$ = ""
  11.  
  12. ' The following accepts new alphanumeric entry in the second row and
  13. ' fifth column on the screen with a red background and a cyan foreground.
  14. ' Up to 10 characters may be entered. Function keys are not parsed.
  15.  
  16. CLS
  17. LOCATE 1, 5
  18. COLOR Cyan, Black
  19. PRINT "Alphanumeric - Function keys not parsed"
  20. COLOR Cyan, Red
  21. BKNumeric = False
  22. BKKey = False
  23. BKTemp$ = Null
  24. BKInput 2, 5, 10, BKNumeric, BKKey, BKTemp$
  25. COLOR Cyan, Black
  26.  
  27. SELECT CASE BKKey%
  28.  
  29.   CASE CR
  30.     LOCATE 2, 5
  31.     PRINT BKTemp$; SPACE$(10 - LEN(BKTemp$));
  32.     LOCATE 2, 20
  33.     PRINT "<---- This is what you typed."
  34.  
  35.   CASE Esc
  36.     LOCATE 2, 5
  37.     PRINT SPACE$(10);
  38.     LOCATE 2, 20
  39.     PRINT "You hit the ESCape key."
  40. END SELECT
  41.  
  42. ' The following accepts an integer entry in the sixth row and
  43. ' fifth column on the screen with a red background and a cyan foreground.
  44. ' Up to 6 characters are allowed.  Function keys are parsed.
  45. LOCATE 5, 5
  46. PRINT "Numeric - Function keys are parsed"
  47. COLOR Cyan, Red
  48. BKNumeric = True
  49. BKKey = True
  50. BKTemp$ = Null
  51. BKInput 6, 5, 6, BKNumeric, BKKey, BKTemp$
  52. COLOR Cyan, Black
  53.  
  54. SELECT CASE BKKey%
  55.  
  56.   CASE CR
  57.     LOCATE 6, 4
  58.     Dummy% = VAL(BKTemp$)
  59.     LOCATE 6, 5
  60.     PRINT SPACE$(6);
  61.     PRINT USING "###,###"; Dummy%;
  62.     LOCATE 6, 20
  63.     PRINT "<---- This is what you typed."
  64.  
  65.   CASE Esc
  66.     LOCATE 6, 5
  67.     PRINT SPACE$(10);
  68.     LOCATE 6, 20
  69.     PRINT "You hit the ESCape key."
  70.  
  71.   CASE F1
  72.     LOCATE 6, 5
  73.     PRINT SPACE$(6);
  74.     LOCATE 6, 20
  75.     PRINT "You hit the F1 key."
  76.  
  77.   CASE F2
  78.     LOCATE 6, 5
  79.     PRINT SPACE$(6);
  80.     LOCATE 6, 20
  81.     PRINT "You hit the F2 key."
  82.  
  83.   CASE F3
  84.     LOCATE 6, 5
  85.     PRINT SPACE$(6);
  86.     LOCATE 6, 20
  87.     PRINT "You hit the F3 key."
  88.  
  89.   CASE F4
  90.     LOCATE 6, 5
  91.     PRINT SPACE$(6);
  92.     LOCATE 6, 20
  93.     PRINT "You hit the F4 key."
  94.  
  95.   CASE F5
  96.     LOCATE 6, 5
  97.     PRINT SPACE$(6);
  98.     LOCATE 6, 20
  99.     PRINT "You hit the F5 key."
  100.  
  101.   CASE F6
  102.     LOCATE 6, 5
  103.     PRINT SPACE$(6);
  104.     LOCATE 6, 20
  105.     PRINT "You hit the F6 key."
  106.  
  107.   CASE F7
  108.     LOCATE 6, 5
  109.     PRINT SPACE$(6);
  110.     LOCATE 6, 20
  111.     PRINT "You hit the F7 key."
  112.  
  113.   CASE F8
  114.     LOCATE 6, 5
  115.     PRINT SPACE$(6);
  116.     LOCATE 6, 20
  117.     PRINT "You hit the F8 key."
  118.  
  119.   CASE F9
  120.     LOCATE 6, 5
  121.     PRINT SPACE$(6);
  122.     LOCATE 6, 20
  123.     PRINT "You hit the F9 key."
  124.  
  125.   CASE F10
  126.     LOCATE 6, 5
  127.     PRINT SPACE$(6);
  128.     LOCATE 6, 20
  129.     PRINT "You hit the F10 key."
  130.  
  131.   CASE Tabb
  132.     LOCATE 6, 5
  133.     PRINT SPACE$(6);
  134.     LOCATE 6, 20
  135.     PRINT "You hit tab key."
  136.  
  137.   CASE Home
  138.     LOCATE 6, 5
  139.     PRINT SPACE$(6);
  140.     LOCATE 6, 20
  141.     PRINT "You hit the HOME key."
  142.  
  143.   CASE Endd
  144.     LOCATE 6, 5
  145.     PRINT SPACE$(6);
  146.     LOCATE 6, 20
  147.     PRINT "You hit the END key."
  148.  
  149.   CASE PgUp
  150.     LOCATE 6, 5
  151.     PRINT SPACE$(6);
  152.     LOCATE 6, 20
  153.     PRINT "You hit the Page Up key."
  154.  
  155.   CASE PgDn
  156.     LOCATE 6, 5
  157.     PRINT SPACE$(6);
  158.     LOCATE 6, 20
  159.     PRINT "You hit the Page Down key."
  160.  
  161.   CASE Up
  162.     LOCATE 6, 5
  163.     PRINT SPACE$(6);
  164.     LOCATE 6, 20
  165.     PRINT "You hit the Up Arrow key."
  166.  
  167.   CASE Dn
  168.     LOCATE 6, 5
  169.     PRINT SPACE$(6);
  170.     LOCATE 6, 20
  171.     PRINT "You hit the Down key."
  172. END SELECT
  173.  
  174. ' The following accepts an numeric entry in the tenth row and
  175. ' fifth column on the screen with a red background and a cyan foreground.
  176. ' Up to 10 characters are allowed.  Up to 2 decimal places are allowed.
  177. ' Function keys are parsed.
  178. LOCATE 9, 5
  179. PRINT "Numeric with 2 decimal places - Function keys not parsed"
  180. COLOR Cyan, Red
  181. BKNumeric = 2
  182. BKKey = False
  183. BKTemp$ = Null
  184. BKInput 10, 5, 10, BKNumeric, BKKey, BKTemp$
  185. COLOR Cyan, Black
  186.  
  187. SELECT CASE BKKey%
  188.  
  189.   CASE CR
  190.     LOCATE 10, 4
  191.     Dummy! = VAL(BKTemp$)
  192.     LOCATE 10, 5
  193.     PRINT SPACE$(10);
  194.     LOCATE 10, 5
  195.     PRINT USING "#,###,###.##"; Dummy!;
  196.     LOCATE 10, 20
  197.     PRINT "<---- This is what you typed."
  198.  
  199.   CASE Esc
  200.     LOCATE 10, 5
  201.     PRINT SPACE$(10);
  202.     LOCATE 10, 20
  203.     PRINT "You hit the ESCape key."
  204. END SELECT
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.