Sub GetBatteryVoltage()
    'Calculate an rolling average.. Loads data into an array and fills it. Once filled starts overwriting the oldest data with the newest
    'Between reads of sensor, Code reads the array and averages the data in it
    'Data saggy at the start of filling as array is empty

   Local Result as Word
   Local Average as Word
   Local X as byte
   Result=0
   Average=0
   X=0

   If BattReadIndex = NumOfBattReadings then
      BattReadIndex = 0                                                  'Wraps around to the beginning of array:
   End if

   Result=BattVolt                                                          'BattVolt = Getadc(1)
   BattReadings(BattReadIndex) =  Result                         'Store it in the array
   BattReadIndex = BattReadIndex + 1                             'Advance to the next position in the array:

   Result=0

   For X = 0 to NumOfBattReadings                                 'Read the array
     Result=Result+BattReadings(X)
   Next X

   Average= Result/NumOfBattReadings                            'Calculate the average:
   BatteryVoltage=Average

End Sub
 

 
Const _smoothing_factor = 3                                 'Nr.values for avg

Dim Pressure_accumulator(2) As Long
Dim Temp_long As Long
Dim Accumulator_temp As Long
Dim Sensor_value As Word
Dim Accumulator As Long

 'smooth raw value
    Temp_long = Pressure_accumulator(temp_byte)             'Load value into temp var.
    Accumulator = Temp_long                                 'This is the old average on LONG form
    Shift Accumulator , Right , _smoothing_factor           'Accumulator sum divided by 2^smoothing factor
    Pressure_raw(temp_byte) = Accumulator
    Temp_long = Temp_long - Accumulator                     'Subtract old value
    Temp_long = Temp_long + Sensor_value                    'Add new
    Pressure_accumulator(temp_byte) = Temp_long             'Save accumulator for next time