|
|
|
@ -24,16 +24,17 @@ let
|
|
|
|
|
() = lcd_int(count/period, line);
|
|
|
|
|
tel
|
|
|
|
|
|
|
|
|
|
node button (bpin, ledpin : int) returns ()
|
|
|
|
|
node lcd_button_counter (bpin, period, line : int) returns ()
|
|
|
|
|
var value : int;
|
|
|
|
|
count : int;
|
|
|
|
|
i : int;
|
|
|
|
|
let
|
|
|
|
|
i = 0 fby (i+1);
|
|
|
|
|
value = dread(bpin);
|
|
|
|
|
() = dwrite((ledpin, value));
|
|
|
|
|
count = 0 fby (count + value);
|
|
|
|
|
() = lcd_int(count/period, line);
|
|
|
|
|
tel
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
node main() returns ()
|
|
|
|
|
var start : bool;
|
|
|
|
|
let
|
|
|
|
@ -41,7 +42,6 @@ let
|
|
|
|
|
() = lcd_init() when start;
|
|
|
|
|
|
|
|
|
|
() = lcd_blink_msg ((750, 375, "hello world!", 0) when not start);
|
|
|
|
|
() = lcd_counter ((375, 1) when not start);
|
|
|
|
|
() = button((8, 13) when not start);
|
|
|
|
|
() = lcd_button_counter((8, 50, 1) when not start);
|
|
|
|
|
tel
|
|
|
|
|
|
|
|
|
|