为什么在vb串口通信中我接收到的数据时乱码呢
是按照通信协议编的啊PrivateSubExit_Click()Comm1.portopen=FalseEndEndSubPrivateSubForm_Load()Com...
是按照通信协议编的啊
Private Sub Exit_Click()
Comm1.portopen = False
End
End Sub
Private Sub Form_Load()
Comm1.CommPort = 1 '...使用Com1口
Comm1.Settings = "9600,n,8,1" '...设置通讯参数
Comm1.portopen = True '...关闭串口
End Sub
Private Sub Receive_Click()
Dim buf As String
buf = Trim(Comm1.Input)
If Len(buf) = 0 Then
TextReceive.Text = "empty"
Else
TextReceive.Text = buf
End If
End Sub
Private Sub send_Click()
Comm1.Output = Trim(TextSend.Text)
End Sub
能不能帮我看看哪写错了 展开
Private Sub Exit_Click()
Comm1.portopen = False
End
End Sub
Private Sub Form_Load()
Comm1.CommPort = 1 '...使用Com1口
Comm1.Settings = "9600,n,8,1" '...设置通讯参数
Comm1.portopen = True '...关闭串口
End Sub
Private Sub Receive_Click()
Dim buf As String
buf = Trim(Comm1.Input)
If Len(buf) = 0 Then
TextReceive.Text = "empty"
Else
TextReceive.Text = buf
End If
End Sub
Private Sub send_Click()
Comm1.Output = Trim(TextSend.Text)
End Sub
能不能帮我看看哪写错了 展开
展开全部
以我的经验来看,乱码必定是波特率设置不对,你的硬件的波特率不是9600,你试试别的,肯定奏效。
Comm1.Settings = "19200,n,8,1" '...设置通讯参数
或者
Comm1.Settings = "1200,n,8,1" '...设置通讯参数
Comm1.Settings = "19200,n,8,1" '...设置通讯参数
或者
Comm1.Settings = "1200,n,8,1" '...设置通讯参数
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
mscomm 传输数据 2 种 方式
字符 或者 2进制
你 换换 试试看
祝你顺利
字符 或者 2进制
你 换换 试试看
祝你顺利
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是不是按照串口通信协议编程的呢!?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询