Hallo Jörg und RCO!

Ich habe es wie folgt gemacht mit der CC2.0 und BASIC++

Code:
Function KalibKompass()
  ' Kmopass kalibrieren
  Define Antwort As Byte
  Print "Kompass kalibrieren"
#DoN
  Print "Auf N drehen"
  Input Antwort
  IIC.Init
  IIC.Start
  IIC.Send DevWR_CMPS03
  IIC.Send 15
  IIC.Send 255
  IIC.Stop
  IIC.Off
#DoO
  Print "Auf O drehen"
  Input Antwort
  IIC.Init
  IIC.Start
  IIC.Send DevWR_CMPS03
  IIC.Send 15
  IIC.Send 255
  IIC.Stop
  IIC.Off
#DoS
  Print "Auf S drehen"
  Input Antwort
  IIC.Init
  IIC.Start
  IIC.Send DevWR_CMPS03
  IIC.Send 15
  IIC.Send 255
  IIC.Stop
  IIC.Off
#DoW
  Print "Auf W drehen"
  Input Antwort
  IIC.Init
  IIC.Start
  IIC.Send DevWR_CMPS03
  IIC.Send 15
  IIC.Send 255
  IIC.Stop
  IIC.Off
#DoW
  ' Kalibrierung flashen
  IIC.Init
  IIC.Start
  IIC.Send DevWR_CMPS03
  IIC.Send 15
  IIC.Send 0
  IIC.Stop
  IIC.Off
  Print "Kalibrierung beendet"
End Function
Grüsse Wolfgang