home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / GRAPH_IT.ZIP / GRAPH_IT.PRG < prev    next >
Encoding:
Text File  |  1987-06-23  |  11.6 KB  |  265 lines
  1. ***************************************************
  2. * Filename: Graph_it.prg
  3. * Author  : Roger J. Donnay 
  4. * Date    : June 23, 1987
  5. *
  6. * Notes   : This is a general purpose, menu-driven, bar-graphing 
  7. *           program for use with dBaseIII or Clipper data files.
  8. *
  9. * GRAPH_IT is a free software program designed for use by dBaseIII
  10. * and/or Clipper software developers.
  11. *
  12. * All users are granted a limited license to use GRAPH_IT in any 
  13. * form for their own use or for integration into a larger system.
  14. * All users may copy GRAPH_IT for the use of others subject to 
  15. * the following conditions:
  16. *
  17. *   GRAPH_IT must be copied in unmodified form, complete with
  18. *   this license information.
  19. *
  20. *   The full GRAPH-IT documentation must be included with the
  21. *   copy.
  22. *
  23. *   No fee, charge or other compensation may be accepted or
  24. *   requested by any licensee.
  25. *
  26. * Software developers may use, modify, and distribute GRAPH_IT
  27. * only as a an integrated portion of a larger software system.
  28. *
  29. * Operators of electronic bulletin board systems (Sysops) may post
  30. * GRAPH_IT for downloading by their users only as long as the 
  31. * above conditions are met.
  32. *
  33. * Donnay Software systems makes no warranty of any kind, express
  34. * or implied, including without limitation, any warranties of 
  35. * merchantability and/or fitness for a particular purpose. Donnay
  36. * Software Systems shall not be liable for damages, whether
  37. * direct, indirect, special or consequential arising from a 
  38. * failure of this program to operate in the manner desired by the
  39. * user.  Donnay Software Systems shall not be liable for any damage
  40. * to data or property which may be caused directly or indirectly
  41. * by use of the program.
  42. *
  43. * We welcome your comments and hope you find GRAPH_IT to be a useful
  44. * graphing utility for your applications.
  45. *
  46. * Address any inquiries or comments to:
  47. *
  48. * Roger J. Donnay
  49. * Donnay Software Systems
  50. * 6151 Jasonwood Dr.
  51. * Huntington Beach, CA 92648
  52. * (714) 841-6260
  53. *
  54. * See the USERS MANUAL section at the end of this file.
  55. *
  56. * Check to see that you have the complete, unaltered source.  This file
  57. * is    265  lines,  11884  characters
  58. ***********************************************
  59.  
  60. SET PROC TO graph_pr
  61. DO grphmenu
  62. RETURN
  63.  
  64.  
  65. **********************************
  66. *
  67. *  graph_it.prg  USERS MANUAL
  68. *
  69. *                    I N T R O D U C T I O N
  70. * 
  71. *  GRAPH_IT.PRG and GRAPH_PR.PRG are the complete source files for a 
  72. *  general purpose bar-graphing system that draws database information 
  73. *  on the screen in vertical or horizontal bars.
  74. *
  75. *  Graph_it runs under dBaseIII or can be compiled with any version
  76. *  of Clipper.  Graph_it can be used as a complete menu-driven
  77. *  system, or a portion of Graph_it can be called from your clipper
  78. *  or dBaseIII programs.
  79. *
  80. *  Graph_it will draw up to 4 bars on the screen for each data record
  81. *  in a file, increment the file, and continue until the screen is full.
  82. *
  83. *  FILES REQUIRED
  84. *
  85. *  The standalone, menu-driven system requires the following files:
  86. *
  87. *  GRAPH_IT.PRG  -  Calling program and documentation
  88. *  GRAPH_PR.PRG  -  Procedure file with all graphing procedures/functions
  89. *  GRAPH_IT.DBF  -  Data file for keeping your parameter tables
  90. *  GRAPH_IT.FRM  -  Form file for printing parameter data
  91. *
  92. *  If you are calling only the "grphdraw" procedure, there are no data 
  93. *  files required other that the data file you intend to graph.
  94. *
  95. *  GRAPH_IT.DBF is a parameter file which is maintained by the procedure
  96. *  GRPHMENU.   GRAPH_IT.DBF has the following structure:
  97. *               
  98. *  Field  Field Name   Type   Width  Dec      Description
  99. *  -----  ------------ -----  -----  ----   -------------------------------
  100. *    1    GRPH_NMBR     C       4           Graph Number
  101. *    2    TITLE         C      40           Graph Title
  102. *    3    FILE_NAME     C       8           Name of Data file to use
  103. *    4    INDX_NAME     C       8           Name of Index file to use
  104. *    5    FILT_DESC     C      55           Filter to use (expression)
  105. *    6    BARDESC_1     C      14           Description of Bar 1
  106. *    7    BARDESC_2     C      14           Description of Bar 2
  107. *    8    BARDESC_3     C      14           Description of Bar 3
  108. *    9    BARDESC_4     C      14           Description of Bar 4
  109. *   10    BAREXPR_1     C      45           Expression for Bar 1
  110. *   11    BAREXPR_2     C      45           Expression for Bar 2
  111. *   12    BAREXPR_3     C      45           Expression for Bar 3
  112. *   13    BAREXPR_4     C      45           Expression for Bar 4
  113. *   14    PDESC_1       C      14           Description of parameter
  114. *   15    PARA_1        C      45           Expression for parameter
  115. *   16    GTYPE         C       1           Type of graph to draw
  116. *   17    BAR_INCR      N       7           Bar incremental value
  117. *   18    P_SPACE       N       2           Spacing between parameters 
  118. * 
  119. *
  120. *                       O P E R A T I O N
  121. *
  122. *  DRAWING GRAPHS FROM THE GRAPH MENU
  123. *
  124. *  To run Graph It from dBaseIII, just type DO GRAPH_IT.  A menu will
  125. *  come up on the screen which will open the GRAPH_IT.DBF file and
  126. *  provide you with selections for adding, editing or viewing parameters
  127. *  required for graphing data files.  You can call the graph menu from
  128. *  your own programs by entering the following commands:
  129. *         
  130. *           SET PROC TO graph_pr
  131. *           DO grphmenu
  132. *
  133. *  CAUTION: When calling the Graph It menu, the work areas I and J
  134. *           are used for the GRAPH_IT.DBF file and data file(s).
  135. *           If you have open files in these areas they will be closed
  136. *           when returning from the Graph It menu.
  137. *
  138. *  The graph parameters determine which data file and/or index file you
  139. *  will be graphing.  After you have entered your parameters and selected
  140. *  the graph you want to draw, just press key <J> and the graph will be
  141. *  drawn on the screen.  After a full screen of data is displayed, you will
  142. *  be prompted with a message to Quit, Continue, Goto a specific record,
  143. *  or draw a numeric chart.  If you select quit, you will be returned to 
  144. *  your menu and the current record in the data file will be one (1) record 
  145. *  past the last record graphed.  If you select Continue, another screen 
  146. *  of data will be graphed from the data file.  If you choose to Goto a
  147. *  specific record, you will be asked the record number to start, and 
  148. *  another screen will be graphed starting at the new record.  If you 
  149. *  choose to draw a numeric chart, the screen will clear and a chart of
  150. *  actual numeric data will be drawn on the screen corresponding to the
  151. *  bar graph just previously drawn.   If you want to do a printout of both
  152. *  the bar graph and numeric data, first draw the bar graph, print the 
  153. *  screen, then draw the numeric graph and print the screen again for a
  154. *  nice presentation of graphic and numeric data on the same printout.
  155. *
  156. *
  157. *  DRAWING GRAPHS FROM OTHER PROGRAMS (Method 1)
  158. *
  159. *  You can draw a graph from within your own programs by first setting
  160. *  up the variables that the graph program needs then calling the graph
  161. *  drawing procedure by entering the command DO GRPHDRAW.  See the 
  162. *  notes in the GRPHDRAW procedure for the parameters that must be set up
  163. *  prior to calling the procedure.  You must first be sure that the
  164. *  data you are graphing is a numeric expression, that the file containing
  165. *  the numeric data is selected in the current workspace, and the record
  166. *  pointer is on the record you want to start graphing from.
  167. *
  168. *  Example:  Let's assume you have a data file with numeric information
  169. *            for the past 10 years pertaining to sales, expenses, and
  170. *            profits.
  171. *
  172. *            The data file is named SALES.DBF and is consists of four
  173. *            fields:  YEAR, MONTH, SALES, EXPENSES.
  174. *
  175. *            To plot both style graphs showing Sales and Profit for each
  176. *            month of the year 1985, you would write the following
  177. *            program:
  178. *
  179. *            SET PROC TO graph_pr
  180. *            USE sales
  181. *            SET FILTER TO year='1985'
  182. *            GOTO TOP &&Start at first month of 1985
  183. *            STOR 'Sales' TO mbardesc_1
  184. *            STOR 'Profit' TO mbardesc_2
  185. *            STOR 'SALES' TO mbarexpr_1
  186. *            STOR 'SALES-EXPENSES' TO mbarexpr_2 && an expression for "profit"
  187. *            STOR ' ' TO mbardesc_3,mbardesc_4,mbarexpr_3,mbarexpr_4
  188. *            STOR '1985 Sales vs Profits Summary' TO mtitle
  189. *            STOR 'Month' TO mpdesc_1
  190. *            STOR 'MONTH' TO mpara_1
  191. *            STOR 100000 TO mbar_incr
  192. *            STOR 'V' TO gtype
  193. *            STOR 5 TO mp_space
  194. *            DO grphdraw  && Draw Vertical Bar Graph
  195. *            GOTO TOP
  196. *            STOR 'H' TO gtype
  197. *            STOR 1 TO mp_space
  198. *            DO grphdraw  && Draw Horizontal Bar Graph
  199. *            RETURN
  200. *
  201. *  DRAWING GRAPHS FROM OTHER PROGRAMS (Method 2)
  202. *
  203. *  A simpler method for calling a graph is available, however it
  204. *  requires that the graph parameters have been previously entered
  205. *  into the GRAPH_IT.DBF data file.  This can be done by running
  206. *  the program GRAPH_IT.PRG (DO GRAPH_IT) or by editing the GRAPH_IT.DBF
  207. *  data file with dBaseiii utilities.  You can then graph your data
  208. *  by the procedure GRPHDRW:
  209. *
  210. *            DO grphdrw WITH <Parameter 1> <Parameter 2>
  211. *
  212. *  where Parameter 1 is a string with the number of the graph you
  213. *  want to draw (this string should equal the GRPH_NMBR field in the
  214. *  GRAPH_IT.DBF file) and Parameter 2 is a logical .t. if the data file
  215. *  to graph is already open and in the current workspace, or a logical
  216. *  .f. if the data file to graph is defined by the FILE_NAME field in
  217. *  the GRAPH_IT.DBF file).
  218. *
  219. *  Example 1 :  You have a data file named EXPENSES.DBF and you wish to graph
  220. *               some numeric data for the year 1984.  The parameters to
  221. *               graph have already been established in a record in the 
  222. *               GRAPH_IT.DBF file with a Graph number of 'EXP1'. 
  223. *               The file contains expense information for several years,
  224. *               but you want to graph only 1984.  If Parameter 2 is a
  225. *               logical .t., any filter information in the GRAPH_IT.DBF
  226. *               parameter file will be ignored and the graph will start
  227. *               at the current record.
  228. *
  229. *               USE expenses
  230. *               SET FILTER TO year='1984'
  231. *               GOTO TOP
  232. *               DO grphdrw WITH 'EXP1',.T.
  233. *
  234. *  Example 2:   You want to graph all the information in the file
  235. *               EXPENSES.DBF in accordance with any filter or index file
  236. *               already named by the 'EXP1' graph in the GRAPH_IT.DBF
  237. *               file.
  238. *
  239. *               DO grphdrw WITH 'EXP1',.F.
  240. *
  241. *
  242. *  Graph It will draw consecutive records in the data file, therefore
  243. *  if you want to exclude records, use a SET FILTER statement after
  244. *  USEing the file.  The expressions used to calculate the drawn bars must
  245. *  be valid dBaseIII expressions which include valid data fields and/or
  246. *  other numeric information.   
  247. *
  248. *
  249. ******************************************
  250. *
  251. * BUGS IN EARLIER VERSIONS OF GRAPH_IT
  252. *
  253. * In versions date on or before 6-21-87, it was found that when running
  254. * under Rev. 1.0 of dBaseiii a PROCEDURE FILE ALREADY OPEN error was
  255. * encountered because the calling program and procedures were in the same
  256. * file.  This revision is distributed in two files to prevent this
  257. * occurence.
  258. *
  259. * Some procedures have new names due to the improved features over
  260. * earlier versions.  Check the names of the procedures before using
  261. * this version if you have been using an earlier version.
  262. *
  263. ********************************
  264. * end of file
  265.