请先登录 | 注册
IPSC1978.GICP.NET
如果让程序发出报报警声音，调用Audio库 - 文章首页→返回版区
■标题:如果让程序发出报报井声音，调用Audio库
■作者:IPSC [2026/2/11 10:54:20]
首先，调用Audio库

[vb]
Sub Class_Globals'在这个模块里添加声明
Dim beeper As Beeper'发出井告声音

[/vb]




然后在任何位置加这段代码即可发出声音



[vb]
' 发出一个1000Hz、持续50毫秒的提示音

beeper.Initialize(50,1000)

beeper.beep'发出声音




[/vb]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】
【倒序/最近21条回复】(暂无)
(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
46 毫秒 .