lib/bcm2835/examples/input.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net>
   4 #
   5 # Licensed under the Apache License, Version 2.0 (the "License");
   6 # you may not use this file except in compliance with the License.
   7 # You may obtain a copy of the License at
   8 #
   9 #     http://www.apache.org/licenses/LICENSE-2.0
  10 #
  11 # Unless required by applicable law or agreed to in writing, software
  12 # distributed under the License is distributed on an "AS IS" BASIS,
  13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 # See the License for the specific language governing permissions and
  15 # limitations under the License.
  16
  17 module input is example
  18
  19 import bcm2835
  20
  21 assert bcm2835_init else print "Failed to init"
  22
  23 var out = new RPiPin.p1_11
  24 out.fsel = new FunctionSelect.outp
  25 out.write(false)
  26
  27 var inp = new RPiPin.p1_22
  28 inp.fsel = new FunctionSelect.inpt
  29 inp.pud = new PUDControl.down
  30
  31 var last_in = false
  32 loop
  33         var lev = inp.lev
  34         if lev != last_in then
  35                 last_in = lev
  36                 if lev then print "button pressed"
  37         end
  38
  39         out.write(true)
  40         100.bcm2835_delay
  41         out.write(false)
  42         100.bcm2835_delay
  43 end