programovani PIC v MicroPascal-u

[Zapletal Martin]

prakticky je to zapojeno takhle 
http://www.pandatron.info/elektronika2/clanek.php?rubrika=mi&clanek=22& 
PORTA vstupy tlacitek, PORTB vystupy na LED


> Puvodni zprava ze dne 21.9.2006 od Zapletal Martin:
>
>>     if (TestBit(PORTA,0) = 1)then
>>       PORTB :=$01;
>>     if (TestBit(PORTA,1) = 1)then
>>       PORTB :=$02;
>>     if (TestBit(PORTA,2) = 1)then
>>       PORTB :=$04;
>
> A ta tlacitka jsou jako jak pripojena na tom portu? Jestli TestBit = 1
> testujes jednicku a tlacitka se spinaji na zem, tak to samozrejme
> nebude delat nic.
>
> Petr Zahradnik, pocitacovy expert
>