quantumPLC与南京德宏数采仪通讯，citect画面日期时间控件和复选框控件控制趋势交互功能

这一篇笔记我在新浪博客记录过，在这里也记录一遍，新浪博客地址quantumPLC与南京德宏数采仪通讯，citect画面日期时间控件和复选框控件控制趋势交互功能_来自金沙江的小鱼_新浪博客 (sina.com.cn)

最近上级管理部门要求在现场生产控制计算机上新建一幅画面，生产关键参数趋势、环保监测数据趋势在一个趋势控件显示，保存五年，在趋势空间外部通过复选框控件可以设定显示/隐藏全部趋势，复选框来显示/隐藏单个趋势、设定趋势控件查询的开始时间和结束时间范围，还可以直接让趋势控件跳转到当前时间，趋势标签整齐排列。最终成品效果如下图：

与数采仪通讯使用unity编程，数采仪设定IP地址与PLC和上位机在同一个网段，地址是192.168.10.201，4321编码方式，unity程序如下：

上图把IP地址四个数字分配给四个byte变量

上图TCP_IP_ADDR功能块slot_ID指的是quantum PLC上用于通讯的模板槽号，现场实际是6#槽。如果是带TCP/IP的CPU模板，此处数值是254，注意后面的IP_B1至IP_B4与现场仪表设备的IP地址是反顺序的。

CREAD_REG功能块的SLAVEREG表示寄存器的偏移量，这个练习是从现场数采仪40071开始采集数据，所以偏移量是71，NO_REG是读取多少个WORD，现场项目需要读取22个WORD。我给输出部分REG_READ传输数值到一个整型数组变量，下标从71到92，正好对应现场仪表寄存器40071到40092，要注意这个数组变量必须分配一个PLC地址，COMM_CEMS_STATUS表示通讯状态，是一个word类型变量，数值含义可以查看帮助文件。

连续的WORD读取上来之后，需要拆分、组合，转换成实际的工程数值，由于数采仪编码4321模式，所以使用下图的方式对WORD进行组合，71是高字节，72低字节，组合成一个REAL数据。74是低字节，75是高字节，组合成一个REAL数据，以此类推。

 将所有需要的数据组合成real数值之后，在citect项目程序中建立变量标签，对应PLC地址，再建立趋势标签，对应变量标签。趋势标签可以定义趋势数据窜访的路径、趋势文件生成时间，趋势文件的个数，趋势数据采集的频率，这几个参数可以根据硬盘分区的大小来灵活设定。如果有双硬盘的话，后面的脚本可以定时将趋势数据备份到第二硬盘，一定程度上可以保障五年的数据存储要求。

 

下面是画面交互功能的实现的步骤

1. 在新建画面上放一排导航按钮，用于画面切换，这个好理解。

2. 对OCX控件注册，将空间文件拷贝到c:\windows\system32\路径下，使用regsvr32指令进行注册，还要运行一下注册表文件，那个注册表文件再我的其它博客有过介绍，使microsoft date and time picker控件和microsoft form 2.0 checkbox控件有效。

3. 在新建画面上放置microsoft date and time picker控件、microsoft form 2.0 checkbox控件、过程分析器控件。

4. 过程分析器控件上按照顺序配置趋势笔，这个简单不截图了。记下过程分析其的AN编号为4

5. 记下各checkbox控件的编号。

6. 新建citectVBA程序文件。新建过程分析器初始化sub

Sub PAIni() '趋势控件初始化，现时显示游标、数据板命名、趋势笔命名

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Dim hCursor As Object

Dim cb As Object

Set cb=HUANBAO_AN11

cb.value=true

Set cb=HUANBAO_AN13

cb.value=true

Set cb=HUANBAO_AN17

cb.value=true

Set cb=HUANBAO_AN19

cb.value=true

Set cb=HUANBAO_AN21

cb.value=true

Set cb=HUANBAO_AN23

cb.value=true

Set cb=HUANBAO_AN25

cb.value=true

Set cb=HUANBAO_AN27

cb.value=true

Set cb=HUANBAO_AN29

cb.value=true

Set cb=HUANBAO_AN31

cb.value=true

Set cb=HUANBAO_AN33

cb.value=true

