Question

vb实时曲线的绘制问题，急，求高手。

一下程序我有几个疑问：
（1）编译时提示PicScale Pic '调整图像框的坐标系这句中的pic未定义，pic从何而来？怎么改？

Option Explicit
Dim DataFromCom As Integer '从串口读过来的实时值
Dim DataFromComLast As Integer '上次的串口值
Dim TimeCount As Integer
Private Sub Form_Load()
PicScale Pic '调整图像框的坐标系
PicMidleLine Pic '在图像框中画一条中线
End Sub
Private Sub PicScale(picX As PictureBox) '调整图像框的坐标系
picX.Scale (0, picX.ScaleHeight)-(picX.ScaleWidth, -picX.ScaleHeight)
End Sub
Private Sub PicMidleLine(picX As PictureBox) '在图像框中画一条中线
picX.Line (0, 0)-(picX.ScaleWidth, 0), vbGreen '画出中线
End Sub
Private Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer)
If TimeCountX - 1 > 0 Then
picX.Line ((TimeCountX - 1) * 10, DataFromComLastX)-(TimeCountX * 10, DataFromComX), vbWhite
End If
End Sub
Private Sub Timer1_Timer()
DataFromComLast = DataFromCom
Randomize
DataFromCom = 3000 * Rnd
TimeCount = TimeCount + 1
DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast '画出实时的曲线
End Sub

Answer 1

加入一个图片框，名称为pic ，用于划出图像的地方

追问

哥们，你应该很懂vb吧，要不我加你qq，麻烦你帮我编个程序吧，完成之后我给你100分，行不？我的qq1246854839，我实在是不太懂编程。

追答

晚上吧，我有事，马上要走。
其实很简单的，在工具箱的上面，箭头的右面的那个就是。双击就添加了。
然后拖动到合适的位置及大小。在最右侧的属性框的第一项把picture1改为pic就ok了

Answer 2

窗体上放一个 picturebox ，name 属性设为：Pic