怎样利用VB将超级终端上的数据显
你完全可利用MSCOMM控件通过RS232串口,将测试仪器的测试数据接收并储存于EXCEL电子表格。MSCOMM控件的接收代码须依据通信协议编写。
以下是一段MSComm控件的OnComm事件代码:
Private Sub MSComm1_OnComm()
Dim strsj As String
Select Case MSComm1。 CommEvent
Case 2
MSComm1。InputLen = 0
strsj = MSComm1。Input
strData = strData & strsj
If Mid(strData, 1, 4) = "Data" And Right(...全部
你完全可利用MSCOMM控件通过RS232串口,将测试仪器的测试数据接收并储存于EXCEL电子表格。MSCOMM控件的接收代码须依据通信协议编写。
以下是一段MSComm控件的OnComm事件代码:
Private Sub MSComm1_OnComm()
Dim strsj As String
Select Case MSComm1。
CommEvent
Case 2
MSComm1。InputLen = 0
strsj = MSComm1。Input
strData = strData & strsj
If Mid(strData, 1, 4) = "Data" And Right(strData, 1) = Chr(10) Then
Dim j As Integer
For j = 0 To 29
Label1(j) = "0。
0"
Label1(j)。BackColor = vbGreen
Next
Dim sjfg() As String
sjfg = Split(strData, Chr(13))
Dim i As Integer
For i = 0 To UBound(sjfg) - 1
Print sjfg(i)
Next
Set xlapp = CreateObject("excel。
application")
xlapp。Visible = True
Set xlBook = xlapp。Workbooks。Add
Set xlBook = xlapp。
Workbooks。Open(App。Path & "\报表。xlt") '打开EXCEL工作簿
Set xlSheet = xlBook。worksheets(1)
xlSheet。
Cells(1, 1) = sjfg(0) '"Date"
'xlSheet。Cells(1, 2) = Mid(sjfg(0), 7, 10)
'xlSheet。
Cells(1, 3) = Mid(sjfg(0), 19, 5)
xlSheet。Cells(2, 1) = sjfg(1) ' Mid(sjfg(1), 1, 9)
'xlSheet。
Cells(2, 2) = Mid(sjfg(1), 13, 3) & Mid(sjfg(1), 18, 4)
xlSheet。Cells(3, 1) = Mid(sjfg(2), 1, 2)
xlSheet。
Cells(3, 2) = Mid(sjfg(2), 5, 12)
For i = 3 To UBound(sjfg) - 1
xlSheet。
Cells(i + 1, 1) = Mid(sjfg(i), 1, 2)
xlSheet。Cells(i + 1, 2) = Mid(sjfg(i), 6, 5)
'For i = 0 To 29
If Mid(sjfg(i), 1, 2) > 0 Then
Label1(Val(Mid(sjfg(i), 1, 2)))。
Caption = Mid(sjfg(i), 6, 5)
Label1(Val(Mid(sjfg(i), 1, 2)))。BackColor = vbRed
Else
'Label1(Val(Mid(sjfg(i), 1, 2)))。
BackColor = vbYellow
End If
'Next
Next
'For i = 3 To UBound(sjfg) - 1
'xlSheet。
Cells(i + 1, 1) = Mid(sjfg(i), 1, 2)
'xlSheet。
Cells(1, 1) = "Date"
'Next
strData = ""
ReDim sjfg(0)
sjfg = Split(strData, Chr(13))
End If
End Select
End Sub
。收起