MLX90614 ansprechen

Keiner eine Idee?
So klappt es auch nicht:

1

$regfile = "M8def.dat"

2

$crystal = 1000000

3

$baud = 57600

4

5

6

$lib "i2c_twi.lbx"                                          ' Für Hardware TWI

7

Config Scl = Portc.5                                        ' we need to provide the SCL pin name

8

Config Sda = Portc.4                                        ' we need to provide the SDA pin name

9

I2cinit

10

Config Twi = 50000                                          ' Init TWBR und TWSR

11

Twcr = &B00000100                                           ' nur TWEN setzen

12

13

Wait 2

14

15

Dim Highbyte As Byte

16

Dim Lowbyte As Byte

17

Dim Crc As Byte

18

19

Dim Temp1 As Single

20

Dim Summe1 As Single

21

22

23

Print "hallo"

24

25

Do

26

27

   I2cstart

28

   I2cwbyte &H5A                                            'or 00

29

   I2cwbyte &H07

30

31

   I2cstart

32

33

   I2cwbyte &H5A

34

35

   I2crbyte Highbyte , Ack

36

   I2crbyte Lowbyte , Ack

37

   I2crbyte Crc , Nack

38

   I2cstop

39

40

41

   Temp1 = Highbyte

42

   Temp1 = Temp1 * 256

43

   Temp1 = Temp1 + Lowbyte

44

   Temp1 = Temp1 * 0.01

45

46

47

   Summe1 = Summe1 + Temp1

48

49

50

   Print "temp: " ; Summe1

51

52

   Summe1 = 0

53

54

55

Loop

56

End

Es kommt immer nur der gleiche Wert raus. Sensor hängt an 5v mit 10k 
Pullups.

Hallo,

würde es irgendwie bei der Fehlersuche helfen, wenn ich ein Oszilloskop 
besorge? Ich wollte sowieso schon länger eins haben und das wäre jetzt 
ein guter Grund. Würde den Sensor wirklich gerne zum Laufen bekommen.

Dankwe!

laut datenblatt kann der sensor kein read oder write byte, sondern nur 
word.

Was bedeutet das?

Bzw an welcher Stelle im Datenblatt hast du es gefunden:

http://www.sparkfun.com/datasheets/Sensors/Temperature/SEN-09570-datasheet-3901090614M005.pdf

Hallo,

habe folgendes Problem: möchte mehrere MLX90614 an den I2C Bus 
anschließen, wenn ich den MLX90614 mit der SLAVEADRESSE (0x55) 
anspreche, dann bekomme ich keine Werte, bzw. der Sensor antwortet 
nicht. Die Slave Adresse 0x55 habe ich vorher über das EEPROM 
ausgelesen.

Mit der Standardadresse 0x00 funtkioniert der Sensor ohne Probleme, 
allerdings nur ein Sensor am Bus.

Kann mir jemand weiterhelfen.

Danke
gruß
Jochen

prüf noch mal deine read-funktion! die standard-adresse ist 0x5a (laut 
datenblatt und eigenem auslesen).

Hallo jim,

also ich kann keinen Fehler finden. Hier ist mal meine Funktionen:

so funktioniert es:
int16_t temperature;
temperature = read_MLX_RAM(0x00, 0x07);


und so funktioniert es nicht:
int16_t temperature;
temperature = read_MLX_RAM(0x55, 0x07);



/* Function read 16-bit RAM data */
uint16_t read_MLX_RAM(uint8_t slaveADDR, uint8_t ADDR)
{
  uint8_t data_4lsb;
  uint8_t data_4msb;
  uint8_t data_crc;

  uint8_t regAddress;
  uint8_t rc;

  uint16_t data;

  regAddress = 0;
  rc = twiWrite( slaveADDR, &regAddress, 1 );
  rc = twiWrite( ADDR|RAM_access, &regAddress, 1 );
  rc = twiWrite( slaveADDR|0x01, &regAddress, 1 );

  rc = twiRead( slaveADDR, data_4lsb, 1 );
  rc = twiRead( slaveADDR, data_4msb, 1 );
  rc = twiRead( slaveADDR, data_crc, 1 );

  data |= data_4msb;
  data |= data<<8;
  data |= data_4lsb;

  return data;
}


//********************************************************************** 
*******
//                     twiWrite - Master Transmist

uint8_t twiWrite( uint8_t  sla, uint8_t* data, uint8_t  count )
{
  uint8_t rc;

  // send SLA+W
  rc = sendSla( sla, TW_WRITE );
  if ( rc != 0 ) return rc;

  // send data byte(s)

  do
  {

    // send next data byte
    TWDR = *data++;
    TWCR = _BV( TWINT ) | _BV( TWEN );

    // wait for data byte transmitted
    WAIT_FOR_TWINT;

    // check for timeout and check status code
    if ( !TWI_READY ) return 7;
    if ( TW_STATUS != TW_MT_DATA_ACK )
    {
      if ( TW_STATUS == TW_MT_DATA_NACK ) generateStop( );
      return 8;
    } // end if

  } while ( --count != 0 );

  // generate STOP
  rc = generateStop( );
  if ( rc != 0 ) return rc;

  return 0;

} // end twiWrite



//********************************************************************** 
*******
// twiRead - Master Receive

uint8_t twiRead( uint8_t  sla, uint8_t* data, uint8_t  count)
{
  uint8_t rc;

  // send SLA+R
  rc = sendSla( sla, TW_READ );
  if ( rc != 0 ) return rc;

  // read data byte(s)

  do
  {

    // set up to receive next data byte
    TWCR = _BV( TWINT ) | _BV( TWEN) | ( ( count != 1 ) ? _BV( TWEA ) : 
0 );

    // wait for data byte
    WAIT_FOR_TWINT;

    // check for timeout and check status
    if ( !TWI_READY ) return 9;
    if ( TW_STATUS !=
         ( ( count != 1 ) ? TW_MR_DATA_ACK : TW_MR_DATA_NACK ) )
    {
      generateStop( );
      return 10;
    } // end if

    // read data byte
    *(data++) = TWDR;

  } while ( --count != 0 );

  // generate STOP
  rc = generateStop( );
  if ( rc != 0 ) return rc;

  return 0;

} // end read data

Guten Abend.
Entschuldigung, dass ich so ein altes Thema wieder ausgrabe. Mir stellen 
sich aber zu dem oben genannten Code ein paar Fragen.

Aus dem Code geht nicht hervor, welche library eigentlich genutzt wurde.

Weißt jemand wie die Kosntante WAIT_FOR_TWINT aussehen müsste?
Wäre das so richtig?:  #define  WAIT_FOR_TWINT; while(!(TWCR & 
(1<<TWINT)));

Ist die slaveADDR mit 0x5A korrekt gewählt? So sieht es jedenfalls für 
mich aus. Bei ADDR und RAM_access stehe ich auch etwas auf dem Schlauch. 
0xBA und 0xBB ?

Es wäre super, wenn mir jemand helfen könnte.

Hallo,

Versuche auch einen MLX90614 auszulesen aber es will trotz tagelangen 
Recherchen und Versuchen nicht klappen. Verwenden einen Atmega8 und 
BASCOM. Hat dazu vielleicht jemand ein fertiges Programm welches ich 
übernehmen könnte.

Danke
Kalti