print("Communicate with an EI-1050 digital temperature and humidity probe")
--The EI-1050 includes a SHT-11 temperature/humidity sensor by Sensiron (SBUS).
--Sensibus (SBUS) is a proprietary communication protocol used by the SHT11, SHT15, SHT71, and SHT75
--The T7 has SBUS functionality integrated which handles sensibus comm, so the script is easy.
--For more T7 information, see http://labjack.com/support/datasheets/t7/digital-io/sbus
--For more on the EI-1050, see http://labjack.com/support/ei-1050/datasheet

--WIRES
--Red Wire (Power) FIO2 (FIO6 on T4) set to output high
--Black Wire (GND) GND
--Green Wire (Data) FIO0 (FIO4 on T4)
--White Wire (Clock) FIO1  (FIO5 on T4)
--Brown Wire (Enable) N/C

--Note: A second sensor could share the clock & data lines, but you would need to 
--begin using the enable wire

local mbRead=MB.R			--local functions for faster processing
local mbWrite=MB.W

local Temperature_K = 0
local Temperature_F = 0
local Relative_Humidity = 0

--Configure T7s SPI pins
devType = MB.R(60000, 3)
if devType == 7 then--if T7
	mbWrite(30277, 0, 2)  --SBUS_ALL_POWER_DIONUM, set to FIO2
	mbWrite(30200, 0, 0)  --SBUS0_DATA_DIONUM, set to FIO0
	mbWrite(30225, 0, 1)  --SBUS0_CLOCK_DIONUM, set to FIO1
elseif devType == 4 then--if T4
	mbWrite(30277, 0, 6)  --SBUS_ALL_POWER_DIONUM, set to FIO6
	mbWrite(30275, 0, 4)  --SBUS0_DATA_DIONUM, set to FIO4
	mbWrite(30276, 0, 5)  --SBUS0_CLOCK_DIONUM, set to FIO5
end

LJ.IntervalConfig(0, 2000)           --set interval to 2000ms, 2s
local checkInterval=LJ.CheckInterval

while true do
  if checkInterval(0) then         --interval completed
    mbWrite(2007, 0,0)
    mbWrite(2008, 0, 1)
    Temperature_K = mbRead(30116, 3)		--SBUS8_TEMP
  	Temperature_F = (Temperature_K - 273.15) * 1.8000 + 32.00
  	Relative_Humidity = mbRead(30166, 3)	--SBUS8_RH
  	print ("Temperature SBUS8 is:", Temperature_F, "°F", "Relative Humidity is: ", Relative_Humidity, "%RH")
  	mbWrite(2007, 0,1)
    mbWrite(2008, 0, 0)
    Temperature_K = mbRead(30114, 3)		--SBUS7_TEMP
  	Temperature_F = (Temperature_K - 273.15) * 1.8000 + 32.00
  	Relative_Humidity = mbRead(30154, 3)	--SBUS7_RH
    print ("Temperature SBUS7 is:", Temperature_F, "°F", "Relative Humidity is: ", Relative_Humidity, "%RH")
  end
end