91黄动漫 I 欧美 日韩 国产 成人 在线 I a级成人毛片 I 农村黄色片 I 男生捅女生的肌肌 I 精品99一区二区三区 I 妃光莉av I 日日夜夜操操 I 性中国古装videossex I 久久不卡av I 美女高潮动态图 I 极品美女开粉嫩精品 I 牛牛精品一区二区 I 91精品福利视频 I 成人刺激视频 I 91国内精品视频 I 中国一级特黄毛片大片 I 校长狠狠挺进校花体内小说 I 欧美激情黄色片 I 欧美久久久一区 I 爱豆国产剧免费观看大全剧苏畅 I 麻豆国产人妻欲求不满谁演的 I 亚洲一区二区在线免费观看视频 I 国产超碰av人人做人人爽 I 精品国产第一国产综合精品 I 久久免费看av I 欧美一区二区三区白人 I 国产精品夫妻激情 I 校花被肉干高h潮不断 I 欧美最猛黑人xxxx黑人表情 I 国产欧美日韩一区二区搜索 I 极品女神露脸呻吟啪啪 I 人人天天久久 I 亚洲动漫在线 I 日本91福利区 I 五月天 桃色 开心 I av在线免费观看国产 I 男人添女人的免费视频 I 夜夜穞天天穞狠狠穞

1、Wincc online trend控件實(shí)現(xiàn)多條曲線查詢

項(xiàng)目要求，查詢?nèi)我鈺r(shí)段內(nèi)的兩條曲線的歷史數(shù)據(jù)
首先在變量記錄中設(shè)置需要記錄的變量，如果需要在一個(gè)控件內(nèi)顯示兩條曲線，做數(shù)據(jù)歸檔時(shí)，歸檔屬性最好是一致的，歸檔屬性不一樣是否會(huì)出現(xiàn)問題，這個(gè)沒測(cè)試，有興趣的可以測(cè)試一下。
數(shù)據(jù)記錄設(shè)置OK后，新建畫面插入online trend控件，我的項(xiàng)目需要把趨勢(shì)打印出來，所以把控件的工具欄全部隱藏。
雙擊online trend控件，添加需要顯示的歸檔變量。選擇公共X,Y軸等參數(shù)。坐標(biāo)顯示根據(jù)自己使用選擇，基本上不用設(shè)置太多參數(shù)。
添加需要顯示的歷史歸檔變量后，就需要寫腳本了，西門子工控網(wǎng)論壇有實(shí)例，實(shí)例提示針對(duì)于一條曲線時(shí)使用，咨詢西門子技術(shù)支持，如果需要同時(shí)顯示兩條曲線時(shí)，需要對(duì)兩條曲線分別進(jìn)行設(shè)置屬性“控件.index=0,1”，但是測(cè)試其實(shí)只設(shè)置index=0的起始及結(jié)束時(shí)間就OK，就是論壇給的實(shí)例不是只針對(duì)于一條曲線，兩條曲線時(shí)同樣適用，再多的曲線就沒測(cè)試了。
西門子默認(rèn)的時(shí)間格式為“MM-DD-YYYY HH-MM-SS”格式，所以在設(shè)置趨勢(shì)起始及結(jié)束時(shí)間時(shí)需要注意。
注：導(dǎo)入歸檔數(shù)據(jù)需要一定的時(shí)間，建議按鈕觸發(fā)。嘗試在畫面打開時(shí)觸發(fā)腳本，有的時(shí)候會(huì)出現(xiàn)歷史數(shù)據(jù)加載不上來。
腳本如下，僅供參考
Dim objConnection  
Dim strConnectionString

Dim strSQL  
Dim objrs
Dim chaxun

'定義曲線控件
Dim TREND
Dim strval_1
Dim strval_2
Dim strval_t1
Dim strval_t2

'初始化程序，省略N行。。。。。。。。。。。。。。。。。。。。。。。。。。。。

'初始化程序，省略N行。。。。。。。。。。。。。。。。。。。。。。。。。。。。

chaxun=HMIRuntime.Tags("管號(hào)查詢輸入").Read
strConnectionString = "Provider=MSDASQL;DSN=REPORT;UID=;PWD=;"
  strSQL = "select * from report where guanhao='"&chaxun&"';"
   Set objConnection = CreateObject("ADODB.Connection")
   objConnection.ConnectionString = strConnectionString
objConnection.Open
   Set objrs = CreateObject("ADODB.RecordSet")
  objrs.open  strSQL,objConnection
/賦值程序，省略，，，，，，，，，，，，，，，，，，，，，，/

/賦值程序，省略，，，，，，，，，，，，，，，，，，，，，，/

objrs.close
Set objrs = Nothing
  objConnection.Close
   Set objConnection = Nothing  
'趨勢(shì)時(shí)間設(shè)定
Set trend = ScreenItems("控件1")
strval_r=HMIRuntime.Tags("測(cè)試日期_read").Read
strval_t1=HMIRuntime.Tags("開始時(shí)間_read").Read
strval_t2=HMIRuntime.Tags("測(cè)試時(shí)間_read").Read

strval_1=strval_r+" "+strval_t1
strval_2=strval_r+" "+strval_t2

trend.Index=0
trend.Online=False
trend.TimeRange=False
trend.BeginTime=strval_1
trend.EndTime=strval_2
trend.Command="Reload"