我用MSCOMM读取内存中的数据，得到的是乱码！！！高位高手认识这些码！怎么转换呢？？

[wangchong]

Private Sub Form_Load()
Dim CardNameLen As Long
'ʹÓÃcom1¿Ú¡£
MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeText
MSComm1.RThreshold = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 12
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Call ReceiveDataFromCom
End Select
End Sub

Sub ReceiveDataFromCom()
Dim ComTemp As Variant
Dim ReadData() As Byte
Dim InbufferCount As Long
Dim i As Integer
Dim Str As String
Str = ""
InbufferCount = MSComm1.InbufferCount
If InbufferCount < MSComm1.InputLen Then
Exit Sub
End If
If InbufferCount >= MSComm1.InputLen Then
ComTemp = MSComm1.Input
ReadData() = ComTemp
For i = LBound(ReadData) To UBound(ReadData)
Str = Str & ChrB(ReadData(i))
Next i
Text1.Text = vbCrLf & Str
End If
End Sub

读到的数据是这样的：“x€x€xx”，“x€xx”，“øx€”这是什么码？怎么办？

[脆皮大雪糕]

试一下这个：
str = StrConv(readdata(), vbUnicode)

[sxs69]

Dim ReadData() As Byte
ComTemp = MSComm1.Input
这种方式接收数据好象用comInputModeBinary
MSComm1.InputMode = comInputModeBinary

如果用comInputModeText方式那么直接
str = MSComm1.Input就可以了

[Gelim]

If InbufferCount >= MSComm1.InputLen Then
ComTemp = MSComm1.Input
ReadData() = ComTemp
For i = LBound(ReadData) To UBound(ReadData)
Str = Str & ChrB(ReadData(i))
Next i
Text1.Text = vbCrLf & Str
End If

改为：

If InbufferCount >= MSComm1.InputLen Then
ComTemp = MSComm1.Input
ReadData() = ComTemp
Text1.Text = vbCrLf & strconv(readdata)
End If

[liujianguangljg]

up