User manual

mikroPascal PRO for PIC32
MikroElektronika
519
while (TRUE) do // Endless loop
begin
{*
* If RB8 is pressed, toggle the display between graphic panel 0 and graphic 1
*}
if(RB8_bit <> 0) then
begin
Inc(panel) ;
panel := panel and 1;
T6963C_setPtr((T6963C_grMemSize + T6963C_txtMemSize) * panel, T6963C_GRAPHIC_
HOME_ADDRESS_SET) ;
Delay_ms(300) ;
end
{*
* If RB9 is pressed, display only graphic panel
*}
else
if (RB9_bit <> 0) then
begin
T6963C_graphics(1) ;
T6963C_text(0) ;
Delay_ms(300) ;
end
{*
* If RB10 is pressed, display only text panel
*}
else
if (RB10_bit <> 0) then
begin
T6963C_graphics(0);
T6963C_text(1);
Delay_ms(300);
end
{*
* If RB11 is pressed, display text and graphic panels
*}
else
if (RB11_bit <> 0) then
begin
T6963C_graphics(1);
T6963C_text(1);
Delay_ms(300);
end
{*
* If RB12 is pressed, change cursor
*}