home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / NTXMETER.ZIP / NTXMETER.ONG < prev    next >
Encoding:
Text File  |  1989-11-27  |  3.0 KB  |  86 lines
  1. *--------------------------------------------------------------------
  2. * program : ntxmeter.ong
  3. * creator : bernard.ong
  4. * created : 11-24-89
  5. * updated : 11-25-89 -> predetermine last record numeric length
  6. *         : 11-27-89 -> speed improvement by taking off macro
  7. * comment : this is a full working UDF that can be implemented in
  8. *           your boilerplate library.
  9. *--------------------------------------------------------------------
  10. *
  11. * what is this about ?
  12. *     
  13. *     this is a short UDF that puts up a moving meter bar on the 
  14. *     screen as you perform an INDEX ON command. it also im-
  15. *     plements a real time numeric counter for the records pro-
  16. *     cessed. you can modify the UDF to just use a numeric counter
  17. *     or just the moving bar meter if you so desire...
  18. *
  19. * why did i do this ? (advantage is relative)
  20. *
  21. *     Zen and aesthetics. some folks want an indication of how far
  22. *     an indexing routine is from being done.  personally, i think
  23. *     it relieves the 'indexing stress' some of us go through. 
  24. *
  25. * disadvantage
  26. *   
  27. *     it's not in assembler or c, so it's real slow. it increases
  28. *     your index time by approximately 2.3 times. here are some figures
  29. *     on indexing a 4191-record database on a 30 wide character field:
  30. *           
  31. *         straight indexing                     22 seconds
  32. *         indexing with numeric counter only    41 seconds
  33. *         indexing with moving meter bar only   43 seconds
  34. *         indexing with full blown UDF          52 seconds
  35. *           
  36. * some comments
  37. *
  38. *     i haven't tested this UDF on real large databases. if you find
  39. *     a way to speed up the UDF or ran some test results different
  40. *     from the above, you could post me a message. in the meantime,
  41. *     hope this routine would be useful to anybody who needs it. 
  42. *     look at sample.prg to see how UDF is being implemented.
  43. *
  44. * acknowledgement
  45. * 
  46. *     thanks to GARY DOUGLAS PINDER for his numeric counter routine
  47. *     for indexing. his routine is arced under file ODOMET.ARC.
  48. *
  49. * BERNARD ONG (73667,1516)
  50. *
  51. *--------------------------------------------------------------------
  52. function ntxmeter
  53. parameters keyer,_meterline
  54. private keyer,_meterline,_percent
  55.  
  56. if .not. eof()
  57.   if (empty(indexkey(indexord()))) .and. (empty(indexkey(1)))
  58.  
  59.     * numeric counter number
  60.     @ _meterline-02,30 say str(recno(),len(ltrim(str(lastrec()))))
  61.  
  62.     * moving meter bar routine
  63.     _percent = recno()/lastrec()*60
  64.     @ _meterline,10 say replicate('█',_percent)
  65.  
  66.   endif
  67. endif
  68. return keyer
  69. *
  70. *--------------------------------------------------------------------
  71. function meterbox
  72. parameters boxline
  73. private boxline,length
  74.  
  75. * draw meter borders and labels
  76. @ boxline-01,09 to boxline+1,70
  77. @ boxline+02,09 say '0%'
  78. @ boxline+02,67 say '100%'
  79. @ boxline+00,10 say replicate('░',60)
  80. length = len(ltrim(str(lastrec())))
  81. @ boxline-02,10 say 'Records Completed : '+space(length)+'/'+ltrim(str(lastrec()))
  82. return ''
  83. *
  84. *
  85. * eof: ntxmeter.ong
  86.