vb播放声音程序代码

于 2023-01-30 17:31:30 发布
阅读量702 收藏 1
点赞数
文章标签： 开发语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_32257509/article/details/128806201
版权

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 Command1_Click()

If Text1.Text = “1” Then
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Else

If Text1.Text = “2” Then
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Else
If Text1.Text = “3” Then
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Else

If Text1.Text = “4” Then
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Else

If Text1.Text = “5” Then
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Else
If Text1.Text = “6” Then
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Else
If Text1.Text = “7” Then
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End If

End If
End If
End If
End If
End If
End If
End Sub

正确例题朗读程序

Private Sub Command1_Click()

Dim s As String
Dim i As Integer

Dim MYSAPI
Randomize

s = Text1.Text
For i = 1 To Len(s)

Set MYSAPI = CreateObject(“Sapi.SpVoice”)
MYSAPI.Speak Mid(s, i, 1)

Next

End Sub

正确例题

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

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 Command1_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case 1
Beep 533, 200
Case 2
Beep 933, 200

Case 3
Beep 1133, 200

Case 4
Beep 1333, 200

Case 5
Beep 1633, 200

Case 6
Beep 1933, 200
Case 7
Beep 2133, 200

End Select
Next
End Sub

Private Sub Command2_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, Rnd * 1)

Case 1
Beep 533, 200
Case 2
Beep 933, 200

Case 3
Beep 1133, 200

Case 4
Beep 1333, 200

Case 5
Beep 1633, 200

Case 6
Beep 1933, 200
Case 7
Beep 2133, 200

End Select
Next
End Sub

Private Sub Command3_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End Select
Next
End Sub

Private Sub Command3_Click()
Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, Rnd * 1)

Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End Select
Next
End Sub

随机谱曲按钮
Private Sub Command2_Click()
Dim i, j, k,l,m,n,o,p As Integer
For i = 1 To 7
For j = 1 To 7

For k = 1 To 7
For l = 1 To 7

For m = 1 To 7
For n = 1 To 7

For o = 1 To 7
For p = 1 To 7

Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1)& Mid(Text1.Text, j, Rnd() * 1) & Mid(Text1.Text, k, Rnd() * 1) & Mid(Text1.Text, l, Rnd() * 1)& Mid(Text1.Text, m, Rnd() * 1) & Mid(Text1.Text, n, Rnd() * 1) & Mid(Text1.Text, o, Rnd() * 1)& Mid(Text1.Text, p, Rnd() * 1)
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

正确例题

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

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 Command1_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case 1
Beep 533, 200
Case 2
Beep 933, 200

Case 3
Beep 1133, 200

Case 4
Beep 1333, 200

Case 5
Beep 1633, 200

Case 6
Beep 1933, 200
Case 7
Beep 2133, 200

End Select
Next
End Sub

Private Sub Command2_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, Rnd * 1)

Case 1
Beep 533, 200
Case 2
Beep 933, 200

Case 3
Beep 1133, 200

Case 4
Beep 1333, 200

Case 5
Beep 1633, 200

Case 6
Beep 1933, 200
Case 7
Beep 2133, 200

End Select
Next
End Sub

Private Sub Command3_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End Select
Next
End Sub

Private Sub Command4_Click()

Dim i, j, k, l, m, n, o, p As Integer
For i = 1 To 7
For j = 1 To 7

For k = 1 To 7
For l = 1 To 7

For m = 1 To 7
For n = 1 To 7

For o = 1 To 7
For p = 1 To 7

Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1) & Mid(Text1.Text, k, Rnd() * 1) & Mid(Text1.Text, l, Rnd() * 1) & Mid(Text1.Text, m, Rnd() * 1) & Mid(Text1.Text, n, Rnd() * 1) & Mid(Text1.Text, o, Rnd() * 1) & Mid(Text1.Text, p, Rnd() * 1)
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

Private Sub Command5_Click()
Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, Rnd * 1)

Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End Select
Next
End Sub

正确例题–随机谱曲

Private Sub Command4_Click()

Dim i As Integer
For i = 1 To 7

Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1)
Next

End Sub

正确例题–随机谱曲

Private Sub Command4_Click()

Dim i As Integer
For i = 1 To 7

Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1)

Next

End Sub

正确例题

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

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 Command1_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case 1
Beep 533, 200
Case 2
Beep 933, 200

Case 3
Beep 1133, 200

Case 4
Beep 1333, 200

Case 5
Beep 1633, 200

Case 6
Beep 1933, 200
Case 7
Beep 2133, 200

End Select
Next
End Sub

Private Sub Command2_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, Rnd * 1)

Case 1
Beep 533, 200
Case 2
Beep 933, 200

Case 3
Beep 1133, 200

Case 4
Beep 1333, 200

