programovani PIC v MicroPascal-u

[Petr Zahradnik]

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

==========================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, 400 07 Usti nad Labem
telefon: 475 501 627, mobil: 602 409 601, fax: 475 511 338
web: http://www.clexpert.cz, e-mail: clexpert@clexpert.cz
ICQ: 21215917, MSN: clexpert@clexpert.cz
==========================================================