User manual

mikroBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
563
TRISB11_bit = 1 ‘ Set RB11 as input
TRISB12_bit = 1 ‘ Set RB12 as input
panel = 0
i = 0
curs = 0
cposx = 0
cposy = 0
‘ Initialize SPI module
SPI1_Init()
‘ ‘ If Port Expander Library uses SPI2 module
‘ Pass pointer to SPI Read function of used SPI module
‘ Initialize SPI module used with PortExpander
‘ SPI2_Init_Advanced(_SPI_MASTER, _SPI_FCY_DIV2, _SPI_CLK_HI_TRAILING)
‘ * init display for 240 pixel width and 128 pixel height
‘ * 8 bits character width
‘ * data bus on MCP23S17 portB
‘ * control bus on MCP23S17 portA
‘ * bit 2 is !WR
‘ * bit 1 is !RD
‘ * bit 0 is !CD
‘ * bit 4 is RST
‘ * chip enable, reverse on, 8x8 font internaly set in library
‘ Initialize SPI Toshiba 240x128
SPI_T6963C_Cong(240, 128, 8, 0, 2, 1, 0, 4)
Delay_ms(1000)
‘ * Enable both graphics and text display at the same time
SPI_T6963C_graphics(1)
SPI_T6963C_text(1)
‘ * Text messages
SPI_T6963C_write_text(txt, 0, 0, SPI_T6963C_ROM_MODE_XOR)
SPI_T6963C_write_text(txt1, 0, 15, SPI_T6963C_ROM_MODE_XOR)
‘ * Cursor
SPI_T6963C_cursor_height(8) ‘ 8 pixel height
SPI_T6963C_set_cursor(0, 0) ‘ Move cursor to top left
SPI_T6963C_cursor(0) ‘ Cursor off
‘ * Draw rectangles
SPI_T6963C_rectangle(0, 0, 239, 127, SPI_T6963C_WHITE)
SPI_T6963C_rectangle(20, 20, 219, 107, SPI_T6963C_WHITE)
SPI_T6963C_rectangle(40, 40, 199, 87, SPI_T6963C_WHITE)
SPI_T6963C_rectangle(60, 60, 179, 67, SPI_T6963C_WHITE)