programovani PIC v MicroPascal-u

Zapletal Martin zapletal@inoma.cz
Čtvrtek Září 21 14:36:25 CEST 2006


Omlouvam se za zacatecnicky dotaz ale pokousim se o jednoduchou vec a nejak 
se mi nedari. Napsal jsem nasledujici kod ale rozsviti se mi jen prvni LED a 
pri stisku tlacitka mi dalsi nechodi. Pritom pokud to krokuji a menim stav 
na PORTA tak to dela co ma. Nevim co delam spatne. Poradi mi nekdo prosim? 
Procesor je 16F627 a nastaveno mam _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & 
_BODEN_OFF & _LVP_OFF & _INTRC_OSC_NOCLKOUT

program TDS01;

begin
  TRISA  := $FF;                    // PORTA vstup
  TRISB  := $0;                     // PORTB vystup
  PORTB  := $01;                    // prvni LED roznout

  while true do
  begin
    if (TestBit(PORTA,0) = 1)then
      PORTB :=$01;
    if (TestBit(PORTA,1) = 1)then
      PORTB :=$02;
    if (TestBit(PORTA,2) = 1)then
      PORTB :=$04;
  end;
end.

dik Martin 




Další informace o konferenci Hw-list