Diskuzní fórum Elektro Bastlírny

Ahoj,začínám programovat v microPascalu pro procesory PIC (dostal jsem tip zde na elektro bastlírně ) a napsal jsem si jednoduchý program pro PIC16F84A, 4 Mhz spojený s LCD ( 2 řádky,řadič HD44780 ) a komunikující po 4 vodičové sběrnici. Zapojiní pinů LCD a PIC je podle helpu microPascalu.Program má po stisku tlačítka na portuA.2 napsat text na LCD. Chci Vás poprosit o pomoc. Kde je v kódu chyba, nechce mi to funguvat? Víte o odkazu na webu s příkladama, něco jsem hledal ale neúspěšně, moc toho tam není.

díky IceM

program pokus;
var text: array[20] of char;

procedure txt_na_lcd;
begin
text := 'nejaky text';
Lcd_Out(1, 1, text); // Print text at LCD
text := 'nejaky text';
Lcd_Out(2, 1, text); // Print text at LCD
end;

begin

TRISA := $FF;
TRISB := $0; // PORTB is output
Lcd_Init(PORTB); // Initialize LCD on PORTB
Lcd_Cmd(LCD_CURSOR_OFF); // Turn off cursor

if Button(PORTA, 2, 5, 1) then txt_na_lcd else Lcd_Cmd(lcd_clear) ;

end.

IceM píše:begin

TRISA := $FF;
TRISB := $0; // PORTB is output
Lcd_Init(PORTB); // Initialize LCD on PORTB
Lcd_Cmd(LCD_CURSOR_OFF); // Turn off cursor

if Button(PORTA, 2, 5, 1) then txt_na_lcd else Lcd_Cmd(lcd_clear) ;

end.

Skús:
Lcd_Cmd(LCD_CURSOR_OFF); // Turn off cursor
Lcd_Cmd(lcd_clear) ;

if Button(PORTA, 2, 5, 1) then txt_na_lcd ;
end.

Máš správne zadefinovaný procesor?
Máš dobrý procesor?
Máš správne pripojený LCD (kontrast)?
A nemalo by to byť v nejakej slučke?

TO ViPali:
-Procesor mám správně zadefinovaný.
-Koupím nový PIC a zkusím ho naprogramovat.
-Kontrast mám správně zapojený? Několikrát jsem zapojení procházel.
-O té smyčce jsem uvažoval ale myslel jsem že je to ošetřené fcí Button.

Zkusím napsat kód jak píšeš a uvidím.
ViPali díky za tipy.