' CMPS03 kompassin OOPic-esimerkki
'
' Ohjelma lukee kompassin rekisterin 1 8-bittisen arvon, joka kuvaa
' suuntaa arvoilla 0 - 255.
' Lukeaksesi kulman asteissa muuta Suunta oByte:stä oWord-tyyppiseksi
' ja .Location=2, ja .Width=cv16bit
' Rekisterit 2,3 ovat 0 - 3599 osoittaen 0 - 359.9 astetta
'

Dim Kompassi As New oI2C         ' Luo kompassi olio
Dim Suunta As New oByte          ' Paikka, johon tallettaa lukema

Sub main()
  Setup                          ' Asetukset
  Do
    Kompassi.Location = 1        ' Yksitavuisen suunnan paikka
    Kompassi.Width = cv8bit      ' Kompassin Data on 1-tavun levyinen.
    Suunta = Compass.Value       ' Lue arvo
    ' Ja tähän mitä arvolla tehdään
  Loop
End Sub

Sub SetUp()
  Kompassi.Node = 96             ' Desimaalina Hexa-osoite 0xC0 siirrettynä 1 oikealle
  Kompassi.Mode = cv10bit        ' I2C moodiksi 10-Bittinen osoitus.
  Kompassi.NoInc = 1             ' Älä kasvata arvoa
End Sub