vb开发温度巡检仪显示软件

最新推荐文章于 2023-06-10 11:24:35 发布
最新推荐文章于 2023-06-10 11:24:35 发布
阅读量899 收藏 7
点赞数 2
分类专栏： 工科 菜鸟
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_38405867/article/details/104133026
版权

使用VB.Net开发简单的温度巡检仪PC端软件

学习VB.Net实践所编，力有不殆，如有错漏，欢迎请各位专家指教

1.开发环境

  • 使用微软公司官方的Visual Studio 社区版进行VB.Net的开发，

  • 官网下载链接： Visual Studio
    在这里插入图片描述(图片来自官网截图)

  • 建立项目的步骤：

    • 1.创建新的VB.Net窗体应用
      在这里插入图片描述

  • 项目命名

在这里插入图片描述

  • 项目布局

在这里插入图片描述

2.窗体设计

  • Form1 窗体设计

    • Menu菜单栏

    • label+ComboBox 组成的通信参数

    • 用于打开和关闭通信的按钮

    • Panel区域用于放置Form2和Form3构成显示实时数据和图线变化的窗体

    • 需要另外添加 SerialPort用于串口通信，Timer用于定时完成通讯动作
      在这里插入图片描述

  • Form2窗体

    • 使用Text控件显示通道名称，通信时可自行定义名称
    • Label修改外观后用于显示数据
    • Form2将嵌入Form1的Panel区域，使用菜单栏切换Panel的显示内容（Form2或Form3)
      在这里插入图片描述

  • Form3窗体

    • 使用Chart控件在Form3中显示各系列数据的变化，检测数据的变化趋势
      在这里插入图片描述

  • 其他功能设计

    • 程序运行时将打开（或新建）log.dat文件，将当前日期写入（方便后续查看数据记录)
    • SerialPort 与串口设备通讯均采用16进制，可在通道数中更改和自定义发送的命令（上传的代码目前只适用于16通道全采集，未作所用情形的适配）
    • 串口接受数据后将16进制转换为整数数组，按照ModBus通讯协议，对数据部分进行计算后逐行记录到log.dat中，并显示到Form2中和Form3的线图中
    • 历史数据查询和数据导出功能（上传代码中未实现）

3.具体代码

  • 本程序代码均集成在Form1的代码中，无需对Form2和Form3编码

  • 本项目文件已经上传GitHub：

    Imports System
Imports System.IO.Ports
Public Class Form1
    Private Sub 连接ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 连接ToolStripMenuItem1.Click
    End Sub
    '菜单栏打开实时数据标签，Panel中显示Form2窗体
    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
        Form3.Visible = False
        Form2.TopLevel = False
        Form2.FormBorderStyle = FormBorderStyle.None
        Form2.WindowState = FormWindowState.Maximized
        Form2.Parent = Panel1
        Form2.Show()
    End Sub
    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
    End Sub
    '菜单栏打开图线标签，Panel中显示Form3窗体
    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
        Form2.Visible = False
        Form2.Close()
        Form3.TopLevel = False
        Form3.FormBorderStyle = FormBorderStyle.None
        Form3.WindowState = FormWindowState.Maximized
        Form3.Parent = Panel1
        Form3.Show()
    End Sub
    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
    End Sub
    '定义几个全局变量，方便其他Sub或者Function调用
    Public Com2Send As Byte()
    Public Recieve_String() As Integer
    '用于打开串口通信的按钮
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Static count As Integer = 1
        If (Button1.Text = "Start" Or Button1.Text = "未连接") Then
            Try
                Serial_con()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            If (SerialPort1.IsOpen) Then
                Button1.Text = "Stop"
                Button1.BackColor = Color.Green
                Button1.ForeColor = Color.Red
                'timer设置
                Com2Send = Comforsend(ComSelect())
                Dim i As Integer
                If count = 1 Then
                    For i = 0 To Val（ComboBox7.Text）
                        Form3.Chart1.Series.Add("CH" & i)
                    Next
                End If
                Timer1.Enabled = True
            Else
                Button1.Text = "未连接"
                Button1.BackColor = Color.Red
            End If
        ElseIf (Button1.Text = "Stop") Then
            Timer1.Enabled = False
            Button1.Text = "Start"
            Button1.BackColor = SystemColors.Control
            Button1.ForeColor = Color.Black
            Try
                SerialPort1.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            count += 1
        End If
    End Sub
