我想把这些点依次连成线

Question

大哥大姐们     小弟有个问题    首先我是将采集的数据显示在文本框内  我是一秒采集一次的  所以文本框内的数据是不停变化的
数据显示在坐标上是点   我想把这些点依次连成线   因为文本框里的数据是不停变化的  不知道怎么用Line   我想了好久都没有解决

Answer 1

把采集到的数据放入固定长度的数组中。当放满时，每次刷新时将数组中所有数据前移，新数据放到最后一个元素。利用 MSChart 控件，设置好图形类型为线图，数据源就是你的数组。它会直接显示的。

Answer 2

Dim v1, ax, bx, ay, by As Variant
v1 = Val(Text1.Text)Picture1.ForeColor = RGB(0, 0, 255)
Picture1.DrawStyle = 2
Picture1.DrawWidth = 3
X = X + 1ax = X: ay = 0bx = X + 1: by = v1
ax = bx: ay = by
 Picture1.PSet (X, v1), vbBlack
Me.Line (ax, ay)-(bx, by)
 
If X > 120 Then X = 0
上面是我的代码  为什么还是不能连成线啊