vb播放声音程序代码

最新推荐文章于 2023-07-04 20:05:56 发布
最新推荐文章于 2023-07-04 20:05:56 发布
阅读量537 收藏
点赞数
文章标签： javascript 前端 windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_32257509/article/details/128767848
版权

通用
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()

playwavefile = PlaySound(“声音文件名.wav”, 0&, lngflags)

End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X(24) As Integer, I As Integer, J As Integer
X(1) = 784: X(2) = 659: X(3) = 523: X(4) = 784
X(5) = 659: X(6) = 523: X(7) = 880: X(8) = 698
X(9) = 587: X(10) = 880: X(11) = 698: X(12) = 587
X(13) = 1568: X(14) = 1318: X(15) = 1046
X(16) = 1568: X(17) = 1318: X(18) = 1046
X(19) = 1760: X(20) = 1396: X(21) = 1174
X(22) = 1760: X(23) = 1396: X(24) = 1174
For I = 1 To 2
For J = 1 To 24
Beep X(J), 200
Next J
Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X As Integer, I As Integer

For I = 1 To 2
Beep 1784, 200

Next I
End Sub

正确例题

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

Private Sub Form_Load()
Dim X As Integer, I As Integer

For I = 1 To 30
Beep Rnd * 1784, 200

Next I
End Sub

正确例题

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

Private Sub Form_Load()
Dim I As Integer

For I = 1 To 30
Beep Rnd * 9999, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim I As Integer

For I = 1 To 20
Beep Rnd * 9999, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim I As Integer

For I = 1 To 20
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X As Integer, I As Integer

For I = 1 To 20
Beep Rnd * 1784, 200

Next I
End Sub

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

Private Sub Command1_Click()
Beep Rnd * 1784, 200
End Sub

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

Private Sub Command1_Click()
Beep 1784, 400
End Sub

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

Private Sub Command1_Click()
Beep 500, 900 '500表示频率，单位为㎐；900表示持续时间，单位为㎳。
End Sub

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

Private Sub Command1_Click()
Beep 500, 600 '500表示频率，单位为hz；600表示持续时间，单位为?。

End Sub

正确例题
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()

playwavefile = PlaySound(“C:\Users\Administrator\Desktop\送别.wav”, 0&, lngflags)

End Sub

正确例题
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()
PlaySound “F:\Sound\30.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Command2_Click()
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

正确例题

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 Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Command2_Click()
If Text1.Text = “1” & “2” & “3” & “4” & “5” & “6” & “7” Then
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME

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

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

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

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

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

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

End If
End Sub

正确例题

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

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

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

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

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

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

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

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

End Sub

正确例题

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

PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC

PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC

PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC

PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC

PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC

PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC

PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC

End Sub

正确例题
Private Sub Form_Load()
WindowsMediaPlayer1.URL = “C:\Users\Administrator\Desktop\Alan Walker-Faded.mp3”
WindowsMediaPlayer1.Controls.play

End Sub

正确例题

Private Sub Form_Load()
WindowsMediaPlayer1.URL = “C:\Users\Administrator\Desktop\Alan Walker-Faded.mp3”
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.Controls.stop
End Sub

正确例题
Private Sub Label1_Click()
WindowsMediaPlayer1.URL = “F:\sounds\1.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

正确例题
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 Label1_Click()
PlaySound “F:\Sound\1.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label2_Click()
PlaySound “F:\Sound\11.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label3_Click()
playwavefile = PlaySound(“F:\Sound\31.wav”, 0&, lngflags)
End Sub

Private Sub Label4_Click()
playwavefile = PlaySound(“F:\Sound\41.wav”, 0&, lngflags)
End Sub

Private Sub Label5_Click()
playwavefile = PlaySound(“F:\Sound\51.wav”, 0&, lngflags)
End Sub

Private Sub Label6_Click()
playwavefile = PlaySound(“F:\Sound\57.wav”, 0&, lngflags)
End Sub

Private Sub Label7_Click()
playwavefile = PlaySound(“F:\Sound\61.wav”, 0&, lngflags)
End Sub

