Question

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

Answer 1

思路：
这个不就是如同，在一个PictureBox里可以绘制多条曲线的道理是一样的？
先绘制第1个坐标系的数轴以及刻度（你就理解是绘制），然后绘制第一条曲线；

再绘制第2个坐标系的数轴以及刻度（你就理解是绘制），最后按照第2个轴绘制第2条曲线。
绘制第2条曲线，其实是做相对于第1个坐标系作图像的平移而已！
提醒：VB默认的y轴正方向是向下的！

Answer 2

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

Answer 3

会做一个就会做两个吧？
第一个做得好些，把原点、比例、轴、颜色等都考虑到，做成参数。第二个照着再做一遍，改下参数就是了。

追问

第一条曲线的实时计算值，第二条曲线要用。现在就是怎样同时设定左下及右下为坐标原点

追答

没理解