|
|
|
Použití speakeru
|
05.12.2009
|
Úvod
Většina počítačů obsahuje uvnitř skříně malý systémový reproduktor. Pomocí jednoduchého kódu na něj můžeme vyslat signál.
První číslo v závorce je frekvence zvuku a druhé je čas v ms, po který je zvuk generován.
Prvky
Button1 (Caption: Pípni)
Kód
procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.Beep(900,100);
end;
Varianty
procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.Beep(500,100);
Windows.Beep(700,100);
Windows.Beep(900,100);
end;
|
|
|
