自定义曲线 实现XY实时曲线

时间:2024-04-12 15:19:40

效果动画演示

自定义曲线 实现XY实时曲线 

 实现步骤

 第一步:新建窗口,分别拖拽计数器、重量0,1,2,3 和 限定线最大值、最小值

自定义曲线 实现XY实时曲线

 第二步:分别创建变量字典

自定义曲线 实现XY实时曲线

第三步 :通过 用户程序==>时间程序==>模拟产生变量值

自定义曲线 实现XY实时曲线

脚本内容如下:

 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实时曲线

第四步:给按钮“同时加载四条曲线”添加事件 通过脚本给“自定义曲线”绑定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 "开始刷新"