189 8069 5689

vb.netbeep的简单介绍

vb beep不响应

解决方法如下:

成都创新互联公司长期为近千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为清徐企业提供专业的成都网站制作、网站建设,清徐网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。

在控制面版中的声音和音频设备中的声音选项卡中给默认响声设置一个声音.Beep 是调用系统的 默认响声设置的声音来发声的, 如果没设置就没有声音。

beep是异步执行的,没有延时作用(也就是说在喇叭发声的时候,程序是不停顿的,继续执行的)。要延时要用api函数sleep,比如sleep 500是延时500毫秒(即0.5秒),或者用计时器控件(timer)来实现。

我在VB.net程序中加了Beep没有用!

用Console.Beep(int,int)这个方法就可以了。

另外,建议把提示出错的代码直接放入Catch中,提示鸣放的代码放入Try中。

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 提示音 beep

这个本来就是调用主板报警音得。你应该可以想象得到,因为就算你没有音响得时候,也是可以听到哪个提示音,是可大可小,可是哪个根据高低位音,比较复杂,建议你用别得提示音,比如多媒体控件。

在vb里,我调用beep函数,为什么发不出声音啊,我是希望当文本框的输出的数值大于某个数时就发出声音

使用VB自身的BEEP函数,在有些PC机上不能正常发声,为了解决使用VB自带的BEEP函数不能正常发声,我们可以使用API完成这个功能。

需要做的很简单:

在声明中加入一句:

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

然后使用 格式:

beep fre,dly

即可完成响声。其中:fre是声音的频率,通俗讲就是声音的高低音,声音频率(从37Hz到32767Hz)。在windows95中忽略。

dly是响一声的长短,声音的持续时间,以毫秒为单位。如为-1,表示一直播放声音,直到再次调用该函数为止。在windows95中会被忽略。

举例:

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

Private Sub Command1_Click()

If TempText.Text "13" Then

Beep 2000,3000 '2000是声音的高低,3000是延长的时间(ms)

end if

End Sub

vb.net中如何播放声音,是要什么控件嘛?

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的声音文件的路径


文章名称:vb.netbeep的简单介绍
文章出自:http://cdxtjz.com/article/hecgje.html

其他资讯