Tut 17 : LCD Big Characters



 Big characters

PBP Program

'program to display big characters (numbers) on LCD

DEFINE OSC 20

@ device hs_osc

DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2

TRISB = 0
TRISD = 0

nPos VAR BYTE

LCDOut  $FE,$40,$01,$01,$01,$01,$01,$01,$01,$01  ' Cust Char #0
LCDOut  $FE,$48,$1F,$11,$11,$11,$11,$11,$11,$11  ' Cust Char #1 
LCDOut  $FE,$50,$1F,$10,$10,$10,$10,$10,$10,$1F  ' Cust Char #2 
LCDOut  $FE,$58,$01,$01,$01,$01,$01,$01,$01,$1F  ' Cust Char #3 
LCDOut  $FE,$60,$1F,$11,$11,$11,$11,$11,$11,$1F  ' Cust Char #4 
LCDOut  $FE,$68,$11,$11,$11,$11,$11,$11,$11,$1F  ' Cust Char #5 
LCDOut  $FE,$70,$1F,$01,$01,$01,$01,$01,$01,$1F  ' Cust Char #6 
LCDOut  $FE,$78,$1F,$01,$01,$01,$01,$01,$01,$01  ' Cust Char #7
 
Pause 500
LCDOut $FE,1

loop:
 nPos = 0
 GoSub Zero
 nPos = 1
 GoSub One
 nPos = 2
 GoSub Two
 nPos = 3

Pause 2000
GoTo loop

Zero:
 LCDOut $FE,$80+nPos,1
 LCDOut $FE,$C0+nPos,5
Return
One:
 LCDOut $FE,$80+nPos,0
 LCDOut $FE,$C0+nPos,0
Return
Two:
 LCDOut $FE,$80+nPos,7
 LCDOut $FE,$C0+nPos,2
Return