vb.net判断声卡输出的简单介绍

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net怎么编程实现从音频输出口输出指定频率指定时长和占空比的单音信号。

1.用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：

先声明：

Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = H20000

Const SND_ALIAS As Integer = H10000

Const SND_SYNC As Integer = H0

具体还有很多常量，不一一列举，下面是播放一个wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。

当然我们也可以调用系统的声音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式调用系统启动时候的声音。

2．调用媒体播放器控件

VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。

首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\爱不爱我.mp3"

.Play()

End With

End Sub

相关问答

Q1: vb.net 判断声卡是否驱动

95%的电脑目前的声卡是版载的, 所以首先确定自己已经装了原盘中的声卡驱动.然后最简单的方法就是播放一个音频文件, 有声音自然就是驱动已经装.再来就是在"我的电脑"上右键 - 硬件 - 硬件管理器 - 看看声音一栏下有没有黄色问号, 没有的话证明一切正常

Q2: 怎么通过程序检测系统有声音发出？

参数1描述要播放的声音文件的位置和文件名；参数2的取值能决定播放声音的模式。参数2的主要取值介绍如下：

取＆H0时：为同步播放模式；

取＆H1时：为异步播放模式；

取＆H2时：当声音文件未找到就停止播音返回；

取＆H8时：为循环播放模式。

当调用函数成功，就播放有关声音文件，并且函数的返回值为非0；函数调用失败，函数的返回值为0。

定义调用声音文件函数的具体步骤如下：

①在C盘根目录上建立一个名为Sound的文件夹，在此文件夹中放入5个你所需要的声音文件；

②在VB5.0状态进入“工程”菜单中的“添加模块”再选用“新建”中的“模块”；

③在模块的“通用”中输入下面代码，进行调用API函数的声明；

Declare Function sndPlaySound Lib "winmm.dll" Alias

“sndPlaySoundA" (ByV al lpszSoundName As String, ByVal uFlags As Long) As Long

Dim fil As String

④在模块中输入以下代码，定义调用声音文件函数。

Public Function sound(n As Integer) As Integer

Dim x As Integer

Select Case n

Case 1

fil = "c:\sound\beep3.wav"

x = sndPlaySound(0, 0)