home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
BASIC
/
POWBASIC
/
LIBRARY2
/
GRAPH3.ZIP
/
EIGHTDAY.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-09-22
|
2KB
|
77 lines
'Program Name : EightDay.bas Sample Industrial Chart Recorder
'Author : Spectra Publishing - Tech Support Lloyd L. Smith
'Date : 09-23-90
'Compuserve # : GO PCVENB, Vendor #12/Spectra, Tech Support ID 71530,2640
'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
'Tech Support Fax: 813-625-1698 G2 & G3 compatible
'Tech Support Voc: 813-625-1172 Voice
'Create screen image on background screen
DIM Array1(1:5000)
SCREEN 9, , 1, 0
x = 180: y = 174
LINE (0, 0)-(639, 349), 8, BF
LINE (0, 0)-(639, 349), 7, B
LINE (1, 1)-(638, 348), 7, B
LINE (2, 2)-(637, 347), 7, B
LINE (1, 1)-(348, 348), 7, B
LINE (2, 2)-(347, 347), 7, B
n = 10
FOR i = 1 TO 8
CIRCLE (x, y), n, 12 ', , , 1
n = n + 20
NEXT i
COLOR 14, 0: LOCATE 2, 60: PRINT " Humidity - 32 ";
COLOR 13, 0: LOCATE 3, 60: PRINT " Temperature - 89 ";
COLOR 15, 0
LOCATE 2, 12: PRINT " 8 Day Recording Chart ";
xc = 180: yc = 174
FOR i = 0 TO 3.14 STEP .174
x = INT(SIN(i) * 120): y = INT(COS(i) * 120)
xcn = xc + x: ycn = yc + y
xcs = xc - x: ycs = yc - y
LINE (xcs, ycs)-(xcn, ycn), 12
FOR w = 1 TO 300: NEXT w
'LINE (xcs, ycs)-(xcn, ycn), 0
NEXT i
gosub PBCopy
SCREEN 9, , 0, 0
Mloop:
k$ = INKEY$: IF k$ = CHR$(27) THEN SYSTEM
os = 0
xc = 180: yc = 174
FOR i = 0 TO 6.21 STEP .01 '174
k$ = INKEY$: IF k$ = CHR$(27) THEN SYSTEM
IF i > 6.18 THEN EXIT FOR
'two data loops drawn on chart face - insert you applicxation data here
CIRCLE (xc, yc), 100 + z, 14, i, i + .1', 1
CIRCLE (xc, yc), 120 + z, 13, i, i + .05', 1
z = INT(SIN(i) * 12)
NEXT i
z = 0
gosub PBCopy
GOTO Mloop
PBCopy:
FOR n = 1 TO 349
SCREEN 9, , 1, 0
GET (1, n)-(639, n), Array1
SCREEN 9, , 0, 0
PUT (1, n), Array1,pset
NEXT n
return