工控编程吧

标题: wincc V7.3 mschart制作图表.chartdata 无效的问题 [打印本页]

作者: baikhgmv 时间: 2016-9-7 11:10
标题: wincc V7.3 mschart制作图表.chartdata 无效的问题
wincc V7.3 mschart制作图表.chartdata 无效的问题

我在wincc v7.3画面上放置了一个mschart控件，把数据放在一个数组里面，在按钮vbs脚本里面希望能生成曲线

Sub OnClick(ByVal Item)
Dim Chart,a(20),i
Set Chart=ScreenItems("MSChart")
For i=1 To 20
a(i)=i
Next

With Chart
.TitleText = "流量"
.Column = 1
.ColumnLabel = "流量1"

' '设置图线的外观
   '设置XY轴
.Plot.Axis(0).ValueScale.Auto = 0
.Plot.Axis(1).ValueScale.Auto = 0
'//  '设置最大值
.Plot.Axis(0).ValueScale.Maximum = 30 '设置横轴标注最大值
.Plot.Axis(1).ValueScale.Maximum = 200 '设置纵轴标注最大值
'//  '设置最小值
.Plot.Axis(0).ValueScale.Minimum = 0
.Plot.Axis(1).ValueScale.Minimum = 0
.Plot.Axis(0).ValueScale.MajorDivision = 10 'X轴主要网格数量

.Plot.Axis(1).ValueScale.MajorDivision = 10 'Y轴主要网格数量
.Plot.Axis(0).ValueScale.MinorDivision = 10 'X轴次要网格数量
.Plot.Axis(1).ValueScale.MinorDivision = 0 'Y轴次要网格数量
.Plot.Axis(0).AxisGrid.MajorPen.Style = 1
.Plot.Axis(1).AxisGrid.MajorPen.Style = 1
.Plot.AutoLayout = 1
.Plot.UniformAxis = 0

.chartType = 11 '设置图形为
.ChartData = a '装入数据
.ShowLegend = 1 '显示图例

For i = 1 To 5
.Row = i
.RowLabel = i*6
Next
End With
Msgbox "0"
End Sub

最终没有用数组生成曲线，问题似乎是.ChartData = a无效，有大神能指点一二吗？

--------我自己解决了，不适用chartdata属性，在with chart……end with中插入以下语句

For i = 1 To 20
.Row = i
.data=flow(i)
Next

就行了

欢迎光临工控编程吧 (https://www.gkbc8.com/)