VB串口曲线源码.docx

《VB串口曲线源码.docx》由会员分享，可在线阅读，更多相关《VB串口曲线源码.docx（129页珍藏版）》请在三一办公上搜索。

1、本程序是一个使用VB6.0开发的串口接收程序，并用曲线显示出来,调用的数据库base.mdb用ACCSS编写Forml.frm源码VERSION5.00Object=CFA7AFF4-3242-4269-9172-7389D695AE01#1.0#0;StoneXRocxObject=D959C709-8613-llDl-9840-002078110E7D#1.0#0;as97Popup.ocxObject=DAAC6951-59A4-4C08-9D6E-FE3919B64861#1.0#0;FlexCeILocxObject=648A5603-2C6E-101B-82B6-000000000

2、014#l.l#0;MSCOMM32.OCXBeginVB.FormformlBorderStyIe=1FixedSingleCaption=火灾报警器监控系统”CIientHeight=10560CIientLeft=45CIientTop=315CIientWidth=15180BeginPropertyFontName=”宋体”Size=10.5Charset=134Weight=400Underline=0FalseItalic=0FalseStrikethrough=0FalseEndPropertyIcon=Forml.frx:0000LinkTopic=FormlMaxButto

3、n=0FalsePicture=Forml.frx:F84AScaIeHeight=10560ScaIeWidth=15180BeginStoneXRXPButtonCmdStopHeight=375Left=6720Tabindex=47Top=9360Width=1095_ExtentX=1931_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=宋体,Size=10.5Charset=134Weight=400Underline=0FalseItalic=OFalseStrikethrough=OFa

4、lseEndPropertyCaption=“停止”Mouseicon=Forml.frx:1332EMousePointer=99EndBeginStoneXRXPButtonCmdStartHeight=375Left=5040Tabindex=46Top=9360Width=1095_ExtentX=1931ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=10.5Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethro

5、ughOFalseEndPropertyCaption=咱动监测”Mouseicon=Forml.frx:13648MousePointer=99EndBeginVB.FrameFramePortCaption=”串口设置”Height=1815Left=1680Tabindex=39Top=8040Width=2655BeginStoneXRXPButtonCmcICIoseHeight=375Left=1440Tabindex=45Top=1200Width=1095_ExtentX=1931_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9

6、DE3-00AA004BB851Name=”宋体”Size=10.5Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethrough二OFalseEndPropertyCaption三“关闭串口”Mouseicon=Forml.frx:13962MousePointer三99EndBeginStoneXRXPButtonCmdOpenHeight=375Left=120Tabindex=44Top=1200Width=1215_ExtentX=2143_ExtentY=661BeginPropertyFont0BE35203-8F9

7、1-llCE-9DE3-00AA004BB851Name=”宋体”Size=10.5Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethrough二OFalseEndPropertyCaption=”打开串口”Mouseicon=Forml.frx:13C7CMousePointer三99EndBeginVB.ComboBoxComboCommHeight=330Left=1320Tabindex=40Text=CombolTop=480Width=1095EndBeginVB.LabelLbIPortCaption=U串口“He

8、ight=375Left=360Tabindex=41Top=480Width=975EndEndBeginVB.FrameFrameDispIayCaption=”显示区”Height=1935Left=8400Tabindex=38Top=8040Width=6735BeginVB.TextBoxTxtDispIayHeight=1575Left=120MuItiLine=-1TrueScroIIBars=2VerticalTabindex=42Top=240Width=6495EndEndBeginVB.FrameFrameSettingCaption=发送区”Height=1215Le

9、ft=4440Tablndex=31Top=8040Width=3855BeginVBTextBoxTxtBaseHeight=270Left=1200Tabindex=35Top=360Width=1335EndBeginVB-CommandButtonCmdSetZeroCaption=发送”Enabled=0FalseHeight=255Left=2760Tabindex=34Top=360975WidthEndBeginVBJextBoxTxtFIowHeight=270Left=1200Tabindex=33Top=720Width=1335EndBeginVB-CommandBut

10、tonCmdSetFIowCaption=设定参数”Enabled=OFalseHeight=255Left=2760Tabindex=32Top=720Width=975EndBeginVB.LabelLbIBaseCaption=”监控数据”Height=255Left=120Tabindex=37Top=360Width=855EndBeginVB.LabelLbIFIowCaption=”参数设定”Height=375Left=120Tabindex=36Top=720Width=1095EndEndBeginVBTextBoxTxtTimeAlignment三2CenterBackC

