home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / GAGEDE / GAGEDEMO.PRG next >
Text File  |  1993-12-14  |  22KB  |  816 lines
  1. ****************************************************************************
  2. *                              GAGEDEMO.PRG                                *
  3. *                                                                          *
  4. *                     LED Gauge Demonstration Program                      *
  5. *                                                                          *
  6. *  Author: Ed Duchesne CIS [70720,1423]                                    *
  7. *  Date: December 17, 1993                                                 *
  8. *  Requires: files - LOADFONT.EXE, LEDGAUGE.FON, NORMAL.FON                *
  9. *            FoxPro - DOS version only.  Hardware - VGA Monitor.           *
  10. ****************************************************************************
  11. ****************************************************************************
  12. *
  13. * Notes: The included files loadfont.exe, ledgauge.fon and normal.fon must
  14. * be in the current foxpro default directory or on the current path. The 
  15. * loadfont program reads the font files and replaces the character set on 
  16. * your VGA card. You must include the entire file name for the font you 
  17. * wish to use. Loadfont.exe can be used from the DOS commmand line or while 
  18. * in FoxPro: e.g. - From inside FoxPro - RUN LOADFONT LEDGAUGE.FON
  19. * From DOS Prompt - LOADFONT LEDGAUGE.FON
  20. * The Gagedemo program automatically runs loadfont at startup and shutdown.
  21. * To get a better idea of what this does scroll this file down to the
  22. * LEDStr Function (last function in this listing) and have a good look at it,
  23. * then from the Command window in FoxPro type   RUN LOADFONT LEDGAUGE.FON 
  24. * and then view the LEDStr Function again. To return to a regular font
  25. * type RUN LOADFONT NORMAL.FON or use the DOS Command MODE CO80.
  26. * Note - this only works in VGA25 mode, if you change to VGA50 for a moment
  27. * the LEDGAUGE.FON will be replaced with your regular font.
  28. * To see which characters have been changed after loading the LEDGAUGE font
  29. * file view the ASCII Chart under the 'System' menu option in FoxPro.
  30. * If you want to expand on the ideas included in this program I recommend
  31. * you download a copy of Michael J. Mefford's FONTED.COM from Compuserve.
  32. * Fonted.com allows you to create your own VGA fonts and similar to the
  33. * one used for this demo. The Fonted zip file also has a DOC file with good 
  34. * details on replacing VGA fonts.
  35. * LOADFONT.EXE was created with Borland Pascal 7.
  36. * The LOADFONT.EXE and .FON files as well as this program file may be
  37. * distributed as public domain.
  38. *
  39. * If you find any of the ideas included in this demo useful in you own
  40. * applications or have any questions about these techniques please
  41. * drop me a line or give me a call.
  42. * 
  43. * Ed Duchesne
  44. * 3960-76st
  45. * Edmonton,Alberta (Canada)
  46. * T6K-1V6
  47. *
  48. * CIS [70720,1423]
  49. * Phone - Day: (403) 468-1133, Evening: (403) 463-0008.
  50. ****************************************************************************
  51.  
  52.  
  53. IF Initialize()
  54.   DO Main
  55.   DO ShutDown
  56. ENDIF
  57.  
  58.  
  59. FUNCTION Initialize
  60.   SET DISPLAY TO VGA25
  61.   IF FILE('LOADFONT.EXE') AND FILE('LEDGAUGE.FON')
  62.     RUN LOADFONT.EXE LEDGAUGE.FON
  63.   ELSE
  64.     WAIT "Required File(s) LOADFONT.EXE and/or LEDGAUGE.FON not available" WINDOW
  65.     WAIT "LOADFONT.EXE,LEDGAUGE.FON and NORMAL.FON must be in default directory" WINDOW
  66.     RETURN .F.
  67.   ENDIF  
  68.   PUSH KEY CLEAR
  69.   
  70.   PUBLIC TalkSave,ColorSave,BlinkSave,EscapeSave
  71.  
  72.   
  73.   IF SET('TALK') = 'ON'
  74.     SET TALK OFF       
  75.     TalkSave = 'ON'
  76.   ELSE
  77.     TalkSave = 'OFF'
  78.   ENDIF
  79.   IF SET('BLINK') = 'OFF'
  80.     SET BLINK ON       
  81.     BlinkSave = 'OFF'
  82.   ELSE
  83.     BlinkSave = 'ON'
  84.   ENDIF
  85.   IF SET('ESCAPE') = 'ON'
  86.     SET ESCAPE OFF       
  87.     EscapeSave = 'ON'
  88.   ELSE
  89.     EscapeSave = 'OFF'
  90.   ENDIF
  91.  
  92.   ColorSave = SET('COLOR')
  93.  
  94.   SET COLOR TO W+/B
  95.   SET CURSOR OFF
  96.   CLEAR
  97. RETURN .T.
  98.  
  99. PROCEDURE Main
  100.   DO DrawMenu  && Paint menu on screen
  101.   ON KEY LABEL LEFTMOUSE DO MouseReport
  102.   * Simple event loop
  103.   DO WHILE .T.
  104.     CurrKey = INKEY(0,'M')
  105.     DO CASE
  106.       CASE CurrKey = 151
  107.         IF NOT MouseReport()
  108.           EXIT
  109.         ENDIF
  110.       CASE CurrKey = -1
  111.         DO F2Button
  112.       CASE CurrKey = -2
  113.         DO F3Button
  114.       CASE CurrKey = -3
  115.         DO F4Button            
  116.       CASE CurrKey = 27
  117.         DO QuitButton
  118.         EXIT
  119.     ENDCASE  
  120.   ENDDO
  121. RETURN
  122.  
  123. PROCEDURE Shutdown
  124.   SET TALK &TalkSave
  125.   SET COLOR TO &ColorSave
  126.   SET BLINK &BlinkSave
  127.   SET ESCAPE &EscapeSave
  128.   SET CURSOR ON
  129.   RELEASE TalkSave,ColorSave,BlinkSave,EscapeSave  
  130.   CLEAR
  131.     
  132.   POP KEY
  133.   
  134.   IF FILE('LOADFONT.EXE') AND FILE('NORMAL.FON')
  135.     RUN LOADFONT.EXE NORMAL.FON
  136.   ELSE
  137.     WAIT "Required File(s) LOADFONT.EXE and/or NORMAL.FON not available." WINDOW
  138.     WAIT "You can restore regular font with DOS Command: MODE CO80" WINDOW
  139.   ENDIF  
  140. RETURN
  141.  
  142. PROCEDURE DrawMenu
  143.   * Menu Bar
  144.   =FillArea(2,3,3,74,' ','N/W')
  145.   =DrawFrame(1,2,3,74,'W+/B','N+/B',.F.)
  146.  
  147.   * Button outlines
  148.   =DrawFrame(2,4,1,16,'W+/W','N+/W',.F.)  && F2 Button
  149.   =DrawFrame(2,22,1,16,'W+/W','N+/W',.F.)  && F3 Button
  150.   =DrawFrame(2,40,1,21,'W+/W','N+/W',.F.)  && F4 Button
  151.   =DrawFrame(2,63,1,11,'W+/W','N+/W',.F.)  && Quit Button
  152.  
  153.   * Button text
  154.   @ 3,6 SAY 'LED Gauges' COLOR N/W
  155.   @ 3,18 SAY 'F2' COLOR W+/W
  156.   @ 3,24 SAY 'Bar Gauges' COLOR N/W
  157.   @ 3,36 SAY 'F3' COLOR W+/W
  158.   @ 3,42 SAY 'Gauges Combined' COLOR N/W
  159.   @ 3,59 SAY 'F4' COLOR W+/W
  160.   @ 3,65 SAY 'Quit' COLOR N/W
  161.   @ 3,71 SAY 'ESC' COLOR W+/W
  162. RETURN
  163.  
  164. * Called when left mouse button pressed
  165. * Checks to see if mouse pointer is located over a button
  166. FUNCTION MouseReport
  167.   PRIVATE Row,Col,Trash
  168.   Row = MROW("")
  169.   Col = MCOL("")
  170.   IF Row = 3
  171.     Trash = INKEY('M') && Throw away character in buffer
  172.     IF Col > 4 AND Col < 21  && F2
  173.       DO F2Button
  174.       RETURN .T.
  175.     ENDIF
  176.     IF Col > 22 AND Col < 39  && F3
  177.       DO F3Button
  178.       RETURN .T.
  179.     ENDIF
  180.     IF Col > 40 AND Col < 62  && F4
  181.       DO F4Button
  182.       RETURN .T.
  183.     ENDIF
  184.     IF Col > 63 AND Col < 75  && Quit
  185.       DO QuitButton
  186.       RETURN .F.
  187.     ENDIF
  188.   ENDIF
  189. RETURN .T.
  190.  
  191. PROCEDURE F2Button
  192.   * Animate the button
  193.   =DrawFrame(2,4,1,16,'W+/W','N+/W',.T.)
  194.   WAIT "" TIMEOUT 0.01
  195.   =DrawFrame(2,4,1,16,'W+/W','N+/W',.F.)
  196.   DO LEDGauges 
  197. RETURN
  198.  
  199. PROCEDURE F3Button
  200.   =DrawFrame(2,22,1,16,'W+/W','N+/W',.T.)
  201.   WAIT "" TIMEOUT 0.01
  202.   =DrawFrame(2,22,1,16,'W+/W','N+/W',.F.)
  203.   DO BarGauges
  204. RETURN
  205.  
  206. PROCEDURE F4Button
  207.   =DrawFrame(2,40,1,21,'W+/W','N+/W',.T.)
  208.   WAIT "" TIMEOUT 0.01
  209.   =DrawFrame(2,40,1,21,'W+/W','N+/W',.F.)
  210.   DO BothGauges
  211. RETURN
  212.  
  213. PROCEDURE QuitButton
  214.   =DrawFrame(2,63,1,11,'W+/W','N+/W',.T.)
  215.   WAIT "" TIMEOUT 0.01
  216.   =DrawFrame(2,63,1,11,'W+/W','N+/W',.F.)
  217. RETURN
  218.  
  219.  
  220. * Display and animate a window with LED & LCD type digits
  221. PROCEDURE LEDGauges
  222.   =FillArea(7,3,16,74,' ','N/W')
  223.   =DrawFrame(6,2,16,74,'W+/B','N+/B',.F.)
  224.   @ 7,25 SAY "Press any key to stop display" COLOR N/W
  225.   =DrawFrame(8,4,8,70,'W+/W','N+/W',.T.)
  226.   
  227.   =DrawFrame(10,7,4,18,'W+/W','N+/W',.F.)
  228.   
  229.   @ 11,9 SAY "Date" COLOR N/W
  230.     
  231.   =DrawFrame(10,30,4,16,'W+/W','N+/W',.F.)
  232.   @ 11,32 SAY "Time" COLOR N/W
  233.     
  234.   =DrawFrame(10,51,4,19,'W+/W','N+/W',.F.)
  235.   @ 11,53 SAY "SSM" COLOR N/W
  236.   
  237.   
  238.   @ 19,36 SAY "Counters" COLOR N/W
  239.   =DrawFrame(18,18,2,10,'W+/W','N+/W',.T.)
  240.   =DrawFrame(18,50,2,10,'W+/W','N+/W',.T.)
  241.    
  242.   Counter1 = 0
  243.   Counter2 = -9999  
  244.   LEDRun = .T.
  245.   
  246.   SET COLOR TO G+/N
  247.   =LEDStr(12,9,DTOC(DATE()))
  248.   
  249.   ON KEY LEDRun = .F.  && Stop on any key press
  250.  
  251.   DO WHILE LEDRun
  252.     * Set Values for counters
  253.     Counter1 = Counter1 + 1
  254.     IF Counter1 > 9999
  255.       Counter1 = -9999
  256.     ENDIF
  257.     Counter2 = Counter2 + 1  
  258.     IF Counter2 > 9999
  259.       Counter2 = -9999
  260.     ENDIF
  261.     
  262.     SET COLOR TO G+/N
  263.     =LEDStr(12,32,TIME())  && Display current time
  264.     =LEDStr(12,53,STR(SECONDS(),9,2))  && Display Seconds Since Midnight 
  265.     
  266.     SET COLOR TO N/W
  267.     =LEDStr(19,19,STR(Counter1,5,0))  && Display LCD Counter 1
  268.     =LEDStr(19,51,STR(Counter2,5,0))  && Display LCD Counter 2
  269.   ENDDO
  270.   Trash = INKEY() && Throw away last keystroke
  271.   ON KEY
  272.   =FillArea(6,2,18,76,' ','W+/B')  && Erase window
  273. RETURN
  274.  
  275. * Display and animate 3 horizontal bar gauges
  276. PROCEDURE BarGauges
  277.   =FillArea(7,13,15,54,' ','N/W')
  278.   =DrawFrame(6,12,15,54,'W+/B','N+/B',.F.)
  279.   @ 7,21 SAY "Press any key or mouse to stop display" COLOR N/W
  280.   =DrawFrame(8,14,11,50,'W+/W','N+/W',.T.)
  281.   
  282.   =DrawFrame(9,22,9,33,'W+/W','N+/W',.F.)
  283.   
  284.   =DrawFrame(11,29,5,23,'W+/W','N+/W',.T.)
  285.   
  286.   @ 12,24 SAY "Red" COLOR W+/W
  287.   @ 13,24 SAY "Green" COLOR W+/W
  288.   @ 14,24 SAY "Blue" COLOR W+/W
  289.   
  290.   @ 15,30 SAY '╫' COLOR N/W
  291.   @ 15,40 SAY '│' COLOR N/W
  292.   @ 15,50 SAY '╫' COLOR N/W
  293.   @ 16,30 SAY '0%' COLOR W+/W
  294.   @ 16,39 SAY '50%' COLOR W+/W
  295.   @ 16,49 SAY '100%' COLOR W+/W
  296.   
  297.   * Variable Starting Values
  298.   Bar1Value = 0
  299.   Bar2Value = -20
  300.   Bar3Value = -50
  301.   Bar1CountUp = .T. && direction of bar movement .F. = reverse
  302.   Bar2CountUp = .T.
  303.   Bar3CountUp = .T.
  304.   BarRun = .T.
  305.   
  306.   
  307.   DO WHILE BarRun  && Run until key or mouse press
  308.     IF Bar1CountUp
  309.       Bar1Value = Bar1Value + 1
  310.       IF Bar1Value > 85
  311.         Bar1CountUp = .F.
  312.       ENDIF
  313.     ELSE
  314.       Bar1Value = Bar1Value - 1
  315.       IF Bar1Value < (-20)
  316.         Bar1CountUp = .T.    
  317.       ENDIF  
  318.     ENDIF
  319.   
  320.     * Set values for the bars  
  321.     IF Bar2CountUp
  322.       Bar2Value = Bar2Value + 1
  323.       IF Bar2Value > 110
  324.         Bar2CountUp = .F.
  325.       ENDIF
  326.     ELSE
  327.       Bar2Value = Bar2Value - 1
  328.       IF Bar2Value < (-17)
  329.         Bar2CountUp = .T.    
  330.       ENDIF  
  331.     ENDIF
  332.     
  333.     IF Bar3CountUp
  334.       Bar3Value = Bar3Value + 1
  335.       IF Bar3Value > 102
  336.         Bar3CountUp = .F.
  337.       ENDIF
  338.     ELSE
  339.       Bar3Value = Bar3Value - 1
  340.       IF Bar3Value < 21
  341.         Bar3CountUp = .T.    
  342.       ENDIF  
  343.     ENDIF
  344.   
  345.     * Draw the bars
  346.     SET COLOR TO R/W  
  347.     =DrawBar(12,31,Bar1Value)
  348.     SET COLOR TO G/W
  349.     =DrawBar(13,31,Bar2Value)
  350.     SET COLOR TO B/W
  351.     =DrawBar(14,31,Bar3Value)
  352.     
  353.     IF INKEY(0.01,'M') <> 0  && If key or mouse pressed
  354.       BarRun = .F.
  355.     ENDIF    
  356.   ENDDO 
  357.   
  358.   =FillArea(6,12,17,56,' ','W+/B')  && Erase the window
  359.   
  360. RETURN
  361.  
  362. * Display and animate LED gauges, bars and annunciator lights
  363. PROCEDURE BothGauges
  364.   =FillArea(7,3,16,74,' ','N/W')
  365.   =DrawFrame(6,2,16,74,'W+/B','N+/B',.F.)
  366.   @ 7,25 SAY "Press any key to stop display" COLOR N/W
  367.   =DrawFrame(8,4,13,70,'W+/W','N+/W',.T.)
  368.   
  369.   * RPM Frames
  370.   =DrawFrame(10,13,2,8,'W+/W','N+/W',.T.)
  371.   =DrawFrame(14,13,2,8,'W+/W','N+/W',.T.)
  372.   =DrawFrame(18,13,2,8,'W+/W','N+/W',.T.)
  373.   
  374.   * Bar gauge frames
  375.   =DrawFrame(10,25,2,20,'W+/W','N+/W',.T.)
  376.   =DrawFrame(14,25,2,20,'W+/W','N+/W',.T.)
  377.   =DrawFrame(18,25,2,20,'W+/W','N+/W',.T.)
  378.  
  379.   * Percentage display frames
  380.   =DrawFrame(10,49,2,9,'W+/W','N+/W',.T.)
  381.   =DrawFrame(14,49,2,9,'W+/W','N+/W',.T.)
  382.   =DrawFrame(18,49,2,9,'W+/W','N+/W',.T.)
  383.   
  384.   * Annunciator light bezels
  385.   =DrawFrame(10,63,2,8,'W+/W','N+/W',.F.)
  386.   =DrawFrame(14,63,2,8,'W+/W','N+/W',.F.)
  387.   =DrawFrame(18,63,2,8,'W+/W','N+/W',.F.)
  388.   
  389.   @ 9,14 SAY "R.P.M." COLOR N/W 
  390.   @ 9,26 SAY "Relative" COLOR N/W
  391.   @ 9,50 SAY "Percent" COLOR N/W
  392.   @ 9,64 SAY "Status" COLOR N/W
  393.   @ 11,6 SAY "Motor 1" COLOR N/W
  394.   @ 15,6 SAY "Motor 2" COLOR N/W
  395.   @ 19,6 SAY "Motor 3" COLOR N/W
  396.   
  397.   * Display empty values in LED gauge positions
  398.   SET COLOR TO BG+/N
  399.   =LEDStr(11,14,'   0')
  400.   =LEDStr(15,14,'   0')
  401.   =LEDStr(19,14,'   0')
  402.   SET COLOR TO G+/N
  403.   =LEDStr(11,50,'  0.0')
  404.   =LEDStr(15,50,'  0.0')
  405.   =LEDStr(19,50,'  0.0')
  406.   
  407.   * Initialize variables 
  408.   M1Up = .T.
  409.   M2Up = .T.
  410.   M3Up = .T.
  411.   M1Value = 0
  412.   M2Value = -175
  413.   M3Value = -360
  414.   M1Percent = 0.0
  415.   M2Percent = 0.0
  416.   M3Percent = 0.0
  417.   
  418.   RunMotor = .T.
  419.   
  420.   ON KEY RunMotor = .F.
  421.   
  422.   DO WHILE RunMotor
  423.     DO DisplayM1  && Display top set of gauges
  424.     DO DisplayM2  && Display middle set of gauges
  425.     DO DisplayM3  && Display bottom set of gauges
  426.   ENDDO
  427.   
  428.   ON KEY
  429.   Trash = INKEY()  && Throw away last keystroke
  430.   =FillArea(6,2,18,76,' ','W+/B')  && Erase window
  431. RETURN
  432.  
  433. PROCEDURE DisplayM1
  434.   IF M1Up    
  435.     M1Value = M1Value + 1
  436.     IF M1Value > 0       
  437.       M1Percent = (M1Value / 1000) * 100
  438.     ELSE 
  439.       M1Percent = 0.0
  440.     ENDIF  
  441.     IF M1Value > 1075
  442.       M1Up = .F.
  443.     ENDIF
  444.   ELSE
  445.     M1Value = M1Value - 1
  446.     IF M1Value > 0       
  447.       M1Percent = (M1Value / 1000) * 100
  448.     ELSE 
  449.       M1Percent = 0.0
  450.     ENDIF  
  451.     IF M1Value < -61
  452.       M1Up = .T.
  453.     ENDIF    
  454.   ENDIF
  455.   
  456.   IF M1Value >= 0 
  457.     SET COLOR TO BG+/N
  458.     =LEDStr(11,14,STR(M1Value,4,0))
  459.   ENDIF
  460.     
  461.   SET COLOR TO B/W
  462.   IF M1Value > 0
  463.     =DrawDoubleBar(11,26,INT(M1Percent))
  464.   ELSE
  465.     =DrawDoubleBar(11,26,0)
  466.   ENDIF
  467.   
  468.   IF M1Percent < 75.1 
  469.     SET COLOR TO G+/N
  470.   ELSE
  471.     IF M1Percent > 90
  472.       SET COLOR TO R+/N
  473.     ELSE
  474.       SET COLOR TO GR+/N  
  475.     ENDIF  
  476.   ENDIF  
  477.   =LEDStr(11,50,STR(M1Percent,5,1))
  478.   
  479.   IF M1Percent <= 100
  480.     SET COLOR TO W+/G
  481.     @ 11,64 SAY " Cond.  "
  482.     @ 12,64 SAY " Normal "
  483.   ELSE
  484.     SET COLOR TO W+/R*
  485.     @ 11,64 SAY " OVER-  "
  486.     @ 12,64 SAY " SPEED  "  
  487.   ENDIF  
  488. RETURN
  489.  
  490. PROCEDURE DisplayM2
  491.   IF M2Up    
  492.     M2Value = M2Value + 1
  493.     IF M2Value > 0       
  494.       M2Percent = (M2Value / 1000) * 100
  495.     ELSE 
  496.       M2Percent = 0.0
  497.     ENDIF  
  498.     IF M2Value > 1150
  499.       M2Up = .F.
  500.     ENDIF
  501.   ELSE
  502.     M2Value = M2Value - 1
  503.     IF M2Value > 0       
  504.       M2Percent = (M2Value / 1000) * 100
  505.     ELSE 
  506.       M2Percent = 0.0
  507.     ENDIF  
  508.     IF M2Value < -7
  509.       M2Up = .T.
  510.     ENDIF    
  511.   ENDIF
  512.   
  513.   IF M2Value >= 0 
  514.     SET COLOR TO BG+/N
  515.     =LEDStr(15,14,STR(M2Value,4,0))
  516.   ENDIF
  517.     
  518.   SET COLOR TO B/W
  519.   IF M2Value > 0
  520.     =DrawDoubleBar(15,26,INT(M2Percent))
  521.   ELSE
  522.     =DrawDoubleBar(15,26,0)
  523.   ENDIF
  524.   
  525.   IF M2Percent < 75.1 
  526.     SET COLOR TO G+/N
  527.   ELSE
  528.     IF M2Percent > 90
  529.       SET COLOR TO R+/N
  530.     ELSE
  531.       SET COLOR TO GR+/N  
  532.     ENDIF  
  533.   ENDIF  
  534.   =LEDStr(15,50,STR(M2Percent,5,1))
  535.   
  536.   IF M2Percent <= 100
  537.     SET COLOR TO W+/G
  538.     @ 15,64 SAY " Cond.  "
  539.     @ 16,64 SAY " Normal "
  540.   ELSE
  541.     SET COLOR TO W+/R*
  542.     @ 15,64 SAY " OVER-  "
  543.     @ 16,64 SAY " SPEED  "  
  544.   ENDIF    
  545. RETURN
  546.  
  547.  
  548. PROCEDURE DisplayM3
  549.   IF M3Up    
  550.     M3Value = M3Value + 1
  551.     IF M3Value > 0       
  552.       M3Percent = (M3Value / 1000) * 100
  553.     ELSE 
  554.       M3Percent = 0.0
  555.     ENDIF  
  556.     IF M3Value > 1010
  557.       M3Up = .F.
  558.     ENDIF
  559.   ELSE
  560.     M3Value = M3Value - 1
  561.     IF M3Value > 0       
  562.       M3Percent = (M3Value / 1000) * 100
  563.     ELSE 
  564.       M3Percent = 0.0
  565.     ENDIF  
  566.     IF M3Value < -33
  567.       M3Up = .T.
  568.     ENDIF    
  569.   ENDIF
  570.   
  571.   IF M3Value >= 0 
  572.     SET COLOR TO BG+/N
  573.     =LEDStr(19,14,STR(M3Value,4,0))
  574.   ENDIF
  575.     
  576.   SET COLOR TO B/W
  577.   IF M3Value > 0
  578.     =DrawDoubleBar(19,26,INT(M3Percent))
  579.   ELSE
  580.     =DrawDoubleBar(19,26,0)
  581.   ENDIF
  582.   
  583.   IF M3Percent < 75.1 
  584.     SET COLOR TO G+/N
  585.   ELSE
  586.     IF M3Percent > 90
  587.       SET COLOR TO R+/N
  588.     ELSE
  589.       SET COLOR TO GR+/N  
  590.     ENDIF  
  591.   ENDIF  
  592.   =LEDStr(19,50,STR(M3Percent,5,1))
  593.   
  594.   IF M3Percent <= 100
  595.     SET COLOR TO W+/G
  596.     @ 19,64 SAY " Cond.  "
  597.     @ 20,64 SAY " Normal "
  598.   ELSE
  599.     SET COLOR TO W+/R*
  600.     @ 19,64 SAY " OVER-  "
  601.     @ 20,64 SAY " SPEED  "  
  602.   ENDIF    
  603. RETURN
  604.  
  605.  
  606. *  Function DrawBar : Draw a single height bar **************************** 
  607. *  Parameters 
  608. *     - BRow = Row the bar is to appear on
  609. *     - BCol = Column the bar will grow from
  610. *     - BNum = Value for bar. Range in this implementation 0 to 100 
  611. *  Note: The color of the bar depends on the current SET COLOR TO color
  612. *  e.g.: =DrawBar(10,10,68)
  613. ****************************************************************************
  614.  
  615. FUNCTION DrawBar
  616. PARAMETERS BRow,BCol,BNum
  617.   IF BNum < 0 OR BNum > 100
  618.     RETURN .F.
  619.   ENDIF
  620.   FChars = INT(BNum / 5)
  621.   BRem = MOD(BNum,5)
  622.   IF BRem > 0
  623.     EndChar = CHR(142+BRem)
  624.     @ BRow,BCol SAY REPLICATE('█',FChars)+EndChar+REPLICATE(' ',19 - FChars)
  625.   ELSE
  626.     @ BRow,BCol SAY REPLICATE('█',FChars)+REPLICATE(' ',20 - FChars)
  627.   ENDIF
  628. RETURN .T.
  629.  
  630.  
  631. *  Function DrawFrame : Draw a 3D style frame ****************************** 
  632. *  Parameters 
  633. *     - FRow = Row for the top of the frame
  634. *     - FCol = Column left edge of frame
  635. *     - FHeight = The vertical space "between" the top and bottom edges
  636. *     - FWidth = The number of columns "between" the right and left edges
  637. *     - SunColor = Color of the sunlit part of the frame
  638. *     - ShadeColor = Color of the shaded areas of the frame
  639. *     - Inset = .T. For concave frame, .F. For convex frame          
  640. *  Note: The background color for SunColor & ShadeColor should be the same
  641. *  e.g.: =DrawFrame(10,10,1,20,'W+/W','N+/W',.T.)
  642. ****************************************************************************
  643.  
  644. FUNCTION DrawFrame
  645. PARAMETERS FRow,FCol,FHeight,FWidth,SunColor,ShadeColor,Inset
  646.   IF FHeight < 1 OR FWidth < 1
  647.     RETURN .F.
  648.   ENDIF
  649.   IF Inset
  650.     LTColor = ShadeColor  && Left & Top
  651.     RBColor = SunColor    && Right & Botom
  652.   ELSE
  653.     LTColor = SunColor
  654.     RBColor = ShadeColor
  655.   ENDIF
  656.   
  657.   SET COLOR TO <Color
  658.   @ FRow,FCol SAY '╟'+REPLICATE('╞',FWidth) 
  659.   FOR LineCount = 1 to FHeight
  660.     @ FRow+LineCount,FCol SAY '╫'
  661.   ENDFOR
  662.   SET COLOR TO &RBColor
  663.   FOR LineCount = 1 to FHeight
  664.     @ FRow+LineCount,FCol+FWidth+1 SAY 'Å'
  665.   ENDFOR
  666.   @ FRow+FHeight+1,FCol+1 SAY REPLICATE('╪',FWidth)+'ô'
  667. RETURN .T.
  668.  
  669.  
  670. *  Function FillArea : Fill an area of screen with ************************* 
  671. *  Parameters 
  672. *     - FillRow = First row to fill
  673. *     - FillCol = First column to fill
  674. *     - FillHeight = Number of rows to fill
  675. *     - FillWidth = Number of columns to fill
  676. *     - FillChar = Character to fill the area with
  677. *     - FillColor = Color of the characters used to fill area        
  678. *  e.g.: =FillColor(10,10,5,70,'░','W+/B') 
  679. ****************************************************************************
  680.  
  681. FUNCTION FillArea
  682. PARAMETERS FillRow,FillCol,FillHeight,FillWidth,FillChar,FillColor
  683.   SET COLOR TO &FillColor
  684.   FOR LineCount = 0 to FillHeight-1
  685.     @ FillRow+LineCount,FillCol SAY REPLICATE(FillChar,FillWidth)
  686.   ENDFOR
  687. RETURN
  688.  
  689.  
  690. * Draw a double height bar - same usage as DrawBar
  691. FUNCTION DrawDoubleBar
  692. PARAMETERS BRow,BCol,BNum
  693.   IF BNum < 0 OR BNum > 100
  694.     RETURN .F.
  695.   ENDIF
  696.   FChars = INT(BNum / 5)
  697.   BRem = MOD(BNum,5)
  698.   IF BRem > 0
  699.     EndChar = CHR(142+BRem)
  700.     @ BRow,BCol SAY REPLICATE('█',FChars)+EndChar+REPLICATE(' ',19 - FChars)
  701.     @ BRow+1,BCol SAY REPLICATE('█',FChars)+EndChar+REPLICATE(' ',19 - FChars)
  702.   ELSE
  703.     @ BRow,BCol SAY REPLICATE('█',FChars)+REPLICATE(' ',20 - FChars)
  704.     @ BRow+1,BCol SAY REPLICATE('█',FChars)+REPLICATE(' ',20 - FChars)
  705.   ENDIF
  706. RETURN .T.
  707.  
  708.  
  709. *  Function LEDStr : Draw a double height & width digital string *********** 
  710. *  Parameters 
  711. *     - LEDRow = First of two rows to be occupied by the characters
  712. *     - LEDCol = First column for sting to appear 
  713. *     - LEDString = Sting to display
  714. *  Note: The color of the digits depend on the current SET COLOR TO color
  715. *        Function will ignore all characters except the following:
  716. *        0123456789,' '(space), '-', ':','.',',','/' 
  717. *  e.g.: =LEDStr(10,10,STR(MyNumericVariable,5,3))
  718. *  Also: Punctuation characters use 1 column each, all others use 2 columns
  719. ****************************************************************************
  720.  
  721. FUNCTION LEDStr
  722.   PARAMETERS LEDRow,LEDCol,LEDString
  723.   PRIVATE CC,MCount,MRow,MRow2,MCol,ShowChar
  724.   CC = LEN(LEDString)
  725.   MRow = LEDRow
  726.   MRow2 = MRow+1
  727.   MCol = LEDCol
  728.   
  729.   FOR MCount = 1 TO CC 
  730.     ShowChar = SUBSTR(LEDString,MCount,1)
  731.   DO CASE
  732.     CASE ShowChar = ' '
  733.       @ MRow, MCol SAY '  '
  734.       @ MRow2,MCol SAY '  '
  735.       MCol = MCol+2
  736.       LOOP
  737.     CASE ShowChar = '0'
  738.       @ MRow, MCol SAY '╙ç'
  739.       @ MRow2,MCol SAY '╬ä'
  740.       MCol = MCol+2
  741.       LOOP
  742.     CASE ShowChar = '1'
  743.       @ MRow, MCol SAY ' Ç'
  744.       @ MRow2,MCol SAY ' ü'
  745.       MCol = MCol+2
  746.       LOOP
  747.     CASE ShowChar = '2'
  748.       @ MRow, MCol SAY '╠é'
  749.       @ MRow2,MCol SAY '╬â'
  750.       MCol = MCol+2
  751.       LOOP
  752.     CASE ShowChar = '3'
  753.       @ MRow, MCol SAY '╠é'
  754.       @ MRow2,MCol SAY '╧ä'
  755.       MCol = MCol+2
  756.       LOOP
  757.     CASE ShowChar = '4'
  758.       @ MRow, MCol SAY '╨à'
  759.       @ MRow2,MCol SAY ' ü'
  760.       MCol = MCol+2
  761.       LOOP
  762.     CASE ShowChar = '5'
  763.       @ MRow, MCol SAY '╤å'
  764.       @ MRow2,MCol SAY '╧ä'
  765.       MCol = MCol+2
  766.       LOOP
  767.     CASE ShowChar = '6'
  768.       @ MRow, MCol SAY '╤å'
  769.       @ MRow2,MCol SAY '╬ä'
  770.       MCol = MCol+2
  771.       LOOP
  772.     CASE ShowChar = '7'
  773.       @ MRow, MCol SAY '╥ç'
  774.       @ MRow2,MCol SAY ' ü'
  775.       MCol = MCol+2
  776.       LOOP
  777.     CASE ShowChar = '8'
  778.       @ MRow, MCol SAY '╤é'
  779.       @ MRow2,MCol SAY '╬ä'
  780.       MCol = MCol+2
  781.       LOOP
  782.     CASE ShowChar = '9'
  783.       @ MRow, MCol SAY '╤é'
  784.       @ MRow2,MCol SAY ' ü'
  785.       MCol = MCol+2
  786.       LOOP
  787.     CASE ShowChar = '-'
  788.       @ MRow, MCol SAY '╒ë'
  789.       @ MRow2,MCol SAY '  '
  790.       MCol = MCol+2
  791.       LOOP
  792.     CASE ShowChar = '.'
  793.       @ MRow, MCol SAY ' ' 
  794.       @ MRow2,MCol SAY 'Ä' 
  795.       MCol = MCol+1
  796.       LOOP
  797.     CASE ShowChar = ':'
  798.       @ MRow, MCol SAY ''
  799.       @ MRow2,MCol SAY ''
  800.       MCol = MCol+1
  801.       LOOP
  802.     CASE ShowChar = '/'
  803.       @ MRow, MCol SAY ' è'
  804.       @ MRow2,MCol SAY '╓ '
  805.       MCol = MCol+2
  806.       LOOP      
  807.     CASE ShowChar = ','
  808.       @ MRow, MCol SAY ' '
  809.       @ MRow2,MCol SAY 'ì'
  810.       MCol = MCol+1
  811.       LOOP
  812.   ENDCASE
  813.   ENDFOR
  814. RETURN  
  815.  
  816.