【VB技巧】VB主板扬声器唱歌 主板喇叭Beep

  • A+
所属分类:lcx

    VB 主板扬声器唱歌,VB 控制主板喇叭Beep,VB 主板扬声器唱歌,VB 主板 喇叭 Beep,VB 主板扬声器唱歌,VB 主板 喇叭,VB 主板扬声器,VB 主板 Beep,VB 扬声器,VB 喇叭 Beep,VB playsnd,VB 声音频率(从37Hz到32767Hz),VB 声音的持续时间,以毫秒为单位。如为-1,表示一直播放声音,直到再次调用该函数为止。在windows95中会被忽略。

【VB声明】
  Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
【说明】
  用于生成简单的声音
 
【返回值】
  Long,TRUE(非零)表示成功,否则返回零。会设置GetLastError
 
【备注】
  在windows95中,这个函数简单的播放默认系统响铃
 
【参数表】
  dwFreq --------- Long,声音频率(从37Hz到32767Hz)。在windows95中忽略
 
  dwDuration ----- Long,声音的持续时间,以毫秒为单位。如为-1,表示一直播放声音,直到再次调用该函数为止。在windows95中会被忽略

VB主板扬声器唱歌,VB主板喇叭Beep:

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

Private Sub Form_Load()
    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

留言评论(旧系统):

RainShine @ 2014-11-11 12:56:47

嗯,挺好听的。手一贱把时间改成了100000,差点挨打

本站回复:

哈哈哈,重启吧~

文章来源于lcx.cc:【VB技巧】VB主板扬声器唱歌 主板喇叭Beep

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: