当前位置：文档之家 › ifix的一些常用代码

ifix的一些常用代码

  • 格式：pdf
  • 大小：106.26 KB
  • 文档页数：9

Email：zdhzlp@163.com

第 1页 共 9页 1、 从后台调度中访问或修改全局变量的代码 描述: 在iFIX中使用调度要后台运行的时候需要启动FixBackgroundServer程序，而该程序实际上是启动了独立于Workspace的进程,所以在后台调度中不能直接访问全局变量。下面的例子代码描述了怎样访问的方法： " First get a pointer to the Application object in the Workspace Dim WrkSpcApp As Object Set WrkSpcApp = GetObject("", "Workspace.Application") " Get a pointer to the Variable object called Variable1 in the User globals Dim TargetVar As Object Set TargetVar = WrkSpcApp.Documents("User").Page.FindObject("Variable1") " Set the current value in the variable object to a 1 TargetVar.CurrentValue = 1 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" 3、显示通讯状态 Is there a way to view communication status of the driver without using Mission Control? Resolution Using a digital input block reading a hardware register, the A_cualm field will be utilized. Chain the DI block to an event action block to a digital output tag using the SIM driver. In the event action block use the following script: IF the A_cualm =com Then set DO =1 Else set the DO=0 A data link can be made to the Sim block. The value of this block will determine the status of the communcation. 4、用VBA脚本打开和关闭调度 为了打开和关闭调度，必须用下列方法： Email：zdhzlp@163.com

第 2页 共 9页 打开一个名字为“ddd”的调度： Application.Documents.Open "C:\Dynamics\pdb\ddd.evs" 关闭一个名字为“ddd”的调度： Application.Documents("ddd").Close 注意：关闭调度时不用扩展名 .evs 。 5、在后台调度中访问画面中的对象 在调度中中的脚本不能直接访问画面中的对象。 办法： 使用FindObject方法： Dim AppObj as Object Dim PicObj as Object set AppObj = GetObject ("","Workspace.Application") set PicObj = AppObj.System.FindObject ("Pic.Obj") PicObj.Value = 5 Pic为画面的名字，picObj 为所用的对象的属性或方法。 6、怎样用程序控制7.X版本的驱动程序的datablocks, devices, or channels扫描的启停 在应用过程中可能希望灵活的控制驱动程序中的某一个Channel或Device或Datablock,以下介绍两种方法: 6.1.通过编写脚本: 本例子是用脚本来控制第一个Channel的第一个Device的第一个Datablock的,如果你想控制Channel或Device,只需将channel handle或device handle象本例中的Datablock赋给SetPropertyData function即可: Dim objDriver As Object Dim strDRVAcronym As String Dim strProgId As String "Variables for GetChannel Dim lngNumChannels As Long Dim lngChanHandles Dim strChanNames "Variables for GetDevices Dim lngNumDevices As Long Dim lngDeviceHandles Dim strDeviceNames "Variables for GetDataBlocks Dim lngNumDataBlocks As Long Dim lngDataBlockHandles Email：zdhzlp@163.com

第 3页 共 9页 Dim strDataBlockNames Dim lngErrors Dim myvar As Long strDRVAcronym = InputBox("Please enter the driver""s three letter acronym?" & vbCrLf & "(For Example: Enter ABR for the ABR Driver)", "What Driver are you using?") strProgId = "Intellution." & strDRVAcronym & "drv" Set objDriver = CreateObject(strProgId) lngNumChannels = objDriver.GetChannels(lngChanHandles, strChanNames) lngNumDevices = objDriver.GetDevices(lngChanHandles(0), lngDeviceHandles, strDeviceNames) lngNumDataBlocks = objDriver.GetDataBlocks(lngDeviceHandles(0), lngDataBlockHandles, strDataBlockNames) ""Build Variables for SetPropertyData function. lngHandle = lngDataBlockHandles(0) varProperties = "Enabled" varProperyData = "1" lngErrors = objDriver.SetPropertyData(lngHandle, varProperties, varProperyData) Set objDriver = Nothing 6.2.大多7.X的驱动程序都有一些特殊的控制地址可以用来控制驱动程序中的Server,group,item的扫描状态,可以查看相应驱动程序的帮助中以"惊叹号"开头的一些特殊地址: !MODE - Enables polling to the server, group, or item specified when a value of 1 is written to a Digital Output block (Analog Output blocks are not supported). Disabling a specified object occurs when a value of 0 is written to a Digital Output block. You can create a database block with the address !MODE:Datablock1 and trigger it manually, through VBA code, or through a Program Block. 7、用VBA在一个基于时间的后台调度中计算偏差的例子 你可能想计算在一个指定的时间段内开始时间和结束时间的偏差，在后台调度中用一个定时器来实现 方法： 本例为怎么样取在一个特定时间的开始和结束时的值并计算差值。它用了两个全局变量和一个基于时间的后台的调度： 1. 创建两个全局变量： "StartSample" 和 "Initialized"". 2. 设置变量的属性： "StartSample" -- "Long" ；"Initialized" -- "Boolean"。 其中 "Initialized" 初始值为 "False"。 3. 创建一个基于时间的调度，时间间隔为 00:00:10。 4. 用自定义脚本并写入以下脚本。 5. 确认改变tag reference到相应的node 和 tag。 6. 脚本写好后保存调度并设置为用后台运行调度。 7. 例子启动后会弹出对话框表面例子初始化了。 Email：zdhzlp@163.com

第 4页 共 9页 8. 之后该对话框会显示起始值，终止值和该段时间两者的差值。 注意：不要忘了将FixBackgroundServer.exe 加到启动任务配置中去。 脚本： ----------------------------------------------------------------------------------------------------------- Private Sub FixTimer3_OnTimeOut(ByVal lTimerId As Long) Dim objWrkSpc As Object Dim objStartVar As Object Dim objInit As Object Dim lngEndVar As Long Dim lngDelta As Long ’get Workspace object and global variables contained in workspace Set objWrkSpc = GetObject("", "Workspace.Application") Set objStartVar = objWrkSpc.Documents("User").Page.FindObject("StartSample") Set objInit = objWrkSpc.Documents("User").Page.FindObject("Initialized") "Check to see if this is the first time the script is being fired. "If so, initialize the StartSample variable with a value from the desired tag "and set the Initialized flag to true. If the script has been fired once then "take the end sample, calculate the difference and then store a new start sample. If objInit.CurrentValue = True Then lngEndVar = readvalue("Fix32.NODE.TAG.F_CV") lngDelta = lngEndVar - objStartVar.CurrentValue MsgBox "START: " & objStartVar.CurrentValue & " END: " & lngEndVar & _ " DIFFERENCE: " & lngDelta objStartVar.CurrentValue = readvalue("Fix32.NODE.TAG.F_CV") Else objStartVar.CurrentValue = readvalue("Fix32.NODE.TAG.F_CV") MsgBox "StartSample initialized to " & objStartVar.CurrentValue objInit.CurrentValue = True End If "Destroy objects Set objWrkSpc = Nothing Set objStartVar = Nothing Set objInit = Nothing End Sub 8、VB中读取iFIX点 This sample code will read data from an iFIX tag. "declare a few objects Dim objWorkspace As Object Dim objDataItem As Object "get reference to the workspace

合集下载

iFix脚本应用之历史趋势

iFix脚本应用之历史趋势

目录

目录 ....................................................................................................................................................

应用背景 ............................................................................................................................................

VBA_iFix能做什么？ .........................................................................................................................

iFix历史趋势画面组态常用的一些VBA操作语句 .........................................................................

可能会遇到的问题及解决办法 ........................................................................................................

脚本自动生成的需求背景 ................................................................................................................

fortran 三角函数

fortran 三角函数

fortran 三角函数

Fortran是一门古老的编程语言，最初由IBM公司在20世纪50年代开发。它的全称是Formula Translation，因为最初它是用来进行科学和工程计算，特别是数值计算的语言。Fortran具有很强的数学运算能力，自然而然地也就包含了各种三角函数的计算。

在Fortran中，三角函数可以使用数学库函数来计算。Fortran的数学库包含了许多用于科学计算的函数，包括三角函数，对数函数，指数函数等等。下面是Fortran中常见的三角函数及其用法：

1. sin函数

