User manual

mikroPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
564
{*
* If RB9 is pressed, display only graphic panel
*}
{$IFDEF COMPLETE_EXAMPLE}
else
if (RB9_bit <> 0) then
begin
Inc(panel);
panel := panel and 1;
SPI_T6963C_displayGrPanel(panel);
Delay_ms(300);
end
{$ENDIF}
{*
* If RB10 is pressed, display only text panel
*}
else
if (RB10_bit <> 0) then
begin
SPI_T6963C_graphics(0);
SPI_T6963C_text(1);
Delay_ms(300);
end
{*
* If RB11 is pressed, display text and graphic panels
*}
else
if (RB11_bit <> 0) then
begin
SPI_T6963C_graphics(1);
SPI_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
SPI_T6963C_cursor(0);
1: begin
// blinking cursor
SPI_T6963C_cursor(1);
SPI_T6963C_cursor_blink(1);
end;
2: begin
// non blinking cursor
SPI_T6963C_cursor(1);
SPI_T6963C_cursor_blink(0);
end;
end;
Delay_ms(300);
end;
{*