Sub Process_Globals
Public Serial1 As Serial
Private bmp180 As SFE_BMP180
Private Temperature, Pressure, PressureSeaLevel, Altitude As Double
Private ALTITUDEHAMBURG As Double = 27.0 'in meters
Private Timer1 As Timer
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
bmp180.Initialize
Timer1.Initialize("Timer1_Tick", 2000)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick
If Not(bmp180.GetTemperature) Then
Log("Error retrieving the temperature.")
Return
End If
Temperature = bmp180.LastResult
bmp180.GetPressure(0, Temperature)
Pressure = bmp180.LastResult
Log("Pressure [mBar]:", Pressure)
PressureSeaLevel = bmp180.Sealevel(Pressure, ALTITUDEHAMBURG)
Log("PressureSeaLevel [mBar]:",PressureSeaLevel)
Altitude = bmp180.Altitude(Pressure, PressureSeaLevel)
Log("Altitude [m]:", Altitude)
Log("---")
End Sub