Dotaz: Zvuk v Pascalu

[Martin]

Dobrý den, co dělá příkaz "delay (1)" a "sound (5000)" v tomoto programu:

Program houkacka;
uses crt;
begin
  clrscr;
  repeat
      sound (5000);
      delay (1);
  until keypressed;
  readln;
  nosound;
end.

Děkuji.

---

---

Odpovědi

[Jendа]

Program houkacka;
uses crt;
begin
 clrscr;
 repeat
     sound (5000);
     delay (1);
 until keypressed;
 readln;
 nosound;
end.

Tipnul bych si, že funkce sound() má jako parametr frekvenci tónu a delay() bude pozastavení běhu na zadaný počet milisekund.

[Petr Šobáň]

Hledání zase nefunguje ?

Turbo Pascal: část II. - vytvoření programu, který ovládá vnitřní reproduktor PC

Příkaz sound(800); slouží k posílání dat reproduktoru, ten začne vydávat zvuk. Číslo v závorce znamená, jak vysokým tónem bude zvuk hrán v Hz.

Ovšem pozor některé moderní PC už nemají reproduktorek na MB.

delay(1) je čekání.

Turbo Pascal: část X. - Upcase, kombinace více podmínek if a repeat

[l4m4]

Ono to celkově asi udělá něco definovaného akorát na historickém počítači s historickým Borland (Trubo) Pascalem...

Např. FreePascal explicitně říká, že to nemusí být vůbec implementováno, a když je, tak to prostě udělá ,něco`:

Under Windows, a system sound is played and the frequency parameter is ignored. On other operating systems, this routine may not be implemented.

[Bedňa]

Pozri sa napréklad na http://www.freebyte.com/music_player/ je to napísané v Lazaruse (FreePascal).

[l4m4]

Ano, ten určitě používá sound() k přehrávání zvuků z interního reproduktoru...

[Bedňa]

Tazatel napísal Zvuk v Pascalu

[Jendа]

V těle příspěvku je také nějaký obsah a dokonce i ukázka kódu (i když špatně zformátovaná)…

[Bedňa]

Určite nechce ovládať systémový reproduktor, to by napísal rovno, ale chce vylúdiť nejakú peknú znelku.

[Jendа]

Ptal se, co dělá funkce sound(), na což mu bylo odpovězeno. Tvůj komentář na tuto otázku neodpovídá ;).

[Bedňa]

V tomto kontexte máš pravdu.

[l4m4]

A kde je tedy zdrojový kód toho programu, aby se tazatel mohl podívat, jak se to dělá?