Ex07_Button3P

em.examples.basic/Ex07_Button3P.em
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
import em from '@$$emscript'
export const $U = em.$declare('MODULE')

import * as BoardC from '@$distro/BoardC.em'
import * as Common from '@em.mcu/Common.em'
import * as FiberMgr from '@em.utils/FiberMgr.em'

export const AppBut = $delegate(BoardC.AppBut)
export const AppLed = $delegate(BoardC.AppLed)
export const SysLed = $delegate(BoardC.SysLed)

export function em$run() {
    AppBut.$$.onPressed($cb(onPressedH), 100, 4000)
    FiberMgr.run()
}

function onPressedH() {
    em.$['%%c']
    if (AppBut.$$.isPressed()) {
        SysLed.$$.on()
        Common.BusyWait.$$.wait(40_000)
        SysLed.$$.off()
    }
    else {
        AppLed.$$.on()
        Common.BusyWait.$$.wait(5_000)
        AppLed.$$.off()
    }
}