如何在vb中绘制多条曲线
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了沿滩免费建站欢迎大家使用!
Private Sub Form_Load()
MSChart1.chartType = VtChChartType2dLine
Dim arrValues()
ReDim arrValues(1 To 5, 1 To 6)
Dim i As Integer
For i = 1 To 5
arrValues(i, 1) = "t" i 'x轴
arrValues(i, 2) = 0 + Rnd * 100 '第一条线
arrValues(i, 3) = 0 + Rnd * 100 '第二条线
arrValues(i, 4) = 0 + Rnd * 100 '第三条线
arrValues(i, 5) = 0 + Rnd * 100 '第四条线
arrValues(i, 6) = 0 + Rnd * 100 '第五条线
Next i
MSChart1.ChartData = arrValues
如何在origin中绘制多条曲线
把每条曲线的资料输入book工作表中,A、 B列,C、D列和E、F列分别为三条不同曲线的资料。选中C列,然后右击,选set as下属的X,就成功将C列设为第二条曲线的X轴,类似的把第三条曲线的资料进行相同的处理,这样当每条曲线的X轴资料不一样时也不会影响作图。选中所有资料,点选左下方线条右边的小三角形,在出现的选项中选择line,这样就成功画出了三条不同资料的曲线。双击横座标或者纵座标,出现一个对话方块,选择scale可以对横轴座标的范围以及资料间距进行设定,选择Title and Format可以对图形四个轴以及刻度进行设定。最后,可以点选左上角File,选择Export Graphs,在跳出的视窗中选择储存位置。
怎么在origin中画多条曲线
将不同的资料分别设为的X和Y即可(即X1,Y1,X2,Y2……)。 具体步骤如下: 选中第一个横座标那列数,右键单击——选择set as——选择X,此时这列资料便会被设为X1。选中第一个纵座标,右键单击——选择set as——选择Y,此时这列资料便会被设为Y1。
如何在origin中绘制区分多条曲线
origin绘制多条曲线,如果不同的Y值对应的X值相同的即只有一栏X值,那么只要选中所有的资料,点选选择origin下面的工具栏中的图形型别即可作图。
如果不同的Y值对应的X值不同,即有不同的X值栏,这样只有选中不同X资料栏,右键选择set as:选择X,即可设定不同的X1,X2,X3……,接着同样选择set as:Y,设定不同的Y1,Y2,Y3……,然后选择所有的资料作图即可。
做出的图的图列会自动以曲线颜 *** 分多条曲线。
望采纳,谢谢!
如何在origin中绘制多条不同座标的曲线
将不同的资料分别设为的X和Y即可(即X1,Y1,X2,Y2……)。
具体步骤如下:
选中第一个横座标那列数,右键单击——选择set as——选择X,此时这列资料便会被设为X1。选中第一个纵座标,右键单击——选择set as——选择Y,此时这列资料便会被设为Y1。
选中第二个横座标那列数,同样操作,此时这列资料便会被设为X2。以此类推。
最后将资料全选后作图,就会发现不同横纵座标的资料被做在一张图上了。
望采纳,谢谢
如何在matlab同一个图形上绘制多条曲线
利用hold on命名即可实现在同一图形中绘制多条曲线或利用绘图命令一次绘制多条曲线。
hold on就是将figure中的图形储存,之后再通过绘图命令绘制下一条曲线,使多条曲线同时显示在一个图形之中。
具体实现方法可以参考如下程式段:
1
2
3
4
5
6
7
t = -5 : 0.01 : 5;
x = sin(t);
y = cos(t);
plot(t, x); 绘制正弦曲线
hold on; 将正弦曲线保持在图形中
plot(t, y); 绘制余弦曲线,完成后图形中就会同时显示正弦曲线和余弦曲线
plot(t,x, t,y); 同时绘制正弦曲线和余弦曲线,该方法也是在图形中同时显示正弦曲线和余弦曲线
如何在excel中绘制曲线
开启excel--检视--工具栏--绘图--下面的自选图形--曲线--根据需要自行调整
excel是日常办公必不可少的工具之一,其有很强大的功能。今天给大家分享一下怎样使用excel绘制曲线图。这个功能能够根据资料绘制出不同型别的图,如果对曲线图要求不高可以用excel代替matlab来画资料分析曲线图。(注意曲线是对比用的)
选中资料区域--“插入”选单--“图表”--“图表型别”中选择“XY散点图”--“子图表型别”中选择“无资料点平滑线散点图”--点选“完成”
您也可以向我们团队发出请求,会有更专业的人来为您解答!
您好,您是想问vb.net连续绘制曲线图不消失怎么办?b.net连续绘制曲线图不消失的解决办法如下:
1、首先必须创建bitmap,关联到picturebox1.image上。
2、再在picturebox1.image上创建Graphics,再进行作图。即可显示线图。
在VB中绘制实时曲线是比较难的,一般要应用第三方控件或是Windows
API函数来完成,但是如果你对实时曲线的要求不是很高,只要能表示出当前的一般情况的话,我们可以直接应用VB提供给我们的空间来完成.
原则上讲,直接在Form里绘制曲线都是可以的,MSDN上面很多例程就是直接在Form里面绘制图形的,Form作为绘制图形的容器,不过一般应用中Form中不可避免的会有很多其他控件,所以我们选择PictureBox作为绘制曲线的容器.
实时曲线的绘制一般借助于Timer控件来完成,使用Timer控件,定期将串口或是其他仪器中监测到的数据送往PictureBox1,而曲线的绘制一般画成折线图,采用PictureBox1的Line方法绘制.具体实现如下:
1.选择需要显示的窗体Picture1,加入图片框Picture1,根据实际需要设置图片的大小并移到合适的位置,并在图片的外面画好量程----时间坐标系;然后加上Timer控件以及两个CommandButton,界面就基本设置好了.
2.建立坐标系,根据Picture1的大小和高度设置画出坐标系的X轴和Y轴:
Picture1
.ScaleMode
=
1
‘以VB的基本单位作为建立坐标轴以及绘制图形的单位;
Picture1.Refresh
Picture1.CurrentX
=
Picture1.ScaleLeft
+100
Picture1.CurrentY
=
Picture1.ScaleTop
Picture1.Print
Picture1.ScaleHeight
-
100
Picture1.Line(Picture1.ScaleLeft+100,Picture1.ScaleTop+100)-(Picture1.ScaleLeft+100,
Picture1.ScaleHeight
-
100)
Picture1.CurrentX
=
Picture1.ScaleLeft
+100
Picture1.CurrentY
=
Picture1.ScaleHeight
Picture1.Print
“(0,0)”
Picture1.Line
(Picture1.ScaleLeft
+
100,
Picture1.ScaleHeight
-
100)-(Picture1.ScaleWidth
-
100,
Picture1.ScaleHeight
-
100)
Picture1.CurrentX
=
Picture1.ScaleWidth
Picture1.CurrentY
=
Picture1.ScaleHeight
Picture1.Print
Picture1.ScaleWidth-100
Picture1.AutoRedraw
=
True
‘必要时,用存储在内存中的图象进行重绘
3.绘制曲线并保存,我们这里以正弦曲线作为绘制曲线的数据来源,具体应用是可以采用由串口或其他仪器采集得到的数据.首先我们绘制一条中线,然后在Timer控件的Time事件中绘制曲线:
Picture1.Line
(Picture1.ScaleLeft,
CInt(Picture1.ScaleHeight
/
2))-(Picture1.ScaleWidth,
CInt(Picture1.ScaleHeight
/
2))
‘绘制中线
Private
Sub
Timer1_Timer()
Dim
y1
As
Integer
y1
=
CInt(Sin((x
-
Picture1.Left)
/
20
/
180
*
pi)
*
Picture1.ScaleHeight
/
2)
y1
=
CInt((Picture1.ScaleHeight
+
1000)
/
2)
-
y1
Picture1.Line
(x,
y)-(x
+
20,
y1)
x
=
x
+
20
y
=
y1
If
x
=
Picture1.ScaleWidth
Then
SavePicture
Picture1.Image,
"c:\sin.bmp"
‘保存图画,
。net 其实还是很好绘制图形的
你可以看下 Graphics 类
Dim d As New Bitmap(Me.Width, Me.Height) ‘一个图片吧
Dim g As Graphics = Graphics.FromImage(d)’绘制 准备在这个图片是进行
然后 就是你绘制的东西了
线 就是 g.DrawLine()
圆 弧度 就用 g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
复杂的就是 g.DrawBezier()
等 如果你用的是 VS的 编译 上面都有详细的参数说明
Dim d As New Bitmap(Me.Width, Me.Height)
Dim g As Graphics = Graphics.FromImage(d)
g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)
g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))
g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})
g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0), New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款