| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118 |
- \ gpio tests
- base @ decimal
- \ display battery
- : battery-display ( -- )
- 0 2 lcd-at-xy
- s" battery = " lcd-type
- battery-mv 5 lcd-u.r
- s" mV" lcd-type
- ;
- \ display thermistor
- : thermistor-display ( -- )
- 0 4 lcd-at-xy
- s" thermistor = " lcd-type
- temperature-c 5 lcd-u.r
- s" C" lcd-type
- ;
- \ display the current timer value
- : timer-display ( -- )
- 0 6 lcd-at-xy
- s" timer = " lcd-type
- timer-read 12 lcd-u.r
- ;
- \ display lcd_contrast
- : contrast-display ( u -- )
- 0 8 lcd-at-xy
- s" contrast = " lcd-type
- contrast-mv 5 lcd-u.r
- s" mV" lcd-type
- ;
- : pwm-display ( -- )
- 0 10 lcd-at-xy
- s" pwm = " lcd-type
- get-contrast-pwm 5 lcd-u.r
- ;
- \ main
- variable measure-count
- variable last-x
- : test-gpio-main ( -- )
- key-flush
- ctp-flush
- button-flush
- lcd-cls
- s" GPIO TESTS" lcd-type
- 3 12 lcd-at-xy
- s" <-- change contrast -->" lcd-type
- 10 lcd-text-rows 1- lcd-at-xy
- s" Off Norm Exit" lcd-type
- 0 last-x !
- begin
- 1 measure-count +!
- measure-count @ $3ff = if
- 0 measure-count !
- analog-scan
- battery-display
- thermistor-display
- timer-display
- contrast-display
- pwm-display
- then
- ctp-pos? if
- ctp-pos 0< if
- drop 0 last-x !
- else
- last-x @ 0= if
- last-x !
- else
- dup
- last-x @
- - get-contrast-pwm + set-contrast-pwm
- last-x !
- then
- then
- then
- button? if
- button
- case
- button-left of
- power-off
- endof
- button-centre of
- nominal-contrast-pwm set-contrast-pwm
- endof
- button-right of
- exit
- endof
- endcase
- then
- key? if
- key-flush
- then
- again
- ;
- base !
|
