基于mscomm控件采集的界面设计

1、运行结果代码Dim data(140) As Integer Dim ydata(140) As Integer Dim i% Dim j% Const yy As Integer = 100 Const xx As Integer = 100 数Private Sub Command1_Click()MSComm1.PortOpen = FalseClose #2End SubPrivate Sub Form_Load()Dim textlineOpen "d:mlz1.dat" For Input As #1 Do While Not EOF(1)Line Input

2、#1, textlineydata(i) = Val(textline)If i = 120 ThenExit DoEnd Ifi = i + 1LoopClose #1Open "d:mlz2.dat" For Output As #2 MSComm1.CommPort = 1 MSComm1.InBufferSize = 40MSComm1.OutBufferSize = 40If MSComm1.PortOpen = False ThenMSComm1.Settings = "9600,n,8,1"MSComm1.PortOpen = TrueMS

3、Comm1.OutBufferCount = 0MSComm1.InBufferCount = 0MSComm1.RThreshold = 1MSComm1.InputLen = 0End If j = 1End SubPrivate Sub MSComm1_OnComm()MSComm1.InputMode = comInputModeBinaryDim aa() As ByteDim b As Integeraa() = MSComm1.InputLabel1.Caption = aa(0)b = yy * aa(0)data(j) = bj = j + 1If j = 120 Thenj

4、 = 1Picture1.ClsEnd IfWrite #2, bEnd SubPrivate Sub Timer1_Timer() Dim x0%Dim y0%Dim x1%Dim y1%Dim js js = 1Picture1.ForeColor = QBColor(1)DrawWidth = 10Picture1.Line (600, 300)-(600, 7275) DrawWidth = 10Picture1.Line (600, 7275)-(14000, 7275)Picture1.Line (550, 350)-(600, 300)Picture1.Line (650, 35

5、0)-(600, 300)Picture1.Line (13950, 7225)-(14000, 7275)Picture1.Line (13950, 7325)-(14000, 7275)Picture1.ForeColor = QBColor(4)Do While js < ix0 = (js - 1) * xx + 600x1 = (js) * xx + 600y0 = 7275 - ydata(js - 1)y1 = 7275 - ydata(js)DrawWidth = 300Picture1.Line (x0, y0)-(x1, y1)js = js + 1LoopLabel

6、2.Caption = ydata(10)js = 1Picture1.ForeColor = QBColor(3)Do While js < jx0 = (js - 1) * xx + 600x1 = (js) * xx + 600y0 = 7275 - data(js - 1)y1 = 7275 - data(js)DrawWidth = 30Picture1.Line (x0, y0)-(x1, y1)js = js + 1LoopEnd SubPrivate Sub 帮助主题_Click(Index As Integer)Form4.ShowEnd SubPrivate Sub 关闭_Click(Index As Integer)Form1.HideUnload Form1End SubPrivate Sub 开始_Click(Index As Integer)If MSComm1.PortOpen = False Then '打开串口MSComm1.PortOpen = TrueEnd IfEnd SubPrivate Sub