以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  请问老师vbs如何调用主机的Beep声音函数？  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=25373)
--  作者：3dian
--  发布时间：2012/9/11 14:17:32
--  请问老师vbs如何调用主机的Beep声音函数？
因为PLAYSOUND是要外接音响的，但是很多人向我反映机器没有音响，或者不方便开音响，希望我能提供主机的bios的发声，最好能提供bios的长短设置。pel公式我查了，没有相关函数，那么vbs应该可以调用吧，请老师帮帮我。我实在不想用TB给客户编。
--  作者：jinzhe
--  发布时间：2012/9/11 14:20:57
--  

稍等，工作人员测试后回复
--  作者：3dian
--  发布时间：2012/9/11 16:37:42
--  
老师，有结果吗？谢谢！
--  作者：admin
--  发布时间：2012/9/11 21:07:19
--  

Sub Test()

\' beep demo, jw 19Jan01

\' instantiate DynaWrap...
Set oDW = CreateObject("DynamicWrapper")
\' declare the api call...
oDW.Register "KERNEL32.DLL", "Beep", "i=ll", "f=s", "r=l"
\' call the api (parameters are: frequency, duration)
f = 50
Do
f = f + 50
oDW.Beep f, 100
Loop Until f > 5000

Set oDW = nothing \' clean up

End Sub

 
--  作者：3dian
--  发布时间：2012/9/12 9:10:13
--  
非常感谢 admin 老师，不过请问这个在公式中如何调用呢？麻烦老师做一个小例子，非常感谢！
--  作者：admin
--  发布时间：2012/9/12 9:30:15
--  

http://www.weistock.com/bbs/dispbbs.asp?boardid=9&Id=11048

 

看视频教程的VBA部分
--  作者：3dian
--  发布时间：2012/9/12 21:22:21
--  
谢谢老师，我认真学习了一遍，可是我还是有2个问题：
1：我把它做成宏以后，运行了以下这个宏，怎么声音响这么久，在哪里控制声音时间，我把循环代码注释掉好像也不行。
2：我在公式里如何调用呢？我看做成自定义函数可以调用，但是好像做成自定义函数调用后并没有声音啊！
烦请老师解答以下！非常感谢！