在线等 vb6.0串口接收asc码

Question

vb6.0与单片机串口连接
数据不是asc码
程序怎么写
谢谢

Answer 1

用字节数组不就可以了，什么码都可以用
如果要用字符串，多半都是ASCII或Unicode码
然后转换一下就可以了。看看这个函数　StrConv

Answer 2

设置MSCOMM控件的属性InputMode = comInputModeBinary
用BYTE数组接收数据。Option Explicit
    Dim strData As String
    Dim BytReceived() As BytePrivate Sub MSComm1_OnComm() '接收数据
    Dim strBuff As String
    Dim i As Integer
    Select Case MSComm1.CommEvent
        Case 2
            MSComm1.InputLen = 0
            strBuff = MSComm1.Input
            BytReceived() = strBuff
            For i = 0 To UBound(BytReceived) '接收数据处理为16进制
                If Len(Hex(BytReceived(i))) = 1 Then
                    strData = strData & "0" & Hex(BytReceived(i))
                Else
                    strData = strData & Hex(BytReceived(i))
                End If
            Next
            Text1 = strData 
            '写数据处理代码
     End Select
End SubPrivate Sub Form_Load()
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True
End Sub