Set cb=HUANBAO_AN35

cb.value=true

Set cb=HUANBAO_AN37

cb.value=true

Set cb=HUANBAO_AN39

cb.value=true

Set cb=HUANBAO_AN41

cb.value=true

Set cb=HUANBAO_AN43

cb.value=true

Set cb=HUANBAO_AN45

cb.value=true

Set cb=HUANBAO_AN47

cb.value=true

Set cb=HUANBAO_AN48

cb.value=true

Set pa=HUANBAO_AN4 '趋势控件

Set hCursor=pa.cursors.create("cursor1",500)

hCursor.visible=true

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

hPane.Name="1#2#焦炉干熄焦排放口数据"

Set hPens=hPane.Pens

Set hPen=hPens.item(1)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=40

hPen.Name="颗粒物"

Set hPen=hPens.item(2)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=40

hPen.Name="SO2"

Set hPen=hPens.item(3)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=90

hPen.Name="O2"

Set hPen=hPens.item(4)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=90

hPen.Name="流速"

Set hPen=hPens.item(5)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=140

hPen.Name="温度"

Set hPen=hPens.item(6)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=140

hPen.Name="压力"

Set hPen=hPens.item(7)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=190

hPen.Name="湿度"

Set hPen=hPens.item(8)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=190

hPen.Name="流量"

Set hPen=hPens.item(9)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=240

hPen.Name="提升机作业时间"

Set hPen=hPens.item(10)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=240

hPen.Name="提升机装载量"

Set hPen=hPens.item(11)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=290

hPen.Name="1#提升机提升电流"

Set hPen=hPens.item(12)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=290

hPen.Name="2#提升机提升电流"

Set hPen=hPens.item(13)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=340

hPen.Name="1#提升机提升走行电流"

Set hPen=hPens.item(14)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=340

hPen.Name="2#提升机提升走行电流"

Set hPen=hPens.item(15)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=390

hPen.Name="预存室压力"

Set hPen=hPens.item(16)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=390

hPen.Name="集尘电动阀开到位"

Set hPen=hPens.item(17)

hCursor.PenlabelX(hPen)=100

hCursor.PenlabelY(hPen)=440

hPen.Name="集尘电动阀关到位"

Set hPen=hPens.item(18)

hCursor.PenlabelX(hPen)=300

hCursor.PenlabelY(hPen)=440

hPen.Name="除尘风机电流"

pa.Objectview.visible=false

End Sub

这里面对趋势笔名称中文显示、趋势标签定位、复选框初始状态、显示游标及游标定位做了初始化。

在画面的“进入画面时”事件中使用cicode脚本调用这个citectVBA脚本

VbCallReturn(VbCallRun(vbcallopen("PAIni")))

 

7. “全选趋势”复选框编号为11，对选中和取消事件的citectVBA脚本如下：

Sub HUANBAO_AN11_Change()  '全选趋势复选框

Dim cb As Object

Set cb= HUANBAO_AN11

If cb.value Then '如果可见

Set cb=HUANBAO_AN13

cb.value=true

Set cb=HUANBAO_AN17

cb.value=true

Set cb=HUANBAO_AN19

cb.value=true

Set cb=HUANBAO_AN21

cb.value=true

Set cb=HUANBAO_AN23

cb.value=true

Set cb=HUANBAO_AN25

cb.value=true

Set cb=HUANBAO_AN27

cb.value=true

Set cb=HUANBAO_AN29

cb.value=true

Set cb=HUANBAO_AN31

cb.value=true

Set cb=HUANBAO_AN33

cb.value=true

Set cb=HUANBAO_AN35

cb.value=true

Set cb=HUANBAO_AN37

cb.value=true

Set cb=HUANBAO_AN39

cb.value=true

Set cb=HUANBAO_AN41

cb.value=true

Set cb=HUANBAO_AN43

cb.value=true

Set cb=HUANBAO_AN45

cb.value=true

Set cb=HUANBAO_AN47

cb.value=true

Set cb=HUANBAO_AN48

cb.value=true

Else

Set cb=HUANBAO_AN13

cb.value=false

Set cb=HUANBAO_AN17

cb.value=false

Set cb=HUANBAO_AN19

cb.value=false

