我最近用VB6.0与单片机进行串口通信，计算机发送的数据单片机可以收到，而单片机发送的数据计算机无法收到，用串口调试助手测试单片机发送的数据可以正常收到，问题就出在计算机这边。我要把单片机发送的数据在计算机上用文本框显示成二进制或16进制数，看MSCOMM控件有许多项参数，像我这样的情况，需要用什么的属性。哪位可以给编写个事例呀？现在在郁闷中！！！！谢谢

给你个 ，自己慢慢琢磨，

Dim i As Integer
Dim SMBusData(5) As Byte
Dim inbytes() As Byte
Dim MS_Data As Double
Dim LS_Data As Double

ReceiveDataWord = 0

SMBusData(0) = &HAA
SMBusData(1) = &H50
SMBusData(2) = SubCmd
SMBusData(3) = &H0
SMBusData(4) = &H0

For i = 1 To 5
MSComm1.Output = SMBusData

ChkInBuffCountCOM1 (1)

If MSComm1.InBufferCount <> 5 Then
Return = 1
Exit Function
End If

MSComm1.InputLen = 5

inbytes = MSComm1.Input

If inbytes(1) = &H80 And inbytes(2) = &H3 Then
Return= 1
Else
Return = 0
LS_Data = inbytes(3)
Exit For
End If
Next i

SMBusData(0) = &HAA
SMBusData(1) = &H50
SMBusData(2) = SubCmd + 1 ' NEXT ADDRESS
SMBusData(3) = &H0
SMBusData(4) = &H0

For i = 1 To 5
MSComm1.Output = SMBusData

ChkInBuffCountCOM1 (1)

If MSComm1.InBufferCount <> 5 Then
Return = 1
Exit For
End If

MSComm1.InputLen = 5

inbytes = MSComm1.Input

If inbytes(1) = &H80 And inbytes(2) = &H3 Then
Return = 1
Else
Return = 0
MS_Data = inbytes(3)
ReceiveDataWord = MS_Data * &H100& + LS_Data
Exit For
End If
Next i

Public Function ChkInBuffCountCOM1(Length As Long)
Dim i As Integer
Dim FinishTime As Double

FinishTime = GetTickCount + 500 ' unit ms
MSComm1.InBufferCount = 0 ' single step execute can't run this line
Do
DoEvents
Loop Until MSComm1.InBufferCount >= Length Or GetTickCount > FinishTime

If GetTickCount > FinishTime Then
CanNotReadFlag = True
If CorePackFlag = True Then
MsgBox ("can't Read() , Error Code = C201")
Else
MsgBox ("can't Read() , Error Code = F201")
End If
End If

End Function

我给个简单的：（是数据接收哦）
Private Sub MSComm1_OnComm()
On Error Resume Next

Dim a() As Byte
Dim strBuff As String
Dim StrData As String
Dim i As Integer

Select Case MSComm1.CommEvent
Case 1
Case 2

MSComm1.InputLen = 0
strBuff = MSComm1.Input
a() = strBuff
For i = 0 To UBound(a)
If Len(Hex(a(i))) = 1 Then
StrData = StrData & "0" & Hex(a(i)) & ","
Else
StrData = StrData & Hex(a(i)) & ","
End If
Next
Text1 = Text1 + StrData

Case 3
Case 4
Case 5
Case 6
Case 7
Case Default

End Select
End Sub