如何在Pascal中使用声音

Question

我尝试使用具有不同“x”值的Sound（x）命令，但它只显示一声嘟嘟声，同样的声音。

program Sounds;
uses
   crt;

begin
   Sound(1000);
   Sound(500);
   Delay(1000);
   Sound(300);
   Sound(150);
   Delay(1000);
   NoSound;
end.

这段代码有什么问题？

Answer 1

Sound不再适用于Windows。

我制作了一个适用于某些系统的patch，但他们并不关心它。

-

Sound永远发出声音/直到NoSound被调用。如果你只想发出声音 在一段时间内，您可以使用Windows单元中的Beep(freq, duration)