资源描述：
《利用vb_net实现电子定量秤检定后的数据处理》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、利用实现电子VB.net定量秤检定后的数据处理广州市计量测试所马健[摘要]本文介绍了如何利用VB.net编程程序编写电子定量秤检定后数据处理的方法。[关键词]电子定量秤;VB.net;数据处理[中图分类号]TH715.1+6;TP21[文献标识码]BDataprocessingusingVB.netprogramforautomaticgravimetricfillinginstrumentsAbstract:ThisarticleintroducesthathowtousingVB.netprogrami
2、ndataprocessingforautomaticgravimetricfillinginstruments.Keywords:automaticgravimetricfillinginstruments;VB.net;dataprocessing概述1式中:Mx装料质量(g);MP预设装料质量(g);n装料次数;mdx第x次平均偏差(g)。测出Mx值通过以上公式计算求得最大平均偏差及最大预设值误差。准确度等级确定根据最大平均偏差及最大预设值误差通过以下公式重新确定准确度等级,判断公式为电子定量秤又称重
3、力式自动装料衡器,主要通过设定额定重量值(即预设值)对固体物料进行称量装料,一般用于食品生产企业。按照国家计量检定规程《JJG564-2002重力式自动装料衡器检定规程》的要求,电子定量秤的测量方法是利用实物检定装置(在规程中称作控制衡器)对电子定量秤的装料进行称重,以下两个参数判断:预设值误差其计量准确性主要由x)≥[se/mpse]X(X(X(1Maxx)≥[md/mpd1]Maxx)≥Re(fx)年即所有装料的平均值与装料预设值的误差sese=(!M/n)-Mp第35卷且(x)=1×10k、2×10k
4、、5×10kk为零或正负整数式中md最大平均偏差(g);se最大预设值误差(g);mpd(1)X(1)级最大允许平均偏差(g);mpse(1)X(1)级最大预设值误差(g);Re(fx)准确度等级参考值。式中:MP预设装料质量(装料次数平均偏差的计算g);M装料质量(g);n第1期数据处理程序2即每一装料质量值与装料平均值的偏差md由上述情况可以看出在电子定量秤的检定后需要处理的数据量大且繁琐,而利用计算机软件编写mdx=Mx-(!M/n)(x=1、2n)2006开始选择装料次数、数据小数点后位数;输入每次
5、的装料质量值、预设质量值计算平均值、预设值误差、平均偏差、最大平均偏差确定准确度等级打印结果结束图1程序流程图科技应用Science-Technology&Application相关程序能简单直接准确地处理好检定后的数据。DimSumTempAsDoubleDimAverageTempAsDoubleDimIpointAsIntegerIpoint=Me.NumericUpDown1.TextSumTemp=0AverageTemp=0DimiAsIntegerFori=0ToTemp-1ArrayTemp
6、(i)=CType(TxtInpu(ti).Text,Dou-VisualBasic.net是一种常见的编程软件,它所提供的可视化开发环境,使编程人员不用编写大量的代码去描述界面元素的外观和位置,从而使编程效率得到极大的提高。用VB.net编写的应用程序是窗口模式,操作简单、直观,为用户提供了交互式的对话界面,解除了复杂的工程运算输入格式的后顾之忧。下面简单介绍一下它在电子定量秤检定数据处理中的应用,其程序流程如下:ble)SumTemp=SumTemp+ArrayTemp(i)NextAverageTem
7、p=SumTemp/Temp’处理进位AverageTemp=ChangeNum(AverageTemp,Ipoint)’处理进位IfNot(FmResultIsNothingorFmResult.IsDis-posed)ThenFmResult.Dispose()EndIfFmResult=NewFrmResultFmResult.MdiParent=Me.MdiParentIfTemp=10Then在该程序中包含了【输入界面【】误差结果显示】【准确度等级判断】三部分。在【输入界面】中主要通过装料次数的选
8、择,由程序判断所需要显示的数据输入控件,程序代码如下:Me.GroupBox1.Controls.Clea(r)Temp=0ReDimTxtInpu(t9)DimiAsIntegerFori=0To9TxtInpu(ti)=NewTextBoxMe.GroupBox1.Controls.Add(TxtInpu(ti))TxtInpu(ti).Size=NewSize(64,21)TxtInpu(ti).Locat
