AT89S52 - Ovládání diod tlačítkem
Autor: MarMarPřidáno: 13.05.2012 09:27
Zobrazení: 602x krát
Tagy: Elektrotechnika - LED - Mikroprocesor
Jednoduchý program napsaný v jazyce MicroPascal, který bude rozsvětcovat LED diody podle stisknutí tlačítka
Ukázka kódu ve videu:
|
Popis: Práce s AT89S52 |
program blikacka;
{ Jednoduchý program, který využívá vnitřní přerušovač na 12MHz }
var
A : byte;
procedure Timer0ISR(); org 0x000B;
begin
if TestBit(P1,0)=1 then//pokud zmackneme tlacitko(přivedeme 1) na PORT1 pin 0, nebo můžeme použít funkci Button
a := 1//tak změň stav proměnné a
else
a := 0;
Delay_ms(25);
end;
begin
TMOD := %00000001;//nastavení módů a registrů
TCON := %00110000;
IE := %10000010;
IP := %00000010;
P0 := %00000000;//Nastavení základní funkce portů
P1 := %11111111;
P2 := %00000000;
P3 := %11111111;
while true do begin
if(a = 1)then//Pokud je nastavená proměnná a=1 tak přiveď na PORT2 na všechny piny 1
P2 := %11111111;
else//jinak na všechny piny 0
P2 := %00000000;
end;
end.
Komentáře: