＋设为首页 ＋添加到收藏夹
下面是我的代码，为什么我运行这段代码，mscomm1.input始终是空的，我不能接到回收数据呢？？？
Dim Instring As String
MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
打开端口。
MSComm1.PortOpen = True
将 attention 命令送到调制解调器。
MSComm1.Output = txtBH.Text 确保
调制解调器以"OK"响应。
等待数据返回到串行端口。
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "1")
jieshou.Text = Buffer$
从串行端口读 "OK" 响应。
关闭串行端口。
MSComm1.PortOpen = False
SThreshold,RThreshold 不知道有没有设……
我也来看看！
帮楼主顶!
MSComm1.Settings = "19200,N,8,1"
改为
MSComm1.Settings = "19200,S,8,1"
校验位，发送地址采用prMark校验方式，发送命令采用prSpace校验方式
说明校验位是空格呀
如果你用了调制解调器,肯定是需要初始化的,我的QQ:158792331,邮箱:werther161@yahoo.com.cn,
