用vb制作一个简单压力值采集显示上位机制作总结.docx

GCCX上位机制作总结
本系统的上位机制作主要采用Microsoft Word Visual Basic 。主要实现将采集和传输的数据进行接收、处理和储存的功能。
一、基本思路如下所示:
开始

从串口接收数据
数据实时显示
将数据存储到数据
库中,并实现查询
结束
由上图可以知道,本程序的三个要点分别是:1、数据的接收部分,主要指将传到串口的数据进行接收,这是后面步骤的前提与基础。2、数据的处理部分,将接收到的数据进行实时处理与绘制曲线图,并对超过警戒值的数据给予提示。3、数据的储存部分,ess2007数据库中,以便以后查询,也为分析列车运行规律以及螺丝生产厂家提供真实可贵的资料。总体思路是先分别实现
三个部分对应的功能,再将三个部分有机联合起来形成功能完善的上位机系统。
二、分别实现三个部分的制作过程及成果
第一部分,从串口接收数据。n控件()实现串口通信。其测试设计界面如下图所示:
n控件的属性设置为:
程序如下:
测试便可实时显示串口传输的数据。即实现了从串口接收
数据。
第二部分,数据的实时显示部分。这个部分的测试与制作的思路是采用随机函数产生数据并与时间控件()配合来模拟所收集的数据,对其进行实时绘图。
测试设计界面:
程序如下:
Option Explicit
Dim y As Integer '从串口读过来的实时值y坐标
Dim Lasty As Integer '上次的串口值y坐标
Dim TimeCount As Integer
Dim i As Integer
Private mand1_Click()’返回按钮
Unload Me
End Sub
Private Sub Form_Load()
PicScale Pic '调整图像框的坐标系
zuobiaoxi Pic '画出坐标系
PicMidleLine Pic '在图像框中画一条中线
End Sub
Private Sub PicScale(picX As PictureBox) '调整图像框的坐标系
(0, )-(, 0)
End Sub
Private Sub PicMidleLine(picX As PictureBox)
'在图像框中画一条中线
(0, 1000)-(, 1000), vbGreen
'画出中线
End Sub
Private Sub zuobiaoxi(picX As PictureBox) '表示坐标系
Dim i%
(0, 0)-(, 0), vbWhite 'x坐标轴表示
(0, 0)-(0, -), vbWhite
'y坐标轴表示
For i = 0 To Step 1000 'X, (0, i)-(100, i)
(i, 0)-(i, 100)
Next i
End Sub
Private Sub DrawRealLine(picX As PictureBox, y As Integer, Lasty As Integer, TimeCount As Integer)
If TimeCount - 1 > 0 Then
(TimeCount - 100, Lasty)-(TimeCount, y), vbWhite
End If
End Sub
Private Sub Timer1_Timer()
Lasty = y
Randomize
y = Int((2000 - 0 + 1) * Rnd + 0) '随机数的产生
TimeCount = TimeCount + 100
If TimeCount - 100 >= Then
TimeCount = 0

PicMidleLine Pic
zuobiaoxi Pic
End If
DrawRealLine Pic, y, Lasty, TimeCount '画出实时的曲线
End Sub
测试结果如下:
至此,由数据的实时绘图部分的测试完成。
第三部分,数据库的操作,ess2007数据库。并采用Visual Basic 的ADO Data 控件()进行连接和SQL语言实现数据库的添加,删除和查阅等基本功能。(本实验以姓名、性