Bascom CMPS09 Kalibrierung

[fd (Gast)]

Hallo,

ich versuche den CMPS09 Kompass in Bascom zu kalibrieren:

Calibration the CMPS09
I would recommend evaluating the CMPS09 performance first before 
implementing this function. Its purpose is to remove offsets caused by 
constant magnetic sources around the CMPS09. First of all you need to 
determine North and align the CMPS09 with it, then enter the calibration 
mode by writing 0xF0 to the command register (22). To calibrate the 
first point write 0xF5 to the command register, this should also light 
the LED, then move the object through 90° and write 0xF5 to the command 
register. Repeat this twice more so four points are calibrated and the 
LED should also turn off to confirm calibration completion.

Ich habe ein kurzes Programm geschrieben, was bei Tasterdruck die Punkte 
speichern soll. Jedoch geht die Konfig-LED nicht wie beschrieben an. 
Habe ich einen Fehler?

Declare Function Store_point() As Byte
Declare Function Init_config() As Byte


$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600
Config Scl = Portc.5
Config Sda = Portc.4
 Config I2cdelay = 100


Taster1 Alias Pind.4
Config Taster1 = Input
Dim Count As Integer


Dim Himmelsrichtung As Word
Dim Grad As Single

   Wait 3
   I2cinit


   Do
     Debounce Taster1 , 1 , On_taster1 , Sub
     Waitms 100
   Loop

End



Function Init_config() As Byte
Local Cmps_slaveid As Byte

   Cmps_slaveid = &HC0

   I2cstart
   I2cwbyte Cmps_slaveid
   I2cwbyte 22
   I2cstop

   I2cstart
   I2cwbyte &HF0
   I2cstop

End Function

Function Store_point() As Byte
Local Cmps_slaveid As Byte

   Cmps_slaveid = &HC0

   I2cstart
   I2cwbyte Cmps_slaveid
   I2cwbyte 22
   I2cstop

   I2cstart
   I2cwbyte &HF5
   I2cstop

End Function



On_taster1:
Dim Bla As Byte

   If Count = 0 Then
      Print "starting calibration"
      Bla = Init_config()
      Print "config done..:"
   End If

   If Count > 0 Then
      Print "setting point " ; Count
      Bla = Store_point()
      Print "point set"
   End If

   Count = Count + 1

Return

Danke

[Cheffe2 (Gast)]

Kalibrierung .... wohl eher Justage!

Cheffe2

[fd (Gast)]

Naja wie auch immer man es nennen will...