vb调用蜂鸣器制造音阶

Connelly

于 2012-12-12 22:20:23 发布

阅读量1.2k

点赞数

文章标签： vb VB

vb调用蜂鸣器制造音阶

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
    playsnd 440, 100
    playsnd 494, 100
    playsnd 554, 100
    playsnd 622, 100
    playsnd 698, 100
    playsnd 784, 100
    playsnd 880, 100
End Sub


Function playsnd(ByVal x As Long, y As Long)
    Beep x, y * 3
    DoEvents
End Function