VB中通过外部信号给一个上升沿，TIMER执行10次

通过RS232的串口的接收端(有5v和9v）两种，接收到用doevent 将tiemer.enable=true；

在Timer.timer事件中春败循环弊誉十次，然后timer.enable=false 并且变量十次为0；租森段

采集数据的时候，历举把每次采集到的数据和上一次采集到的数据比较大小，来判断是上升沿或下降沿。

比如：用timer控件周期采样，采集到的数据存在x变量里

public sub timer1_timer()

static x

dim y

y=x '把x的旧值临时纳烂谨存在y变量里

x=... '采集新的数据

if y>x then 'y>x表示上升沿

....

end if

end sub

但洞基是这么做要保证触发timer事件的时间间隔和采样速率要匹配！

---