正确例题
Private Sub Label1_Click()
WindowsMediaPlayer1.URL = “F:\sounds\1.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Label2_Click()
WindowsMediaPlayer1.URL = “F:\sounds\2.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Label3_Click()
WindowsMediaPlayer1.URL = “F:\sounds\3.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Label4_Click()
WindowsMediaPlayer1.URL = “F:\sounds\4.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Label5_Click()
WindowsMediaPlayer1.URL = “F:\sounds\5.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Label6_Click()
WindowsMediaPlayer1.URL = “F:\sounds\6.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Label7_Click()
WindowsMediaPlayer1.URL = “F:\sounds\7.mp3”
WindowsMediaPlayer1.Controls.play
End Sub

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

Private Sub Label1_Click()
Beep 584, 400
End Sub

Private Sub Label2_Click()
Beep 984, 400
End Sub

Private Sub Label3_Click()
Beep 1584, 400
End Sub

Private Sub Label4_Click()
Beep 2784, 400
End Sub

Private Sub Label5_Click()
Beep 3784, 400
End Sub

Private Sub Label6_Click()
Beep 4784, 400
End Sub

Private Sub Label7_Click()
Beep 5784, 400
End Sub

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

Private Sub Form_KeyPress(keyascii As Integer)

If keyascii = 49 Then
Call Label1_Click

Else

If keyascii = 50 Then
Call Label2_Click

End If

If keyascii = 51 Then
Call Label3_Click

End If

If keyascii = 52 Then
Call Label4_Click

End If

If keyascii = 53 Then
Call Label5_Click

End If

If keyascii = 54 Then
Call Label6_Click
End If

If keyascii = 55 Then
Call Label7_Click

End If

End If

End Sub

Private Sub Label1_Click()

Beep 584, 400

End Sub

Private Sub Label2_Click()
Beep 984, 400
End Sub

Private Sub Label3_Click()
Beep 1584, 400
End Sub

Private Sub Label4_Click()
Beep 2784, 400
End Sub

Private Sub Label5_Click()
Beep 3784, 400
End Sub

Private Sub Label6_Click()
Beep 4784, 400
End Sub

Private Sub Label7_Click()
Beep 5784, 400
End Sub

正确例题

Private Sub Command1_Click()
MMControl1.FileName = “F:\Sound\51.wav”
MMControl1.Command = “open”
MMControl1.Command = “play”

End Sub

测试例题
If KeyAscii = 49 Then’如果按下的是1键，注意1的Asc码是49
Call Command1_Click’那么执行command1点击事件
End If

假设这个按钮是command1,你只需要1行代码就行了.
Command1.Default = True

正确例题
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 Label1_Click()
PlaySound “F:\Sound\41.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label2_Click()
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label3_Click()
PlaySound “F:\Sound\43.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label4_Click()
PlaySound “F:\Sound\44.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label5_Click()
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label6_Click()
PlaySound “F:\Sound\46.wav”, 0&, SND_ASYNC + SND_FILENAME
End Sub

Private Sub Label7_Click()
PlaySound “F:\Sound\47.wav”, 0&, SND_ASYNC + SND_FILENAME
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()

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 Command2_Click()
Dim I As Integer

For I = 1 To 50
Beep Rnd * 11784, 200

Next I
End Sub

