Beschleunigungssensor BMA020 funktioniert nicht

[Silvio F. (silvio_f)]

Guten Tag,

Ich habe ein Beschleunigungssensor BMA020 von ELV und möchte die Daten 
über I2C und meinem MYAVR MK2 Board mit Atmega 8 auslesen.

Zu Testzwecken haben ich versucht mit diesem Code die Funktion des BMA 
zu überprüfen.

' compiler steuerung
$regfile = "m8def.dat"
$crystal = 1000000
$framesize = 64
$swstack = 64
$hwstack = 64
$baud = 9600
$lib "i2c_twi.lbx"
'
' hardware konfigurieren
' - taster
Config Pinb.6 = Input
Portb.6 = 1
Config Pinb.7 = Input
Portb.7 = 1
Config Pind.5 = Input
Portd.5 = 1
Taster1 Alias Pinb.6
Taster2 Alias Pinb.7
Taster3 Alias Pind.5
' - leds
Config Portd.7 = Output
Config Portd.6 = Output
Config Portb.0 = Output
Led_gl Alias Portd.7
Led_rt Alias Portd.6
Led_gr Alias Portb.0
' - i2c
Config Twi = 400000
Config Scl = Portc.5
Config Sda = Portc.4
'
' variablen dimensionieren
Dim V(6) As Byte
Dim Ax As Integer At V(1) Overlay
Dim Ay As Integer At V(3) Overlay
Dim Az As Integer At V(5) Overlay
Dim Acc_cntr As Byte
Dim I As Byte
Dim Acc_range As Byte
Dim D2g As Single
Dim S As Single
'
' konstanten
Const Acc_w = &H70
Const Acc_r = &H71
'
' subs
Declare Sub Set_acc_range(byval Range As Byte)
'
' hauptprogramm
Print "acc test!"
Wait 1
'
I2cinit
'
Call Set_acc_range(0)
' messbereich:
' Set_acc_range(0) -> +/- 2g (default)
' Set_acc_range(1) -> +/- 4g
' Set_acc_range(2) -> +/- 8g
'
Do
   I2cstart
   '
   ' sensor adressieren
   I2cwbyte Acc_w
   '
   ' acc datenregister adressieren
   I2cwbyte &H02
   '
   I2cstop
   '
   I2cstart
   '
   ' daten lesen
   I2cwbyte Acc_r
   '
   For I = 1 To 5
      I2crbyte V(i) , Ack
   Next I
   I2crbyte V(6) , Nack
   '
   I2cstop
   '
   ' format konvertieren
   Ax = Ax / 64
   Ay = Ay / 64
   Az = Az / 64
   '
   ' in beschleunigungen umrechnen & ausgeben
   S = Ax * D2g
   Print "a(x)= " ; S ;
   S = Ay * D2g
   Print "  a(y)= " ; S ;
   S = Az * D2g
   Print "  a(z)= " ; S
   '
   Toggle Led_rt
   Waitms 10
   '
Loop
'
End
'
Sub Set_acc_range(byval Range As Byte)
   I2cstart
   '
   ' sensor adressieren
   I2cwbyte Acc_w
   '
   ' kontrollregister adressieren
   I2cwbyte &H14
   '
   I2cstop
   '
   I2cstart                                                 '
   ' kontrollregister lesen
   I2cwbyte Acc_r
   I2crbyte Acc_cntr , Nack
   '
   I2cstop
   '
   ' kontrollregister manipulieren
   Acc_cntr.3 = Range.0
   Acc_cntr.4 = Range.1
   '
   I2cstart
   '
   ' kontrollregister zurückschreiben
   I2cwbyte Acc_w
   I2cwbyte &H14
   I2cwbyte Acc_cntr
   '
   I2cstop
   '
   ' umrechnungsfaktor neu berechnen
   D2g = 2 ^ Range
   D2g = D2g * 2
   D2g = D2g / 512
   '
End Sub

-das erste Problem:

Config Twi = 400000

 (diese Zeile lässt sich nicht kompileren)

-wenn cih die zeile weglasse läuft das programm bis zu

I2crbyte Acc_cntr , Nack

 in der Funktion Sub Set_acc_range(byval Range As Byte).

Er kann also das Nack nicht vom Sensor empfangen. Wenn ich den Sensor 
aus dem Steckbrett raus ziehe, läuft das Programm bis zum ende und die 
rote LED blinkt.

Hat jemand eine Idee? oder einen C-Code mit dem ich es probieren könnte?

[Michael S. (Gast)]

Hallo,

die Aussage, dass der BMA020 nicht funktioniert, halte ich für sehr 
mutig.
Selten stellt die Hardware das Problem dar.

> -das erste Problem:
>
> Config Twi = 400000
>
> (diese Zeile lässt sich nicht kompileren)

Wenn sich eine Zeile schon nicht kompilieren läßt, dann solltest Du 
zuerst die Ursache dafür suchen.
Aus dem Stegreif fällt mir ein:
TWBR muss >= 10 sein, dass bedeutet, dass der ATMEGA 8 mit mindestens 
16MHz getaktet sein muss.

Es könnte aber auch ein Syntaxfehler vorliegen (mit Bascom kenne ich 
mich nicht mehr aus).

> Er kann also das Nack nicht vom Sensor empfangen.

Ein NACK ist das Fehlen/Ausbleiben eines ACK.
Der Slave, der adressiert wurde, zieht nicht aktiv SDA auf gnd.
Ursache könnte sein: die Adresse ist ungültig.
Oder die ganze Kommunikation funktioniert grundsätzlich noch nicht.

Im Zweifelsfalle würde ich so vorgehen:
Ein 0x70 an den BMA020 senden, wenn kein ACK zurückkommt, dann nach den 
Ursachen suchen.
Vielleicht frisst Bascom auch die 7-Bit TWI-Adresse (versuchs mal mit 56 
dezimal).

Oder was ich in solchen Fällen gerne mache:
Einen PCF8574 anschließen und mit ihm verfizieren, dass das TWI-Modul 
auf dem Master, die Verkabelung und Terminierung korrekt funktionieren.

mfg

Michael S.

[MWS (Gast)]

Stell den µC-Clock auf 8MHz, trag's im Programm ein, 400kHz TWI aus 1MHz 
µC geht nicht. Das NACK zum Schluss ist ok, vorher muss ACK verwendet 
werden. Du kannst die erfolgreiche Ausführung jedes I2C-Befehls über die 
Variable ERR überprüfen. Stell sicher, daß die Anschlüsse am Modul 
passend beschaltet sind und die Bascom-Version aktuell ist.

[Silvio (Gast)]

Hi, danke für die Antwort, also mit dem kompilieren hat jetzt dank der 
8MHz geklappt.

Wie meinst du das mit dem Ack? Was soll ich da schreiben?
Und wie funktioniert das mit err überprüfen?