Sub Process_Globals
Public Serial1 As Serial
Public OBJTEMP As Double
Public DIETEMP As Double
Private d1pins As D1Pins
Private timer1 As Timer
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
timer1.Initialize("timer1_Tick",4000)
timer1.Enabled=True
RunNative("setup",Null)
End Sub
Sub timer1_tick
RunNative("read",0)
Log(OBJTEMP)
Log(DIETEMP)
End Sub
#if C
#include <Wire.h>
#include <Adafruit_Sensor.h>
#include "Adafruit_TMP006.h"
Adafruit_TMP006 tmp006;
void setup(B4R::Object* o){
tmp006.begin();
tmp006.wake();
}
void read (B4R::Object* o) {
b4r_main::_objtemp = tmp006.readObjTempC();
b4r_main::_dietemp = tmp006.readDieTempC();
}