MrDEB
Well-Known Member
not great but it works
// halloween costume scrolling message
DEVICE = 18F2420
CLOCK = 20
// some LCD options...
#option LCD_DATA = PORTB.4
#option LCD_RS = PORTB.2
#option LCD_EN = PORTB.3
DIM x AS BYTE
// import LCD library...
INCLUDE "LCD.bas"
INCLUDE "utils.bas"
// program start...
SetAllDigital
lcd.cls
DELAYMS(200) // warm up LCD
while true
FOR x = 0 TO 20
WriteAt(1,x,"Hello Sue")
DELAYMS(500)
lcd.cls // clear lcd display
NEXT
FOR x = 0 TO 20
WriteAt(2,x,"how are you")
DELAYMS(500)
lcd.cls
NEXT
wend
// halloween costume scrolling message
DEVICE = 18F2420
CLOCK = 20
// some LCD options...
#option LCD_DATA = PORTB.4
#option LCD_RS = PORTB.2
#option LCD_EN = PORTB.3
DIM x AS BYTE
// import LCD library...
INCLUDE "LCD.bas"
INCLUDE "utils.bas"
// program start...
SetAllDigital
lcd.cls
DELAYMS(200) // warm up LCD
while true
FOR x = 0 TO 20
WriteAt(1,x,"Hello Sue")
DELAYMS(500)
lcd.cls // clear lcd display
NEXT
FOR x = 0 TO 20
WriteAt(2,x,"how are you")
DELAYMS(500)
lcd.cls
NEXT
wend