TSL45315 Beispielcode Bascom

Der TSL45315 ist ein Lichtsensor der über I²C die Werte (16Bit) direkt in Lux ausgibt .

Ein Breakout ist bei Watterott erhältlich : http://www.watterott.com/de/TSL45315-Breakout
Das Datenblatt z.B. hier : http://media.digikey.com/pdf/Data%20...Fs/TSL4531.pdf

Code:

---

'------------------------------------------------------------------------------
'Demo TSL 45315 (DIGITAL AMBIENT LIGHT SENSOR)
'Watterott Breakout > http://www.watterott.com/de/TSL45315-Breakout
'ATMega88
'------------------------------------------------------------------------------

$regfile = "m88def.dat"
$crystal = 8000000
$baud = 19200

Config Sda = Portc.4                                                            ' I2C Data
Config Scl = Portc.5                                                            ' I2C Clock
I2Cinit
'**********************************************************************
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Initlcd
Cls

Dim adress_w As Byte
adress_w = &H52                                                                'Write Adress
Dim adress_r As Byte
adress_r = &H53                                                                'Read Adress
Dim Lux As Long
Dim Rohdaten As Word
Dim Lsb As Byte at Rohdaten overlay
Dim Msb As Byte at Rohdaten + 1 overlay
Dim Temp$ As String * 32
'______________________________________________________________________________
I2cstart                                                                        'Initialisieren
I2cwbyte adress_w
I2cwbyte &H80                                                                  'Command Adresse 0 = Control
I2cwbyte &H03                                                                  'Control= &H11 = Normal Operation
I2cstart
I2cwbyte adress_w
I2cwbyte &H81                                                                  'Command Adresse 1 = Configuration Register
I2cwbyte &H01                                                                  'Configuration Register= &H01 = Multiplier x2
I2cstop
Waitms 500                                                                      'Multiplier x1=480ms / x2=240ms / x4=120ms
'______________________________________________________________________________
Do
  I2cstart
  I2cwbyte adress_w                                                            'Daten holen
  I2cwbyte &H84                                                                'Command Adresse 4 = Data LOW Register
  I2cstart
  I2cwbyte adress_r
  I2crbyte Lsb , Ack                                                          'LSB und acknowledge
  I2crbyte Msb , Ack                                                          'MSB und acknowledge
  I2cstop
  upperline
  Lux = Rohdaten * 2
  Temp$ = str(Lux)
  lcd Temp$ ; " Lux    "
  lowerline
  Temp$ = str(Rohdaten) + "      "
  lcd Temp$
  Waitms 500                                                                  'Multiplier x1=480ms / x2=240ms / x4=120ms
Loop
'______________________________________________________________________________
End

---