串口曲线接收程序

《串口曲线接收程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Forml.frm源码VERSION5.00BeginVB.FormFormlBorderStyle=1'FixedSingleCaption=“实时曲线”ClientHeight=6690ClientLeft=45ClientTop=495Clientwidth=9840Icon=HForml.frx":0000LinkTopic="Forml"MaxButton=:0'FalseMinButton=0'FalseScaleHeight=6690ScaleWidth=9840StartUpPosition=3'窗口缺省BeginVB.PictureBoxPicturelAutoRedra

2、w='TrueBackColor=&H80000012&Height=2175Left=120ScaleHeight=2115ScaleWidth=9585Tablndex=4Top=120Width=9650EndBeginVB.PictureBoxPicture」ineAutoRedraw='TrueBackColor=&H80000012&Height=2145Left=120ScaleHeight=2085ScaleWidth=4785Tablndex=3Top=2280Width=4845EndBeginVB.PictureBoxPicture_pointAutoRedraw=T

3、rueBackColor=&H80000012&Height=2145Left=120208547852ScaleHeightScaleWidthTablndexTop=4440Width=4845EndBeginVB.PictureBoxPicture_line2AutoRedrawBackColorHeightLeftScaleHeightScaleWidthTablndexTopWidthEnd=・1True=&H80000012&=2145=4920=2085=4785=1=2280=4845BeginVB.PictureBoxPicture_point2AutoRedrawBac

4、kColorHeightLeftScaleHeightScaleWidthTablndexTopWidthEnd='True=&H80000012&=2145=4920=2085=4785=0=4440=4845EndAttributeVB_Name="Forml"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVBPredeclaredld=TrueAttributeVB_Exposed=FalseOptionExplicitPrivateSubForm_Load()WithLDrawlitDraw

5、LinePicturejine,vbRed,True.Max=5.HorzSplits=6.VertSpIits=6丄ineType=TYPE_LINE.RePaintEndWithWithPDrawl」nitDrawUnePicture_point,vbRed,True.Max=5.HorzSplits=6.VertSplits=6.LineType=TYPE_POINT.RePaintEndWithWithLDraw2」nitDrawLinePicture_line2,vbRed,True.Max=5.HorzSplits=6.VertSplits=6丄ineType=TYPE_LIN

6、E.RePaintEndWithWithPDraw2」nitDrawLinePicture_point2,vbRed,True.Max=5.HorzSplits=6.VertSplits=6.LineType=TYPE_POINT.RePaintEndWithWithPDraw3.1nitDrawLinePicturel,vbYellow,True,RGB(0,0,255),True.Max=5.HorzSplits=6.VertSplits=6.LineType=TYPE_POINTEndWithEndSubPrivateSubForm_Unload(CancelAsInteger)Un

7、loadMeEndSubPrivateSubPicture_line_Paint()LDrawl.RePaintEndSubPrivateSubPicture_line2_Click()LDraw2.RePaintEndSubPrivateSubPicture_point_Paint()PDrawl.RePaintEndSubPrivateSubPicture_point2_Click()PDrawl.RePaintEn