VB.NET实现windows应用程序开发串口调试并实时实时保存数据和画图
来源:互联网 发布:js object 移除属性 编辑:程序博客网 时间:2024/05/16 09:23
自己最近做了一个关于VB.NET开发的串口调试程序,实现了和下位机DSP的通信,并且实现了实时画图功能,DSP把整形数据(占4个byte),左移后通过DMA方式先发高位,接收后用位段方式转化为整型。同时接受两路数据并以streamwrite的形式自动保存到.txt文件中。
Dim bvMaternal As BitVector32
Dim bvFetal As BitVector32
Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)
Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255, sec1)
Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255, sec2)
Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255, sec3)
画图函数的实现:
Private Sub draw()
'Maternal signal coordinate
Dim mtlY2 As Single
Dim mtlX2 As Single
Dim mtlY1 As Single
Dim mtlX1 As Single
'Fetal signal coordinate
Dim ftlY2 As Single
Dim ftlX2 As Single
Dim ftlY1 As Single
Dim ftlX1 As Single
Dim mypenMaternal As New Pen(Color.Red, 1)
Dim mypenFetal As New Pen(Color.Green, 1)
Dim mygraphMaternal As Graphics
Dim mygraphFetal As Graphics
'Maternal signal drawing setup
mygraphMaternal = Me.picBoxMatenal.CreateGraphics
'X-axis and Y-axis Adjust parameter Get:
Dim XnumericUpDownVal As Integer = NumericUpDownX.Value
Dim YnumericUpDownVal As Integer = NumericUpDownY.Value
'Use FromImage method to creat an graphics object with bitmap
'mygraphMaternal = Graphics.FromImage(m_objDrawingMatSurface)
mygraphMaternal.PageUnit = GraphicsUnit.Point
mygraphMaternal.TranslateTransform(0, picBoxMatenal.Height / 2)
'Fetal signal drawing setup
mygraphFetal = Me.picBoxFetal.CreateGraphics
'Use FromImage method to creat an graphics object with bitmap
'mygraphFetal = Graphics.FromImage(m_objDrawingFetSurface)
mygraphFetal.PageUnit = GraphicsUnit.Point
mygraphFetal.TranslateTransform(0, picBoxFetal.Height)
mtlY2 = DataMaternal(Me.receiveDisplay_count) / YnumericUpDownVal
mtlX2 = Me.receiveDisplay_count / XnumericUpDownVal
mtlY1 = DataMaternal(Me.receiveDisplay_count - 1) / YnumericUpDownVal
mtlX1 = (Me.receiveDisplay_count - 1) / XnumericUpDownVal
'Fetal signal coordinate
ftlY2 = DataFetal(Me.receiveDisplay_count) / YnumericUpDownVal
ftlX2 = Me.receiveDisplay_count / XnumericUpDownVal
ftlY1 = DataFetal(Me.receiveDisplay_count - 1) / YnumericUpDownVal
ftlX1 = (Me.receiveDisplay_count - 1) / XnumericUpDownVal
'Dim MaternalPoints As Point() = {New Point(mtlX1, mtlY1), New Point(mtlX2, mtlY2)}
'Dim FetalPoints As Point() = {New Point(ftlX1, ftlY1), New Point(ftlX2, ftlY2)}
mygraphMaternal.DrawLine(mypenMaternal, mtlX1 + 16, -mtlY1 * 126, mtlX2 + 16, -mtlY2 * 126)
mygraphFetal.DrawLine(mypenFetal, ftlX1 + 16, -ftlY1 * 126, ftlX2 + 16, -ftlY2 * 126)
'mygraphMaternal.DrawCurve(mypenMaternal, MaternalPoints, 1.0F)
'mygraphFetal.DrawCurve(mypenFetal, FetalPoints, 1.0F)
'clean up
mygraphMaternal.Dispose()
mygraphFetal.Dispose()
'Force the form to paint itself, this triggers the Paint event
'Me.picBoxMatenal.Invalidate()
'Me.picBoxFetal.Invalidate()
End Sub
- VB.NET实现windows应用程序开发串口调试并实时实时保存数据和画图
- 用VB实现实时曲线的绘制和保存
- 用VB进行串口实时数据采集
- 2 C#串口或TCP远程采集数据 chart图表使用示例 保存数据到access数据库和每日.txt文件并实时显示各参数曲线
- DSP/BIOS 实现实时数据调试和交换
- DSP/BIOS 实现实时数据调试和交换
- C#串口采集短信GSM chart图表使用示例 保存数据到access数据库和每日.txt文件并实时显示各参数曲线
- VB.NET 中嵌入Google earth 并实现gps实时定位
- 用matlab实时读取串口数据并动态显示曲线
- MATLAB利用串口接收数据,并实时显示图形
- 以当前时间命名文件并保存实时采集数据
- 在VB下设计开发实时的数据采集曲线
- 在VB下设计开发实时的数据采集曲线
- 使用SerialPort及ZedGraph快速实现串口数据实时显示
- 在 Ajax 应用程序中实现实时数据推送
- 在 Ajax 应用程序中实现实时数据推送
- 在 Ajax 应用程序中实现实时数据推送
- 【搬家】VB.NET开发全功能串口调试助手
- 从Blue Pill、硬件虚拟化谈安全防护完备性上的一个小原则
- CSS
- ORACLE 函数ORA_ROWSCN
- servlet验证表单数据
- POJ 1416
- VB.NET实现windows应用程序开发串口调试并实时实时保存数据和画图
- Java动态绑定的理解-调用对象方法的执行过程
- vs2010中moc文件生成方法,qt找不到moc_**.cpp
- 基于OpenCV的SIFT算法的实现
- 开机自动运行程序【Android】
- 边缘检测小结
- java反射使用举例(全)
- 亲身面试经历技术总结帖
- 1>LINK : fatal error LNK1123: 转换到 COFF 期间失败: 文件无效或损坏 解决方案