有对串口的通讯熟悉的吗？关于最后一个异或效验位的问题．

thunderJ 2005-01-25 10:09:15

效验位FCS = (LEN ^ DATAS)
ＬＥＮ和ＤＡＴＡＳ的值都已经有了，ＦＣＳ的值如何算出
望给个ＣＢ里实现的例子，谢谢！！
　　

...全文

100 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

icwin 2005-01-26

打赏
举报

回复

说得不清楚，

Private Sub clear_receivetext_Click() receivetext.Text = "" End Sub Private Sub clear_sendtext_Click() sendtext.Text = "" End Sub Private Sub close_Click() MSComm1.PortOpen = False '关闭串口 End Sub Private Sub Form_Load() MSComm1.CommPort = 4 '使用串行端口1 MSComm1.Settings = "9600,N,8,1" '设置波特率等 MSComm1.InputLen = 0 '清空从接收缓存器中读到的字符 MSComm1.PortOpen = True '打开端口 '这是整个的初始化过程 End Sub Private Sub open_Click() MSComm1.CommPort = 4 '使用串行端口1 MSComm1.Settings = "9600,N,8,1" '设置波特率等 MSComm1.InputLen = 0 '清空从接收缓存器中读到的字符 MSComm1.PortOpen = True '打开端口 End Sub Private Sub receive_Click() Dim strBuff As String Dim str() As Byte strBuff = MSComm1.Input str() = strBuff '接收数据处理为16进制 For i = 0 To UBound(str) If Len(Hex(str(i))) = 1 Then strData = strData & "0" & Hex(str(i)) Else strData = strData & Hex(str(i)) End If Next receivetext.Text = LCase(strData) '转换成小写输出 'dat = MSComm1.Input ' receivetext.Text = " q" 实现将接受到的数据以文本形式写到接收部分的窗体内这是核心代码。 End Sub Private Sub send_Click() On Error Resume Next '简单的错误处理 If MSComm1.PortOpen = False Then MsgBox "串口已关闭" End If Dim a() As Byte Dim l As Integer, s As String s = sendtext.Text l = Len(s) / 2 If l = Asc("0") And test <= Asc("9") Then test = test - Asc("0") ElseIf

/（sendbuf+不需要字节数（不参与异或的字节），不需要的字节数）

1. 什么是BCC校验当且仅当两个对位置的二进位相异时，结果为1，即 1^0 = 1; 1^1 = 0 将上述结果再次和下一个数字进行异或，可得校验码。 2. 在python中异或是什么运算符上面已经写了，是^，在英文输入法下按住shift后按数字6。 1^1=0 1^0=1 3. 常用场景目前常用场景是串口下的校验，比如E0 00 00 00 00 01 2C，它得BCC...

串口异或效验 C++代码实现直接上代码片段 QString str="32000"; str += QString::number(ui->lightBox->value()); char* ch; QByteArray ba = str.toLatin1(); ch = ba.data(); j = ch[0]; for (int i = 1; i < str.le...

/** * 异或校验 * * @param data 十六进制串 * @return checkData 十六进制串 * * */ public static String checkXor(String data) { int checkData = 0; for (int i = ...

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章