用VB实现数字波形显示程序

　　参数：

　　hdc:设备环境句柄。

　　X:定义新位置的X坐标（逻辑坐标）。

　　Y:定义新位置的Y坐标（逻辑坐标）。

　　lpPoint:指向一个POINT结构，结构中存放原先的位置。若此参数为NULL,则不返回原先的位置

　　返回值：若函数调用成功，则返回非0值；若函数调用失败，则返回值为0。

　　在连接线段时，首先将检测数据放入一个数组中，用MoveToEx函数定位画线的起始点坐标，然后用LineTo函数画出起始点至下一个点之间的线段，再用MoveToEx将画线的起始点定位到下一个点，继续用LineTo函数画线，如此循环，即可将离散点连接成波形。

　　例：

　　zz = MoveToEx(Picture1.hdc, i, Mwave(i ), LpPoint1)

　　zz = LineTo(Picture1.hdc, i, Mwave(i+1))

　　其中：Picture1是显示波形的图片框。

　　Mwave是存储检测波形的数组。

　　LpPoint1可按如下方式定义为自定义类型，用于返回起始点坐标。

　　Type POINTAPI

　　X As Long

　　Y As Long

　　End Type

　　Public LpPoint1 As POINTAPI

　　2.3 在VB中声明Windows API函数

　　用Windows API函数可以实现波形的快速显示，但在使用Windows API函数之前，需在VB中对要使用的API函数用Declare语句声明。声明形式主要有两种：如果该API有返回值，应将其声明为Function函数；如果该API没有返回值，可将其声明为Sub函数。声明形式如下：

　　Declare Function apiname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type][,[ByVal] variable [as type]]…])] as Type;

　　Declare Sub apiname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type][,[ByVal] variable [as type]]…])];