各位朋友，楼主小硕一枚，毕业论文里急需要用VB个上位机软件，实现数据的采集，显示和分析，我目前遇到的困难是无法实现动态曲线的绘制，我定义了一个120个数的数组，并且用随机数实现模拟采集，但是120以内的数可以实现动态绘制，但是120以后的就不可以了，请各位帮忙看看程序什么地方有问题。

Dim px(121) As Single, py(121) As Single '用来保存曲线数据的坐标值，程序中实时曲线通道为3.
Dim col As Integer             '当前需绘制的点数
Dim pl As Integer          '判断是否画动态曲线

Private Sub Command1_Click()
Timer2.Enabled = True
If Timer1.Enabled = True Then
Command1.Caption = "开始"
Timer1.Enabled = False
Else
Command1.Caption = "暂停"
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
HScroll1.value = 900
Picture1.Scale (900, 0)-(1200, 300)    '设置绘图区域坐标
End Sub

Private Sub HScroll1_Change()
Picture1.Cls    '清空绘图区域
num = HScroll1.value              '使绘图区域坐标和滚动条对应
Picture1.Scale (900 - (900 - num), 0)-(1200 - (900 - num), 300)
If pl >= 2 Then
Picture1.PSet (px(0), py(0))
For i = 1 To col
Picture1.Line -(px(i - 1), py(i - 1)), QBColor(2)  ' 重绘曲线
Next i
End If
End Sub

Private Sub Timer1_Timer()
Picture1.Cls
If col < 31 Then
For i = 0 To col
    px(i) = 900 + i * 10
    py(i) = Val(List1.List(i))       '利用随机数模拟实际数据
    Next i
      col = col + 1
      pl = pl + 1
      ElseIf col < 121 Then
      For j = 0 To col
      py(j) = Val(List1.List(j))
      px(j) = 1200 - 10 * (col - j) '如果数据点数》30  《121，数据的横坐标则用这个式子赋值
      Next j
      col = col + 1        '当数组装满时顺次前移，将数组第一个去掉
      Else
      For t = 0 To 119
      py(t) = py(t + 1)
      px(t) = 1200 - 10 * (col - t)
      Next t
      py(120) = Val(List1.List(i))
                                                   '数组的最后一个元素始终存放当前最新实时数据
      End If
      If pl >= 2 Then     '在两个或两个以上的数据点时，开始画动态曲线
      Picture1.PSet (px(0), py(0))
      For i = 1 To col
      Picture1.Line -(px(i - 1), py(i - 1)), QBColor(2)
      Next i
      End If
End Sub

Private Sub Timer2_Timer()
Dim value As Integer

 Randomize

 value = Int(200 * Rnd + 100)

 List1.AddItem value
End Sub

程序代码如上，窗体和工程文件在附件儿里，希望大神来帮助啊！

朋友，我按你说的改了，但是运行一会儿之后提示下标越界，我估计还是120个点儿往后出现的问题，程序本身不难理解，你可以下载我的附件用VB打开运行下，你帮我把这个问题搞定，我给你20分都可以，多谢了朋友

朋友，我按你说的改了，但是运行一会儿之后提示下标越界，我估计还是120个点儿往后出现的问题，程序本身不难理解，你可以下载我的附件用VB打开运行下，你帮我把这个问题搞定，我给你20分都可以，多谢了朋友，我和着急啊！

都是100毫秒，不好意思，我刚才没在电脑旁边！你可以把附件下载下来调试一下，多谢楼主

非常感谢楼主，给我解决了困扰了我两天的问题，我以后有啥问题还会向你请教的，这个问题差不多可以结贴了，这个例子很有代表性，需要的同志们可以下载附件，自己改编下就可以用了！

伟大的楼主，我咋给你分数啊，我第一次发帖，以前没有操作过这些东西

好的，多谢朋友

楼主，我今天发现这个程序还是有点小问题，画前120个数的时候最右侧的直线一直在最picturebox的右上角，感觉不对吧，后120个数就正常了，什么原因呢？

楼主，你修改完的代码可以用，但是刚开始绘图的时候还是有问题，你可以把我的附件下载下来，把你修改的代码运行一下，希望能帮帮我，谢谢！