Case 5
Beep 1633, 200

Case 6
Beep 1933, 200
Case 7
Beep 2133, 200

End Select
Next
End Sub

Private Sub Command3_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End Select
Next
End Sub

Private Sub Command4_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, Rnd * 1)

Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME

Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME

End Select
Next

End Sub

Private Sub Command5_Click()

Dim i As Integer
For i = 1 To 7

Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1)

Next

End Sub

Private Sub Command4_Click()

Dim i As Integer

Text1.Text =“1234567”

For i = 1 To 7
For j = 1 To 7

Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 7) & Mid(Text1.Text, j, Rnd() * 7)

Next
Next

End Sub

EYYLTV
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
python playsound 音量_Win32 PlaySound：如何控制音量？
weixin_39716105的博客
12-08 1087
两个可能的解决方案：首先，如果你的目标Vista和起来，你可以使用新的Windows音频API来调整每个应用程序的音量。 ISimpleAudioVolume，IAudioEndpointVolume等...如果这不合适，可以将WAV文件直接加载到内存中并修改样本。试试这个：从磁盘读取WAV文件并将其存储到内存缓冲区中，然后将样本缩小。我将假定所讨论的WAV文件是16位立体声，带有未压缩(PCM)...
VB 声音后台播放
天中云雾的博客
08-04 235
VB 声音后台播放 1.引用dll Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 2.在Form_Load()过程中输入以下代码 Call sndPlaySound(media, SND_ASYNC) 注：media可以为任意音频文件 ...
VBScript 让windows系统会说话
weixin_40650190的博客
11-24 649
1.打开记事本，输入以下代码： Set objVoice = CreateObject("SAPI.SpVoice") objVoice.Rate = 0.5 '速度，自己修改试一下 objVoice.Volume = 100 '声音 objVoice.Speak "abcdefg" '朗读的内容是abcdefg，如果想更改朗读的内容，只需把“”内的内容替换即可 2.另存为“xxxx.vb...
使用微软的SAPI.SpVoice制作音频文件
qq_41948178的博客
01-07 6430
使用SAPI.SpVoice制作音频文件 新建一个文本文件，输入一下命令。 Speak后面有一个空格 CreateObject("SAPI.SpVoice").Speak "你好" 之后将文件的后缀改为vbs。 注意事项 使用这种方法制作音频文件时，操作系统需要有该模块。如果操作系统不含有该模块，则无法使用本方法制作音频，并且会报错。目前，根据本人的测试，win10含有该模块，win7可能不含该...
vb发出声音音乐代码
qq_32257509的博客
01-26 231
Beep 500, 600 '500表示频率，单位为hz；600表示持续时间，单位为?Beep 500, 900 '500表示频率，单位为㎐；900表示持续时间，单位为㎳。
vb播放声音钢琴程序代码正确例题.txt
01-26
自动演奏程序vb代码
钢琴程序vb源代码.zip
01-26
演奏程序vb源代码
VB按钮带声音
04-17
VB按钮带声音一按就发出来声音，声音文件可以自己更改！
VB写的点击键盘发出声音小程序
01-20
VB写的 点击键盘发出声音小程序
VB百度音乐播放器源码
09-19
VB百度音乐播放器源码
音乐播放器vc6.0代码
08-17
音乐播放器vc6.0代码。mci。含播放进度（可调），音量，列表框，添加删除曲目，上一曲，下一曲，及播放模式选择。简单的播放器，mp3，wma，wav，mid。
VB编的音乐播放器（完美版）
06-19
VB编的音乐播放器，支持歌词同步，网络搜索并下载歌曲以及搜索歌词并下载等比较完善的功能，界面也相当不错！
vb播放声音钢琴程序源代码正确例题.txt
01-26
钢琴演奏vb代码
钢琴小程序vb源代码.zip
01-26
钢琴弹奏程序vb语言代码，声音播放程序
我的vb程序声音播放程序源代码.zip
02-15
我的vb程序声音播放程序源代码.zip
在VB编程中，如何实现加入声音
NCTU_to_prove_safety的博客
11-23 4460
添加一个WindowsMediaPlayer控件放到窗体里，然后写代码： Private Sub Command1_Click() WindowsMediaPlayer1.URL = "123.mp3" '这句代码的意思是播放程序所在文件夹中的123.mp3 'URL后面添地址,可以是网址 第一种Private Sub Form_Load()  Set a = CreateObje
vb爱心动态程序代码
最新发布
10-30
VB爱心动态程序代码是一种基于VB编程语言的程序代码，用于实现爱心动态效果的展示。 下面是一个简单的VB爱心动态程序代码示例： ```vb Public Class Form1 Private Sub Timer1_Tick(sender As Object, e As ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

EYYLTV

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值