电脑没声音啦

电脑没声音啦,第1张

要检查控制面板里的声音程序,选择更改系统的声音。具体步骤:1、首先要检查电脑的声音程序。我们点击开始按钮,选择控制面板查找声音程序。2、进入控制面板后,我们选择硬件和声音按钮。3、进入硬件和声音界面后,我们选择声音按钮。4、在声音界面,我们首先选择调整系统的音量进行查看,有时候我们无意的把系统的音量关闭了,如果音量关闭我们拉动音量条,进行调整音量的大小。5、接下来我们在声音界面,选择更改系统的声音,我们选择一个声音进行测试,检查是否有声音出来。6、如果声音测试没有听到声音,我们在声音界面选择管理音频设置,查看有无音频设备接入电脑,比如耳机或者音箱等设备。如果没有发现设备接入,需要检查电脑的音频接口是否正常或者是音频设备是否正常。7、如果这时电脑还没有声音,我们就需要检查电脑的音频驱动是否正常。我们右毁腔乎键点击计算机在d出的菜单选择管理按钮。8、进入圆敬管理界面,我们选择设备管理按钮。9、在设备管理器查看,音频的驱动是否正常,如果正常电脑就可以播放声音了。如果音频驱动出现问号或者是感叹号代表声音驱动不正常,需要重纤悉新安装声音的驱动,安装完成后,就可以正常的播放声音了。注意事项:电脑的杀毒软件,也会造成音频驱动不正常,我们在使用杀毒软件杀毒时注意查看杀毒内容。

参扒源数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

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


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/12437960.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-25
下一篇 2023-05-25

发表评论

登录后才能评论

评论列表(0条)

保存