05-01-2003, 10:51 AM
THIS IS THE ORIGANL:
10 CLS:KEY OFF
60 BA = 1016:REM BA = COM ADDRESS
70 TM = TIMER: IF TM > 86370! THEN 70:REM MIDNIGHT TRAP
80 F1 = 0: F2 = 0
90 OUT (BA + 4), 1 + M
100 TM = TIMER: WHILE TIMER < TM + 2: WEND
110 LOCATE 5,6: PRINT "READ TEMPERATURES "
120 OUT BA + 3, 0: TM1 = TIMER: TM2 = TIMER
130 OUT BA + 3, 64
140 IF F1 = 0 AND (INP(BA + 6) AND 128) = 0 THEN F1 = 1: P1 = TIMER - TM1
150 IF F2 = 0 AND (INP(BA + 6) AND 32) = 0 THEN F2 = 1: P2 = TIMER - TM2
160 IF F1 <> 1 OR F2<> 1 THEN 140
170 P1 = P1 * 100: P2 = P2 * 100
180 LOCATE 8,5: PRINT USING "PERIOD (1) = ###.## SECONDS; P1 / 100
190 T1 = 522 - 88.6299 * LOG(P1) + 3.0209 * LOG(P1) ^ 2
200 LOCATE 10, 7RINT USING "TEMP (1) = ###.#"; T1
210 LOCATE 13,5: PRINT USING "PERIOD (2) = ###.## SECONDS; P2 / 100
220 T2 = 522 - 88.6299 * LOG(P2) + 3.0209 * LOG(P2) ^ 2
230 LOCATE 15, 7RINT USING "TEMP (2) = ###.#"; T2
240 LOCATE 5, 6: PRINT "END READ TEMP"
What I am looking for is a mod for the code that would track the temp by time and date in time intravls that could be change say five minutes for now. i would like to save the values to a csv file with the values being date time temp1 and temp2. I am good with hardware but my coding is weak any suggestions would be great thanks.
Smaug
10 CLS:KEY OFF
60 BA = 1016:REM BA = COM ADDRESS
70 TM = TIMER: IF TM > 86370! THEN 70:REM MIDNIGHT TRAP
80 F1 = 0: F2 = 0
90 OUT (BA + 4), 1 + M
100 TM = TIMER: WHILE TIMER < TM + 2: WEND
110 LOCATE 5,6: PRINT "READ TEMPERATURES "
120 OUT BA + 3, 0: TM1 = TIMER: TM2 = TIMER
130 OUT BA + 3, 64
140 IF F1 = 0 AND (INP(BA + 6) AND 128) = 0 THEN F1 = 1: P1 = TIMER - TM1
150 IF F2 = 0 AND (INP(BA + 6) AND 32) = 0 THEN F2 = 1: P2 = TIMER - TM2
160 IF F1 <> 1 OR F2<> 1 THEN 140
170 P1 = P1 * 100: P2 = P2 * 100
180 LOCATE 8,5: PRINT USING "PERIOD (1) = ###.## SECONDS; P1 / 100
190 T1 = 522 - 88.6299 * LOG(P1) + 3.0209 * LOG(P1) ^ 2
200 LOCATE 10, 7RINT USING "TEMP (1) = ###.#"; T1
210 LOCATE 13,5: PRINT USING "PERIOD (2) = ###.## SECONDS; P2 / 100
220 T2 = 522 - 88.6299 * LOG(P2) + 3.0209 * LOG(P2) ^ 2
230 LOCATE 15, 7RINT USING "TEMP (2) = ###.#"; T2
240 LOCATE 5, 6: PRINT "END READ TEMP"
What I am looking for is a mod for the code that would track the temp by time and date in time intravls that could be change say five minutes for now. i would like to save the values to a csv file with the values being date time temp1 and temp2. I am good with hardware but my coding is weak any suggestions would be great thanks.
Smaug