VB的picturebox中如何同时设置两个坐标进行实时曲线的绘制
3个回答
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
会做一个就会做两个吧?
第一个做得好些,把原点、比例、仿睁轴则大兄、颜色等都考虑到,做成参数。孙袭第二个照着再做一遍,改下参数就是了。
第一个做得好些,把原点、比例、仿睁轴则大兄、颜色等都考虑到,做成参数。孙袭第二个照着再做一遍,改下参数就是了。
追问
第一条曲线的实时计算值,第二条曲线要用。现在就是怎样同时设定左下及右下为坐标原点
追答
没理解
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询