accelorometer logger med buzzer og blinking

' {$STAMP BS2}
' {$PBASIC 2.5}

loopTeller  VAR Word
maaleVerdi  VAR Word
adressePeker    VAR Word
ledstatus VAR   Word
ledloop VAR     Word

ledstatus = 0     'Statusen på leden

DO
IF (IN12=1) THEN
  PAUSE 300
  DEBUG "Sender måledata", CR
  FOR ledloop = 1 TO 6              'antall ledden skal blinke*2
      IF (ledstatus=0) THEN         'sjekker om leden lyser
        HIGH 14
        ledstatus = 1
        PAUSE 300
      ELSEIF (ledstatus=1) THEN     'sjkker om ledden ikke lyser
        LOW 14
        ledstatus = 0
        PAUSE 300
      ENDIF
      NEXT

  DEBUG "nr, verdi", CR
  adressePeker = 0
  FOR loopTeller = 1 TO 50
    READ adressePeker, Word maaleVerdi
    DEBUG DEC loopTeller, ", ", DEC maaleverdi, CR
    WRITE adressePeker, Word 0
    adressePeker=adressePeker + 2
  NEXT
ENDIF

IF (IN9=1)THEN
  PAUSE 300
  DEBUG "Måler..", CR
  adressePeker = 0
  FOR loopTeller = 1 TO 50
    PULSIN 1, 1, maaleVerdi
    DEBUG DEC4 ?  maaleVerdi
    FREQOUT 14, 25, maaleVerdi
    PAUSE 100
    WRITE adressePeker, Word maaleVerdi
    adressePeker = adressePeker + 2
  NEXT
ENDIF

LOOP