Question

VB 一张图中绘制多条实时曲线

四个text分别实时生成随机数，然后将text里值分别赋给四个Y，以时间为横坐标，在一张图里绘制这四个Y。
以下是我的代码，错误的。请指教。谢谢。 再次补充问题，四个text中分别显示的是实时采集的数据，所以这里我分别用模拟数对其赋值，当form加载的时候即开始产生随机数，然后以时间为横坐标，text中的值分别赋给四个Y,在picture1里同时绘制四个曲线.也可以建立access数据库，然后将数据存入数据库。本人初学VB，指定犯了许多无知的错误，恳请帮助。非常感谢。
Private Sub Form_Load()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Randomize
Text1.Text = 900 + Rnd * 10
Text2.Text = 900 + Rnd * 15
Text3.Text = 900 + Rnd * 20
Text4.Text = 900 + Rnd * 25

Y1 = Text1.Text
Y2 = Text2.Text
Y3 = Text3.Text
Y4 = Text4.Text

x = x + 1
Picture1.Cls
Line1.Y1 = Val(Text1.Text)
Line1.Y2 = Val(Text2.Text)
Line1.Y3 = Val(Text3.Text)
Line1.Y4 = Val(Text4.Text)

End Sub

Answer 1

代码如下:

Private Sub Command1_Click()
Line1.Y1 = Val(Text1.Text)
Line1.Y2 = Val(Text2.Text)
Line2.Y2 = Val(Text4.Text)
Line2.Y1 = Val(Text3.Text)
Command2.Enabled = True
Command1.Enabled = False

End Sub

Private Sub Command2_Click()    '获取随机数
Text1 = Int(Rnd * 2000 + 1)
Text2 = Int(Rnd * 2500 + 1)
Text3 = Int(Rnd * 2000 + 1)
Text4 = Int(Rnd * 2500 + 1)
Command1.Enabled = True

Command2.Enabled = False
End Sub

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Command1.Enabled = False

End Sub

Answer 2

可以实现 速度呢 横向还是纵向刷新绘图啊 

 

你看是这样做吗 代码在窗口里有显示了

 

 

追问

timer的时间间隔暂定为1000，横向刷新，数据满后最新数据作为最后的点绘制。

追答

这样2张图片就代码全了 参数要根据图片大小定义

 

你刚才没有说是用timer来做 我这个是用跳转循环做的 你自己改一下就可以了 我做电机震动检测仪软件就是这样写的 有什么问题可以QQ留言

另外分少了：）

Answer 3

题目描述的不清楚，应该配一张示意图才好

追问

这是窗体截图，中间白板部分为picture1，绘图区，四条曲线都同时绘在该区域。text中存放实时数据。这样清楚些了吧，