Sin函数可用于计算给定角度的正弦值。Fortran命令为sin(x)，其中x是以弧度为单位的角度。要计算30度的sin值，可以使用以下Fortran代码：

program sin_example

implicit none

real :: sin30

sin30 = sin(30*3.14159/180)

write(*,*) sin30

end program sin_example

在这个例子中，我们将30度的值转换为弧度，并将结果存储在sin30变量中。我们输出sin30的值。

2. cos函数

Cos函数可用于计算给定角度的余弦值。Fortran命令为cos(x)，其中x是以弧度为单位的角度。要计算60度的cos值，可以使用以下Fortran代码：

program cos_example

implicit none

real :: cos60

cos60 = cos(60*3.14159/180)

write(*,*) cos60 end program cos_example

在这个例子中，我们将60度的值转换为弧度，并将结果存储在cos60变量中。我们输出cos60的值。

有关iFIX软件报表生成的说明

有关iFIX软件报表生成的说明

有关iFIX软件报表生成的说明

iFIX软件可以通过内置的VBA借助EXCEL，ACCESS，Crystal

Roport等软件生成报表。本文通过 VBA+ADO+EXCEL 做一个具体的

介绍。

1． VBA(Visual Basic for Application)

VBA是iFIX完全内置的一个强有力的编程工具，可以使用

户快速方便的生成自动的操作任务和过程自动化的解决方案。

IFIX的VBA工具包括以下特性：

 可操作所有列出的iFIX对象的属性，方法和事件

 支持多种数据源，包括iFIX过程数据库，任何OPC服务器，

任何对象的属性和SQL数据库

 ODBC支持

 ActiveX控件支持

 VBA脚本生成向导及IFIX命令可以帮助你为常用任务自动

生成程序代码

 第三方控件的安全容器

下面的程序代码就是在iFIX中建立一个新的EXCEL应用程序

并打开报表模版。

Dim msexcel As Excel.Application

Set msexcel = CreateObject("Excel.Application")

With msexcel

.Visible = True

.Workbooks.Open "e:\histdemo\FixReports.xls", ,

False

第 1 页 共 4 页 .ActiveWorkbook.ActiveSheet.Select

.DisplayAlerts = False

.Wait (Now() + 0.00002)

End With

2． ADO (ActiveX Data Object)

ADO 是微软推出的最新的数据库访问方式。它综合了微软早期推

出的DAO及RDO的特性并取代了DAO及RDO。ADO可以访问更多类型

的数据库，并且可以通过ODBC（Open DataBase Connectivity）访

问数据，但它的结构是建立在OLE DB Providers上。

iFIX中设置报警声音步骤

iFIX中设置报警声音步骤

iFIX中设置报警声⾳步骤

iFIX 中设置报警声⾳步骤

1、打开系统配置，再打开任务配置

2、弹出下图，添加任务：FixBackgroundServer.exe(启动后台服务器)任务配置图标

3、如下图，选择C:\Dynamics\FixBackgroundServer.exe⽂件，选择“打开”

4、如下图，⽂件名中出现C:\Dynamics\FixBackgroundServer.exe，选择“增加”，在“已配置的任务”中出现“C:\Dynamics\FixBackgroundServer.exe”，表⽰添加任务成功，再选择“确定”。

5、将报警声⾳⽂件ALARM01.W A V拷贝到D:\Dynamics\ALM⽂件夹下

6、在iFIX编辑状态下，打开“报警画⾯”，对按钮“激活报警声⾳”右键，选择“编辑脚本”

7、打开如下“报警画⾯(代码)”编辑脚本窗⼝

“动画”---“⾼级配置”---“外观”

9、打开下图编辑窗⼝：

开画⾯中，选择“基于事件项”，如下图：

11、在打开的窗⼝中，确认“FixEvent27”、“FixEvent30”的表达式中测点通道是否与步骤7中“激活报警声⾳”编辑脚本中测点通道相同

12、选择FixEvent27，右键“修改”，如下图：

若表达式不正确，则点此进⼊

修改窗⼝

13、在上图中选择“VB编辑器”，打开“报警代码”编辑窗⼝，如下图：

⾄此，设置报警声⾳的⼯作完成。