自定義曲線 實現XY實時曲線
阿新 • • 發佈:2018-12-14
效果動畫演示
實現步驟
第一步:新建視窗,分別拖拽計數器、重量0,1,2,3 和 限定線最大值、最小值
第二步:分別建立變數字典
第三步 :通過 使用者程式==>時間程式==>模擬產生變數值
指令碼內容如下:
Var.計數器=Var.計數器+3 Var.稱重重量0=Rnd()*3+Var.稱重重量0 Var.稱重重量1=Rnd()*6+Var.稱重重量1 Var.稱重重量2=Rnd()*9+Var.稱重重量2 Var.稱重重量3=Rnd()*12+Var.稱重重量3 If Var.稱重重量0>=100 then Var.稱重重量0=0 End If If Var.稱重重量1>=100 then Var.稱重重量1=0 End If If Var.稱重重量2>=100 then Var.稱重重量2=0 End If If Var.稱重重量3>=100 then Var.稱重重量3=0 End If
第三步:選中“自定義曲線”控制元件,設定屬性“橫軸”,“縱軸”,“集合”
第四步:給按鈕“同時載入四條曲線”新增事件 通過指令碼給“自定義曲線”繫結XY值
Call 自定義曲線0.SetPeroidRefreshTime(1000) Call 自定義曲線0.StartSeries() Call 自定義曲線0.SetActiveSeriesNo(0) Call 自定義曲線0.SetTableNameForColumns("稱重記錄","計數器","稱重重量0",1) Call 自定義曲線0.RealTimeXYPoint(0,10,0,100) Call 自定義曲線0.SetActiveSeriesNo(1) Call 自定義曲線0.SetTableNameForColumns("稱重記錄","計數器","稱重重量1",1) Call 自定義曲線0.RealTimeXYPoint(1,10,0,100) Call 自定義曲線0.SetActiveSeriesNo(2) Call 自定義曲線0.SetTableNameForColumns("稱重記錄","計數器","稱重重量2",1) Call 自定義曲線0.RealTimeXYPoint(2,10,0,100) Call 自定義曲線0.SetActiveSeriesNo(3) Call 自定義曲線0.SetTableNameForColumns("稱重記錄","計數器","稱重重量3",1) Call 自定義曲線0.RealTimeXYPoint(3,10,0,100) MsgBox "開始重新整理"