FrontPage
command: set readInterval=60000
command: set execInterval=0
command: set reportLength=240
command: program Sensors
program: '
program: ' init i2c
program: ex("pi4j", "i2c use 1")
program: '
program: ' init lux sensor
program: ex("pi4j", "i2c write1 0x29,0x80,0x03") 'power up the tsl2561 lux sensor
program: ex("pi4j", "i2c write1 0x29,0x81,0x00")
program: ex("pi4j", "i2c write1 0x29,0x86,0x00") 'scale
program: ex("pi4j", "i2c write1 0x29,0x80,0x00") 'power down
program: ex("pi4j", "i2c write1 0x29,0x80,0x03") ' power up again
program: delay(50)
program: '
program: 'get the lux value
program: v1=ex("pi4j", "i2c read1 0x29,0x8c")
program: v2=ex("pi4j", "i2c read1 0x29,0x8d")
program: lux=s2i(v2)*256+s2i(v1)
program: '
program: 'get the Aanalog value from the ADS1115 ch1
program: config=0x0003|0x0000|0x0000|0x0000|0x0080|0x0100
program: config=config|0x0000
#program: config=config|0x4000 'channel 0
program: config= config|0x5000 'channel 1
program: config=config|0x8000
program: ex("pi4j", "i2c write2 0x49,0x01,"+config)
program: delay(10)
program: v2=ex("pi4j","i2c read2 0x49,0x00")
program: airpol=s2i(v2)
#program: airpol=(airpol+32768)/16
program: airpol=airpol+800
program: '
program: ' get temperature
program: v1=ex("pi4j", "i2c read1 0x48,0x00")
program: tmp=s2i(v1)
program: '
program: ' get motion
program: v1=ex("pi4j","get-a-0")
program: motion=s2i(v1)
program: '
program: ex("pi4j", "i2c close")
program: '
program: date=ex("service","getCurrentDate.")
program: ex("service","putSendBuffer device=light, Date="+date+", v="+lux)
program: ex("service","putSendBuffer device=airPol, Date="+date+", v="+airpol)
program: ex("service","putSendBuffer device=temp, Date="+date+", v="+tmp)
program: ex("service","putSendBuffer device=motion, Date="+date+", v="+motion)
program: ex("service","sendResults.")
command: end Sensors
command: run Sensors
command: set pageName="sensors-1-h-<hour>"