VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 5044|回复: 10

[推荐] WAV读取+波形显示+快速缩放

[复制链接]
 楼主| 发表于 2009-8-23 11:20:49 | 显示全部楼层 |阅读模式
在一个外文网站上看到的,觉得很不错,特别是实现缩放的速度,有兴趣的可以看看。

http://www.vbaccelerator.com/hom ... _Viewer/article.asp

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
 楼主| 发表于 2009-8-23 11:23:57 | 显示全部楼层
我仅仅加了一个Windows XP.wav,windows登陆的声音文件,还没有仔细看的,哈哈。
回复 支持 反对

使用道具 举报

发表于 2009-8-23 14:19:39 | 显示全部楼层
LZ应该说“在vbAccelerator”上看到的……不过这个程序好像只能读取部分wav而已……
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-23 17:33:51 | 显示全部楼层
本帖最后由 xuqin3 于 2009-8-24 09:48 编辑

反正就是下面那儿网址上的,英文的,不太懂。
私下真的怀疑楼上看没看帖子,具体网址都有的。
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Audio/WAV_File_Viewer/article.asp

其实我对支持不支持wav也不太关心的,觉得绘曲线做得很好:数据量大,快,没有闪动。
实现方式也不错,控件方式,最重要的是控件还是开源的,可能对大家更有参考价值。
回复 支持 反对

使用道具 举报

发表于 2009-8-23 18:14:43 | 显示全部楼层
4# xuqin3

用API: PolyLine+cDibSection就又快又不闪……
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-23 19:53:47 | 显示全部楼层
简单看了一下代码,也应该是LineTo+MoveToEx的方法。
学习的话下面这个例子简单些,也许更好。
http://www.vbgood.com/viewthread.php?tid=69867&extra=page%3D1

对于楼上讲的PolyLine+cDibSection,我还不太懂,也很想看到个例子,不知道还能给写个简单的样例?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-23 20:46:00 | 显示全部楼层
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub Timer1_Timer()
Static s, l1, l2
v = Sin(s * 314) * 80 + 100
BitBlt Picture1.hDC, 0, 0, 598, 200, Picture1.hDC, 2, 0, &HCC0020
Picture1.Line (597, l2)-(599, l1), 0
Picture1.Line (597, l1)-(599, v)
s = s + 1
l2 = l1: l1 = v
End Sub
刚才溜达到的代码,利用BitBlt实现移位。
回复 支持 反对

使用道具 举报

发表于 2009-8-24 00:00:23 | 显示全部楼层
6# xuqin3

PolyLine你自己查MSDN啊……画折线的API函数,肯定比一次画一点效率高吧……cDibSection只要在vbgood搜索一下,下载回来就行了……
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-24 09:46:36 | 显示全部楼层
晕倒,昨天我就百度过了。
如果有个十行的例子,再有详细的注释,大家学起来就会省很多时间的啊。
楼上写了那么多游戏,何必吝啬这几行代码呢?
回复 支持 反对

使用道具 举报

发表于 2009-8-25 08:32:54 | 显示全部楼层
VBAccelerator上的东西需要很多东西的支持,虽然大部分都有源码,但是下载的时候他没有打包,还要自己上去找丢失的部件。很麻烦。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-4 23:50

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表