User manual

516
mikoPascal PRO for PIC32
MikroElektronika
cposy : word; // cursor x-y position
txtcols : byte; // number of text coloms
txt, txt1 : string[29];
txt2 : string[21];
begin
{$DEFINE LINE_DEMO} // Uncomment to demonstrate line drawing routines
{$DEFINE FILL_DEMO} // Uncomment to demonstrate ll routines
{$DEFINE PARTIAL_IMAGE_DEMO} // Uncomment to demonstrate partial image routine
txt1 := ' EINSTEIN WOULD HAVE LIKED mE';
txt := ' GLCD LIBRARY DEMO, WELCOME !';
txt2 := ' Partial image demo! ';
CHECON := 0x32;
AD1PCFG := 0xFFFF;
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
TRISB13_bit := 1; // Set RB13 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);