UC知道vb串口通信运行出现实时错误 424要求对象
来源：百度知道 编辑：UC知道 时间：2024/06/05 10:03:33
Dim revlenth '接收长度
Dim rcv() As Byte '定义接收字符的动态数组
Private Sub Form_load()
With MSComm1
.CommPort = 2 '选择串口2
.Settings = "9600,n,8,1" '9.6kbit/s,无校验,8位数据位,1位停止位
.InputMode = comInputModeBinary '以二进制格式读取接收缓冲区
.RThreshold = 1 '接收字符数大于等于1就会产生接收中断
.InputLen = 0 '读出接收缓冲区中的所有内容
.OutBufferCount = 0 '清空发送缓冲区
.InBufferCount = 0 '清空接收缓冲区
End With
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开始" Then '在界面上放置一用于开始和停止接收的按钮
MSComm1.PortOpen = True
Command1.Caption = "停止"
Command2.Visible = False
Else
MSComm1.PortOpen = False
Command1.Caption = "开始"
Command2.Visible = True
E
Dim rcv() As Byte '定义接收字符的动态数组
Private Sub Form_load()
With MSComm1
.CommPort = 2 '选择串口2
.Settings = "9600,n,8,1" '9.6kbit/s,无校验,8位数据位,1位停止位
.InputMode = comInputModeBinary '以二进制格式读取接收缓冲区
.RThreshold = 1 '接收字符数大于等于1就会产生接收中断
.InputLen = 0 '读出接收缓冲区中的所有内容
.OutBufferCount = 0 '清空发送缓冲区
.InBufferCount = 0 '清空接收缓冲区
End With
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开始" Then '在界面上放置一用于开始和停止接收的按钮
MSComm1.PortOpen = True
Command1.Caption = "停止"
Command2.Visible = False
Else
MSComm1.PortOpen = False
Command1.Caption = "开始"
Command2.Visible = True
E
楼主 有没有 去 设备管理器 看看 机器 有 几个 com端口？
你不会 是 在学习 书本上 的 例子 吧？
窗体 上 放了 MSComm 控件 了吗？
祝你顺利
很显然,你的机器无COM2.
MSComm1这个对象不存在