WAV读取+波形显示+快速缩放

xuqin3

在一个外文网站上看到的，觉得很不错，特别是实现缩放的速度，有兴趣的可以看看。

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

xuqin3

我仅仅加了一个Windows XP.wav，windows登陆的声音文件，还没有仔细看的，哈哈。

acme_pjz

LZ应该说“在vbAccelerator”上看到的……不过这个程序好像只能读取部分wav而已……

xuqin3

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

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

acme_pjz

4# xuqin3

用API: PolyLine+cDibSection就又快又不闪……

xuqin3

简单看了一下代码，也应该是LineTo+MoveToEx的方法。
学习的话下面这个例子简单些，也许更好。
http://www.vbgood.com/viewthread.php?tid=69867&extra=page%3D1

对于楼上讲的PolyLine+cDibSection，我还不太懂，也很想看到个例子，不知道还能给写个简单的样例？

xuqin3

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实现移位。

acme_pjz

6# xuqin3

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

xuqin3

晕倒，昨天我就百度过了。
如果有个十行的例子，再有详细的注释，大家学起来就会省很多时间的啊。
楼上写了那么多游戏，何必吝啬这几行代码呢？

KusoSoft

VBAccelerator上的东西需要很多东西的支持，虽然大部分都有源码，但是下载的时候他没有打包，还要自己上去找丢失的部件。很麻烦。