资源描述:
《VB上位机温度采集(含源程序).doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、VB程序OptionExplicitDimNowXAsIntegerDimMaxPlotNoAsLongDimPreValueAsSinglePrivateSubcmbCOM_Click()IfcmbCOM.ListIndex+1=MSComm1.CommPortThenExitSubTimer1.Enabled=FalseTimeDelay100IfMSComm1.PortOpenThenMSComm1.PortOpen=FalseEndIflblMsg.Caption="已停止检测并关闭通讯端口"cmdOpenCOM.Enabled=TrueEndSubPrivateSu
2、bcmdEnd_Click()EndEndSubPrivateSubcmdOpenCOM_Click()IfcmbCOM.ListIndex>=0AndcmbCOM.ListIndex<=16ThenMSComm1.CommPort=cmbCOM.ListIndex+1ElseMsgBox"指定通信端口时发生错误!",vbCritical+vbOKOnly,"系统信息"ExitSubEndIfOnErrorGoTocomErrMSComm1.Settings="9600,n,8,1"MSComm1.PortOpen=TruecmdOpenCOM.Enabled=Falsecm
3、dStart.Enabled=TruelblMsg.Caption="可单击【开始检测】按钮,执行检测的工作。"ExitSubcomErr:MsgBox"打开通信端口时发生错误!请确定通信端口存在且正常。",vbCritical+vbOKOnly,"系统信息"EndSubPrivateSubcmdStart_Click()Timer1.Enabled=NotTimer1.EnabledIfTimer1.EnabledThencmdStart.Caption="停止检测"ElsecmdStart.Caption="开始检测"lblMsg.Caption="已停止检测"EndIf
4、EndSubPrivateSubForm_Load()Dimi%MaxPlotNo=100cmbCOM.ClearcmbCOM.AddItem"COM1"cmbCOM.AddItem"COM2"cmbCOM.AddItem"COM3(USB)"cmbCOM.AddItem"COM4(USB)"cmbCOM.AddItem"COM5"cmbCOM.AddItem"COM6"cmbCOM.AddItem"COM7"cmbCOM.AddItem"COM8"cmbCOM.AddItem"COM9"cmbCOM.AddItem"COM10"cmbCOM.AddItem"COM11"cm
5、bCOM.AddItem"COM12"cmbCOM.AddItem"COM12"cmbCOM.AddItem"COM14"cmbCOM.AddItem"COM15"cmbCOM.AddItem"COM16"cmbCOM.ListIndex=0cmdStart.Enabled=False'以下设定绘图范围,(Xmin,YMax)-(XMax,YMin)picVoltage.Scale(0,50)-(MaxPlotNo,0)picVoltage.DrawWidth=2'使用两个像素宽度的画笔EndSubPrivateSubLabel2_Click()EndSubPrivateSu
6、blblValue_Click()EndSubPrivateSubMSComm1_OnComm()EndSubPrivateSubTimer1_Timer()DimBuf$,ValueStrAsSingle,Pos1%Buf$=Buf$+MSComm1.InputTimeDelay2150ValueStr=Val(Mid(Buf,Pos1+1,7))lblValue.Caption=Format(ValueStr,"00.0000")&"℃"IfNowX=0ThenpicVoltage.ClspicVoltage.PSet(0,ValueStr)ElseIfValueStr>
7、PreValue+0.01ThenpicVoltage.Line-(NowX,ValueStr),RGB(255,0,0)ElsepicVoltage.Line-(NowX,ValueStr),RGB(0,0,255)EndIfEndIfPreValue=ValueStrNowX=NowX+1IfNowX>MaxPlotNoThenNowX=0EndSub