基于mscomm控件采集的界面設计.docVIP

运行结果 代码 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 = False Close #2 End Sub Private Sub Form_Load() Dim textline Open d:\mlz\1.dat For Input As #1 Do While Not EOF(1) Line Input #1, textline ydata(i) = Val(textline) If i = 120 Then Exit Do End If i = i + 1 Loop Close #1 Open d:\mlz\2.dat For Output As #2 MSComm1.CommPort = 1 MSComm1.InBufferSize = 40 MSComm1.OutBufferSize = 40 If MSComm1.PortOpen = F