home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library2 / eightday.bas < prev    next >
Encoding:
BASIC Source File  |  1990-09-22  |  1.8 KB  |  77 lines
  1. 'Program Name    : EightDay.bas Sample Industrial Chart Recorder
  2. 'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
  3. 'Date            : 09-23-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172  Voice
  8.  
  9.  
  10. 'Create screen image on background screen
  11. DIM Array1(1:5000)
  12.  
  13. SCREEN 9, , 1, 0
  14.  
  15. x = 180: y = 174
  16. LINE (0, 0)-(639, 349), 8, BF
  17. LINE (0, 0)-(639, 349), 7, B
  18. LINE (1, 1)-(638, 348), 7, B
  19. LINE (2, 2)-(637, 347), 7, B
  20.  
  21. LINE (1, 1)-(348, 348), 7, B
  22. LINE (2, 2)-(347, 347), 7, B
  23.  
  24.  
  25. n = 10
  26. FOR i = 1 TO 8
  27. CIRCLE (x, y), n, 12 ', , , 1
  28. n = n + 20
  29. NEXT i
  30.  
  31. COLOR 14, 0: LOCATE 2, 60: PRINT " Humidity    - 32 ";
  32. COLOR 13, 0: LOCATE 3, 60: PRINT " Temperature - 89 ";
  33. COLOR 15, 0
  34. LOCATE 2, 12: PRINT " 8 Day Recording Chart ";
  35. xc = 180: yc = 174
  36. FOR i = 0 TO 3.14 STEP .174
  37. x = INT(SIN(i) * 120): y = INT(COS(i) * 120)
  38. xcn = xc + x: ycn = yc + y
  39. xcs = xc - x: ycs = yc - y
  40. LINE (xcs, ycs)-(xcn, ycn), 12
  41. FOR w = 1 TO 300: NEXT w
  42. 'LINE (xcs, ycs)-(xcn, ycn), 0
  43. NEXT i
  44.  
  45. gosub PBCopy
  46. SCREEN 9, , 0, 0
  47.  
  48. Mloop:
  49. k$ = INKEY$: IF k$ = CHR$(27) THEN SYSTEM
  50. os = 0
  51. xc = 180: yc = 174
  52. FOR i = 0 TO 6.21 STEP .01  '174
  53. k$ = INKEY$: IF k$ = CHR$(27) THEN SYSTEM
  54.  IF i > 6.18 THEN EXIT FOR
  55.  'two data loops drawn on chart face - insert you applicxation data here
  56.  CIRCLE (xc, yc), 100 + z, 14, i, i + .1', 1
  57.  CIRCLE (xc, yc), 120 + z, 13, i, i + .05', 1
  58.  z = INT(SIN(i) * 12)
  59. NEXT i
  60. z = 0
  61. gosub PBCopy
  62. GOTO Mloop
  63.  
  64.  
  65. PBCopy:
  66. FOR n = 1 TO 349
  67. SCREEN 9, , 1, 0
  68. GET (1, n)-(639, n), Array1
  69. SCREEN 9, , 0, 0
  70. PUT (1, n), Array1,pset
  71. NEXT n
  72. return
  73.  
  74.  
  75.  
  76.  
  77.