Peripheral myLCD As LCD2x16a @ 0 'set module number 0
Sub Main() 'main program
myLCD.DisplayOn() 'enable the display
myLCD.SetBacklight(255) 'set LCD brightness to the maximum value
myLCD.Backlighton(0) 'LCD backlight on constantly
myLCD.Display("Hello World!") 'display ¡§Hello World!¡¨ on screen
Pause 3000
myLCD.RotateRight(1, 10) 'rotate ¡§Hello World!¡¨ from left to right
Pause 5000
myLCD.RotateOff() 'stop rotating the message ¡§Hello World!¡¨
myLCD.Clear() 'clear all the characters on the display
'Set the number 0 user defined character to be composed of 4 horizontal lines
'on row 1, 3, 5 and 7. The number 31 is represented as 11111 in binary format,
'so the value of 31 means that all the pixels on the row will be turned on
'When this character is displayed, a pattern composed of four horizontal lines
'will be shown on the display.
myLCD.Customchar(0, 31, 0, 31, 0, 31, 0, 31,0)
'Shown as 8 repeated number 0 user defined characters on the display.
myLCD.DisplayChar(0, 0, 0, 0, 0, 0, 0, 0)
Pause 2000
'Set number 1 user defined character to be composed of 3 vertical lines on column
'1, 3 and 5. The number 21 is represented as 10101 in binary format, so the
'pixels on the 1, 3 and 5 columns will be turned on. When this character
' is displayed, a pattern composed of 3 vertical lines will be shown on the display.
myLCD.Customchar(1, 21, 21, 21, 21, 21, 21, 21,21)
'Shown as 8 repeated number 0 user defined characters on the display
myLCD.DisplayChar(1, 1, 1, 1, 1, 1, 1, 1)
End Sub