Laserfiche WebLink
REM----------------------------- <br />REM > view raw sensor(s) output < <br />REM----------------------------- <br />4000 REGWRITE 4823,1 <br />4003 PRINT USING( # # # #), <br />REM reset variables <br />4005 SIGAVGI =O : SIGAVG2 =0 : DPTHSUMI =O DPTHSUM2 =0 <br />4010 X =0 <br />4020 DO <br />REM increment loop counter <br />4030 X =X +1 <br />4040 AII= REGREAD(2) <br />4045 AI2= REGREAD(3) <br />REM add current signal reading to previous sum <br />4050 IF AI1<4096 THEN DPTHSUMI = DPTHSUMI +AI1 <br />4060 IF AI2<4096 THEN DPTHSUM2 = DPTHSUM2 +AI2 <br />REM continue until x readings have been taken <br />4070 UNTIL X =100 <br />REM calculate average of readings <br />4080 SIGAVGI = DPTHSUMI /X <br />4090 SIGAVG2 = DPTHSUM2 /X <br />REM display raw sensor values to lcd <br />4100 PRINT #2,CHR(12), <br />4110 PRINT #2, "Sensor Calibration:" <br />4120 PRINT #2," Sensor 1> ",SIGAVGI <br />4130 PRINT #2," Sensor 2> ",SIGAVG2 <br />4140 PRINT #2, "Press F3 to Exit" <br />REM check for keypress <br />4150 K= GET(2) <br />4160 IF K =3 THEN 4190 <br />REM reset wdt <br />REM 4170 REGWRITE 31,0 <br />4180 GOTO 4005 <br />REM turn off sensor power and return to main <br />4190 REGWRITE 4823,0 <br />4195 PRINT USING(0), : GOTO 100 <br />REM------------------------------------ <br />REM > view calculated depth, discharge < <br />REM------------------------------------ <br />5000 REGWRITE 4823,1 <br />5003 PRINT USING( # # #. # # #), <br />REM reset variables <br />5005 SIGAVGI =O : SIGAVG2 =0 : DPTHSUMI =O : DPTHSUM2 =0 <br />5010 X =0 <br />5015 DO <br />REM increment loop counter <br />30 <br />