LCD
Action

Send constant or variable to LCD display.

Syntax

LCD x

Remarks

x Variable or constant to display.
More variables can be displayed separated by the ; -sign
LCD a ; b1 ; " constant"
The LCD statement behaves just like the PRINT statement.

See also
LCDHEX , $LCD CONFIG LCD


Example
'--------------------------------------------------------------
' (c) 1997,1998 MCS Electronics
'--------------------------------------------------------------
' file: LCD.BAS
' demo: LCD, CLS, LOWERLINE, SHIFTLCD, SHIFTCURSOR, HOME

' CURSOR, DISPLAY
'--------------------------------------------------------------

Dim A As Byte
Config Lcd = 16 * 2 'configure lcd screen
'other options are 16 * 4 and 20 * 4, 20 * 2
'When you don't include this option 16 * 2 is assumed

'$LCD = address will turn LCD into 8-bit databus mode
' use this with uP with external RAM and/or ROM
' because it Ain't need the port pins !

Cls 'clear the LCD display

Lcd "Hello world." 'display this at the top line
Wait 1
Lowerline 'select the lower line
Wait 1

Lcd "Shift this." 'display this at the lower line
Wait 1
For A = 1 To 10
Shiftlcd Right 'shift the text to the right
Wait 1 'wait a moment
Next

For A = 1 To 10
Shiftlcd Left 'shift the text to the left
Wait 1 'wait a moment

Next

Locate 2 , 1 'set cursor position
Lcd "*" 'display this
Wait 1 'wait a moment

Shiftcursor Right 'shift the cursor
Lcd "@" 'display this
Wait 1 'wait a moment

Home Upper 'select line 1 and return home
Lcd "Replaced." 'replace the text

Wait 1 'wait a moment

Cursor Off Noblink 'hide cursor
Wait 1 'wait a moment
Cursor On Blink 'show cursor
Wait 1 'wait a moment
Display Off 'turn display off
Wait 1 'wait a moment
Display On 'turn display on
'-----------------NEW support for 4-line LCD------

Thirdline
Lcd "Line 3"
Fourthline
Lcd "Line 4"
Home Third 'goto home on line three
Home Fourth
Home F 'first letterer also works
Locate 4 , 1 : Lcd "Line 4"
Wait 1

'Now lets build a special character
'the first number is the character number (0-7)
'The other numbers are the row values
'Use the LCD tool to insert this line

Deflcdchar 0 , 31 , 17 , 17 , 17 , 17 , 17 , 31 , 0' replace ? with number (0-7)

Deflcdchar 1 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 31' replace ? with number (0-7)

Cls 'cls is needed after deflcdchar
Lcd Chr(0) ; Chr(1) 'print the special character

'----------------- Now use an internal routine ------------
Acc = 1 'value into ACC
Call Write_lcd 'put it on LCD
End