Rn-Control ATMEGA2560 mit Kompass CMPS03

[flammenvogel]

Hallo Leute,

ich versuche mit meinem ATMEGA2560 Bord den Kompass CMPS03 (der Kompass hier aus dem Shop, allerdings ohne Quarz, wenn ich das richtig sehe) über I2C anzusteuern.

Allerdings funktioniert das nicht so ganz. Ich habe den Kompass an Port D 0 und 1 angeschlossen (laut Datenblatt sind das die I2C Ports). Zusätzlich habe ich noch +5V und GND Leitung vom Kompass mit den entsprechenden Pins auf dem Board verbunden.

Wenn ich dann allerdings versuche den Kompass im Programm anzusprechen, hängt sich das Programm auf:

$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus

$regfile = "m2560def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44

$crystal = 16000000                                         'Quarzfrequenz


Config Com4 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4                               'USB Buchse

Config Scl = Portd.0                                        'Ports fuer IIC-Bus
Config Sda = Portd.1

Config Pind.5 = Output
Led Alias Portd.5

Led = 0

Declare Function Rn_cmps_himmelsrichtung() As Word

Print #4 , "Test"

Dim Himmelsrichtung As Word
Dim Grad As Single
Dim V As Byte

   Wait 3                                                   'Warte 3 Sekunde
   I2cinit
   Print #4 , "RN-Control CMPS03 Kompass Testprogramm "


   V = 1
   Do
     Himmelsrichtung = Rn_cmps_himmelsrichtung()
     Print #4 , "Himmelsrichtung in 0,1 Grad Schritten: " ; Himmelsrichtung
     Grad = Himmelsrichtung / 10
     Print #4 , "Himmelsrichtung genau in Grad: " ; Grad

     V = V + 3
     Wait 1
   Loop

End

Function Rn_cmps_himmelsrichtung() As Word
Local Lob As Byte
Local Hib As Byte
Local Cmps_slaveid As Byte
Local Cmps_slaveid_read As Byte

   Cmps_slaveid = &HC0
   Cmps_slaveid_read = Cmps_slaveid + 1

   'Register auswählen
   I2cstart
   I2cwbyte Cmps_slaveid
   I2cwbyte 2
   I2cstop

   I2cstart
   I2cwbyte Cmps_slaveid_read
   I2crbyte Hib , Ack
   I2crbyte Lob , Nack
   I2cstop

   Rn_cmps_himmelsrichtung = Makeint(lob , Hib)
End Function

Die LED (Portd.5) brennt und auch die Ausgabe "Test" ist auf dem Terminal noch zu lesen. Allerdings das "RN-Control CMPS03 Kompass Testprogramm " nicht mehr. Daher schätze ich mal das sich das Programm nach dem I2CInit aufhängt.

Kann mir einer sagen warum das so ist oder was ich falsch gemacht habe???

[Dirk]

Probier die CMPS03 Leseroutine 'mal so:

   'Register auswählen 
   I2cstart 
   I2cwbyte Cmps_slaveid , Ack 
   I2cwbyte 2 
   Waitms 10 

   I2cstart 
   I2cwbyte Cmps_slaveid_read , Ack
   I2crbyte Hib , Ack 
   I2crbyte Lob , Nack 
   I2cstop

Gruß Dirk

P.S.: Hat dein Board Pullup-Widerstände an SCL/SDA? Wenn nein, müßte man sie noch ergänzen.

[flammenvogel]

Also ich habe jetzt einfach mal das Programm dementsprechend geändert. Leider lässt es sich so nicht kompelieren. Der Compiler beschwert sich jedes Mal über den Datentyp Cmps_slaveid und Cmps_slaveid_read (sind beide als Byte definiert).

Ich bin mir nicht ganz sicher ob mein Board Pullup Widerstände besitzt. Ich habe jetzt einfach mal auf Verdacht 10kOhm Widerstände eingebaut. Mein altes Programm hängt sich jetzt schonmal nicht mehr auf, aber ich kriege nur extrem hohe Werte ca. 65000 oder so.

Sind die Pullup Widerstände eventuell zu hoch? Wie groß sollten diese im normalfall sein?

[Jon]

4,7kOhm ist bei mehreren Geräten am I2C Bus das passende, mehr als 10kOhm sollten es aber nicht sein.
Diese beiden Pull-Up Widerstände werden auf jeden Fall benötigt, da das Board keine hat.

Sonst stimmt das Programm von dir aber, da ich dieses auch so verwende, ebenso am RN2560.

jon