'窗口载入过程
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '获取端口信息,并添加进下拉菜单
        Dim ports As String() = SerialPort.GetPortNames()
        Dim port As String
        For Each port In ports
            ComboBox1.Items.Add(port)
        Next port
        '初始化控制面板
        ComboBox2.SelectedIndex = 0
        ComboBox3.SelectedIndex = 0
        ComboBox4.SelectedIndex = 0
        ComboBox5.SelectedIndex = 0
        ComboBox6.SelectedIndex = 0
        ComboBox7.SelectedIndex = 0
        ComboBox8.SelectedIndex = 1
        ComboBox1.SelectedIndex = 0
        '加载数值显示画面
        Form2.TopLevel = False
        Form2.FormBorderStyle = FormBorderStyle.None
        Form2.WindowState = FormWindowState.Maximized
        Form2.Parent = Panel1
        Form2.Show()
        '建立一个log文件存储数据
        FileOpen(1, "log.dat", OpenMode.Append, OpenAccess.ReadWrite)
        Print(1, Format(Now(), "yyyy/MM/dd-H:mm:ss,") & vbCrLf)
        FileClose(1)
        Form3.Chart1.Series.RemoveAt(0)
        Form3.Chart1.ChartAreas(0).AxisX.Title = "时间 / min"
        'Form3.Chart1.ChartAreas(0).AxisY.Title = " 数据"
    End Sub
    '串口参数
    Private Sub Serial_con()
        SerialPort1.PortName = ComboBox1.Text '串口名称
        SerialPort1.BaudRate = Val(ComboBox2.Text) '波特率
        SerialPort1.DataBits = Val(ComboBox3.Text) '数据位
        SerialPort1.StopBits = Val(ComboBox5.Text) '停止位
        SerialPort1.Parity = Val(ComboBox4.Text) '校验位
        SerialPort1.Open() '打开串口
    End Sub
'退出程序按钮
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
'定时器，每隔一定时间进行通讯操作
    Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = Val(ComboBox8.Text) * 1000
        PortSend(Com2Send)
        Recideal()
    End Sub
'数据写入文件的过程
Public Sub Log_file(ByVal LogString As String)'需调用其他的数据
        FileOpen(1, OpenMode.Append, OpenAccess.ReadWrite)
        Print(1, LogString)
        FileClose(1)
    End Sub
'串口接收数据
    Public Sub Recideal()
        Dim n As Integer
        Dim i As Integer
        Dim rc() As Byte
        Dim RecStr As String = ""
        n = SerialPort1.BytesToRead
        ReDim rc(n)
        ReDim Recieve_String(n)
        Try
            If n > 0 Then
                For i = 0 To (n - 1)
rc(i) = SerialPort1.ReadByte()'逐字节接收数据
Recieve_String(i) = Val(rc(i))'每字节16进制转换为整数
                    RecStr += rc(i) & ","
                Next
'数据写入文件
				FileOp(RecStr)
'Form2显示数据
                LCDShow()
