串口曲线接收程序.docx

Forml.frm源码VERSION5.00BeginVB.FormFormlBorderStyIe=1'FixedSingleCaption=”实时曲线”CIientHeight=6690CIientLeft=45CIientTop=495CIientWidth=9840Icon="Forml.frx":0000LinkTopic="Forml"MaxButton=O'FalseMinButton=O'FalseScaIeHeight=6690ScaIeWidth=9840StartUpPosition:3，窗口缺省BeginVB1PictureBoxPicturelAutoRedraw=-1'TrueBackCoIor=&H80000012&Height=2175Left=120ScaIeHeight=2115ScaIeWidth=9585Tabindex=4Top=120Width=9650EndBeginVB1PictureBoxPictureJineAutoRedraw=-1'TrueBackCoIor=&H80000012&Height=2145Left=120ScaIeHeight=2085ScaIeWidth=4785Tabindex=3Top=2280Width=4845EndBeginVB-PictureBoxPicture_pointAutoRedraw=-1'TrueBackCoIor=&H80000012&Height=2145Left=120ScaIeHeight=2085ScaIeWidth=4785Tabindex=2Top=4440Width=4845EndBeginVB1PictureBoxPicturejine2AutoRedraw=-1'TrueBackCoIor=&H80000012&Height=2145Left=4920ScaIeHeight=2085ScaIeWidth=4785Tabindex=1Top=2280Width=4845EndBeginVB1PictureBoxPicture_point2AutoRedraw=-1'TrueBackCoIor=&H80000012&Height=2145Left=4920ScaIeHeight=2085ScaIeWidth=4785Tabindex二OTop三4440Width=4845EndEndAttributeVB_Name=,'Forml"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_Predeclaredld=TrueAttributeVB_Exposed=FalseOptionExplicitPrivateSubForm_Load()WithLDrawl.InitDrawLinePictureJine,vbRed,True.Max=5.HorzSpIits=6.VertSpIits=6.LineType=TYPE-LINE.RePaintEndWithWithPDrawl.InitDrawLinePicturjpoint,VbRed,True.Max=5.HorzSpIits=6.VertSpIits=6.LineType=TYPE-POINT.RePaintEndWithWithLDraw2.InitDrawLinePictureJineZ,vbRed,True.Max=5.HorzSpIits=6.VertSpIits=6.LineType=TYPE-LINE.RePaintEndWithWithPDraw2.InitDrawLinePicture-point2,VbRed,True.Max=5.HorzSpIits=6.VertSpIits=6.LineType=TYPE-POINT.RePaintEndWithWithPDraw3.InitDrawLinePicturelzVbYeIIowzTrue,RGB(OzO,255)zTrue.Max=5.HorzSpIits=6.VertSpIits=6.LineType=TYPE-POINTEndWithEndSubPrivateSubForm_Unload(CancelAsInteger)UnloadMeEndSubPrivateSubPicture_line_Paint()1.Drawl1RePaintEndSubPrivateSubPicture_line2_Click()1.Draw2.RePaintEndSubPrivateSubPicture_point_Paint()PDrawl.RePaintEndSubPrivateSubPicture_point2_Click()PDrawl.RePaintEndSubPrivateSubPicturel_Click()PDraw3.RePaintEndSubForm2.frm源码VERSION5.00BeginVB.FormForm2Caption=,Form2"CIientHeight=3030CIientLeft=60CIientTop=510CIientWidth=4680LinkTopic="Form2"MaxButton=0'FalseScaIeHeight=3030ScaIeWidth=4680StartUpPosition=3，窗口缺省BeginVB.LabelLabel2Caption="火灾报警器数据采集工具VLO1BeginPropertyFontName="宋体,，Size=10.5Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=375Left=840Tabindex=1Top=1680Width=3375End“西安亚川电力科技有限公司”BeginVB.LabelLabellCaptionBeginPropertyFontName=”宋体”Size=10.5Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=495Left=960Tabindex=0Top=720Width=2535EndEndAttributeVB_Name="Form2"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_Predeclaredld=TrueAttributeVB_Exposed=FalsefrmAbout.frm源码VERSION5.00BeginVB.FormfrmAboutBorderStyIe=3'FixedDialogCaption=“火灾报警器数据采集工具CIientHeight=3555CIientLeft=2340CIientTop=1935CIientWidth=5730ClipControIs=0'FalseIcon=,frmAbout.frx":0000LinkTopic="Form2"MaxButton=0'FalseMinButton=0'FalseScaIeHeight=2453.724ScaIeMode=0'UserScaIeWidth=5380.766ShowInTaskbar=0'FalseBeginVB-PictureBoxpiclconAutoSize=-1'TrueClipControIs=0'FalseHeight=540Left=240Picture="frmAbout.frx":038AScaIeHeight=337.12ScaIeMode=O'UserScaIeWidth=337.12Tabindex=1Top=240Width=540EndBeginVB1CommandButtoncmdOKCancel三-1'TrueCaption=“确定,，Default=-1'TrueHeight=345Left=4125Tabindex=OTop=2625Width=1500EndBeginVB-CommandButtonCmdSysInfoCaption=”系统信息(&S).”Height=345Left=4140Tabindex=2Top=3075Width=1485EndBeginVB.LineLinelBorderCoIor=&H00808080&BorderStyIe=6'InsideSolidIndex=1Xl=84.515X2=5309.398Yl=1687.583Y2三1687.583EndBeginVB.LabelIbIDescriptionCaption=”本软件是西安亚川电力科技有限公司的火灾报警器数据采集专用软件。"ForeCoIor=&H00000000&Height=1170Left=1050Tabindex=3Top=1125Width=EndBeginVB.LabelIbITitIeCaption=ForeCoIor=Height=1.eft=Tabindex=3885”西安亚川电力科技有限公司”&H00000000&48010505Top=Width=End2403885BeginVB.LineLinelBorderCoIor=BorderWidth=Index=&HOOFFFFFF&2OXl=98.6X2=5309.398Yl=1697.936Y2=EndBeginVB.LabelIbIVersionCaption=Height=1.eft=Tabindex=1697.936,版本1.0"22510506Top=Width=End7803885BeginVB.LabelIblDiscIaimerCaption=ForeCoIor=Height=1.eft=Tabindex=”西安亚川电力科技有限公司版权所有”&H00000000&8252554Top=Width=EndEnd26253630AttributeVB_Name="frmAbout"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB-Predeclaredld=TrueAttributeVB_Exposed=FalseOptionExplicit,注册表关键字安全选项ConstREAD_CONTROL=&H20000ConstKEY_QUERY_VALUE=&H1ConstKEY_SET_VALUE=&H2ConstKEY_CREATE_SUB_KEY=&H4ConstKEY_ENUMERATE_SUB_KEYS=&H8ConstKEY_NOTIFY=&H10ConstKEY_CREATE_LINK=&H20ConstKEY_ALL_ACCESS=KEY_QUERY_VALUE+KEY_SET_VALUE+_KEY_CREATE_SUB_KEY+KEY_ENUMERATE_SUB_KEYS+_KEY_NOTIFY+KEY_CREATE_LINK+READ_CONTROL,注册表关键字ROOT类型ConstHKEY_LOCAL_MACHINE=&H80000002ConstERROR_SUCCESS=0ConstREG_SZ=1'独立的空的终结字符串ConstREG_DWORD=4'32位数字ConstgREGKEYSYSINFOLOC="SOFTWAREMicrosoftSharedToolsLocation"ConstgREGVALSYSINFOLOC="MSINFO"ConstgREGKEYSYSINFO="SOFTWAREMicrosoftSharedToolsMSINFO"ConstgREGVALSYSINFO="PATH"PrivateDeclareFunctionRegOpenKeyExLib,advapi32"Alias"RegOpenKeyExA"(ByVaIhKeyAsLong,ByVaIIpSubKeyAsString,ByVaIUlOptionsAsLong,ByVaISamDesiredAsLong,ByRefPhkResuItAsLong)AsLongPrivateDeclareFunctionRegQueryVaIueExLib"advapi32"Alias"RegQueryVaIueExA"(ByVaIhKeyAsLong,ByVaIIpVaIueNameAsString,ByVaIIpReservedAsLong,ByRefIpTypeAsLong,ByVaIIpDataAsString,ByRefIpcbDataAsLong)AsLongPrivateDeclareFunctionRegCIoseKeyLib"advapi32"(ByVaIhKeyAsLong)AsLongPrivateSubcmdSyslnfo_Click()CallStartSysInfoEndSubPrivateSubcmdOK_Click()UnloadMeEndSubPrivateSubForm_Load()Me.Caption="关于"&App.TitleIblVersion.Caption="版本"&App.Major&"."&App.Minor&"."&App1RevisionIblTitIe-Caption=AppJitIeEndSubPublicSubStartSysInfoOOnErrorGoToSysInfoErrDimrcAsLongDimSysInfoPathAsString,试图从注册表中获得系统信息程序的路径及名称.IfGetKeyVaIUe(HKEY_LOCAL_MACHINE,gREGKEYSYSINF0,gREGVALSYSINFO,SysInfoPath)Then'试图仅从注册表中获得系统信息程序的路径.ElselfGetKeyValue(HKEY-LOCAL-MACHINE,gREGKEYSYSINFOLOC,gREGVALSYSINFOLOC,SysInfoPath)Then,已知32位文件版本的有效位置If(Dir(SyslnfoPath&"MSINFO32.EXE")<>"',)ThenSysInfoPath=SysInfoPath&"MSINFO32.EXE",错误文件不能被找到ElseGoToSysInfoErrEndIf'错误-注册表相应条目不能被找到ElseGolbSysInfoErrEndIfCallShell(SyslnfoPath,VbNormaIFocus)ExitSubSysInfoErr:MsgBox"此时系统信息不可用",VbOKOnIyEndSubPublicFunctionGetKeyValue(KeyRootAsLong,KeyNameAsString,SubKeyRefAsString,ByRefKeyVaIAsString)AsBooleanDimIAsLong,循环计数器DimrcAsLong'返回代码DimhKeyAsLong'打开的注册表关键字句柄DimhDepthAsLong,注册表关键字数据类型,注册表关键字值的临时DimKeyVaITypeAsLongDimtmpValAsString存储器DimKeyVaISizeAsLong寸注册表关键自变量的尺'打开HKEY_LOCAL_MACHINE.下的RegKeyrc=RegOpenKeyExlKeyRoot,KeyNamez0,KEY_ALL_ACCESS,hKey)'打开注册表关键字If(rc<>ERROR_SUCCESS)ThenGoToGetKeyError处理错误tmpVal=StringS(1024,0)分配变量空间KeyVaISize=1024标记变量尺寸检索注册表关键字的值rc=RegQUeryValUeEX(hKey,SubKeyRefz0,_KeyVaITypeztmpVal,KeyVaISize)获得/创建关键字值If(rc<>ERROR_SUCCESS)ThenGoToGetKeyErrorIf(Asc(Mid(tmpValzKeyVaISizez1)=0)Then串.tmpVal=Left(tmpValzKeyVaISize-1)出来Else符串tmpVal=Left(tmpVal,KeyVaISize)串EndIf决定转换的关键字的值类型SelectCaseKeyVaITypeCaseREG_SZ据类型KeyVaI=tmpValCaseREG_DWORD键字数据类型ForI=Len(tmpVal)To1Step-1KeyVaI=KeyVaI+Hex(Asc(Mid(tmpVal,1,1)Next,处理错误,Win95外接程序空终结字符,Null被找到,从字符串中分离,WinNT没有空终结字,Null没有被找到，分离字符,搜索数据类型,字符串注册关键字数,复制字符串的值,四字节的注册表关'将每位进行转换生成值字符。ByCharoKeyVaI=Format$("&h"+KeyVaI)'转换四字节的字符为字符返回成功关闭注册表关键字 退出,设置返回值到空字符返回失败关闭注册表关键字EndSelectGetKeyVaIue=Truerc=RegCIoseKey(KKey)ExitFunctionGetKeyError:'错误发生后将其清除.KeyVaI="|,串GetKeyVaIue=Falserc=RegCIoseKey(KKey)EndFunctionfrmBrowsenfrm源码VERSION5.00Object="831FDD16-0C5C-llD2-A9FC-0000F8754DAl#2.0#0""MSCOMCTL.OCX"Object="EAB22AC0-30Cl-llCF-A7EB-0000C05BAE0B#l.l#0""shdocvw.dll"BeginVB.FormfrmBrowserCIientHeight=4965CIientLeft=3060CIientTop=3510CIientWidth=65401.inkTopic="Forml"ScaIeHeight=4965ScaIeWidth=6540ShowInTaskbar=0'FalseBeginVB.TimertimTimerEnabled=0'FalseInterval1.eftTopEnd=5=6180=1500BeginVB-PictureBoxpicAddressAlignBorderStyIeHeight1.eftScaIeHeightScaIeWidthTabindexTabStopTop=1'AlignTop=0'None=675=0=675=6540=4=0'False=540Width=6540BeginVB.ComboBoxCboAddressHeightLeftTabindexTextTopWidthEnd=300=45=2="Combol"=300=3795BeginVB.LabelIblAddressCaptionHeightLeftTabindexTagTopWidthEndEnd="地址(&A):”=255=45=1="地址(&A):“=60=3075BeginMSComctILib.ToolbartbT00IBarAlign=Height=1.eft=Tabindex=Top=Width=_ExtentX=ExtentY=1'AlignTop540O3O654011536953ButtonWidth=820ButtonHeight=794Appearance=ImageList=Version=1"imlToolbarlcons"393216BeginPropertyButtons66833FE8-8583-llDl-B16A-00C0F0283628NumButtons=6BeginPropertyButtonl66833FEA-8583-llDl-B16A-00C0F0283628Key="Back"ObjectJooITipText="Back"ImageindexEndProperty=1BeginPropertyButton266833FEA-8583-llDl-B16A-00C0F0283628Key="Forward"Object-TooITipText="Forward"Imageindex=2EndPropertyBeginPropertyButton366833FEA-8583-llDl-B16A-00C0F0283628Key="Stop"Object.TooITipText="Stop"Imageindex=3EndPropertyBeginPropertyButton466833FEA-8583-llDl-B16A-00C0F0283628Key="Refresh"Object.TooITiplext="Refresh"Imageindex=4EndPropertyBeginPropertyButtonS66833FEA-8583-llDl-B16A-00C0F0283628Key="Home"ObjectjooITiplext="Home"Imageindex=5EndPropertyBeginPropertyButto666833FEA-8583-llDl-B16A-00C0F0283628Key="Search"Object-TooITipText="Search"Imageindex=6EndPropertyEndPropertyEndBeginMSComctlLib.ImageListImlTooIbarIconsLeft=Top=_ExtentX=ExtentY=2670223510051005BackCoIor=-2147483643ImageWidth=24ImageHeight=MaskCoIor=Version=2412632256393216BeginPropertyImages2C247F25-8591-llDl-B16A-00C0F0283628NumListImages=6BeginPropertyListlmagel2C247F27-8591-llDl-B16A-00C0F0283628PictureKeyEndProperty="frmBrowser.frx":0000IlllBeginPropertyListlmage22C247F27-8591-llDl-B16A-00C0F0283628PictureKeyEndProperty="frmBrowsenfrx":0712IlllBeginPropertyListlmage32C247F27-8591-llDl-B16A-00C0F0283628Picture="frmBrowser.frx":0E24Key=""EndPropertyBeginPropertyListlmage42C247F27-8591-llDl-B16A-00C0F0283628Picture="frmBrowser.frx":1536Key=""EndPropertyBeginPropertyListlmage52C247F27-8591-llDl-B16A-00C0F0283628Picture="frmBrowser.frx":1C48Key=""EndPropertyBeginPropertyListImageG2C247F27-8591-llDl-B16A-00C0F0283628Picture="frmBrowser.frx":235AKey=""EndPropertyEndPropertyEndBeginSHDocvwCtLWebBrowserbrwWebBrowserHeight=3734Left=50Tabindex=OTop=1215Width=5393ExtentX=9513ExtentY=6586ViewMode=OOffline=OSilent=ORegisterAsBrowser=ORegisterAsDropTarget=1AutoArrange=O'FalseNoCIientEdge=O'FalseAIignLeft=O'FalseNoWebView=O'FalseHideFiIeNames=O'FalseSingIeCIick=O'FalseSingIeSeIection=O'FalseNoFoIders=O'FalseTransparent=O'FalseViewID=,0057D0E0-3573-llCF-AE69-08002B2E1262"Location="http:/"EndEndAttributeVBName="frmBrowser"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_Predeclaredld=TrueAttributeVB_Exposed=FalsePublicStartingAddressAsStringDimmbDontNavigateNowAsBooleanPrivateSubForm_Load()OnErrorResumeNextMe.ShowtbToolBar.RefreshForm_ResizecboAddress.Move50,IbIAddressTop+IbIAddress-Height+15IfLen(StartingAddress)>OThenCboAddress,Text=StartingAddressCboAddress-AddItemcboAddress.Text'尝试定位到起始地址timTimer.Enabled=TruebrwWebBrowser.NavigateStartingAddressEndIfEndSubPrivateSubbrwWebBrowser_DownloadComplete()OnErrorResumeNextMe.Caption=brwWebBrowser.LocatioNameEndSubPrivateSubbrwWebBrowser_NavigateComplete2(ByValpDispAsObject,URLAsVariant)OnErrorResumeNextDimIAsIntegerDimbFoundAsBooleanMe.Caption=brwWebBrowser.LocationNameForI=OToCboAddresslistCount-1IfcboAddresslist(I)=brwWebBrowser.LocationURLThenbFound=TrueExitForEndIfNextImbDontNavigateNow=TrueIfbFoundThenCboAddress.RemoveItemIEndIfCboAddress-AddItembrwWebBrowser.LocationURL,OCboAddress.UstIndex=OmbDontNavigateNow=FalseEndSubPrivateSubcboAddress_Click()IfmbDontNavigateNowThenExitSubtimTimer.Enabled=TruebrwWebBrowser.NavigateCboAddressJextEndSubPrivateSubcboAddress_KeyPress(KeyAsciiAsInteger)OnErrorResumeNextIfKeyAscii=VbKeyReturnThencboAddress_ClickEndIfEndSubPrivateSubForm_Resize()OnErrorResumeNextCboAddress.Width=Me1ScaIeWidth-100brwWebBrowser.Width=Me-ScaIeWidth-100brwWebBrowser.Height=Me-ScaIeHeight-(picAddress.Top+picAddress.Height)-100EndSubPrivateSubtimTimer_Timer()IfbrwWebBrowser.Busy=FalseThentimTimer.Enabled=FalseMe.Caption=brwWebBrowser.LocationNameElseMe.Caption="Working."EndIfPrivateSubtbToolBar_ButtonClick(ByValButtonAsButton)OnErrorResumeNexttimTimer.Enabled=TrueSelectCaseButton.KeyCase"Back"brwWebBrowser.GoBackCase"Forward"brwWebBrowser.GoForwardCase"Refresh"brwWebBrowser.RefreshCase"Home"brwWebBrowser.GoHomeCase"Search"brwWebBrowser.GoSearchCase"Stop"timTimer.Enabled=FalsebrwWebBrowser.StopMe.Caption=brwWebBrowser.LocationNameEndSelectEndSubfrmMain.frm源码VERSION5.00Object="F9043C88-F6F2-101A-A3C9-08002B2F49FB#1.2#0",COMDLG32.OCX"Object="831FDD16-0C5C-llD2-A9FC-0000F8754DAl#2.0#0""MSCOMCTLOCX"Object="5E9E78A0-531B-llCF-91F6-C2863C385E30#1.0#0",MSFLXGRD.OCX"Object="648A5603-2C6E-10