为什么mscomm.input收到的会是乱码，附带原代码-我给200

Question

把Mid换成MidB试试
要注意VB中字符处理的这些细节问题

Answer 1

还是一样乱码
为什么它在foxpro里面会写成这样
以下为从硬件取得卡号及数据
local arrayx
this.parent.MsComm.InBufferCount = 0
    this.parent.MsComm.InputLen = 1
    this.parent.MsComm.CommPort = val(this.parent.text2.text)
    if this.parent.MsComm.PortOpen
     this.parent.MsComm.PortOpen = .f.
    endif
    this.parent.MsComm.PortOpen = .t.
    this.enabled = .f.
    local array1[3],buffer,s,kh,vsign,ntime,jh
s = ""
do while .t.
if this.parent.mscomm.inbuffercount > 0
vsign = .t.
buffer = this.parent.mscomm.input
array1 = buffer
if asc(array1[1]) != 13
s = s + array1[1]
endif