home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / QWEZ42.ZIP / MULTSAM2.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-04-01  |  4.4 KB  |  112 lines
  1. DECLARE SUB SETINPT (SCRN%, WID%, EX$, INPT%(), INPT$(), BC%)
  2. DECLARE SUB SETWIND (FST%, S%, SH%, NOHI%, DEC%, SA%, DFORMAT%)
  3. DECLARE SUB MULTINPT (SCRN%, FLD%, EXIT$, AEXIT%, RKEY%, RTRN$())
  4. DECLARE SUB MAKEWIND (W%, LABEL$, TR%, LC%, WD%, NR%, ATTR%, BORDER%)
  5. DECLARE SUB PRINTW (TEXT$, R%, LC%)
  6.  
  7. '***************************************************************************
  8. ' This is an example of using auto-exit fields  in MULTINPT to add      ****
  9. ' two numbers and place the sum in a protected field.                   ****
  10. '***************************************************************************
  11. '**** THIS PROGRAM MUST BE USED WITH ONE OF THE FOLLOWING LIBRARIES:    ****
  12. '***************************************************************************
  13. '**** For QB4.+ unenhanced version use QB4UNEN.QLB                      ****
  14. '**** For BASIC 7.+ unenhanced version use PDSUNEN.QLB                  ****
  15. '**** For QB4.+ enhanced version use QB4ALL.QLB or QB4NER.QLB           ****
  16. '**** For BASIC 7.0 enhanced version use PDSALL70.QLB or PDSNER70.QLB   ****
  17. '**** For BASIC 7.1 enhanced version use PDSALL71.QLB or PDSNER71.QLB   ****
  18. '**** Load QB or QBX with the /L option using the correct library       ****
  19. '***************************************************************************
  20.  
  21. CALL SETWIND(1, 1, 7, 0, 1, 1, 1)       ' INITIALIZE WINDOW MEMORY
  22. COLOR 7, 0: CLS                         ' BLANK THE SCREEN
  23. DIM RTRN$(4)                            ' FOR THE FOUR FIELDS
  24.  
  25. '---------------------------------------------------------------------------
  26. ' SETINPT MUST BE CALLED FOR EACH MULTI-FIELD INPUT SCREEN
  27.  
  28. REDIM INPT%(25), INPT$(4)
  29. FLD% = 1: B% = 1
  30. DO
  31.   READ INPT%(B%)
  32.   IF INPT%(B%) = 9999 THEN EXIT DO
  33.   B% = B% + 1
  34.   FOR X% = 1 TO 5
  35.      READ INPT%(B%)
  36.      B% = B% + 1
  37.   NEXT
  38.   READ INPT$(FLD%)
  39.   FLD% = FLD% + 1
  40. LOOP
  41.  
  42. ' Auto-exit ( on change ) - auto advance - numeric with no decimal places
  43. DATA 21000,5,5,4,15,99,""
  44. ' Auto-exit ( on change ) - auto advance - numeric with no decimal places
  45. DATA 21000,7,5,4,15,99,""
  46. ' Protected - numeric with no decimal places
  47. DATA 100,9,5,5,15,99,""
  48. ' Alpha / numeric
  49. DATA 7,11,5,15,15,99,""
  50. DATA 9999
  51.  
  52. CALL SETINPT(1, 80, "1", INPT%(), INPT$(), 0)
  53. ERASE INPT%, INPT$
  54. '----------------------------------------------------------------------------
  55. ' THE MAIN PROGRAM
  56.  
  57. ' program
  58. ' program
  59.  
  60. GOSUB AUTOEXITEXAMPLE
  61.  
  62. ' program
  63. ' program
  64.  
  65. END
  66.  
  67. '---------------------------------------------------------------------------
  68. ' MULTI-FIELD SUB-ROUTINE
  69.  
  70. AUTOEXITEXAMPLE:
  71.  
  72. FLD% = 1: AUTOEXIT% = 0: EXIT$ = ""     ' START IN FIELD 1.  PRINT ALL
  73.                                         ' FIELDS.
  74. '----------------------------------------------------------------------------
  75. ' MAKE A WINDOW.  PRINT INSTRUCTIONS
  76.  
  77. CALL MAKEWIND(1, "@Auto-exit fields used to update a protected field", 1, 1, 80, 14, 112, 102)
  78. CALL PRINTW("Auto-exit and auto advance with numeric input", 2, 15)
  79. CALL PRINTW("+", 3, 5)
  80. CALL PRINTW("Auto-exit and auto advance with numeric input", 4, 15)
  81. CALL PRINTW("Protected Field", 6, 15)
  82. CALL PRINTW("Alpha-numeric", 8, 24)
  83. CALL PRINTW("Press F1 to end demonstration", 10, 100)
  84.  
  85. '----------------------------------------------------------------------------
  86. PREINPT:
  87. CALL MULTINPT(1, FLD%, EXIT$, AUTOEXIT%, RKEY%, RTRN$())
  88.  
  89. ' FIRST CHECK TO SEE IF THE EXIT WAS DUE TO FIELD 1 OR 2 BEING EXITED,
  90. ' EITHER BY THE AUTO-EXIT FEATURE OR BY THE "F1" KEY.
  91. ' ON EXIT AUTOEXIT% POINTS TO THE FIELD THE CURSOR WAS ON WHEN MULTINPT
  92. ' WAS EXITED ( IF IT WAS AN AUTOEXIT FIELD. ).  ON EXIT FLD% POINTS TO
  93. ' THE FIELD THE CURSOR IS MOVING TO.
  94.  
  95.  
  96.    IF AUTOEXIT% = 1 OR AUTOEXIT% = 2 THEN             ' IS IT FIELD 1 OR 2 ?
  97.       RTRN$(3) = STR$(VAL(RTRN$(1)) + VAL(RTRN$(2)))  ' ADD FIELD 1 + 2
  98.       IF RTRN$(1) = "" AND RTRN$(2) = "" THEN RTRN$(3) = ""
  99.       CALL MULTINPT(1, FLD%, "VIEW", 3, RKEY%, RTRN$()) ' UPDATE FIELD 3 ONLY
  100.  
  101.       IF EXIT$ = "AUTO" THEN                ' WAS NOT "F1"
  102.          GOTO PREINPT                       ' AS AUTOEXIT% = 1 OR 2 ONLY
  103.       END IF                                ' 1 FIELD WILL UPDATE. FLD%
  104.                                             ' POINTS TO NEXT FIELD FOR
  105.                                             ' THE CURSOR.
  106.    END IF
  107.  
  108. RETURN                             ' PROGRAM WILL ALWAYS COMES HERE IF "F1"
  109.                                    ' IS PRESSED AS EXIT$ = "F1"
  110.                                    
  111.  
  112.