User manual

mikroPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
584
txtcols : byte; // number of text coloms
txt, txt1 : string[29];
begin
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