| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105 |
- \ contract check
- 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 dup 5 lcd-u.r
- s" C" lcd-type
- lcd-cr
- s" c.dmd = " lcd-type
- 21079 swap
- dup 25 > if
- 25 - 46 * -
- else
- drop
- then
- 5 lcd-u.r
- ;
- \ 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 ( -- )
- 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
- : test-contrast-main ( -- )
- key-flush
- ctp-flush
- button-flush
- lcd-cls
- s" Contrast Check" lcd-type
- 10 lcd-text-rows 1- lcd-at-xy
- s" Norm Exit" lcd-type
- begin
- analog-scan
- battery-display
- thermistor-display
- timer-display
- contrast-display
- pwm-display
- ctp-pos? if
- ctp-pos 2drop
- then
- button? if
- button
- case
- button-left of
- endof
- button-centre of
- nominal-contrast-pwm set-contrast-pwm
- endof
- button-right of
- exit
- endof
- endcase
- then
- key? if
- key-flush
- then
- wait-for-event
- again
- ;
- base !
|