Set cb=HUANBAO_AN21

cb.value=false

Set cb=HUANBAO_AN23

cb.value=false

Set cb=HUANBAO_AN25

cb.value=false

Set cb=HUANBAO_AN27

cb.value=false

Set cb=HUANBAO_AN29

cb.value=false

Set cb=HUANBAO_AN31

cb.value=false

Set cb=HUANBAO_AN33

cb.value=false

Set cb=HUANBAO_AN35

cb.value=false

Set cb=HUANBAO_AN37

cb.value=false

Set cb=HUANBAO_AN39

cb.value=false

Set cb=HUANBAO_AN41

cb.value=false

Set cb=HUANBAO_AN43

cb.value=false

Set cb=HUANBAO_AN45

cb.value=false

Set cb=HUANBAO_AN47

cb.value=false

Set cb=HUANBAO_AN48

cb.value=false

 

End If

End Sub

这个脚本影响其它单个趋势选中/取消复选框的选择状态

 

8. 单个趋势选择框事件的citectVBA脚本如下

Sub HUANBAO_AN13_Change() '趋势笔1-颗粒无物显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(1)

If HUANBAO_AN13.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN17_Change() '趋势笔2-SO2物显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(2)

If HUANBAO_AN17.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN19_Change() '趋势笔3-O2显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(3)

If HUANBAO_AN19.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN21_Change() '趋势笔4-流速显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(4)

If HUANBAO_AN21.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN23_Change() '趋势笔5-温度显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(5)

If HUANBAO_AN23.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN25_Change() '趋势笔6-压力显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(6)

If HUANBAO_AN25.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN27_Change() '趋势笔7-湿度显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(7)

If HUANBAO_AN27.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN29_Change() '趋势笔8-流量显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(8)

If HUANBAO_AN29.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN31_Change() '趋势笔9-提升机作业时间显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(9)

If HUANBAO_AN31.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN33_Change() '趋势笔10-提升机装载量显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(10)

If HUANBAO_AN33.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN35_Change() '趋势笔11-1#提升电流显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(11)

If HUANBAO_AN35.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN37_Change() '趋势笔12-2#提升电流显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(12)

If HUANBAO_AN37.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN39_Change() '趋势笔13-1#走行电流显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(13)

If HUANBAO_AN39.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN41_Change() '趋势笔13-2#走行电流显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(14)

If HUANBAO_AN41.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN43_Change() '趋势笔14-预存室压力显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(15)

If HUANBAO_AN43.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN45_Change() '趋势笔15-预存室电动阀开到位显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(16)

If HUANBAO_AN45.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN47_Change() '趋势笔16-预存室电动阀开关到位显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(17)

If HUANBAO_AN47.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

Sub HUANBAO_AN48_Change() '趋势笔16-除尘风机干流显示和隐藏

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen=hPens.item(18)

If HUANBAO_AN48.value Then '如果可见

hPen.Visible=true

Else

hPen.Visible=false

End If

End Sub

 

9. 根据选择的开始时间和结束时间的查询citectVBA脚本如下，这里面要做一个容错检查，不能让开始日期晚于结束日期。由于脚本里面希望选择的时间默认为该日期的:0:0，系统里面又自动的+8小时，所以又一个根据选择的日期，将时间往昨天推8小时的脚本计算，由于查询历史趋势，不希望事件滚动，做了暂停功能。

'按照选择的时间查询趋势

Sub SearchTrend() '趋势按照开始时间和结束时间查询，趋势暂停

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Dim startDTPicker As Object

Dim endDTPicker As Object

Dim StartTime As date

Dim EndTime As date

Dim Year1 As Integer

Dim Month1 As Integer

Dim Day1 As Integer

Dim Year2 As Integer

Dim Month2 As Integer

Dim Day2 As Integer

Dim temp1 As Integer

Dim temp2 As Integer

Dim i As Integer

 

Set pa=HUANBAO_AN4  '趋势控件

Set startDTPicker =HUANBAO_AN7 '开始日期选择控件

Set endDTPicker =HUANBAO_AN9  '结束日期选择控件

 

If startDTPicker.value > endDTPicker.value Then

msgbox "开始日期不能晚于结束日期"

Else

