home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / bar / grafem.prg < prev    next >
Text File  |  1987-03-30  |  2KB  |  70 lines
  1. * Program..: Grafem.PRG
  2. * Author...: Jon Wind
  3. * Date.....: March 30, 1987
  4. * Version..: dBASE III or III PLUS
  5. * Note(s)..: This program generates a bar graph.  It will graph
  6. *            any number less than 100, rounding to the nearest
  7. *            multiple of 5  (32 will round to 30, 38 to 40).
  8. *
  9. *            The graph title and axes are drawn by the Grafname
  10. *            procedure, found in Grafproc.PRG.  Color and row
  11. *            placement can be controlled.
  12. *
  13. *            The graphing is done by the Bargraf procedure, found
  14. *            in Grafproc.PRG.  Color, width, label, column and row
  15. *            placement can be controlled.  Labels will be centered
  16. *            beneath the appropriate bar.
  17. *
  18.  
  19.  
  20.  
  21. WAIT "Are you using dBASE III PLUS?  (y/N)  " TO db3p
  22. SET TALK OFF
  23. SET PROC TO grafproc
  24. CLEA
  25.  
  26.  
  27. IF UPPE(db3p)="Y"
  28.   *graframe --> frame bottom row,frame color,title row,graph title,title color
  29.   DO graframe WITH 19,"",4,"* dBASE III PLUS GRAPHING EXAMPLE *","w+"
  30. ELSE
  31.   *set up memvars because REPLICATE command is not available
  32.   dbar=CHR(205)
  33.   full=CHR(219)
  34.   half=CHR(220)
  35.   DO WHIL LEN(dbar)<50
  36.     dbar=dbar+dbar
  37.     full=full+full
  38.     half=half+half
  39.   ENDD
  40.   *grafram2 --> frame bottom row,frame color,title row,graph title,title color
  41.   DO grafram2 WITH 19,"7",4,"* dBASE III PLUS GRAPHING EXAMPLE *","7+"
  42. ENDI
  43.  
  44.  
  45.  
  46. IF UPPE(db3p)="Y"
  47.   *bargraf --> graph value,width,label row,label column,label name,color
  48.   DO bargraf WITH 100,6,20,16,"BAR #1","r"
  49.   DO bargraf WITH 28,6,20,30,"BAR #2","g"
  50.   DO bargraf WITH 63,6,20,44,"BAR #3","g+"
  51.   DO bargraf WITH 82,6,20,58,"BAR #4","r+"
  52.   *DO bargraf WITH 63,6,20,44,"TEST BAR NAME #3",""
  53.   *DO bargraf WITH 82,6,21,58,"TEST BAR NAME #4",""
  54. ELSE
  55.   *bargraf2 --> graph value,width,label row,label column,label name,color
  56.   DO bargraf2 WITH 100,6,20,16,"BAR #1","r"
  57.   DO bargraf2 WITH 28,6,20,30,"BAR #2","g"
  58.   DO bargraf2 WITH 63,6,20,44,"BAR #3","g+"
  59.   DO bargraf2 WITH 82,6,20,58,"BAR #4","r+"
  60.   *DO bargraf2 WITH 63,6,20,44,"TEST BAR NAME #3","7"
  61.   *DO bargraf2 WITH 82,6,21,58,"TEST BAR NAME #4","7"
  62. ENDI
  63.  
  64.  
  65. CLOS PROC
  66. SET TALK OFF
  67. @23,0
  68.  
  69.  
  70.