发表于:2007-03-11 06:02:00
4楼
1.在USER.FXG中添加如下代码:
Sub Pause(sPauseTime As Integer)
Dim Start, Finish
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + sPauseTime
DoEvents ' 将控制让给其他程序。
Loop
Finish = Timer
End Sub
使用时在按键脚本中调用:
WriteValue "1" Fix32.XXXXX.F_CV
Pause (x),x等于脉冲长度,单位为秒
WriteValue "0" Fix32.XXXXX.F_CV