网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

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

vb.net 判断声卡是否驱动

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

怎么通过程序检测系统有声音发出?

参数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)

x = sndPlaySound(fil, &H1 Or &H2)

sound = x

Case 2

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

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, &H1 Or &H2)

sound = x

Case 3

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

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, &H1 Or &H2)

sound = x

Case 4

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

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, &H1 Or &H2)

sound = x

Case 5

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

x = sndPlaySound(0, 0)

x = sndPlaySound(fil, &H1 Or &H2)

sound = x

Case Else

sound = 0

End Select

End Function

新定义的调用声音函数格式为:sound(n),其中n的取值为1至5的正整数。利用此函数可调用5个不同的声音文件。下面是使用sound函数的演示程序:

①如图在form窗口设置6个命令控件;

②在这些命令控件的Click事件中入分别输入以下代码。

Private Sub Command1_Click()

l = sound(1)

End Sub

Private Sub Command2_Click()

l = sound(2)

End Sub

Private Sub Command3_Click()

l = sound(3)

End Sub

Private Sub Command4_Click()

l = sound(4)

End Sub

Private Sub Command5_Click()

l = sound(5)

End Sub

Private Sub Command6_Click()

End

End Sub

运行程序后,单击有关按钮就能调用所指定的声音文件,发出各种声音


分享标题:vb.net判断声卡输出的简单介绍
文章地址:http://bjjierui.cn/article/phcpgd.html

其他资讯