'*****************************************************
'* *
'* TESTPROGRAM FOR LIGHTSENSOR ISL29023 *
'* Filename: ISL01.BAS *
'* Date: 2013-10-25 *
'* *
'*****************************************************

Clear
Cls

Pause 500

'*** Array Declaration ***

Dim Licht_DAT(1) 'Array for LSB and MSB of candle power


'SDA is on Maximite-Pin 5, CLK on Maximite-Pin 6

ISL29023_addr = &h44 ' ISL29023 slave baseaddress
I2CEN 400, 100 ' Enable I2C


'*** Registers ***

COMMANDI_R = &H00
COMMANDII_R = &H01
DATA_LSB_R = &H02
DATA_MSB_R = &H03


'*** Config Sensor ***

I2CSEND ISL29023_addr, 0, 2, COMMANDI_R, &HA3 'Command Register I 00(hex):

'ALS continous, NUMBER OF INTEGRATION CYCLES = 16
GoSub CheckIIC

I2CSEND ISL29023_addr, 0, 2, COMMANDII_R, &H02 'Command Register II 01(hex):

'n-BIT ADC = 16, FSR(LUX) @ ALS SENSING = 16000 (Range 3)
GoSub CheckIIC

'*** MAIN-PROG ***
Start:

GoSub LESE_SENSOR
'Print"LUX: ";Bin$(LUX(0));" ";Bin$(lux)
'Print Bin$(lux(0))

Print"Light: ";Bin$(Licht);" ";Licht; " LUX: ";LUX

Pause 100

GoTo Start





'*** Read Sensor ***
LESE_SENSOR:

'First send Registeradress DATA_LSB_R, than read 1 Byte
'(LSB)
I2CSEND ISL29023_addr, 0, 1, DATA_LSB_R
GoSub CheckIIC

I2CRCV ISL29023_addr, 0, 1, Licht_DAT(0)
GoSub CheckIIC

'receive MSB:
I2CSEND ISL29023_addr, 0, 1, DATA_MSB_R
GoSub CheckIIC

I2CRCV ISL29023_addr, 0, 1, Licht_DAT(1)
GoSub CheckIIC

Licht = (Licht_DAT(1)*256 + Licht_DAT(0))

LUX = Licht * (16000/2^16) 'Alpha=Range(k)/2^n (see Datasheet S.6)

Return

'*** CheckIIC ***
CheckIIC:
If MM.I2C <> 0 Then Print"I2C-ERROR!"
Return

' reading the BH1750 light sensor
' in single shot mode.
' TassyJim 31 12 2013
Cls
Dim LightData(2)
BH1750address = &H23 ' BH1750 address
I2CEN 400, 200 ' Enable I2C
pause 200
I2CSEND BH1750address, 0, 1, &H01 ' Power on
print MM.I2C
pause 250
I2CSEND BH1750address, 0, 1, &H07 ' Reset
pause 250


main:
do
I2CSEND BH1750address, 0, 1, &H01 ' Power on
pause 50
I2CSEND BH1750address, 0, 1, &H20 ' 1x scaling, single reading
pause 200
I2CRCV BH1750address, 0, 2, LightData(0)
lux= (LightData(0)*256 + LightData(1))/1.2
Print "Light: ";format$(lux,"%7.1f");" lux"
pause 750
k$=inkey$
loop until k$="q"
I2CDIS
end