效果動畫演示

 實現步驟

 第一步：新建視窗，分別拖拽計數器、重量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 "開始重新整理"