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

来源:百度知道 编辑:UC知道 时间:2024/06/24 11:06:44
我想询问一下如何使用pascal语言编写能发出声音的程序?

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是一个无参