User manual

506
mikoBasic PRO for PIC32
MikroElektronika
case 1
‘ blinking cursor
SPI_T6963C_cursor(1)
SPI_T6963C_cursor_blink(1)
case 2
‘ non blinking cursor
SPI_T6963C_cursor(1)
SPI_T6963C_cursor_blink(0)
end select
Delay_ms(300)
end if
‘*
‘* If RB13 is pressed, perform the “Partial image” demonstration
‘*
#IFDEF PARTIAL_IMAGE_DEMO
if( RB13_bit = 1) then
SPI_T6963C_setGrPanel(0)
SPI_T6963C_setTxtPanel(0)
SPI_T6963C_txtFill(0)
SPI_T6963C_setGrPanel(1)
SPI_T6963C_setTxtPanel(0)
SPI_T6963C_graphics(1)
SPI_T6963C_text(1)
SPI_T6963C_displayGrPanel(1)
SPI_T6963C_write_text(txt2, 5, 15, SPI_T6963C_ROM_MODE_XOR)
Delay_1sec()
SPI_T6963C_grFill(0)
SPI_T6963C_PartialImage(0, 0, 64, 64, 240, 128, @mikroE_240x128_bmp)
Delay_ms(1500)
SPI_T6963C_PartialImage(0, 0, 128, 128, 240, 128, @mikroE_240x128_bmp)
Delay_ms(1500)
SPI_T6963C_PartialImage(0, 0, 240, 128, 240, 128, @mikroE_240x128_bmp)
Delay_ms(1500)
SPI_T6963C_txtFill(0)
SPI_T6963C_write_text(txt, 0, 0, SPI_T6963C_ROM_MODE_XOR)
SPI_T6963C_write_text(txt1, 0, 15, SPI_T6963C_ROM_MODE_XOR)
end if
#ENDIF
end if
end if
end if
end if
‘*
‘* Move cursor, even if not visible
‘*
Inc(cposx)
if (cposx = SPI_T6963C_txtCols) then
cposx = 0
Inc(cposy)
if (cposy = SPI_T6963C_grHeight div SPI_T6963C_CHARACTER_HEIGHT) then