C150227 Final Report - Laserfiche WebLink

Home Browse Search

11056 PRINT # 2, CHR(254),CHR(71),CHR(1),CHR(2), "Delay > ",TDLY- TICK(0) 11060 UNTIL TICK(0) >TDLY REM let user know sensor warmup is done 11070 PRINT "Sensor Warmup Complete, Taking Readings now..." 11071 PRINT 11075 PRINT #2,CHR(12), 11076 PRINT #2, "Taking Readings now" 11077 PRINT #2, "Standby for results" 11078 PRINT #2,1'...." REM begin read loop for averaging multiple readings 11100 DO REM increment loop counter 11110 X =X +1 REM read analog flow depth signal REM register 2 is the first analog input, REM register 3 is the 2nd ai, etc... REM read All 11120 AII= REGREAD(2) REM check for good reading (< 4069) REM if bad reading is received, read again REM if good reading, add to previous sum 11125 IF AI1<4096 THEN DPTHSUMI = DPTHSUMI +AI1 ELSE 11120 REM read AI2 REM 11130 AI2= REGREAD(3) REM check for good reading (< 4069) REM if bad reading is received, read again REM if good reading, add to previous sum REM 11135 IF AI2<4096 THEN DPTHSUM2 = DPTHSUM2 +AI2 ELSE 11130 REM continue until x readings have been taken 11140 UNTIL X =100 REM calculate average of readings 11150 SIGAVGI = DPTHSUMI /X 11155 SIGAVG2= DPTHSUM2 /X REM set print to formatted output 11160 PRINT USING( # # # #. # #), REM print averaged signal value 11170 PRINT "Sensor 1 Avg = ", SIGAVGI 11175 PRINT "Sensor 2 Avg = ", SIGAVG2 REM turn off excitation voltage 11180 REGWRITE 4823,0 REM calculate (Y) depth REM get slope, offset & min. depth values from REM modbus registers 11200 SLPI= REGREAD(7033) : SLP2= REGREAD(7034) 11205 OFFI= REGREAD(7037) : OFF2= REGREAD(7038) 11210 YMINI= REGREAD(7053) : YMIN2= REGREAD(7054) REM calculate flow depth using slope and offset 11220 Y1= (SIGAVGI *SLP1) +OFF1 11225 Y2= (SIGAVG2 *SLP2) +OFF2 11230 PRINT "Sensor 1 Calculated Flow Depth (Y1) = ", Yl," FT" 11235 PRINT "Sensor 2 Calculated Flow Depth (Y2) = ", Y2," FT" 37