Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public Serial1 As Serial
Public timer1 As Timer
Public OBJ_TEMP,AMB_TEMP As Double
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
RunNative("setup",Null)
timer1.Initialize("timer1_Tick",1000)
timer1.Enabled = True
End Sub
Private Sub Timer1_Tick
RunNative("read",Null)
Log("Object Temperature: ",OBJ_TEMP," C")
Log("Ambient Temperature: ",AMB_TEMP," C")
End Sub
#if C
#include <Wire.h>
#include <Adafruit_MLX90614.h>
Adafruit_MLX90614 mlx = Adafruit_MLX90614();
void setup(B4R::Object* o){
mlx.begin();
}
void read (B4R::Object* o) {
b4r_main::_amb_temp = mlx.readAmbientTempC();
b4r_main::_obj_temp = mlx.readObjectTempC();
}
#End if