EYYLTV
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
简单的VB6播放器 源码,vbs播放音频代码,Visual Basic
09-11
简单的VB6播放器，可播放视频，最大化播放视频。
VB从资源文件中播放wav音乐文件
追逐光芒，追随内心
09-27 425
第一步把 wav音乐文件存放到VB的资源里面，然后就可以调用了。注意以上资源的命名 "Sound", "Wave"'Res 文件读取时也不区分大小写。'音乐效果请“单击”
VBA关于声音的多种实现方法
热门推荐
奔跑的犀牛先生
01-31 1万+
1 在EXCEL里播放声音 1 如果是64位系统，需要加PtrSafe 关键字，否则不需要 Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal uFlags As Long) As Long sndPlaySound32(文件参数) 参数这写声音文件的绝对路径就行 Privat...
VB中播放WAV文件
wq1282的专栏
01-10 2180
http://zhidao.baidu.com/question/33440250.html 在模块中输入以下代码 Public Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Lo
钢琴程序vb源代码.zip
01-26
"播放声音程序 vb源代码" 标签指出该程序涉及声音播放技术，这通常需要对音频处理和波形合成有深入理解。VB提供了多种方法来处理音频，比如利用Microsoft Windows API或者第三方库来生成和播放音效。此外，这个标签...
vb播放声音钢琴程序代码正确例题.txt
01-26
自动演奏程序vb代码
vb播放声音钢琴程序源代码正确例题.txt
01-26
钢琴演奏vb代码
我的vb程序声音播放程序源代码.zip
02-15
通过分析这个VB声音播放程序的源代码，开发者可以学习到如何在VB环境下创建用户界面，如何与系统进行交互以播放音频，以及如何组织和控制程序流程。对于希望扩展或修改此程序的人来说，这是一个很好的起点，可以理解...
vb录音程序源代码1
07-09
在VB中，录音程序的关键在于调用操作系统提供的声音处理API，如waveInOpen、waveInAddBuffer、waveInStart等函数，这些函数属于Windows Multimedia Library。下面我会详细解释这些知识点： 1. **Windows API**：API...
VB6.0使用API编写的音频播放器.rar
07-10
VB6.0使用API编写的音频播放器，播放音频主要是AVI格式，基于纯API技术实现，本程序除了播放电脑中的AVI，还可以播放程序中的AVI音频，并且支持用命令播放、自动播放和居中播放等。调用了Shell32.dll。
VB6使用TTS实现文本朗读语音播报的源码，附TTS插件
08-26
win7x32、x64都测试通过，开发收款语音播报时用到了TTS，包内有TTS插件安装后再运行工程测试，文本朗读、语音播报代码都很简单
用VB做一个语音朗读软件
06-26
网上有不少语音朗读软件，但很多是共享的。自己动手编写一个语音朗读软件吧.
VB编程源代码 45播放.WAV文件，并显示其波形
06-05
VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形VB编程源代码 45播放.WAV文件，并显示其波形
VB中播放声音文件
dzf203的专栏
10-14 3818
在 某 些 情 况 下， 例 如 程 序 员 正 在 编 写 一 个 游 戏， 或 是 将 要 进 行 一 项 非 常 冗 长 无 聊 的 过 程， 可 以 通 过 播 放 音 乐 来 增 加 游 戏 的 声 光 效 果 或 是 减 少 漫 长 的 等 待 所 带 来 的 困 倦。本 文 介 绍 如 何 在microsoft visual basic 中 对 声 音 文 件 进 行 播 放。 播
VB6播放MP3小程序
夺宝奇兵的专栏
02-15 409
  翻译自 http://www.vb-helper.com/howto_play_mp3.html     本程序在 VB6.0 ， WINXP 中通过   程序使用 Command 属性把 MCI 命令发送给设备。要发送的命令与 MCI 控件的按钮的名称一致： Play ， Close 等。   当 Open 和 Play ...
--=== 让你的程序开始说话（在VB中使用文字朗读引擎（TTS）技术）===--
coolstar的调侃
05-04 3458
在VB中使用文字朗读引擎（TTS）技术（作者：许锦新　2001年04月10日 13:52）　　现今市面上流行的一些英语学习软件，在广告词上经常说自己使用了国际顶尖的全程语音TTS技术，能进行整段英文的流利朗读，并能自由调节朗读的速度与频率等。那么，这个神奇的TTS究竟是什么东西呢？ 　　其实，TTS是微软出品的一套文字朗读引擎（Text-To-Speech Engine)，这些英语软件就是调用它来
vb6测试操作系统是否支持TTS语音朗读功能
07-04 207
【代码】测试操作系统是否支持TTS语音朗读功能。
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、付费专栏及课程。

余额充值