关于vb报警声的播放
答案:2 悬赏:10 手机版
解决时间 2021-01-18 12:20
- 提问者网友：疯孩纸
- 2021-01-18 05:04
关于vb报警声的播放
最佳答案
- 五星知识达人网友：千杯敬自由
- 2021-01-18 05:14
如果你要实时监控温度值给出报警的话那么就需要添加一个TImer控件：
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Timer1_timer()
If a(0) >= 20 Then
PlaySound "F:\baojing.wav", 0, &H20000 Or &H1
End If
End Sub
声音文件所在的路径你根据自己的需要修改，如果与程序所在目录相同那么你可以用app.path追问我在通用里写了private....long 这块
在timer事件中写了
Select Case a(0)
Case a(0) >= 25
PlaySound App.Path & "\报警声音\BEEP1.WAV", 0, &H20000 Or &H1
End Select
可是当温度大于等于25后没有声音，是哪里错了吗追答Case a(0) >= 25
改成
Case is >= 25追问改不了c的思维，声音倒是有了，可是只是“当”的一声，我那个wav文件时持续两三秒的嘟嘟声哦，是不是后面的参数有问题，怎么改？
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Timer1_timer()
If a(0) >= 20 Then
PlaySound "F:\baojing.wav", 0, &H20000 Or &H1
End If
End Sub
声音文件所在的路径你根据自己的需要修改，如果与程序所在目录相同那么你可以用app.path追问我在通用里写了private....long 这块
在timer事件中写了
Select Case a(0)
Case a(0) >= 25
PlaySound App.Path & "\报警声音\BEEP1.WAV", 0, &H20000 Or &H1
End Select
可是当温度大于等于25后没有声音，是哪里错了吗追答Case a(0) >= 25
改成
Case is >= 25追问改不了c的思维，声音倒是有了，可是只是“当”的一声，我那个wav文件时持续两三秒的嘟嘟声哦，是不是后面的参数有问题，怎么改？
全部回答
- 1楼网友：人间朝暮
- 2021-01-18 06:29
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0 '同步调用，声音播放完毕 程序才能继续
Const SND_ASYNC = &H1 '非同步调用，不必等声音播放完毕 程序即可继续
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8 '声音播放完毕后 从头重复播放 与SND_ASYNC(=&H1)使用
Const SND_NOSTOP = &H10 '如果其他声音正在播放 则不终止该声音的播放，而返回False
Const SND_MEMORY = &H4 '播放内存中的声音
'在你的程序中代码就可能如下
Dim sound As String
sound = App.Path & "\sound\baojing.wav"
if a(0)>=20 then sndPlaySound sound, SND_ASYNC Or SND_NODEFAULT追问帮我看看我追问的第一位哥们的问题，怎么弄？
Const SND_SYNC = &H0 '同步调用，声音播放完毕 程序才能继续
Const SND_ASYNC = &H1 '非同步调用，不必等声音播放完毕 程序即可继续
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8 '声音播放完毕后 从头重复播放 与SND_ASYNC(=&H1)使用
Const SND_NOSTOP = &H10 '如果其他声音正在播放 则不终止该声音的播放，而返回False
Const SND_MEMORY = &H4 '播放内存中的声音
'在你的程序中代码就可能如下
Dim sound As String
sound = App.Path & "\sound\baojing.wav"
if a(0)>=20 then sndPlaySound sound, SND_ASYNC Or SND_NODEFAULT追问帮我看看我追问的第一位哥们的问题，怎么弄？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