PB中读取地磅BCD解码
我在《PB中读取地磅称量数据》中简述了PB读取地磅操作过程，有网友反映对BCD码的读取及解码不是很清楚。在此，特追加此部分内容来解释BCD解码过程。
认识BCD编码
BCD编码是一种数字压缩存储编码，大家都知道一个字节有8个位，而数字0到9最多只需要使用4个位，如果用一个字节来存储一个数字相对就会有一定的浪费，尤其是在传输过程中，由此人们就想出了压缩的办法，于是BCD编码就产生了。
BCD编码将一个字节的8个位拆分成高4位和低4位两个部分，也就是说一个字节能存储两个数字。所以BCD的编码过程就是将数字压缩的过程，将两个字节的数字压缩成一个字节。反之，解码就是把一个字节的数字拆分为两个数字单独存放（大部分的处理都是按字节处理的）。
示例：
编码过程，将数字69进行BCD编码（注：BCD编码低位在前，后面将不再注释）。
1. 将6，9分别转换成二进制表示：6（00000110）9（00001001），大家可以看到，最大的数字9也只要4个位，在传输过程中白白浪费了4个位；
2. 将69合并为一个字节，分别取6，9二进制编码的低4位，按照低位在前的原则，将9的低四位放前面6的低四位放后面得出新的字节二进制编码是10010110；
3. 完成编码过程，69的BCD编码结果为10010110。
解码过程：将69的BCD码10010110进行解码。
1. 将10010110的高4位与低4位拆分开，得到两个二进制数1001和0110；
2. 分别将1001和0110的前面补充4位0000得到两个8位的二进制数00001001，00000110；
3. 因为编码时低位在前，所以我们将两个二进制数编排顺序为00000110 000010001；
4. 将二进制数转换为十进制得出解码结果为69（正确解码）。
PB中如何对BCD码进行解码
大家知道在PB中有二进制类型的变量blob，但要无法按位操作，那么我们如何进行BCD编码的数字进行解码呢？
我想大家都会不约而同的想到ASCII码，没错，就是她。ASCII就是数字和字符在计算机中存储的的值，她在PB中给我们呈现的并不是01组成的二进制数而是十进制数值。
BCD解码需要将一个字节的高4位和低4位进行拆分，那么我们怎么来使用十进制的ASCII编码做到呢？
因为PB不提供位运算所以我们只能自己写函数来做些简单的处理了，那又如何处理呢？
方法一：我们写函数将十进制的ASCII（单字节）转化为二进制的字符串，当然，如此一来你还要写一个将二进制字符串转换为10进制数字的函数，有兴趣的朋友可以尝试一下。
方法二：在我上次写的内容中已经提到了，就是借助十六进制来完成转换。大家仔细研究不难发现十六进制表示等同于将一个字节的内容高4位和低4位分别转换为十进制，如果不信你可以自己验算一下。这样我们就只需要写一个转换函数了，将十进制数转换为十六进制字符串。转换后将十六串的两个字符位置对换（因为编码的时候低位在前），然后直接将这个串强制转换为数值型就得到了解码后的数值。（注：后面有一转换函数是网上一网友所写）
有了解码方法我们在读BCD码的地磅数据的时候就很容易处理了，因为我上次写过处理过程这里我只简单描述一下：
1. 用二进制类型blob将串口（现在有的用usb口）的数据读出来；
2. 将blob强制转换为string，这样就把二进制流按8位存储格式编码了，也就是说BCD码在这个string中，不过是压缩格式；
3. 将string的每个字节都分割开来，然后分别译为ASCII编码，PB中有函数ASC；
4. 根据具体设备出厂参数识别string中状态位，校验位，数字位等的位置；
5. 找到数字位进行BCD解码，方法如上；
6. 完成解码，得到称量数据。
附件：
//=============================================================================
// Function: of_Hex()
//-----------------------------------------------------------------------------
// Description: 转换integer到16进制字符串
//-----------------------------------------------------------------------------
// Aagument: Integer pssl
//-----------------------------------------------------------------------------
// Return: string 16进制字符串
//-----------------------------------------------------------------------------
// Log: excerpt by tubx 2004.03.10
//=============================================================================
string vs,vstmp,vsret
integer vi1,vilen,i,vimod,viy,visl
vilen=Len(String(pssl))
char vc_he[6]
vimod=Mod(pssl,16)
visl=pssl
If vimod>=0 Then
vstmp=String(vimod)
If vstmp='10' Then vstmp='A'
If vstmp='11' Then vstmp='B'
If vstmp='12' Then vstmp='C'
If vstmp='13' Then vstmp='D'
If vstmp='14' Then vstmp='E'
If vstmp='15' Then vstmp='F'
vc_he[1]=vstmp
End If
For i =1 To vilen + 1
viy=Truncate(visl/16,0)
If viy>0 Then
vstmp=String(viy)
If vstmp='10' Then vstmp='A'
If vstmp='11' Then vstmp='B'
If vstmp='12' Then vstmp='C'
If vstmp='13' Then vstmp='D'
If vstmp='14' Then vstmp='E'
If vstmp='15' Then vstmp='F'
vc_he[i+1]=vstmp
End If
If viy=0 Then exit
visl=viy
Next
vsret=''
If IsNull(vc_he[6]) Or vc_he[6]='' Then
vsret=vsret
Else
vsret=vsret+vc_he[6]
End If
If IsNull(vc_he[5]) Or vc_he[5]='' Then
vsret=vsret
Else
vsret=vsret+vc_he[5]
End If
If IsNull(vc_he[4]) Or vc_he[4]='' Then
vsret=vsret
Else
vsret=vsret+vc_he[4]
End If
If IsNull(vc_he[3]) Or vc_he[3]='' Then
vsret=vsret
Else
vsret=vsret+vc_he[3]
End If
If IsNull(vc_he[2]) Or vc_he[2]='' Then
vsret=vsret
Else
vsret=vsret+vc_he[2]
End If
If IsNull(vc_he[1]) Or vc_he[1]='' Then
vsret=vsret
Else
vsret=vsret+vc_he[1]
End If
Return vsret
