من استفاده کرده ام این کد هارو بنویس حتما جواب میگیری //////////////////////////////////////////
// //
// FIRST PROGRAM BY MICRO PASCAL //
// //
// PROGRAMMER : POURIA GHASEMI //
// //
//////////////////////////////////////////
program Lcd;
// LCD module connections
var LCD_RS : sbit at PORTD2_bit;
var LCD_EN : sbit at PORTD3_bit;
var LCD_D4 : sbit at PORTD4_bit;
var LCD_D5 : sbit at PORTD5_bit;
var LCD_D6 : sbit at PORTD6_bit;
var LCD_D7 : sbit at PORTD7_bit;
var LCD_RS_Direction : sbit at DDD2_bit;
var LCD_EN_Direction : sbit at DDD3_bit;
var LCD_D4_Direction : sbit at DDD4_bit;
var LCD_D5_Direction : sbit at DDD5_bit;
var LCD_D6_Direction : sbit at DDD6_bit;
var LCD_D7_Direction : sbit at DDD7_bit;
// End LCD module connections
var
txt3 : array[6] of char;
txt4 : array[7] of char;
i : byte;
begin
txt3 := 'Pouria';
txt4 := 'Ghasemi';
Lcd_Init();
Lcd_Cmd(_LCD_CLEAR);
Lcd_Cmd(_LCD_CURSOR_OFF);
for i:= 1 to 10 do
begin
Lcd_cmd(_LCD_CLEAR);
LCD_Out(1,i,txt3);
LCD_Out(2,i,txt4);
if i = 10 then
end;
Delay_ms(2000);
end.