PDA

View Full Version : سوال در مورد MicroPascal compiler for AVR



Pascal
شنبه 20 شهریور 1389, 12:24 عصر
آيا كسي با MicroPascal compiler for AVR كار كرده؟

من قصد دارم از صفحه كليد اطلاعات رو در يك LCD نمايش بدهم از نمونه اي كه در help‌برنامه وجود داره استفاده كردم اما كلي پيام خطا ميدهد

pouria2013
دوشنبه 28 مرداد 1392, 15:31 عصر
من استفاده کرده ام این کد هارو بنویس حتما جواب میگیری //////////////////////////////////////////
// //
// 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.

pouria2013
دوشنبه 28 مرداد 1392, 15:41 عصر
این هم تصویر در Protusehttp://www.uploadax.com/images/58804460444469753637.png