11、oIor三&H8000000F&Height三375Left三6000Locked=-1TrueTabindex=30Top三9960Width=975EndBeginVBJextBoxTxtDateAlignment=BackCoIor=Height=1.eft=1.ocked=Tabindex=2Center&H8000000F&3754320-1True29Top=Width=End99601575BeginVBTextBoxTxtStatusBackCoIor=Height=1.eft=1.ocked=Tabindex=&H8000000F&3751800-1True28Text=To

12、p=Width=EndComlzBJTff,9600zN,8zl99602415BeginVB.TimerTmrDateTimeInterval=1.eft=5007920Top=End9960BeginVB.TimerTmrTrigerEnabled=Interval=1.eft=0False10007560Top=End9960BeginVB.FrameFrelBackCoIor=BorderStyIe=Height=1.eft=Tabindex=&H00FF8080&ONone10125O4Top=Width=3601575BeginVB.FrameFre2BackCoIorBorder

13、StyIeHeight=&H00808080&=ONone=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=

14、134Weight=400Underline=OFalseItalic=OFalseStrikethrough=OFalseEndPropertyForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=O1.ayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=添加销售记录”EndBeginas97Popup.asPopupasPopup2Height=855Left=240TooI

15、TipText=”查看销售记录”Top=1320Width=1095_ExtentX=1931ExtentY=1508CustomPicture=Forml.frx:18AFBMouseOverPicture=Forml.frx:lD848Caption=监控数据”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethroughEndProperty=OFalseForeCoIor=12582912

16、BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=查看销售记录EndEndBeginVB.FrameFre2BackCoIor=&H00808080&BorderStyIe=ONoneHeight=375Index=1Left=OTabindex=8Top=2400Width=1575Beginas97Popup.asPopupasPopup4Height

17、=855Left=240TooITipText=”查看销售记录”Top=240Width=1095_ExtentX=1931_ExtentY=1508CustomPicture=Forml.frx:22348MouseOverPicture=Forml.frx26DF8Caption=”监控地点”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851NameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIor=BackCoIor=MaskCoIor=BeveIWid

18、th=”宋体”=9=134=400=OFalse=OFalse=OFalse125829121676102416761024OLayout=MouseOverCoIor=ScaIeWidth=31677721573ScaIeMode=OScaIeHeight=BackStyIe=ObjectJooITipTextEnd57O=”查看销售记录”Beginas97Popup.asPopupasPopup7Height=1.eft=TooITipText=855240”查看销售记录”Top=1320Width=1095_ExtentX=_ExtentY=CustomPicture=19311508F

19、orml.frx:2BBDDMouseOverPicture=Forml.frx,30ABACaption=所有地点”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851NameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIor=BackCoIor=”宋体”=9=134=400=OFalse=OFalse=OFalse1258291216761024MaskCoIorBeveIWidth=16761024OLayout=3MouseOverCoIor=16777

20、215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipTextEnd=”查看销售记录”Beginas97Popup.asPopupasPopup6Height=855Left=240TooITipText三”查看销售记录”Top=2400Width=1095_ExtentX=1931_ExtentY=1508CustomPicture=,Forml.frx35575MouseOverPicture=Forml.frx3A525Caption=”增加监控点”BeginPropertyFont0BE35203-8F91-l

21、lCE-9DE3-00AA004BB851Name=宋体Size=9Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethroughEndProperty=OFalseForeCoIor=12582912BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=”查看销售记录”EndEndBeginVB

22、.FrameFre2BackCoIor=BorderStyIe=Height=Index=1.eft=Tabindex=&H00808080&ONone3753O7Top=Width=49201575Beginas97Popup.asPopupasPopup3Height1.eftTooITipText三TopWidth=855=240=”查看销售记录”=240=1095_ExtentXExtentY=1931=1508CustomPicture=Forml.frx3EFF9Caption=用户管理”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA00

23、4BB851Name=”宋体”SizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIorBackCoIorMaskCoIorBeveIWidth=9=134=400=OFalse=OFalse=OFalse=12582912=16761024=16761024=OLayoutMouseOverCoIorScaIeWidthScaIeModeScaIeHeightBackStyIe=3=16777215=73=O=57=OObjectJooITipText=”查看销售记录”EndBeginas97Popup.asPopupa

24、sPopuplOHeight1.eftTooITipText三Top=855=240=”查看销售记录”=1320Width=1095_ExtentX_ExtentY=1931=1508CustomPicture=Forml.frx:43BECCaption=使用单位”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851NameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyForeCoIorBackCoIorMaskCoIorBeveIWidth=”宋体”=9=134=400=

