当前位置：工控论坛 > > 产品 > 工业互联 > 无线通讯

求助：电脑通过RS232串口与CB900仪表的通讯 点击：1885 | 回复：3



康乐

    
  • 精华：0帖
  • 求助：1帖
  • 帖子：25帖 | 55回
  • 年度积分：0
  • 历史总积分：216
  • 注册：2004年2月02日
发表于：2005-09-04 22:21:00
楼主
求助：电脑通过RS232串口与志美CB900仪表的通讯，我是用VB编的，我发送信息后，仪表传过来的是空字符，不知我写的程序是否有问题，请哪位大侠指教一下，不胜感激
分享到：
收藏 邀请回答 回复楼主 举报



康乐

  • 精华：0帖
  • 求助：1帖
  • 帖子：25帖 | 55回
  • 年度积分：0
  • 历史总积分：216
  • 注册：2004年2月02日
发表于：2005-09-04 22:41:00
1楼
求助：电脑通过RS232串口与志美CB900仪表的通讯，我是用VB编的，我发送信息后，仪表传过来的是空字符，不知我写的程序是否有问题，具体怎么与CB900通讯，代码怎么写？请哪位大侠指教一下，不胜感激
回复 引用 举报

hz568

  • 精华：0帖
  • 求助：0帖
  • 帖子：11帖 | 33回
  • 年度积分：0
  • 历史总积分：89
  • 注册：2004年3月21日
发表于：2005-09-10 11:51:00
2楼
应该是协议的问题,我觉得你可能还没有完全明白CB900的通讯协议,还有空字符?你是用ASCII还是十六进制? 大于128的是不可见字符,你在这方面好好看看.
回复 引用 举报

康乐

  • 精华：0帖
  • 求助：1帖
  • 帖子：25帖 | 55回
  • 年度积分：0
  • 历史总积分：216
  • 注册：2004年2月02日
发表于：2005-09-11 09:02:00
3楼
我的代码是这样的： Private Sub Command1_Click() MSComm1.Output = CheckSum(STX & "READ" & ETX) & vbcr &vblf TimeDelay 1000 Text2.Text = MSComm1.Input End Sub Function CheckSum(Buf As String) As String Dim i%, OrgBuf$ Dim CKValue% OrgBuf = Buf CKValue = 0 For i = 2 To Len(Buf) CKValue = CKValue + Asc(Mid(Buf, i, 1)) And &H7F Next i CheckSum = Buf + Chr(CKValue) End Function 我错在哪里呢？帮帮忙
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师