'画图
                LineDraw()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message & "接收数据错误")
        End Try
    End Sub
    '选择发送命令
    Public Function ComSelect() As String
        Dim ComIndex As Integer
        ComIndex = Val(ComboBox7.Text)
        Select Case ComIndex
            Case 16
                ComSelect = "01 03 00 00 00 10 44 06"
            Case 15
                ComSelect = "01 03 00 00 00 0F 05 CE"
            Case 14
                ComSelect = "01 03 00 00 00 0E C4 0E"
            Case Else
                ComSelect = InputBox("请输入16进制通讯命令：")
        End Select
    End Function
    '将待发送数据转换为16进制
    Public Function Comforsend(ByVal CommandString As String) As Byte()
        Dim TestArray() As String = Split(CommandString) '分割通信数据
        Dim hexBytes() As Byte '定义数组
        ReDim hexBytes(TestArray.Length - 1) '重定义
        Dim i As Integer
        For i = 0 To TestArray.Length - 1
            hexBytes(i) = Val("&h" & TestArray(i))
        Next
        Comforsend = hexBytes
    End Function
    '发送数据
    Public Sub PortSend(ByVal Senddata As Byte())
        Try
            SerialPort1.Write(Senddata, 0, Senddata.Length)
        Catch ex As Exception
            MessageBox.Show(ex.Message & "发送数据错误")
        End Try
    End Sub
    Public Sub FileOp(ByVal fo As String)
        Try
            FileOpen(1, "log.dat", OpenMode.Append, OpenAccess.Write)
            Print(1, fo & vbCrLf)
            FileClose(1)
        Catch ex As Exception
            MessageBox.Show(ex.Message & "读写文件错误")
        End Try
    End Sub
    Public Sub LCDShow()
        Try
            Form2.Label10.Text = Recieve_String(4) + Recieve_String(5) * 0.1 '1
            Form2.Label11.Text = Recieve_String(6) + Recieve_String(7) * 0.1
            Form2.Label12.Text = Recieve_String(8) + Recieve_String(9) * 0.1
            Form2.Label13.Text = Recieve_String(10) + Recieve_String(11) * 0.1
            Form2.Label14.Text = Recieve_String(12) + Recieve_String(13) * 0.1 '5
            Form2.Label15.Text = Recieve_String(14) + Recieve_String(15) * 0.1
            Form2.Label16.Text = Recieve_String(16) + Recieve_String(17) * 0.1
            Form2.Label17.Text = Recieve_String(18) + Recieve_String(19) * 0.1
            Form2.Label18.Text = Recieve_String(20) + Recieve_String(21) * 0.1
            Form2.Label19.Text = Recieve_String(22) + Recieve_String(23) * 0.1 '10
            Form2.Label20.Text = Recieve_String(24) + Recieve_String(25) * 0.1
            Form2.Label21.Text = Recieve_String(26) + Recieve_String(27) * 0.1
            Form2.Label22.Text = Recieve_String(28) + Recieve_String(29) * 0.1
            Form2.Label23.Text = Recieve_String(30) + Recieve_String(31) * 0.1
            Form2.Label24.Text = Recieve_String(32) + Recieve_String(33) * 0.1 '15
            Form2.Label25.Text = Recieve_String(34) + Recieve_String(35) * 0.1 '16
        Catch ex As Exception
            MessageBox.Show(ex.Message & "LCD显示错误")
        End Try
    End Sub
    Public Sub LineDraw()
        Try
            Static Count As Integer = 1
            Dim i As Integer
            Dim yvalue As Double
            For i = 0 To Val(ComboBox7.Text)
                'Form3.Chart1.Series(i).Points.Add()
                yvalue = Recieve_String(i + 3) + Recieve_String(i + 4) * 0.1
                Form3.Chart1.Series(i).Points.AddXY(Format((Count - 1) * Val(ComboBox8.Text) / 60, "0.00"), yvalue)
                Form3.Chart1.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Line
            Next
            Count += 1
        Catch ex As Exception
            MessageBox.Show(ex.Message & "LineDraw")
        End Try

    End Sub
