VB的picturebox中如何同时设置两个坐标进行实时曲线的绘制

 我来答
syx54
2012-11-14 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2732万
展开全部
思路:
这个不就是如同,在改铅颂一个PictureBox里可以绘制多条曲线的道理是一样的?
先绘制第1个坐标系的数轴以及刻度(你就理解是绘制),然后绘制第一条曲线;

再绘制第2个坐标系的激租数轴以及刻度(你就理解是绘制),最后按照第2个轴绘制第2条曲线。
绘制第2条曲线,其实是做相对于第1个坐标系作图像的平移而已!
提醒核郑:VB默认的y轴正方向是向下的!
mafan8
2012-11-28 · TA获得超过1.7万个赞
知道小有建树答主
回答量:927
采纳率:0%
帮助的人:775万
展开全部
Private Sub Command1_Click()
Picture1.Cls
Picture1.AutoRedraw = True
'设置第一个坐标系,左上角坐标X,Y为0,12,右下角氏桐坐标X,Y为12,0
'即PICTURE1的左下角为坐标0点
Picture1.Scale (0, 12)-(12, 0)
For x = 0 To 12 Step 0.01 '绘制y=6*sin(x)曲线
y = 6 * Sin(x)
Picture1.PSet (x, y), vbRed
Next
'设置第二个坐标系,左上角坐标X,Y为-12,12,右下角坐标山核孙X,Y为12,-12
'即PICTURE1的中心为坐标0点
Picture1.Scale (-12, 12)-(12, -12)
For i = -3.14 To 3.14 Step 0.01 '绘制圆曲线,由于picture为不是正方形,所以画出来的看着为椭圆逗链
x = 5 * Sin(i)
y = 5 * Cos(i)
Picture1.PSet (x, y), vbBlue
Next
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
没名也要进
2012-11-14 · TA获得超过277个赞
知道小有建树答主
回答量:202
采纳率:0%
帮助的人:145万
展开全部
会做一个就会做两个吧?
第一个做得好些,把原点、比例、仿睁轴则大兄、颜色等都考虑到,做成参数。孙袭第二个照着再做一遍,改下参数就是了。
追问
第一条曲线的实时计算值,第二条曲线要用。现在就是怎样同时设定左下及右下为坐标原点
追答
没理解
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式