ifix的按钮发脉冲
好多同事问ifix的按钮发脉冲，好像不如wincc简单，呵呵，其实一样子的，各有各的长处，现有几种方法可以让ifix的按钮发脉冲。
山东大学排名测试环境：ifix4.0，启动按钮（CommandButton1），启动对应的变量unity_start(DO)
1、编写脚本，脉冲时间由PauseTime设定
Private Sub CommandButton1_Click()
    Dim PauseTime, Start
        CloseDigitalPoint "UNITY_START"
            PauseTime = 5 ' 设置暂停时间。
            Start = Timer ' 设置开始暂停的时刻。
            Do While Timer < Start + PauseTime
                DoEvents ' 将控制让给其他程序。
            Loop
        OpenDigitalPoint "UNITY_START"
如何申请大病救助金End Sub
2、编写脚本，鼠标按下变量置1，鼠标弹起变量置0
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    writevalue "1", "UNITY_START"
End Sub
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    writevalue "0", "UNITY_START"
End Sub
3、当前画面中按钮按下变量置1，切换画面时自动将变量置0
---------------------------------------------------
Private Sub CommandButton1_Click()
       writevalue "1", "UNITY_START"
End Sub
---------------------------------------------------
Private Sub CommandButton3_Click()
    writevalue "0", "UNITY_START"
    openpicture "f"                ' 打开其他画面
    closepicture "f"         ' 关闭当前画面
End Sub
2、脉冲输出示例
 Dim PauseTime, Start 
CloseDigitalPoint "Fix32.FIX.DDD.F_CV" 
PauseTime = 0.8  " 设置暂停时间。   
Start = Timer  " 设置开始暂停的时刻。 
母亲节给妈妈发多少红包合适  Do While Timer < Start + PauseTime   
 DoEvents  " 将控制让给其他程序。 
  Loop 
OpenDigitalPoint "Fix32.FIX.DDD.F_CV" 
自己做的323合介泵急停按钮（一切换画面就变  郁闷）
Private Sub CommandButton3_Click()
writevalue "1", "Fix32.FIX.BPJT.F_CV"
writevalue "0", "Fix32.FIX.BPJT.F_CV"
郭涛图片End Sub
Private Sub CommandButton3_Click()
Dim PauseTime, Start
        CloseDigitalPoint "Fix32.FIX.BPJT.F_CV"
            PauseTime = 2 ' 设置暂停时间。
            Start = Timer ' 设置开始暂停的时刻。
            Do While Timer < Start + PauseTime
郁金香怎么养
                DoEvents ' 将控制让给其他程序。
            Loop
        OpenDigitalPoint "Fix32.FIX.BPJT.F_CV"
End Sub
用VBA脚本关闭iFIX工作台
2014-03-29 21:00:34   来源：   评论：0 点击：8
当在运行模式下打开iFIX工作台，关闭工作台窗口的一个方法是通过使用Quit Method的一个VBA命令脚本。当限制工作台窗口的其它部分时，例如标题栏和菜单，该方法是有帮助的，这将正常地用来退出运行模式下的工作
当在运行模式下打开iFIX工作台，关闭工作台窗口的一个方法是通过使用Quit Method的一个VBA命令脚本。当限制工作台窗口的其它部分时，例如标题栏和菜单，该方法是有帮助的，这将正常地用来退出运行模式下的工作台应用程序。
例如，如果启用了环境保护，限制菜单和标题栏，可能想要提供一个按钮，关闭在运行模式下打开的工作台窗口。
另外一个例子是来自View中，如果在运行模式下打开了iFIX工作台的浮动窗口，不包括菜单或标题栏。 在这种情况下，可能也想要在画面中包含一个按钮，可以单击来关闭工作台窗口。
需要明确的是，如果启用了安全，用户配置文件将不限制“工作台运行时退出”特性。 有关配置安全特性的更多信息，请参考实现安全手册中的应用程序特性部分。
提示：如果安全配置允许用户关闭工作台，也可以使用Alt+F4键盘快捷键来关闭运行模式下的工作台窗口。
示例
下面的脚本从iFIX画面中的按钮使用Quit方法。 在画面中，该按钮包含一个标题“关闭窗口”。 在运行模式下，单击关闭窗口按钮时，脚本显示一个消息框，显示是否想要关闭该工作台。 单击“是”关闭工作台窗口。
Private Sub CommandButton1_Click()
Dim lAccess As Long
感应卫浴Dim Msg, Style, Title, Response
Msg = "Are you SURE you want to exit the workspace?"
Style = vbYesNo + vbQuestion
Title = "Workspace Exit"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Application.Quit 3
End If
End Sub
注意：创建脚本时，不要求包含确认消息框。 可以使用不带有消息框的Quit方法。