End Class
子语默涵
关注
  • 2
    点赞
  • 踩
  • 7
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
多难得好东西---多路温度巡检仪软件
04-22
多难得好东西 JK-XU多路温度巡检仪软件
VB监控温度、流量等动态曲线源代码
03-29
VB实现监控温度、流量等动态曲线源代码，PC实时读取PLC控制设备温度
STM32F4_LCD显示图片
最新发布
light_2025的博客
06-10 3326
LCD 显示数字和字符的原理都是将数字和字符转换成点阵，通过函数扫描点阵进而在LCD上显示，LCD显示图片的原理也是如此，将图片转换成若干点阵，进而通过函数进行扫描，正点官方提供了图片转换成点阵的工具。本程序基于正点的STM32F4系列；
VB显示可用串口程序
见习馒头
04-17 2663
Private Sub Form_Load() On Error GoTo errline '如果出错，进入错误处理程序 Dim i As Integer '定义可访问的串口总数 Dim Counter As Integer
数字温度显示调节仪
01-20
1）主要技术指标：XMT-100型为二位式控制，XMT-110型为三位式狭中间带，XMT-120型为三位式宽中间带的数字温度显示调节仪。它们能与不同分度号的热电阻、热电偶配合对被测温度进行测量和位式控制。 　①设定范围：...
余姚温度巡检仪温度采集程序
08-03
本项目是用VB6.0（Visual Basic 6.0）编写的温度数据采集程序，能够高效地读取并记录余姚温度巡检仪发送的数据，为用户提供详实的温度监控报告。 1. **VB6.0编程基础**： VB6.0是Microsoft公司推出的一种可视化...
基于VB开发DS18B20温度曲线上位机软件
05-06
本项目介绍了一个利用VB（Visual Basic）开发的上位机软件，用于接收并显示由DS18B20温度传感器采集的数据，生成温度曲线。DS18B20是一款高精度、数字接口的温度传感器，其独特的单线通信协议使得它在嵌入式系统中...
vb 温度计仪表
12-01
本项目中，"vb 温度计仪表"是一个实例，它展示了如何利用VB来创建一个能够显示温度数值和模拟温度表盘的应用。以下是对这个项目的详细说明： 首先，VB中的温度计仪表通常会包含两个主要部分：数字显示和表盘模拟。...
VB开发的一个温度采集程序，含源码
04-01
一个基于串口通信的温度采集程序，本人亲测，可以使用。用VB开发的，保存方式为TXT格式，同时能够实时绘制曲线，对VB编程很有帮助
电脑上VB界面显示温度和数据程序
07-20
#include <reg51.h>//单片机51头文件,存放着单片机的寄存器 #include <intrins.h>//为了使用空指令加载的头文件 char code str[] = "www.22sky.com\n"; void send_str();//用到函数声明，注册函数 void delayms(unsigned char ms);//用到函数声明，注册函数 void send_char(unsigned char txd);//用到函数声明，注册函数 main() {
VB编程实现PID温度控制
01-10
VB PID控制 MCGS
利用Visual Basic实现温度测量与报警控制
08-22
利用Visual Basic实现温度测量与报警控制，实现集中、智能化控制
vb检测电脑温度_1026多路温度巡检系统设计
weixin_39695241的博客
11-27 305
获取本篇设计资料首页发送1026温度的检测与控制是工业生产过程中典型的应用之一。随着生产要求的提升，对温度的测量往往需要同时处理多路输入信号。这次北鸮为大家带来一篇多路温度巡检系统设计，童鞋们记得关注转发/点赞好看哦！为了满足对温度采集和测量要求，实现对各个支路温度的检测，本系统采用了AT89C51为主控的温度检测系统。该系统包括的模块主要有温度的采集，单片机的控制，RS-485通信。温...
windows系统服务器巡检仪哪个工具,基于Windows CE的便携式数据采集与处理系统
weixin_42421177的博客
08-11 484
目前，一些发达国家的工业设备运行监测和管理已日趋信息化和专业化，但国内这方面尚存在许多问题。有些企业出于投资规模和经济效益的考虑，尚未引进现代化的检测设备和管理手段，依旧使用传统的人工巡检和记录模式。即使一些大型企业已配备了较先进的监测系统和监测仪器，但是由于具体操作人员的素质和责任心等方面的问题，并未使其发挥应有的作用，且导致近年来国内设备运行故障频繁发生。因此研制和开发过程装备智能诊断系统是十...
VB开发CAD圆锥滚子轴承设计项目说明书.doc
11-25
"VB开发CAD圆锥滚子轴承设计项目说明书文档主要介绍了一个使用VB（Visual Basic）开发的CAD（计算机辅助设计）系统，用于圆锥滚子轴承的设计和计算。该系统旨在实现参数化设计，包括强度计算和自动出图功能。设计者...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值