Mikroelektronika MIKROE-724 データシート

mikroBasic PRO for dsPIC30/33 and PIC24

MikroElektronika

363

Library Example

The following drawing demo tests advanced routines of the Glcd library.

 Copy Code To Clipboard 

program GLCD_Test

dim GLCD_D7 as sbit at RD3_bit

    GLCD_D6 as sbit at RD2_bit

    GLCD_D5 as sbit at RD1_bit

    GLCD_D4 as sbit at RD0_bit

    GLCD_D3 as sbit at RB3_bit

    GLCD_D2 as sbit at RB2_bit

    GLCD_D1 as sbit at RB1_bit

    GLCD_D0 as sbit at RB0_bit

    GLCD_D7_Direction as sbit at TRISD3_bit

    GLCD_D6_Direction as sbit at TRISD2_bit

    GLCD_D5_Direction as sbit at TRISD1_bit

    GLCD_D4_Direction as sbit at TRISD0_bit

    GLCD_D3_Direction as sbit at TRISB3_bit

    GLCD_D2_Direction as sbit at TRISB2_bit

    GLCD_D1_Direction as sbit at TRISB1_bit

    GLCD_D0_Direction as sbit at TRISB0_bit

dim GLCD_CS1 as sbit at LATB4_bit

    GLCD_CS2 as sbit at LATB5_bit

    GLCD_RS  as sbit at LATF0_bit

    GLCD_RW  as sbit at LATF1_bit

    GLCD_EN  as sbit at LATF4_bit

    GLCD_RST as sbit at LATF5_bit

dim GLCD_CS1_Direction as sbit at TRISB4_bit

    GLCD_CS2_Direction as sbit at TRISB5_bit

    GLCD_RS_Direction  as sbit at TRISF0_bit

    GLCD_RW_Direction  as sbit at TRISF1_bit

    GLCD_EN_Direction  as sbit at TRISF4_bit

    GLCD_RST_Direction as sbit at TRISF5_bit

dim counter as byte

    someText as char[18]

sub procedure Delay2S()                            ‘ 2 seconds delay function

  Delay_ms(2000)

main:

  #DEFINE COMPLETE_EXAMPLE      ‘ comment this line to make simpler/smaller example

  ADPCFG = 0xFFFF               ‘ Configure AN pins as digital