锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net串口数据画图 vb串口设置

PointIT技术

VB.NET怎么应用GDI画串口通讯数据的实时曲线拖一个PictureBox1控件
创建一个Paint事件 。在事件中加入
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
' Create pens.
Dim redPen As New Pen(Color.Red, 3)
Dim greenPen As New Pen(Color.Green, 3)
' Create points that define curve.
Dim point1 As New Point(50, 50)
Dim point2 As New Point(100, 25)
Dim point3 As New Point(200, 5)
Dim point4 As New Point(250, 50)
Dim point5 As New Point(300, 100)
Dim point6 As New Point(350, 200)
Dim point7 As New Point(250, 250)
Dim curvePoints As Point() = {point1, point2, point3, point4, _
point5, point6, point7}
' Draw lines between original points to screen.
e.Graphics.DrawLines(redPen, curvePoints)
' Draw curve to screen.
e.Graphics.DrawCurve(greenPen, curvePoints)
End Sub
得到数据后，改point的数据 。然后PictureBox1.Refresh()就行了
vb.net读取txt的数据作图问题一、分析：
1，这一类随时间而变化vb.net串口数据画图的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值 。
2，点的集合就是线；一组时间、密度值 ， 对应一个点 ， 把点连接起来就构成vb.net串口数据画图了线 。
二、在VB.NET中作图，需要知道并解决几个问题：
1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点 ， X轴的正向为从左向右，Y轴的正向是从上向下 。
为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；
1、TranslateTransform----平移变换
格式：Graphics.TranslateTransform(dx,dy)
其中：dx 和 dy分别是Single数据类型
2、ScaleTransform----缩放变换
格式：Graphics.ScaleTransform(sx,sy)
其中：sx 和 sy分别是Single数据类型；
例如：为了符合数学中的一般格式 ， 可以使用下述代码：
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了 。
三、VB.NET中绘制图形
1，绘制圆或椭圆
'绘制图形的三步曲
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
'绘制一个实心圆，该圆在：直线x=200，y=200，x=200 100，y=200 100所划的矩形区域内
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'绘制一个空心圆 ， 该圆在：直线x=200，y=200，x=200 100 ， y=200 100所划的矩形区域内
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意：最后两个数值如果不等，就是绘制椭圆
当圆足够?。?就是点了 。
2，绘制直线
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
【vb.net串口数据画图 vb串口设置】'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
VB.net中如何画图？VB.net与VB不同 。
VB.net已经有专门绘图的类 。
可以定义笔刷然后用Drawing类中的方法绘制 。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
vb.net绘制曲线图 。net其实还是很好绘制图形vb.net串口数据画图的
vb.net串口数据画图你可以看下 Graphics类
Dim d As New Bitmap(Me.Width, Me.Height)‘一个图片吧
Dim g As Graphics = Graphics.FromImage(d)’绘制准备在这个图片是进行
然后就是vb.net串口数据画图你绘制的东西vb.net串口数据画图了
线 就是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）vb.net串口数据画图，New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d
如何用VB.NET调用excel的画图命令，即用.NET得到一组点坐标后，调用excel根据点画出曲线图并显示在VB.NET里vb.net串口数据画图你可以通过用VB.net控制excelvb.net串口数据画图 ， 让excel生成曲线图vb.net串口数据画图，然后利用excelVBA将图输出，最后导入到VB.net就可以了 。
vb.net串口数据画图的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb串口设置、vb.net串口数据画图的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何建立虚拟服务器？ 怎么构建虚拟服务器

    下一篇：如何使用CRT登录文件服务器？ crt怎么登陆文件服务器