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

《用vb制作一个简单压力值采集显示上位机制作总结》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、GCCX上位机制作总结本系统的上位机制作主要采用MicrosoftWordVisualBasic6.0编写。主要实现将采集和传输的数据进行接收、处理和储存的功能。一、基本思路如下所示：由上图可以知道，本程序的三个要点分别是：1、数据的接收部分，主要指将传到串口的数据进行接收，这是后面步骤的前提与基础。2、数据的处理部分，将接收到的数据进行实时处理与绘制曲线图，并对超过警戒值的数据给予提示。3、数据的储存部分，指对接收处理过的数据按照一定的格式存储到access2007数据库中，以便以后查询，也为分析列车运行规律以及螺丝生产厂家提供真实可贵的资料。总体思路是先分别实现三个部分对应的功能，再将三

2、个部分有机联合起来形成功能完善的上位机系统。二、分别实现三个部分的制作过程及成果第一部分，从串口接收数据。主要用到的是MSComn控件）实现串口通信。其测试设计界面如下图所示:其中MSComn控件的属性设置为:Zl1决于）1（名称）MSComml（自定义）CommPort1DTREnableTrueEOFEnableFalseHandshaking0一comNoneInBufferSize1024IndexInputLen0InputMode0-comlnputModeTextLeft360NullDiscardFalseOutBufferSize512ParityReplace?RThre

3、shold0RTSEnableFalseSettings9600,叫8,1SThreshold0TagTop600程序如下:▼

4、(Load"1匸工程1・Forml(Code)PrivateSubCommandl_C1ick()MSComml.PortOpen=True'打打串口Commandl.Enabled=False使按相无救。Command2.Enabled=True便衣钮生政。BadSiAPrivateSubComm^nd2_Click()MSComml.PortOpen=FalseCommands.Enabled=FalseCommandl.Enabled=TrueEndSubPr

5、ivateSubForm—Load0EndSubPrivateSubMSComml_OnComm()SelectCaseMSComm1.InputCase"B"Textl.Text二Textl.Text+"B"CaseCTextl.Text=Textl.Text+"C"Case"D"Textl.Text=Textl.Text+"D"Case"E"Textl.Text=Textl.Text+"E"Case"F"Textl.Text=Textl.Text+"F"EndSelectEndSub测试便可实时显示串口传输的数据。即实现了从串口接收数据。第二部分，数据的实时显示部分。这个部分的测试与制作

6、的思路是采用随机函数产牛数据并与时间控件（團）配合来模拟所收集的数据，对其进行实时绘图。测试设计界面:5FormlY压力/N返回0X时间/t程序如下:OptionExplicitDimDataFromComyAsInteger'从串口读过来的实时值y坐标DimDataFromComLastyAsInteger'上次的串口值y坐标DimTimeCountAsIntegerDimiAsIntegerPrivateSubCommandlClick()?返回按钮UnloadMeEndSubPrivateSubForm_Load()PicScalePic调整图像框的坐标系zuobiaoxiPic画出坐

7、标系PicMidleLinePic在图像框中画一条中线EndSubPrivateSubPicScale(picXAsPictureBox)'调整图像框的坐标系picX.Scale(0,picX.ScaleHeight)-(picX.ScaleWidth,0)EndSubPrivateSubPicMidleLine(picXAsPictureBox)'在图像框中画一条中线picX.Line(0,1000)-(picX.ScaleWidth,1000),vbGreen'画出中线EndSubPrivateSubzuobiaoxi(picXAsPictureBox)'表示坐标系Dimi%picX.L

8、ine(0,0)-(picX.ScaleWidth,0),vbWhite'x坐标轴表示picX.Line(0,0)-(0,-picX.ScalcHcight),vbWhitc'y坐标轴表示Fori=0TopicX.ScaleWidthStep1000，x,y轴坐标坐标刻度显示picX.Line(0,i)-(100,i)picX.Line(i,0)-(i,100)NextiEndSubPrivateSubDra