(ns button-led
  (:use :reload-all clodiuno.core)
  (:use :reload-all clodiuno.wishield))

  Button connected to pin 6
  LED connected ro pin 3
;; 

(def board (arduino :wishield "10.0.2.100" 1000))

(pin-mode board 3 OUTPUT)
(pin-mode board 6 INPUT)

(while true 
       (let [i (digital-read board 6)] 
	 (println i)
	 (digital-write board 3 i)))

;;(close board)

 
(close board)
(ns button-led
  (:use :reload-all clodiuno.core)
  (:use :reload-all clodiuno.wishield))

  Button connected to pin 6
  LED connected ro pin 3

(def board (arduino :wishield "10.0.2.100" 1000))

(pin-mode board 3 OUTPUT)
(pin-mode board 6 INPUT)

(while true 
       (let [i (digital-read board 6)] 
	 (println i)
	 (digital-write board 3 i)))

