iFIX歷史曲線查詢(xún)

iFIX歷史曲線查詢(xún)一、實(shí)現(xiàn)過(guò)程

(1)歷史定義

定義幾組歷史數(shù)據(jù)，全部為24小時(shí)文件。同時(shí)，還需要把HTC.EXE增加到SCU后臺(tái)啟動(dòng)列表。

2)拷貝畫(huà)面

假設(shè)iFIX安裝在D盤(pán)?？截怐:DynamicsSampleSystemPicture目錄中的iFIX1_Trend.grf到D:DynamicsPIC目錄下，這樣，iFIX1_Trend.grf出現(xiàn)在工作臺(tái)的系統(tǒng)樹(shù)中，在其它畫(huà)面設(shè)置切換按鈕可以切換到此趨勢(shì)畫(huà)面。同時(shí)將D:DynamicsSampleSystemPicture中的user.fxg和plugandsolve.fxg拷貝到D:DynamicsPIC。

(3)導(dǎo)出文件

運(yùn)行演示例程，查看趨勢(shì)曲線畫(huà)面iFIX1_Trend.grf的腳本。導(dǎo)出project_plugandsolve和project_user中的模塊和窗體到某個(gè)文件夾。記錄project_plugandsolve和project_user的“引用”項(xiàng)(VBA中“工具”菜單下的“引用”)。

(4)調(diào)整畫(huà)面

打開(kāi)IFIX工作臺(tái)，修改iFIX1_Trend.grf的畫(huà)面屬性為“運(yùn)行時(shí)畫(huà)面可視”。去掉畫(huà)面中的“采集值”，“平均值”，“高限值”，“低限值”，“從MSACCESS讀取lab數(shù)據(jù)”，幫助按鈕，”顯示網(wǎng)格“按鈕。調(diào)整趨勢(shì)曲線顯示區(qū)域和畫(huà)面整體的布局。

(5)配置Visionx控件

Vxcombo控件和Vxdata控件相結(jié)合以顯示數(shù)據(jù)塊和連接數(shù)據(jù)庫(kù)。和實(shí)時(shí)數(shù)據(jù)有關(guān)的控件為VxcmbRTpens(Vxcombo控件)和VxdataRTpens(Vxdata控件)，和歷史數(shù)據(jù)有關(guān)的控件為VxcmbHistpens(Vxcombo控件)和VxdataHistpens(Vxdata控件)。兩個(gè)Vxcombo控件屬性不變，2個(gè)Vxdata控件的屬性如附表所示。

(6)修改VBA代碼

在VBA編輯狀態(tài)下，將3中導(dǎo)出的文件導(dǎo)入到相應(yīng)的工程中，并對(duì)照"引用"項(xiàng)是否相符。

修改工程畫(huà)面Project_iFIX1_Trend的VBA代碼。

PrivateSubCFixPicture_Initialize()中注釋掉CallSetPaths，vxDataHistPens.DBConnect，SetHelpFileLocationMe，ChangeFontsIfBelow1024x768Me。相應(yīng)的可以去掉和這四個(gè)函數(shù)相關(guān)的定義。同時(shí)，第五行修改雙引號(hào)中的字符串為fix,即strChartStartDT=FindHistoricalFiles("fix")(0)。

事件PrivateSubcmdAddHistPen_MouseDown中修改sNodeName的值，即sNodeName="Hist.fix."。

事件PrivateSubcmdAddRTPen_Click()的代碼改動(dòng)以后如下:

DimobjPenAsObject,sTagNameAsString,sNextTagAsString,sNextTagTypeAsString

DimsNodeNameAsString,spotnameAsString,iPenAsInteger,nAsInteger

DimboolFoundAsBoolean

OnErrorGoToHandleError

sNodeName="Fix32.FIX."

IfvxcmbRTPens.Text<>""ThenDeletetheplaceholderpen

sTagName=Trim(vxcmbRTPens.Text)

n=InStr(sTagName,",")-1

spotname=Left(sTagName,n)

thereaddcode

sNextTag=ReadValue(sNodeName+spotname+".A_NEXT",1)

IfErr.Number=0AndsNextTag<>""Then

sNextTagType=ReadValue("Fix32.FIX."+sNextTag+".A_NAME")

IfsNextTagType="ETR"Thenspotname=sNextTag+".T_DATA"

Else

spotname=spotname+".F_CV"

EndIf

DeleteDefaultPen

SetobjPen=objMainChart.AddPen(sNodeName+spotname,False)

objPen.duration=ChartPenDuration

EndIf

ExitSub

HandleError:

Exithereonerror

在例程中，VxcmbRTpens列出的是數(shù)據(jù)塊的名稱(chēng)，通常不便于操作員識(shí)別和操作，尤其是數(shù)據(jù)量比較大的時(shí)候，比較理想的做法是同時(shí)顯示數(shù)據(jù)塊名稱(chēng)和描述。由于VxdataRTpens"數(shù)據(jù)源"不支持直接連接兩個(gè)字符串，所以筆者將數(shù)據(jù)塊的描述做統(tǒng)一的定義，以滿足這種要求。例如名為F101的數(shù)據(jù)塊,它的描述定義為"F101，二號(hào)煉鋼氧氣用量"。這樣列表框僅顯示一個(gè)描述域就可以了。上面的代碼就是針對(duì)這一目的做的改動(dòng)。

二、操作方法

在"實(shí)時(shí)數(shù)據(jù)"的下拉列表框中，根據(jù)數(shù)據(jù)塊名稱(chēng)和對(duì)應(yīng)的描述選出要查看的變量，點(diǎn)擊旁邊的“增加筆”按扭即可。默認(rèn)的顯示時(shí)間段為“1小時(shí)”，查看實(shí)時(shí)數(shù)據(jù)時(shí)，最好選擇“5分鐘”，也可以根據(jù)需要選擇“15分鐘”，“30分鐘”等等，這些選擇都集中在“時(shí)間范圍”組合框里。

在“歷史數(shù)據(jù)”的下拉列表框中，參考“實(shí)時(shí)數(shù)據(jù)”列表框的變量及描述，選中要查看的變量，點(diǎn)擊旁邊的“增加筆”按扭即可?！皶r(shí)間范圍”一般選擇“6小時(shí)”，“12小時(shí)”，此時(shí)，歷史趨勢(shì)曲線仍是空白的。點(diǎn)擊“起始日期及時(shí)間”按鈕，出現(xiàn)對(duì)話框，設(shè)置歷史數(shù)據(jù)的顯示時(shí)間。

歷史和實(shí)時(shí)數(shù)據(jù)塊的趨勢(shì)曲線可以按上述方法，同時(shí)顯示多個(gè)。而且各個(gè)數(shù)據(jù)塊的名稱(chēng)及描述以不同的顏色顯示在圖表的底端，用鼠標(biāo)點(diǎn)擊相應(yīng)的數(shù)據(jù)塊