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

一下程序我有几个疑问:(1)编译时提示PicScalePic'调整图像框的坐标系这句中的pic未定义,pic从何而来?怎么改?OptionExplicitDimDataF... 一下程序我有几个疑问:
(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
展开
 我来答
wsygdhr119
2011-12-20 · TA获得超过2109个赞
知道大有可为答主
回答量:2432
采纳率:0%
帮助的人:2147万
展开全部
加入一个图片框,名称为pic ,用于划出图像的地方
追问
哥们,你应该很懂vb吧,要不我加你qq,麻烦你帮我编个程序吧,完成之后我给你100分,行不?我的qq1246854839,我实在是不太懂编程。
追答
晚上吧,我有事,马上要走。
其实很简单的,在工具箱的上面,箭头的右面的那个就是。双击就添加了。
然后拖动到合适的位置及大小。在最右侧的属性框的第一项把picture1改为pic就ok了
牛人影视
2011-12-20 · TA获得超过1395个赞
知道大有可为答主
回答量:1491
采纳率:0%
帮助的人:1608万
展开全部
窗体上放一个 picturebox ,name 属性设为:Pic
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式