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

admin 2021年4月3日19:01:50评论167 views字数 960阅读3分12秒阅读模式

    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

  • 左青龙
  • 微信扫一扫
  • weinxin
  • 右白虎
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日19:01:50
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                   【VB技巧】VB主板扬声器唱歌 主板喇叭Beephttp://cn-sec.com/archives/319660.html

发表评论

匿名网友 填写信息