TAOS Light-to-Digital

[Martesy (Gast)]

Hallo,

ich möchte einen TAOS TSL2651 
(http://www.taosinc.com/Productfamily.aspx?id=4&SD=ltd) über I2C mit 
einen ATmega8 auslesen.

Laut Datenblatt gibt der Sensor die Messwerte in vier Bytes zurück. Ich 
möchte zunächst testweise nur ein Byte lesen.

Bisher sendet der Sensor ein Acknowledge bei Address H39.

Ist der Sensor angeschlossen, dann kommt als L1 immer nur der Wert 
zurück, der nach der Address vom Master geschrieben wurde.

Hat jemand vielleicht schon Erfahrungen mit diesem Sensor oder eine Tipp 
für mich?

Nachstehend der Code in BASCOM.

Gruß Martesy




$regfile = "M8def.dat"
$crystal = 3686400
$baud = 9600
$lib "i2c_twi.lbx"
Config Scl = Portc.5
Config Sda = Portc.4

Dim L1 As Byte

I2cinit
Config Twi = 50000

Do
  I2cstart             ' Send start sequence
  I2cwbyte &H72        ' Slave Address from Datasheet
  I2cwbyte &H0C        ' Data Byte mit 8-bit, Command Code ???
  I2cstart             ' Restart
  I2cwbyte &H73        ' Slave Address mit R/W = 1 (read)
  I2crbyte L1 , Nack
  I2cstop
  Waitus 350
  Print L1 ;
  Print
  Wait 1
Loop
End

[Martesy (Gast)]

Anbei ist ein Bild vom Oszi.

Könnte mir bitte jemand einen Tipp geben?

Gruß Martesy

Bascom:

 
$regfile = "M8def.dat"
$crystal = 3686400
$baud = 9600
$lib "i2c_twi.lbx"
Config Scl = Portc.5
Config Sda = Portc.4

Dim L1 As Word
Dim L2 As Word

I2cinit
Config Twi = 50000
Do
  I2cstart                                                  ' Send start sequence: Fallende SDA-Flanke wenn SCL high
  I2cwbyte &H72                                             ' Slave Address from Datasheet Float 0111001 mit R/W low = H72 (=01110010). Read/Write bit0 encoding Read = 1, Write = 0.
  I2cwbyte &H03                                             ' h03 = power Up ; h00 = Power Down. The Device Is Powered Down.
  I2cstop
  Wait 1
  I2cstart
  I2cwbyte &H72
  I2cwbyte &HB11101110                                      ' Command Code
  I2cstart                                                  ' Restart
  I2cwbyte &H73                                             ' Slave Address Read mit R/W = 1
  I2crbyte L1 , Ack
  I2crbyte L2 , Nack                                        ' letzte Variable beendet Konversation mit Nack
 I2cstop
  Waitus 350
  Print L1 ; " " ; L2 ;
  L1 = 0
  L2 = 0
  Print
  Wait 1
  Loop
End

[xmega (Gast)]

Martesy schrieb:


I2cwbyte &H72
I2cwbyte &H80//COMMAND Register CMD = 1 Plus Adresse des Registers 
0x0-0xF
I2cwbyte &H03


Jedes Register muss zuerst angesprochen werden, dann die Daten senden.
In diesem Register müssen auch die Adressierungen eingestellt werden.
 zB. 80 Byte, Control Register -> Daten
     83 Byte  Interrupt -> Daten
     AE Word  Datenregister

siehe Projekt: Luxmeter  mit TSL2561 und Atxmega32a4

http://www.basteln-mit-avr.de

Gruß Xmega

[xmega (Gast)]

xmega schrieb:

Code bisschen verrutscht

> I2cwbyte &H72
> I2cwbyte &H80
> I2cwbyte &H03

so soll es ausschauen!

Gruß Xmega