VB 一张图中绘制多条实时曲线四个text分别实时生成随机数,然后将text里值分别赋给四个Y,以时间为横坐标,在一张图里绘制这四个Y.以下是我的代码,错误的.请指教.谢谢. 再次补充问题,四个text
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 12:32:39
![VB 一张图中绘制多条实时曲线四个text分别实时生成随机数,然后将text里值分别赋给四个Y,以时间为横坐标,在一张图里绘制这四个Y.以下是我的代码,错误的.请指教.谢谢. 再次补充问题,四个text](/uploads/image/z/6060771-27-1.jpg?t=VB+%E4%B8%80%E5%BC%A0%E5%9B%BE%E4%B8%AD%E7%BB%98%E5%88%B6%E5%A4%9A%E6%9D%A1%E5%AE%9E%E6%97%B6%E6%9B%B2%E7%BA%BF%E5%9B%9B%E4%B8%AAtext%E5%88%86%E5%88%AB%E5%AE%9E%E6%97%B6%E7%94%9F%E6%88%90%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E7%84%B6%E5%90%8E%E5%B0%86text%E9%87%8C%E5%80%BC%E5%88%86%E5%88%AB%E8%B5%8B%E7%BB%99%E5%9B%9B%E4%B8%AAY%2C%E4%BB%A5%E6%97%B6%E9%97%B4%E4%B8%BA%E6%A8%AA%E5%9D%90%E6%A0%87%2C%E5%9C%A8%E4%B8%80%E5%BC%A0%E5%9B%BE%E9%87%8C%E7%BB%98%E5%88%B6%E8%BF%99%E5%9B%9B%E4%B8%AAY.%E4%BB%A5%E4%B8%8B%E6%98%AF%E6%88%91%E7%9A%84%E4%BB%A3%E7%A0%81%2C%E9%94%99%E8%AF%AF%E7%9A%84.%E8%AF%B7%E6%8C%87%E6%95%99.%E8%B0%A2%E8%B0%A2.+%E5%86%8D%E6%AC%A1%E8%A1%A5%E5%85%85%E9%97%AE%E9%A2%98%2C%E5%9B%9B%E4%B8%AAtext)
VB 一张图中绘制多条实时曲线四个text分别实时生成随机数,然后将text里值分别赋给四个Y,以时间为横坐标,在一张图里绘制这四个Y.以下是我的代码,错误的.请指教.谢谢. 再次补充问题,四个text
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
VB 一张图中绘制多条实时曲线四个text分别实时生成随机数,然后将text里值分别赋给四个Y,以时间为横坐标,在一张图里绘制这四个Y.以下是我的代码,错误的.请指教.谢谢. 再次补充问题,四个text
可以实现 速度呢 横向还是纵向刷新绘图啊
你看是这样做吗 代码在窗口里有显示了