'因为用户选择的日期时间属于UTC时间，与北京时间有8小时差距，这个版本的软件没有Citectvba函数直接转换，需要人工变成编程

Year1=startDTPicker.year

Month1=startDTPicker.month

day1=startDTPicker.day

Year2 = endDTPicker.year

Month2 =endDTPicker.month

Day2 =endDTPicker.day

temp1 = int(year1/4)

temp2=int(year2/4)

'计算开始时间前一天

If day1<>1 Then

day1=day1-1

End If

If day1=1 Then

Select Case month1

Case 1

day1=31

month1=12

Case 2

day1=31

month1=1

Case 4

day1=31

month1=3

Case 5

day1=30

month1=4

Case 6

day1=31

month1=5

Case 7

day1=30

month1=6

Case 8

day1=31

month1=7

Case 9

day1=31

month1=8

Case 10

day1=30

month1=9

Case 11

day1=31

month1=10

Case 12

day1=30

month1=11

Case 3

month1=2

If year1-temp1*4=0 Then '闰年

day1=29

Else '平年

day1=28

End If

End Select

End If

startTime=CDate(cstr(year1) & "-" & cstr(month1) & "-" & cstr(day1) & " 16:00:00")

'计算开始结束时间前一天

If day2<>1 Then

day2=day2-1

End If

If day2=1 Then

Select Case month2

Case 1

day2=31

month2=12

Case 2

day2=31

month2=1

Case 4

day2=31

month2=3

Case 5

day2=30

month2=4

Case 6

day2=31

month2=5

Case 7

day2=30

month2=6

Case 8

day2=31

month2=7

Case 9

day2=31

month2=8

Case 10

day2=30

month2=9

Case 11

day2=31

month2=10

Case 12

day2=30

month2=11

Case 3

month2=2

If year2-temp2*4=0 Then '闰年

day2=29

Else '平年

day2=28

End If

End Select

End If

EndTime=CDate(cstr(year2) & "-" & cstr(month2) & "-" & cstr(day2) & " 16:00:00")

'暂停刷新

pa.Autoscroll=false

Set hPanes=pa.panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

'设置1#趋势笔的开始时间和结束时间

For i=1 To 18

Set hPen=hPens.item(i)

hPen.PutHorizontalAxisTimeSpan startTime,0,EndTime,0

'设置2#趋势笔的开始时间和结束时间

'Set hPen=hPens.item(2)

'hPen.PutHorizontalAxisTimeSpan startTime,0,EndTime,0

Next

End If

End Sub

在趋势查询按钮鼠标事件使用cicode调用前面的脚本

VbCallReturn(VbCallRun(vbcallopen("SearchTrend")))

 

 

10。 跳转到当前时刻的citectVBA脚本如下：

 

Sub JumpToNow() '趋势跳转到当前

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen As Object

Dim i As Integer

Set pa = HUANBAO_AN4 '指向趋势控件

Set hPanes=pa.Panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

For i=1 To 18

Set hPen=hPens.item(i)

hPen.GotoNow

'Set hPen=hPens.item(2)

'hPen.GotoNow

Next

pa.Autoscroll=true '自动滚动

End Sub

相关按钮的鼠标事件使用cicode调用上面的脚本

VbCallReturn(VbCallRun(vbcallopen("JumpToNow")))

 

11. 还做了一个复制趋势文件的功能，这个是用的是cicode脚本

FUNCTION FileBakup() //复制趋势文件到指定的路径

STRING sPath,sBak

 

//拷贝整个文件夹到目标文件夹

sPath=FileFind("C:\Program Files\Citect\CitectSCADA\Data\*.*", 0)

WHILE StrLength(sPath) > 0 DO

sBak ="E:\HISDATA"

FileCopy(sPath,sBak, 0); ! Find the next file

sPath =FileFind("", 0)

END

sPath=FileFind("C:\Program Files\Citect\CitectSCADA\Data\TRENDX\*.*", 0)

WHILE StrLength(sPath) > 0 DO

sBak ="E:\HISDATA\TRENDX"

FileCopy(sPath,sBak, 0); ! Find the next file

sPath =FileFind("", 0)

END

Message("注意","趋势数据备份到E:\HISDATA",0)

END

至此，功能就做完了。