DDRB:=%00001000;
TCCR2:=%01100001;
TCCR1A:=%10000001;
y:=0;
x:=0;
{==============================================================}
loop
x:=180;
label: M1;
if RxD=1 then
f:=-90;
endif;
if TxD=1 then
f:=90;
endif;
y:=sin(x+1)*255/2;
z:= Round(y);
MDelay(100);
OCR2:=z;
y1:=sin(x+1+f)*255/2;
z1:= Round(y1);
MDelay(100);
OCR1A:=z1;
f:=0;
if x=360 then
x:=0;
goto M1;
endif;
if x<360 then
x:=x+10;
goto M1;
endloop;
{==============================================================}
end AVR_Mega8.
{--------------------------------------------------------------}
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.