button.bas

Go to the documentation of this file.

' include libpruio
#INCLUDE ONCE "BBB/pruio.bi"
' include the convenience macros for header pins
#INCLUDE ONCE "BBB/pruio_pins.bi"


#DEFINE PIN P8_07

' *****  main  *****

VAR io = NEW PruIo 

WITH *io
  DO
    IF .Errr THEN    ?"initialisation failed (" & *.Errr & ")" : EXIT DO
    IF .config() THEN        ?"config failed (" & *.Errr & ")" : EXIT DO
    DO '                           print current state (until keystroke)
      ?!"\r" & .Gpio->Value(PIN);
      SLEEP 100
    LOOP UNTIL LEN(INKEY()) : ?
  LOOP UNTIL 1

  IF .Errr THEN ?"press any key to quit" : SLEEP
END WITH

DELETE io '                    reset ADC, PinMux and GPIOs, clear memory

'' help Doxygen to document the main code
'&/** The main function. */
'&int main() {PruIo::PruIo(); GpioUdt::config(); PruIo::config(); GpioUdt::Value(); PruIo::~PruIo();}