- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
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;