BasicMicro - Forums

I cant get the lcdwrite command to work
heres my code whats wrong

main:

LCDINIT P8P10P11P12P13P14,P9
Pause 500

LCDWRITE P8P10P11P12P13P14,P9, ["TEST"]

goto main

Try this and see if it works. I used constants for the pins and it works for me.
Select the text below and paste into the IDE.

' Test LCD AtomPro24M K.Regester 5/23/2003
' Hook LCD (14 pin connection) up as below
' LCD CONNECTION
' 1 GND
' 2 +5VDC
' 3 GND
' 4 ATOMPRO PIN 8
' 5 ATOMPRO PIN 9
' 6 ATOMPRO PIN 10
' 7 NONE
' 8 NONE
' 9 NONE
' 10 NONE
' 11 ATOMPRO PIN 11
' 12 ATOMPRO PIN 12
' 13 ATOMPRO PIN 13
' 14 ATOMPRO PIN 14

RegSel con p8 ' R/S LCD
RdWrPin con p9 ' R/W LCD
CLK con p10 ' Enable
DB4 con p11 ' use upper 4 bits
DB5 con p12
DB6 con p13
DB7 con p14

LCDINIT RegSelCLKDB7DB6DB5DB4,RdWrPin
LCDWRITE RegSelCLKDB7DB6DB5DB4,RdWrPin, [TWOLINE,CLEAR, SCR] ' Set 2 line display, clears screen, turn off cursor & blink
PAUSE 100
LCDWRITE RegSelCLKDB7DB6DB5DB4,RdWrPin, ["Voila, It Works"]

[This message has been edited by Ken Regester (edited 05-24-2003).]

Thanks my atom had to be sent back for repair but I'll let you know how it turns out when it comes back