如何用Pascal语言进行声音编程

Question

我想询问一下如何使用pascal语言编写能发出声音的程序?

Answer 1

Turbo pascal 声音编程

一、使用Pascal进行声音操作前的准备

首先需要说明的是我们所说的Pascal声音操作，并不是指实现Pascal对于声卡进行操作，而是利用Pascal对计算机的PC喇叭操作，使它发出声音。

在Turbo Pascal中有一个叫做CRT单元的东西，CRT单元实现了一系列强大的可以充分地控制你计算机的功能CRT单元提供了控制显示模式、扩展键盘代码、显示颜色、窗体和声音的功能。

若是要在Turbo Pascal中实现声音操作，就必须要调用CRT单元。那么怎么样来调用CRT单元呢？现在介绍一下单元调用语句：USES

USES的语法：
USES 单元表识符，……，单元表识符；
说明：
扩展名为*.TPW是Windows下的单元文件，*.TPU是DOS下的单元文件。

二、Pascal声音操作的全部——三个过程

其实，Pascal的声音操作是十分简单的，一共可以使用的过程也只有3个，由此可见，你可以用很少的时间使你的PC喇叭发出你所希望的长度、你所希望的频率的声音

(1)SOUND过程

调用SOUND的方法： SOUND(HZ)；

说明：在调用SOUND的时候，它的参数HZ必须是WORD，也就是说变量HZ必须在0～65535这个范围中，变量HZ就是使PC喇叭发出等于HZ变量数值的频率的声音，由此可见人耳可以听见的范围远远小于这个范围。

(2)DELAY过程

调用DELAY的方法： DELAY(TIME)；
说明：当你在调用了SOUND过程之后，必须指定它发出变量HZ所指定的频率的声音的时间长度，DELAY就是用来指定这个长度的过程，变量TIME必须是大于等于零的整数，并且当TIME=1000时，它所延迟的时间是1秒，也就是说TIME的单位是千分之秒。

(3)NOSOUND过程

调用DELAY的方法： NOSOUND;
说明：NOSOUND是一个无参过程，它的作用从过程名上就可以看出——用来使PC喇叭停止发声，在调用SOUND之后，最好是要调用NOSOUND使PC喇叭停止发声。

例：用于上过程编写一个警报程序：
PROGRAM Alert;
USES Crt;
VAR
Hz : Word;
Count : Word;
BEGIN
REPEAT
Count:=Count+1;
Hz := 262;
WHILE Hz <= 524 DO
BEGIN
Sound(Hz);
Delay(2);
Hz := Hz + 1;
END;
UNTIL Count = 10;
Nosound;
END.

注意，在不同的机器上发出的声音有所差异。这是因为计算机主频不同。还有，在试验这个程序，或者说试验这种发声程序之前，最好先准备一个调用NOSOUND使PC喇叭停止发声的简单程序，以免异常中断，使喇叭响个不停。

========================= ========================

可以使用CLRSCR函数在需要处清屏
不过如果要使用 CLRSCR（清屏过程，在 DOS单元中）的话，必须在程序头部加上： USES DOS;

Answer 2

Free Pascal能编写简单的发声程序

加载 crt 单元后有以下过程:

Procedure sound(const h: word);
表示鸣片开始发出频率为h (Hz)的声音

Procedure nosound;
表示鸣片停止发声

例子：
Program ex;
Uses
crt; //加载crt单元

Var
i: longint;

Begin
repeat
for i:=300 to 400 do
begin
sound(i * 10); //发出3000--4000 的声音
delay(10); // 滞留10毫秒
end;
until keypressed; //直到键盘按下
readkey; //读取键盘
nosound; //停止发声
End.

Answer 3

语句是
sound(h);{h代表赫兹，就是音有多高}
delay(t);{t是这个声音的长短}

这是一个实例——
编写一个警报程序：
PROGRAM Alert;
USES Crt;
VAR
Hz : Word;
Count : Word;
BEGIN
REPEAT
Count:=Count+1;
Hz := 262;
WHILE Hz <= 524 DO
BEGIN
Sound(Hz);
Delay(2);
Hz := Hz + 1;
END;
UNTIL Count = 10;
Nosound;
END.

Answer 4

USER CRT;
...
SOUND([XHZ]);
NO SOUND