The mikroPascal PRO for 8051 provides a library for communication with Lcds (with HD44780 compliant controllers) through the 4-bit interface. An example of Lcd connections is given on the schematic at the bottom of this page.

For creating a set of custom Lcd characters use Lcd Custom Character Tool.

External dependencies of Lcd Library

Library Routines

• Lcd_Init
• Lcd_Out
• Lcd_Out_Cp
• Lcd_Chr
• Lcd_Chr_Cp
• Lcd_Cmd

Lcd_Init

// lcd pinout settings

var
  LCD_RS : sbit at P2_0_bit;
  LCD_EN : sbit at P2_1_bit;
  LCD_D7 : sbit at P2_5_bit;
  LCD_D6 : sbit at P2_4_bit;
  LCD_D5 : sbit at P2_3_bit;
  LCD_D4 : sbit at P2_2_bit;

...

Lcd_Init();

Lcd_Out

// Write text "Hello!" on Lcd starting from row 1, column 3:
Lcd_Out(1, 3, "Hello!");

Lcd_Out_CP

// Write text "Here!" at current cursor position:
Lcd_Out_CP("Here!");

Lcd_Chr

// Write character "i" at row 2, column 3:
Lcd_Chr(2, 3, 'i');

Lcd_Chr_CP

// Write character "e" at current cursor position:
Lcd_Chr_CP('e');

Lcd_Cmd

// Clear Lcd display:
Lcd_Cmd(_LCD_CLEAR);

Available Lcd Commands

Library Example

The following code demonstrates usage of the Lcd Library routines:

program  Lcd_Test;

// LCD module connections
var LCD_RS : sbit at P2_0_bit;
var LCD_EN : sbit at P2_1_bit;

var LCD_D4 : sbit at P2_2_bit;
var LCD_D5 : sbit at P2_3_bit;
var LCD_D6 : sbit at P2_4_bit;
var LCD_D7 : sbit at P2_5_bit;
// End LCD module connections

var txt1 : array[16] of char;
    txt2 : array[9]  of char;
    txt3 : array[8]  of char;
    txt4 : array[7]  of char;
    i    : byte;       // Loop variable

procedure Move_Delay();                  // Function used for text moving
  begin
    Delay_ms(500);                       // You can change the moving speed here
  end;

  begin
    txt1 := 'mikroElektronika';
    txt2 := 'Easy8051B';
    txt3 := 'Lcd4bit';
    txt4 := 'example';
    Lcd_Init();                        // Initialize LCD
    Lcd_Cmd(_LCD_CLEAR);               // Clear display
    Lcd_Cmd(_LCD_CURSOR_OFF);          // Cursor off
    Lcd_Out(1,6,txt3);                 // Write text in first row
    LcdOut(2,6,txt4);                 // Write text in second row
    Delay_ms(2000);
    Lcd_Cmd(_LCD_CLEAR);               // Clear display

    Lcd_Out(1,1,txt1);                 // Write text in first row
    Lcd_Out(2,4,txt2);                 // Write text in second row
    Delay_ms(500);

    // Moving text
    for i:=0 to 3 do                   // Move text to the right 4 times
      begin
        Lcd_Cmd(_LCD_SHIFT_RIGHT);
        Move_Delay();
      end;

    while TRUE do                      // Endless loop
      begin
        for i:=0 to 6 do               // Move text to the left 7 times
          begin
            Lcd_Cmd(_LCD_SHIFT_LEFT);
            Move_Delay();
          end;

        for i:=0 to 6 do               // Move text to the right 7 times
          begin
            Lcd_Cmd(_LCD_SHIFT_RIGHT);
            Move_Delay();
          end;

      end;
  end.

Lcd HW connection

Want more examples and libraries? 
Find them on