資源描述：
《串口曲線接收程序》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、Forml.frm源碼VERSION5.00BeginVB.FormFormlBorderStyle=1'FixedSingleCaption=“實(shí)時曲線”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
