button2.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 .Gpio->config(PIN, PRUIO_GPIO_IN_0) THEN _ '        configure pin
                 ?"GPIO configuration 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
' The following line is optional, the DESTRUCTOR does the job by default
  IF .Gpio->config(PIN, PRUIO_PIN_RESET) THEN _ '       re-configure pin
                         ?"pin re-configuration failed (" & *.Errr & ")"

  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();}