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 python天天向上类似问题,但没有清零
    • ¥30 3天&7天&&15天&销量如何统计同一行
    • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
    • ¥15 C#调用python代码(python带有库)
    • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
    • ¥15 活动选择题。最多可以参加几个项目?
    • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
    • ¥15 vs2019中数据导出问题
    • ¥20 云服务Linux系统TCP-MSS值修改?
    • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)