如何让声卡发出指定频率的声音(100分)

  • 主题发起人 主题发起人 Xxfeng
  • 开始时间 开始时间
X

Xxfeng

Unregistered / Unconfirmed
GUEST, unregistred user!
如何让声卡发出指定频率的声音,如:2000Hz
 
beep就行.
windows.beep(***,***)
 
beep 在发声时程序会停下来,我希望以发声的同时,程序可以继续执行下去
 
那就来个多线程吧!
proceduredo
beep(xxx,yyy:Dword);
begin

Windows.Beep(xxx,yyy);
end;


var varid:Dword;
CreateThread(nil,nil,@dobeep,param,0,varid);
 
同意dedema的意见.
我刚才做了个测试:
windows.beep(2000 ,20000);
Application.ProcessMessages;
不行!好像只能用多线程了。
 
收藏,过几天写个驱蚊的程序
 
TAudio不错,不用多线程。
而且可以按要求输出制定波形声音,三角,正弦等等。
 
to bini:
BEEP(XXX,YYYY);
其中的XXX和YYYY各代表声音的什么参数?

to:nunimao
TAudio 是一个什么控件?在哪儿有下载?
谢了
 
to 3cs,
beep(xxx,yyy) xxx表示声音频率,yyy表示发声时长
在哪儿有下载?
http://download.gznet.gov.cn/dl.asp?classes=0804
 
to:xxFeng
谢谢了,另外我还想问你一个问题:
1、我想知道声音在多少HZ的范围内可以驱蚊、虫,但对人体又无伤害呢?
2、有一个软件叫“电子蚊香”它里面有一个设置叫波1和波2,它们分别是
代表多少HZ的范围?
我也想开发一个这样的小软件用来驱蚊虫,想看看它的效果如何?行的话我就不用花钱
买蚊香了!哈哈,请帮助,谢谢了!
 
to 3cs:
抱歉,我不知道。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
835
SUNSTONE的Delphi笔记
S
S
回复
0
查看
765
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
875
DelphiTeacher的专栏
D
后退
顶部