|
Kategorie: Diplomové, bakalářské práce |
Tento dokument chci!
Cílem práce je realizace digitálního ekvalizéru s kompresorem dynamiky. Diplomová práce je zaměřena na srovnání funkcí a parametrů jednotlivých digitálních signálových procesorů, určených výhradně pro zpracování zvukových signálů. Obsahuje podrobný rozbor dílčích bloků pro signálové zpracování v obvodu AD1953 a možnosti ovládání programovatelných parametrů těchto bloků uživatelem. Práce dále obsahuje srovnání vybraných A/D převodníků spolu s popisem zvoleného obvodu UDA1361TS. Také je uvedeno navržené blokové schéma výsledného zařízení. Poté jsou uvedeny možnosti řízení jednotlivých bloků v signálovém procesoru, ovlivňující zpracování signálu. Je zde rovněž představeno výsledné obvodové řešení digitálního ekvalizéru a popis programového vybavení k úspěšnému řízení zpracování signálu vobvodu AD1953. Práce popisuje také konstrukci digitálního ekvalizéru a obsahuje výsledky vybraných měření.
Color:=clGreen;
end
//Pokud nebylo stisknuto tlačítko "Najdi port" před stiskem tlačítka "Připojit" provede zobrazení
dostupných portů
else
begin
//ComboBox1.Font.','Informace připojení',MB_OK);
4:Application.MessageBox('Připojeno port COM'+'1.Text) of
1:Application.text nelze použít přímo argumentu MessageBox jsou nekompatibilní typy
case StrToInt(ComboBox1.MessageBox('Připojeno port COM'+'4.MessageBox('Připojeno port COM'+'2.MessageBox('Připojeno port COM'+'3.','Informace připojení',MB_OK);
3:Application.','Informace připojení',MB_OK);
6:Application.MessageBox('Připojeno port COM'+'6.','Informace připojení',MB_OK);
2:Application.','Informace připojení',MB_OK);
5:Application.','Informace připojení',MB_OK);
end;
for j:=1 do
begin
port_nastaveni_2:='COM'+IntToStr(j)+':9600,N,8,1';
//Neúplný podmíněný příkaz bez větve else
if (OpenCom(Pchar(port_nastaveni_2))) then
begin
if (pocet_2 then
begin
volne_porty_2:=IntToStr(j);
pocet_2:=pocet_2 1;
//Informace tom, zda volný alespoň jeden port (zároveň informace počtu volných portů)
end
else
begin
volne_porty_2:=volne_porty_2+', '+IntToStr(j);
pocet_2:=pocet_2 1;
end;
end;
.MessageBox('Připojeno port COM'+'5.end;
Label22.Caption:='Připojeno';
Label22
