Page 290 - Making PIC Microcontroller Instruments and Controllers

290 BUILDING A SIIIIFLE EIGHT.BUITOI{ TOUCH PAIIEL

l|Fl$ltli€tf,A(li]t Flnal segment lo make a linished prosram-the touch panel
(Continued'l
CASE 3 ; colunm 3
TIMoETIr[o-1 ; decrease time to make faster blink
IF TIlr0 <1 THEN TIt{0=1 ; if it is too low keep it at
, iinimm of 1
GOSTB PAUSER1 ; delay for de bounce

CASE 4 ; coLum 4
TIMo=TIMo + 1 ; increnenL the delay tiner
IF TIMo >20 TI@I ll!t0=20 ; if it is too high, set it as
; diqh
GOSITB PAUSER1 ; delay for de bounce
CASE ELSE ; here if Lhere was sonething else
EIID SELECT ; end of selection of all the xows

CASE 2 ; taN2
sErJEcT casE col, ; look at the colllms
CASE 1 i
IF LCD_T9iO=1 TEEN r-e (ooa orp--\a,-s ^na
LCD_TfiO=o i was done for row 1 abowe line
; for tine
IJCD_2=IIiIACTM ;
EIJSE i
IJCD_2=ACTM i
LCD_TflO=1
STAT_z=GIJOW i
EIM1=1o i
ENDIF i

;
CASE 2
IF SIAT_2-GLOW THEN
STAT_2EBLINX
EIJSE
STAT_2 =GLOW
ENDIF
GOSUB PAUSER

CASE 3
TIMlETIMl-1
IF TIM1 <1 THEN !!lldt=l ;
GOSI'B PAUSER1
C]ASE 4
tlMl=t l1+1
IF T1!,11 >20 THEN TIM1E20 ;

CASE EIJSE i