hinv
11-04-2010, 02:16 PM
Hi,
I am having trouble with getting my LCD module to display anything. I can write to it, and read it back, but I am unable to see anything on the display. I used Jon Williams article for the circuit here http://www.parallax.com/Portals/0/Downloads/docs/cols/nv/prop/col/nvp2.pdf
If somebody knows what I am doing wrong to not get anything, even a cursor, on the screen, I would surely appreciate advice. BTW, I did try turning the pot back and forth.
Thanks,
Doug
con
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000
obj
lcd : "jm_lcd4_ez"
ser : "FullDuplexSerial"
PUB Start | okay, inbyte
''Test Parallax Serial Terminal number entry and display.
ser.start(31, 30, 0, 9600)
''Start up lcd
ser.Str(String("initing lcd, "))
okay := lcd.init(0, 16, 1)
if okay
ser.Str(String("inited ok, "))
ser.Str(String("display on, "))
lcd.display(1)
lcd.cursor(2)
ser.Str(String("scrolling nuts, "))
lcd.scrollstr(1, 1, 8, 250, @nuts)
ser.Str(String(" repeat loop", 13))
inbyte := lcd.in
ser.Dec(inbyte)
ser.tx(inbyte)
lcd.moveto(4,1)
inbyte := lcd.in
ser.Dec(inbyte)
ser.tx(inbyte)
lcd.moveto(1,1)
inbyte := lcd.in
ser.Dec(inbyte)
ser.tx(inbyte)
ser.tx(13)
repeat
dat
nuts byte "AbCdEfGhIjKlMnOp", 0
volts byte " VOLTS ", 0
I am having trouble with getting my LCD module to display anything. I can write to it, and read it back, but I am unable to see anything on the display. I used Jon Williams article for the circuit here http://www.parallax.com/Portals/0/Downloads/docs/cols/nv/prop/col/nvp2.pdf
If somebody knows what I am doing wrong to not get anything, even a cursor, on the screen, I would surely appreciate advice. BTW, I did try turning the pot back and forth.
Thanks,
Doug
con
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000
obj
lcd : "jm_lcd4_ez"
ser : "FullDuplexSerial"
PUB Start | okay, inbyte
''Test Parallax Serial Terminal number entry and display.
ser.start(31, 30, 0, 9600)
''Start up lcd
ser.Str(String("initing lcd, "))
okay := lcd.init(0, 16, 1)
if okay
ser.Str(String("inited ok, "))
ser.Str(String("display on, "))
lcd.display(1)
lcd.cursor(2)
ser.Str(String("scrolling nuts, "))
lcd.scrollstr(1, 1, 8, 250, @nuts)
ser.Str(String(" repeat loop", 13))
inbyte := lcd.in
ser.Dec(inbyte)
ser.tx(inbyte)
lcd.moveto(4,1)
inbyte := lcd.in
ser.Dec(inbyte)
ser.tx(inbyte)
lcd.moveto(1,1)
inbyte := lcd.in
ser.Dec(inbyte)
ser.tx(inbyte)
ser.tx(13)
repeat
dat
nuts byte "AbCdEfGhIjKlMnOp", 0
volts byte " VOLTS ", 0