让pc speaker美妙动听_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

让pc speaker美妙动听

作者：闵涛文章来源：闵涛的学习笔记点击数：732 更新时间：2009/4/23 18:24:48

　　在个人电脑上没有声卡、操作系统为16位DOS的时代，用PC SPEAKER（主板上的喇叭）发音曾经是唯一的选择。现在，时光已经进入32位的WINDOWS时代，几乎每台电脑上都装有声卡并且输出的声音也几近完美，人们渐渐将PC SPEAKER遗忘……。不过，当我们为了节省能源或不需要操作高品质声音而将音箱关掉时，是否可以请老古董PC SPEAKER 重出江湖，为我们做些有益的事情呢？比如，本人就用DELPHI写了一个让PC SPEAKER奏出不同的音调,模拟海关钟报时的小程序（当然在32位的视窗环境中）。下面就简述其发音原理及源程序的核心部分：

　　发音原理 : 在16位DOS环境中，用当时流行的开发工具（如FOXBASE，TC等）均能轻而易举地写出让PC SPEAKER发出不同音调的程序，不过在WIN32下，似乎有些小问题：翻遍WINAPI,只能找到唯一的一个能让PC SPEAKER发音的函数—Beep( dwFreq, dwDuration）其中，dwfreq为声音频率，单位为赫兹，dwDuration为声音长度，单位为毫秒。这两个参数仅在WINDOWS NT环境下有效，在WINDOWS 9X 下只能让PC SPEAKER发一声标准的beep音，毫无音调变化。怎么办? 经过努力,本人在网上找到了一个由英国人John Atkins用汇编写的操纵底层资源的发音函数:

　　function _GetPort(address:word):word;//获取端口

　　　var

　　　　bValue: byte;

　　　begin

　　　　asm

　　　　　mov dx, address

　　　　　in al, dx

　　　　　mov bValue, al

　　　end;

　　　Result := bValue;

　　end;

　　procedure _SetPort(address, Value:Word);//设置端口

　　　var

　　　　bValue: byte;

　　　begin

　　　　bValue := Trunc(Value and 255);

　　　　asm

　　　　　mov dx, address

　　　　　mov al, bValue

　　　　　out dx, al

　　　　end;

　　　end;

　　procedure StartBeep(Freq : Word);//开始发音,Freq为频率

　　　var

　　　　B: Byte;

　　　begin

　　　　if Freq >18 then

　　　　　begin

　　　　　　Freq := Word(1193181 div LongInt(Freq));

　　　　　　B := Byte(_GetPort($61));

　　　　if (B and 3) = 0 then

　　　　　begin

　　　　　　_SetPort($61, Word(B or 3));

　　　　　　_SetPort($43, $B6);

　　　　　end;

　　　　　_SetPort($42, Freq);

　　　　　_SetPort($42, Freq shr 8);

　　　end;

　　　end;

　　procedure StopBeep;//停止发音

　　　　var

　　　　　Value: Word;

　　　　begin

　　　　　value := _GetPort($61) and $FC;

　　　　　_SetPort($61, Value);

　　end;

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：为数据库建立索引

下一篇教程： Delphi中远程控制的实现

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……