用VB实现发声的几种方法
发布网友
发布时间：2022-05-27 12:56
我来回答
共2个回答
热心网友
时间：2023-10-23 22:37
ＳｕｂＣｏｍｍａｎｄ＿Ｃｌｉｃｋ ＢｅｅｐＥｎｄＳｕｂＢｅｅｐ函数不用调用声音文件，即可使微机发声，所以无法人为控制声音内容，以下三种方法均是对于声音文件的操作与运行。２多媒体控件在ＶＢ中使用的多媒体ＭＣＩ控件可以管理媒体控制接口 ＭＣＩ 设备上的多媒体文件的录制与播放，这个控件可用命令来控制下列设备：声卡、ＭＩＤＩ序列发生器、ＣＤ－ＲＯＭ驱动器、音频ＣＤ播放器、视盘播放器、视带录制／播放器等等。多媒体控件还可让你播放ＷＡＶ和ＭＩＤ声音文件及演示ＡＶＩ和ＭＰＧ视频文件。当然，在使用多媒体控件之前先得完成此控件的添加：Ｐｒｏｊｅｃｔ／Ｃｏｍｐｏｎｅｎｔ／ＭｉｃｒｏｓｏｆｔＭｕｌｔｉｍｅｄｉａＣｏｎｔｒｏｌ项。要实现多媒体的播放，先得指定需播放的声音文件的位置，声音文件可有以下几种类型：ＷＡＶ、ＭＩＤ、ＡＶＩ、ＭＰＧ等可识别格式的文件。要指定多媒体控件中使用的文件，可以设置控件的Ｆｉｌｅｎａｍｅ属性，并打开这个文件（多媒体控件的按钮一旦激活，用户就可播放这个文件了），设置控件的Ｃｏｍ......(本文共计3页)
热心网友
时间：2023-10-23 22:38
简单实用的beep命令发省
Beep 2400, 100 ‘ beep 频率，毫秒时长
调用api，打开声音文件
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
例如：
ShellExecute(me.hWnd, "open", "c:\temp\1.wav", "", "", 1)
调用api函数 mciSendString播放声音
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
例如：
mciSendString "open " & “c:\temp\1.wav” & " alias wav", String(255, " "), 255, 0
mciSendString "play wav ",String(255, " "), 255, 0
if f_MciChkEnd() then mciSendString "close wav ",String(255, " "), 255, 0
Function f_MciChkEnd()
Dim MCIStatus As String * 255
Dim lA
f_MciChkEnd = False
lA = mciSendString("status wav mode", MCIStatus, Len(MCIStatus), 0)
If UCase(Left$(MCIStatus, 7)) = "STOPPED" Or Left$(MCIStatus, 2) = "结束" Then
f_MciChkEnd = True
end if
End Function
用VB实现发声的几种方法
２多媒体控件在ＶＢ中使用的多媒体ＭＣＩ控件可以管理媒体控制接口 ＭＣＩ 设备上的多媒体文件的录制与播放，这个控件可用命令来控制下列设备：声卡、ＭＩＤＩ序列发生器、ＣＤ－ＲＯＭ驱动器、音频ＣＤ播放器、视盘播放器、视带录制／播放器等等。多媒体控件还可让你播放ＷＡＶ和ＭＩＤ声音文件及演...
vb怎么设计叫号另外的电脑发出声响
1、可以设计为服务端-客户端形式 2、用winsock控件通讯 3、客户端收到服务端发来的消息后，驱动发声。
visual basic 怎么让声音随程序播放?
VB可以用于输出声音的方法很多，归结一下，大概有以下四种： 1.利用Beep语句 这是VB系统提供的一条利用计算机扬声器发声的语句，它只能够发出简单的蜂鸣声，但在应用程序中大量用于输出警告的信息。如下例允许用户在文本框中输入数字，当用户输入错误时，系统会报警提示。Sub Text1_KeyPress (keyascii As ...
...希望当文本框的输出的数值大于某个数时就发出声音
使用VB自身的BEEP函数，在有些PC机上不能正常发声，为了解决使用VB自带的BEEP函数不能正常发声，我们可以使用API完成这个功能。需要做的很简单：在声明中加入一句：Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 然后使用 格式：beep fre,d...
VB怎样让声卡发声
使用API函数，可以播放音乐！Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName ...
VB语音叫号怎么实现
function Speak(s) dim vos '定义变量 Set vos = CreateObject("sapi.spvoice") '创建发声对象 vos.speak s '发出声音end function
用VB[basic语言]让电脑发声的程序怎么写
' -=-=-=- 方法 -=-=-=-=- ' mmOpen <Filename> 打开要播放的文件 ' mmClose 关闭当前文件 ' mmPause 暂停 ' mmStop 停止 停止后可以跳到开始再次播放 ' mmSeek <Position> Seeks to a position in the file ' mmPlay 播放 '--- Private sAlias As String '别名 'Private hWnd A...
观于VB中beep
VB中，beep声音与Windows的自身设置有关。比如98和XP就不一样。通常情况下我们用beep，有的时候可以用API函数，有更多的用法。 在QBasic中，beep应当是sound的简化，是使机箱中的喇叭发声。 不好意思，前面我记错了。
vb 用beep为什么发不出声
在控制面版中的声音和音频设备 中 的声音选项卡中 给默认响声 设置一个声音.Beep 是调用系统的 默认响声 设置的声音来发声的. 如果没设置就没有声音.
用VB给打地鼠程序添加声音
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 然后把下面这行代码添加到你需要播放声音的位置 sndPlaySound App.Path & "/msg.wav", 17 在程序目录下，放一个音频文件msg.wav，就OK了。因为...
