mscomm的问题,发送出去的字符与接受的字符不一样怎么办?
山尖美色 2004-02-18 10:34:36 这是发送的代码
Comm1.RTSEnable = True
Dim mas(2) As Byte
mas(0) = &H31
mas(1) = &H32
mas(2) = &H33
Comm1.Output = mas
接收的代码:
Dim VARC As Variant
Dim N As Long
Dim SJARR() As Byte
Dim i As Integer
N = Comm1.InBufferCount '接收缓冲区字符总数
Comm1.InputLen = N
ReDim JSARR(0 To N - 1)
Comm1.InputMode = comInputModeBinary
VARC = Comm1.Input
SJARR = VARC
Dim inputFileName As String
inputFileName = "c:\testInput.txt"
Dim inputBit As Variant
inputBit = FreeFile
Open inputFileName For Binary As inputBit
Put inputBit, , JSARR ' 写入已打开的接收文件
Close inputBit
' MsgBox UBound(SJARR)
For i = 0 To UBound(SJARR)
Debug.Print SJARR(i)
Next
出来的文件用2进制的打开后是:
00 00 00 00 00 00 00 00 00;.......