lcd parallel hept works

This commit is contained in:
MegiDervishi 2021-01-03 15:00:26 +01:00
parent 35e74807da
commit d0c8ceb6ed

View file

@ -13,14 +13,18 @@ let
downt = not upt;
() = lcd_string((msg, line) when upt);
() = lcd_string((".", line) when downt);
() = lcd_string((" ", line) when downt);
tel
node main() returns ()
let
() = dinit();
() = lcd_init();
var j : int;
start : bool;
let
j = 0 fby (j+1);
start = j < 2;
() = dinit() when start;
() = lcd_init() when start;
() = update_lcd<<6, 4, "Hello", 0>>();
() = update_lcd<<10, 5, "Hi", 1>>();
() = update_lcd<<2, 1, "Hi", 1>>();
tel