VB串口曲线源码.docx

本程序是一个使用VB6.0开发的串口接收程序，并用曲线显示出来,调用的数据库base.mdb用ACCSS编写Forml.frm源码VERSION5.00Object="CFA7AFF4-3242-4269-9172-7389D695AE01#1.0#0""StoneXRocx"Object="D959C709-8613-llDl-9840-002078110E7D#1.0#0""as97Popup.ocx"Object="DAAC6951-59A4-4C08-9D6E-FE3919B64861#1.0#0""FlexCeILocx"Object="648A5603-2C6E-101B-82B6-000000000014#l.l#0""MSCOMM32.OCX"BeginVB.FormformlBorderStyIe=1'FixedSingleCaption="火灾报警器监控系统”CIientHeight=10560CIientLeft=45CIientTop=315CIientWidth=15180BeginPropertyFontName=”宋体”Size=10.5Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyIcon="Forml.frx":0000LinkTopic="Forml"MaxButton=0'FalsePicture="Forml.frx":F84AScaIeHeight=10560ScaIeWidth=15180BeginStoneXRXPButtonCmdStopHeight=375Left=6720Tabindex=47Top=9360Width=1095_ExtentX=1931_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name="宋体',Size=10.5Charset=134Weight=400Underline=0'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyCaption=“停止”Mouseicon="Forml.frx":1332EMousePointer=99EndBeginStoneXRXPButtonCmdStartHeight=375Left=5040Tabindex=46Top=9360Width=1095_ExtentX=1931ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=10.5Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethroughO'FalseEndPropertyCaption=咱动监测”Mouseicon="Forml.frx":13648MousePointer=99EndBeginVB.FrameFramePortCaption=”串口设置”Height=1815Left=1680Tabindex=39Top=8040Width=2655BeginStoneXRXPButtonCmcICIoseHeight=375Left=1440Tabindex=45Top=1200Width=1095_ExtentX=1931_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=10.5Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough二O'FalseEndPropertyCaption三“关闭串口”Mouseicon="Forml.frx":13962MousePointer三99EndBeginStoneXRXPButtonCmdOpenHeight=375Left=120Tabindex=44Top=1200Width=1215_ExtentX=2143_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=10.5Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough二O'FalseEndPropertyCaption=”打开串口”Mouseicon="Forml.frx":13C7CMousePointer三99EndBeginVB.ComboBoxComboCommHeight=330Left=1320Tabindex=40Text="Combol"Top=480Width=1095EndBeginVB.LabelLbIPortCaption=U串口“Height=375Left=360Tabindex=41Top=480Width=975EndEndBeginVB.FrameFrameDispIayCaption=”显示区”Height=1935Left=8400Tabindex=38Top=8040Width=6735BeginVB.TextBoxTxtDispIayHeight=1575Left=120MuItiLine=-1'TrueScroIIBars=2'VerticalTabindex=42Top=240Width=6495EndEndBeginVB.FrameFrameSettingCaption="发送区”Height=1215Left=4440Tablndex=31Top=8040Width=3855BeginVBTextBoxTxtBaseHeight=270Left=1200Tabindex=35Top=360Width=1335EndBeginVB-CommandButtonCmdSetZeroCaption="发送”Enabled=0'FalseHeight=255Left=2760Tabindex=34Top=360975WidthEndBeginVBJextBoxTxtFIowHeight=270Left=1200Tabindex=33Top=720Width=1335EndBeginVB-CommandButtonCmdSetFIowCaption="设定参数”Enabled=O'FalseHeight=255Left=2760Tabindex=32Top=720Width=975EndBeginVB.LabelLbIBaseCaption=”监控数据”Height=255Left=120Tabindex=37Top=360Width=855EndBeginVB.LabelLbIFIowCaption=”参数设定”Height=375Left=120Tabindex=36Top=720Width=1095EndEndBeginVBTextBoxTxtTimeAlignment三2'CenterBackCoIor三&H8000000F&Height三375Left三6000Locked=-1'TrueTabindex=30Top三9960Width=975EndBeginVBJextBoxTxtDateAlignment=BackCoIor=Height=1.eft=1.ocked=Tabindex=2'Center&H8000000F&3754320-1'True29Top=Width=End99601575BeginVBTextBoxTxtStatusBackCoIor=Height=1.eft=1.ocked=Tabindex=&H8000000F&3751800-1'True28Text=Top=Width=End"ComlzBJTff,9600zN,8zl"99602415BeginVB.TimerTmrDateTimeInterval=1.eft=5007920Top=End9960BeginVB.TimerTmrTrigerEnabled=Interval=1.eft=0'False10007560Top=End9960BeginVB.FrameFrelBackCoIor=BorderStyIe=Height=1.eft=Tabindex=&H00FF8080&O'None10125O4Top=Width=3601575BeginVB.FrameFre2BackCoIorBorderStyIeHeight=&H00808080&=O'None=375Index=O1.eft=OTabindex=9Top=1920Width=1575Beginas97Popup.asPopupasPopuplHeight=8551.eft=240TooITipText="添加销售记录"Top=240Width=1095_ExtentX=1931_ExtentY=1508CustomPicture="Forml.frx":13F96Caption="所有数据"BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name="宋体"Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=O1.ayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText="添加销售记录”EndBeginas97Popup.asPopupasPopup2Height=855Left=240TooITipText=”查看销售记录”Top=1320Width=1095_ExtentX=1931ExtentY=1508CustomPicture="Forml.frx":18AFBMouseOverPicture="Forml.frx":lD848Caption="监控数据”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethroughEndProperty=O'FalseForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText="查看销售记录EndEndBeginVB.FrameFre2BackCoIor=&H00808080&BorderStyIe=O'NoneHeight=375Index=1Left=OTabindex=8Top=2400Width=1575Beginas97Popup.asPopupasPopup4Height=855Left=240TooITipText=”查看销售记录”Top=240Width=1095_ExtentX=1931_ExtentY=1508CustomPicture="Forml.frx":22348MouseOverPicture="Forml.frx"26DF8Caption=”监控地点”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851NameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIor=BackCoIor=MaskCoIor=BeveIWidth=”宋体”=9=134=400=O'False=O'False=O'False125829121676102416761024OLayout=MouseOverCoIor=ScaIeWidth=31677721573ScaIeMode=OScaIeHeight=BackStyIe=ObjectJooITipTextEnd57O=”查看销售记录”Beginas97Popup.asPopupasPopup7Height=1.eft=TooITipText=855240”查看销售记录”Top=1320Width=1095_ExtentX=_ExtentY=CustomPicture=19311508"Forml.frx":2BBDDMouseOverPicture="Forml.frx,30ABACaption="所有地点”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851NameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIor=BackCoIor=”宋体”=9=134=400=O'False=O'False=O'False1258291216761024MaskCoIorBeveIWidth=16761024OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipTextEnd=”查看销售记录”Beginas97Popup.asPopupasPopup6Height=855Left=240TooITipText三”查看销售记录”Top=2400Width=1095_ExtentX=1931_ExtentY=1508CustomPicture=,Forml.frx"35575MouseOverPicture="Forml.frx"3A525Caption=”增加监控点”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name="宋体"Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethroughEndProperty=O'FalseForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=”查看销售记录”EndEndBeginVB.FrameFre2BackCoIor=BorderStyIe=Height=Index=1.eft=Tabindex=&H00808080&O'None3753O7Top=Width=49201575Beginas97Popup.asPopupasPopup3Height1.eftTooITipText三TopWidth=855=240=”查看销售记录”=240=1095_ExtentXExtentY=1931=1508CustomPicture="Forml.frx"3EFF9Caption="用户管理”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”SizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIorBackCoIorMaskCoIorBeveIWidth=9=134=400=O'False=O'False=O'False=12582912=16761024=16761024=OLayoutMouseOverCoIorScaIeWidthScaIeModeScaIeHeightBackStyIe=3=16777215=73=O=57=OObjectJooITipText=”查看销售记录”EndBeginas97Popup.asPopupasPopuplOHeight1.eftTooITipText三Top=855=240=”查看销售记录”=1320Width=1095_ExtentX_ExtentY=1931=1508CustomPicture="Forml.frx":43BECCaption="使用单位”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851NameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIorBackCoIorMaskCoIorBeveIWidth=”宋体”=9=134=400=O'False=O'False=O'False=12582912=16761024=16761024=OLayoutMouseOverCoIorScaIeWidthScaIeModeScaIeHeightBackStyIe=3=16777215=73=O=57=OObjectJooITipText="查看销售记录"EndEndBeginVB.FrameFre2BackCoIor=BorderStyIe=Height=Index=1.eft=Tabindex=&H00808080&O'None3754O6Top=Width=56401575Beginas97Popup.asPopupasPopup9Height1.eftTooITipText：TopWidth=855=240=”查看销售记录”=240=1095_ExtentXExtentY=1931=1508CustomPicture="Forml.frx":484B4Caption="退出系统"BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=”查看销售记录EndEndBeginVB.FrameFre2BackCoIor=&H00808080&BorderStyIe=O'NoneHeight=375Index=2Left=OTabindex=5Top=3480Width=1575Beginas97Popup.asPopupasPopup5Height=855Left=240TooITipText=”添加销售记录,Top=240Width=1095_ExtentX=1931_ExtentY=1508CustomPicture="Forml.frx":4D147MouseOverPicture=,Forml.frx"51B7FCaption=喳询“BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethroughO'FalseEndPropertyForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor三16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=”添加销售记录”EndBeginas97Popup.asPopupasPopup8Height=855Left=240TooITipText=”添加销售记录,Top=1320Width=1095_ExtentX=1931_ExtentY=1508CustomPicture=',Forml.frx"566A6Caption=”温度统计”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134WeightUnderlineItalicStrikethroughEndPropertyForeCoIor=BackCoIor=MaskCoIor=BeveIWidth=400=O'False=O'False=O'False125829121676102416761024OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObject-TooITipText="添加销售记录”EndEndBeginStoneXRXPButtonclHeight=375Index=11.eft=OTabindex=10Top=360Width=1575_ExtentX=2778_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name="宋体”Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyButtonStyIe=1Caption="监控地点”Mouseicon=',Forml.frx,5B32FMousePointer=99EndBeginStoneXRXPButtonclHeight=375Index=21.eft=OTabindex=11Top=720Width=1575_ExtentX=2778_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=',宋体”Size=9CharsetWeight=134=400Underline=O'FalseItalic=O'FalseStrikethrough=0'FalseEndPropertyButtonStyIe=Caption=1”查询与统计”Mouseicon="Forml.frx":5B649MousePointer=99EndBeginStoneXRXPButtonclHeight=Index=1.eft=3753OTabindex=12Top=Width=1080=1575_ExtentX=2778_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”SizeCharsetWeightUnderline=9=134=400=O'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyButtonStyIe=1Caption=Mouseicon”系统操作”="Forml.frx":5B963MousePointer=99EndBeginStoneXRXPButtonclHeight=375Index=4Left=OTabindex=13Top=Width=1440=1575_ExtentX=ExtentY=2778661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=',宋体”Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyButtonStyIe=1Caption=”退出系统”Mouseicon="Forml.frx":5BC7DMousePointer三99EndBeginStoneXRXPButtonclHeight=375Index=OLeft=OTabindex=14Top=OWidth=1575_ExtentX=2778ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134Weight=400Underline=O'FalseItalic=O'FalseStrikethrough=O'FalseEndPropertyButtonStyIe=1Caption="报警器管理”Mouseicon="Forml.frx":5BF97MousePointer=99EndEndBeginVB.FrameFrame2Appearance=O'FlatCaption="高级检索”ForeCoIor=&H00000000&Height=3195Left=2880Tabindex=OTop=Width=13207575BeginStoneXRXPButtonXPButton3Height=1.eft=3755760Tabindex=20Top=360Width=1455ExtentX=2566ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”SizeCharsetWeightUnderlineItalicStrikethroughEndPropertyCaption=10.5=134=400=O'False=O'False=O'False”生成语句”Mouseicon="Forml.frx":5C2BlMousePointer=99EndBeginVB.TextBoxTextlAppearance=O'FlatBeginPropertyFontName=',宋体”SizeCharsetWeightUnderlineItalicStrikethroughEndProperty=14.25=134=400=O'False=O'False=O'FalseHeight=375Left=Tablndex=108018Top=WidthEnd=1320=5895BeginVB.ComboBoxCombolHeight=330ItemData=