User manual

mikroPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
586
{*
* If RB9 is pressed, display only graphic panel
*}
{$IFDEF COMPLETE_EXAMPLE}
else
if (RB9_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
{$ENDIF}
{*
* 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
*}
else
if(RB12_bit <> 0) then
begin
Inc(curs);
if (curs = 3) then
curs := 0;
case curs of
0:
// no cursor
T6963C_cursor(0);
1: begin
// blinking cursor
T6963C_cursor(1);