kaixinde102 2014-09-12 03:48
浏览 3261

vb api beep 如何从蜂鸣器输入声音(win7/win8运行环境)代码如下:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
playsnd 440, 200
playsnd 20001, 75
playsnd 495, 200
playsnd 20001, 75
playsnd 550, 200
playsnd 20001, 75
playsnd 587, 200
playsnd 20001, 75
playsnd 660, 200
playsnd 20001, 75
playsnd 733, 200
playsnd 20001, 75
playsnd 825, 200
playsnd 20001, 75
playsnd 880, 200
playsnd 20001, 75
playsnd 880, 200
playsnd 20001, 75
playsnd 825, 200
playsnd 20001, 75
playsnd 733, 200
playsnd 20001, 75
playsnd 660, 200
playsnd 20001, 75
playsnd 587, 200
playsnd 20001, 75
playsnd 550, 200
playsnd 20001, 75
playsnd 495, 200
playsnd 20001, 75
playsnd 440, 200
End Sub
Function playsnd(ByVal x As Long, y As Long)
Beep x, y * 3
DoEvents
End Function
以上代码只能从扬声器中输入,我需要以上代码从蜂鸣器中输出;请各位大神帮忙谢谢!!

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥15 MATLAB动图的问题
    • ¥15 求差集那个函数有问题,有无佬可以解决
    • ¥15 【提问】基于Invest的水源涵养
    • ¥20 微信网友居然可以通过vx号找到我绑的手机号
    • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
    • ¥15 解riccati方程组
    • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
    • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
    • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
    • ¥50 树莓派安卓APK系统签名