在没有声卡的电脑上发声(100分)

  • 主题发起人 主题发起人 let_it_be
  • 开始时间 开始时间
L

let_it_be

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在没有声卡的电脑上发出跟 QQ 一样的 “嘀 嘀 嘀 嘀”声音<br>不是beep或messageBeep<br>系统:window98<br><br>&nbsp;
 
windows.Beep(int_频率,int_时长毫秒);<br>sleep(int_时长毫秒);
 
98下支持 (int_频率,int_时长毫秒) 这两个参数吗?<br>windows.Beep(int_频率,int_时长毫秒);<br><br>还有,“嘀嘀嘀嘀” 声音的频率是多少,我真的不懂音乐的。
 
windows下不支持(int_频率,int_时长毫秒) 这两个参数,windows nt以上的才支持...<br>你去找個第三方控件/程序啦....網上很多的...
 
在98下可以直接控制端口,用 OUT 61,AL(记不准了)直接发音了,写几个嵌入汇编的函数就成.
 
onst<br>&nbsp; &nbsp; MHZ:Array[8] of Integer=(523,587,659,698,784,880,988,1047);<br>var<br>&nbsp; &nbsp; I:Integer;<br><br>for I:=Low(MHZ) to High(MHZ) do<br>&nbsp; &nbsp; windows.beep(MHZ,500);<br><br>windows.beep(523,500); &nbsp; &nbsp;//1<br>&nbsp; &nbsp; windows.beep(587,500); &nbsp; &nbsp; //2<br>&nbsp; &nbsp; &nbsp;windows.beep(659,500); &nbsp; &nbsp; //3<br>&nbsp; &nbsp; windows.beep(698,500); &nbsp; &nbsp; &nbsp;// 4<br><br>&nbsp; &nbsp; windows.beep(784,500); &nbsp; &nbsp; &nbsp;// 5<br>&nbsp; &nbsp; windows.beep(880,500); &nbsp; &nbsp; &nbsp; // 6<br>&nbsp; &nbsp; &nbsp;windows.beep(998,500); &nbsp; &nbsp; &nbsp; // 7<br>&nbsp; &nbsp; windows.beep(1047,500);试试<br>
 
问题没有解决,<br>windows.Beep(int_频率,int_时长毫秒); 在Win98下没有效果!
 
把uses 中的windows和sysutis换位!!!
 
把uses 中的windows和sysutis换位!!! <br>什么意思? 明明已经是 windows.beep;了
 

Similar threads

回复
0
查看
867
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部