User manual

mikroBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
585
txt, txt1 as string[29]
main:
txt1 = “ EINSTEIN WOULD HAVE LIKED mE”
txt = “ GLCD LIBRARY DEMO, WELCOME !”
#DEFINE COMPLETE_EXAMPLE ‘ comment this line to make simpler/smaller example
ADPCFG = 0xFFFF ‘ initialize AN pins as digital
TRISB8_bit = 1 ‘ Set RB8 as input
TRISB9_bit = 1 ‘ Set RB9 as input
TRISB10_bit = 1 ‘ Set RB10 as input
TRISB11_bit = 1 ‘ Set RB11 as input
TRISB12_bit = 1 ‘ Set RB12 as input
T6963C_ctrlce_Direction = 0
T6963C_ctrlce = 0 ‘ Enable T6963C
T6963C_ctrlfs_Direction = 0
T6963C_ctrlfs = 0 ‘ Font Select 8x8
T6963C_ctrlmd_Direction = 0
T6963C_ctrlmd = 0 ‘ Column number select
panel = 0
i = 0
curs = 0
cposx = 0
cposy = 0
‘ Initialize T6369C
T6963C_init(240, 128, 8)
‘ * Enable both graphics and text display at the same time
T6963C_graphics(1)
T6963C_text(1)
‘ * Text messages
T6963C_write_text(txt, 0, 0, T6963C_ROM_MODE_XOR)
T6963C_write_text(txt1, 0, 15, T6963C_ROM_MODE_XOR)
‘ * Cursor
T6963C_cursor_height(8) ‘ 8 pixel height
T6963C_set_cursor(0, 0) ‘ Move cursor to top left
T6963C_cursor(0) ‘ Cursor off
‘ * Draw rectangles
T6963C_rectangle(0, 0, 239, 127, T6963C_WHITE)
T6963C_rectangle(20, 20, 219, 107, T6963C_WHITE)
T6963C_rectangle(40, 40, 199, 87, T6963C_WHITE)
T6963C_rectangle(60, 60, 179, 67, T6963C_WHITE)