欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB,VB.NET源代码交流的平台,为大家提供优质的专业的源代码,如果您有需要,本站可以帮助在业余时间里给您寻找代码。当然,如果您有好的代码也可以在本站发布,共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
05-04
23
VB版的真正Wav声音波型分析代码
作者:枕善居主 / 查看次数: 9990 / 评论: 12
呵呵,看了标题可以看出这个代码的分量,据作者声称这可是这正的声音波型文件软件,程序可以生产Wav声音文件的波型及频率、采样周期,并可以缩放波型,存储波型等,功能自己下载看吧。
界面:
一、启动界面

二、波型观察仪界面

三、频率采样分析界面

四、MDI窗口界面

晕,到现在我也是用不了,打开WAV文件都显示“错误!!”!啥意思啊?
Private Sub mnuOpenItem_Click()
CommonDialog1.Filter = "声音文件 (*.wav)|*.wav"
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
MousePointer = 11 'hourglass
LoadNewFile (CommonDialog1.FileName)
MousePointer = 0
Exit Sub
End If
Errhandler:
Exit Sub
这段代码报错
CommonDialog1.Filter = "声音文件 (*.wav)|*.wav"
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
MousePointer = 11 'hourglass
LoadNewFile (CommonDialog1.FileName)
MousePointer = 0
Exit Sub
End If
Errhandler:
Exit Sub
这段代码报错
如何适时的得到麦克风录入的声音频率
Vansoft [2006-05-08 09:17 PM]把代码中的如下部分:
For N = 1 To 100
X$ = Input(4, #1)
If X$ = "fmt " Then Exit For
Next N
改为:
For N = 1 To 100
X$ = Input(3, #1)
If X$ = "mt " Then Exit For
Next N
OK,世界清静了
修改这个就不会提示错误了
For N = 1 To 100
X$ = Input(4, #1)
If X$ = "fmt " Then Exit For
Next N
改为:
For N = 1 To 100
X$ = Input(3, #1)
If X$ = "mt " Then Exit For
Next N
OK,世界清静了
修改这个就不会提示错误了
把代码中的如下部分:
For N = 1 To 100
X$ = Input(4, #1)
If X$ = "fmt " Then Exit For
Next N
改为:
For N = 1 To 100
X$ = Input(3, #1)
If X$ = "mt " Then Exit For
Next N
OK,世界清静了。
For N = 1 To 100
X$ = Input(4, #1)
If X$ = "fmt " Then Exit For
Next N
改为:
For N = 1 To 100
X$ = Input(3, #1)
If X$ = "mt " Then Exit For
Next N
OK,世界清静了。
我机子上所有WAV文件都打不开。
包括系统本身的那些声音,在WINDOWS的Media文件夹下的。
包括系统本身的那些声音,在WINDOWS的Media文件夹下的。
用不了啊,老大。
发表评论
您没有权限发表评论!
上一篇
下一篇
相关日志:
文章来自:
Tags:
评论: 12 |
回复


可以教授一下怎么从麦克风录入吗