25、OFalse=OFalse=OFalse=12582912=16761024=16761024=OLayoutMouseOverCoIorScaIeWidthScaIeModeScaIeHeightBackStyIe=3=16777215=73=O=57=OObjectJooITipText=查看销售记录EndEndBeginVB.FrameFre2BackCoIor=BorderStyIe=Height=Index=1.eft=Tabindex=&H00808080&ONone3754O6Top=Width=56401575Beginas97Popup.asPopupasPopup9Heig

26、ht1.eftTooITipText：TopWidth=855=240=”查看销售记录”=240=1095_ExtentXExtentY=1931=1508CustomPicture=Forml.frx:484B4Caption=退出系统BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=9Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethrough=OFalseEndPropertyForeCoIor=12582912BackCoIor=1676

27、1024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=”查看销售记录EndEndBeginVB.FrameFre2BackCoIor=&H00808080&BorderStyIe=ONoneHeight=375Index=2Left=OTabindex=5Top=3480Width=1575Beginas97Popup.asPopupasPopup5Height=855Left=240T

28、ooITipText=”添加销售记录,Top=240Width=1095_ExtentX=1931_ExtentY=1508CustomPicture=Forml.frx:4D147MouseOverPicture=,Forml.frx51B7FCaption=喳询“BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”Size=9Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethroughOFalseEndPropertyForeCoIor=12582912

29、BackCoIor=16761024MaskCoIor=16761024BeveIWidth=OLayout=3MouseOverCoIor三16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackStyIe=OObjectJooITipText=”添加销售记录”EndBeginas97Popup.asPopupasPopup8Height=855Left=240TooITipText=”添加销售记录,Top=1320Width=1095_ExtentX=1931_ExtentY=1508CustomPicture=,Forml.frx566A6Ca

30、ption=”温度统计”BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134WeightUnderlineItalicStrikethroughEndPropertyForeCoIor=BackCoIor=MaskCoIor=BeveIWidth=400=OFalse=OFalse=OFalse125829121676102416761024OLayout=3MouseOverCoIor=16777215ScaIeWidth=73ScaIeMode=OScaIeHeight=57BackS

31、tyIe=OObject-TooITipText=添加销售记录”EndEndBeginStoneXRXPButtonclHeight=375Index=11.eft=OTabindex=10Top=360Width=1575_ExtentX=2778_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=宋体”Size=9Charset=134Weight=400Underline=OFalseItalic=OFalseStrikethrough=OFalseEndPropertyButtonStyIe=1Ca

32、ption=监控地点”Mouseicon=,Forml.frx,5B32FMousePointer=99EndBeginStoneXRXPButtonclHeight=375Index=21.eft=OTabindex=11Top=720Width=1575_ExtentX=2778_ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9CharsetWeight=134=400Underline=OFalseItalic=OFalseStrikethrough=0FalseEndPrope

33、rtyButtonStyIe=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=OFalseItalic=OFalseStriket

34、hrough=OFalseEndPropertyButtonStyIe=1Caption=Mouseicon”系统操作”=Forml.frx:5B963MousePointer=99EndBeginStoneXRXPButtonclHeight=375Index=4Left=OTabindex=13Top=Width=1440=1575_ExtentX=ExtentY=2778661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134Weight=400Underline=OFalseIt

35、alic=OFalseStrikethrough=OFalseEndPropertyButtonStyIe=1Caption=”退出系统”Mouseicon=Forml.frx:5BC7DMousePointer三99EndBeginStoneXRXPButtonclHeight=375Index=OLeft=OTabindex=14Top=OWidth=1575_ExtentX=2778ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=,宋体”Size=9Charset=134Weight=400Unde

36、rline=OFalseItalic=OFalseStrikethrough=OFalseEndPropertyButtonStyIe=1Caption=报警器管理”Mouseicon=Forml.frx:5BF97MousePointer=99EndEndBeginVB.FrameFrame2Appearance=OFlatCaption=高级检索”ForeCoIor=&H00000000&Height=3195Left=2880Tabindex=OTop=Width=13207575BeginStoneXRXPButtonXPButton3Height=1.eft=3755760Tabin

37、dex=20Top=360Width=1455ExtentX=2566ExtentY=661BeginPropertyFont0BE35203-8F91-llCE-9DE3-00AA004BB851Name=”宋体”SizeCharsetWeightUnderlineItalicStrikethroughEndPropertyCaption=10.5=134=400=OFalse=OFalse=OFalse”生成语句”Mouseicon=Forml.frx:5C2BlMousePointer=99EndBeginVB.TextBoxTextlAppearance=OFlatBeginPropertyFontName=,宋体”SizeCharsetWeightUnderlineItalicStrikethroughEndProperty=14.25=134=400=OFalse=OFalse=OFalseHeight=375Left=Tablndex=108018Top=WidthEnd=1320=5895BeginVB.ComboBoxCombolHeight=330ItemData=