我在《PB中讀取地磅稱量數(shù)據(jù)》中簡述了PB讀取地磅操作過程，有網(wǎng)友反映對BCD碼的讀取及解碼不是很清楚。在此，特追加此部分內(nèi)容來解釋BCD解碼過程。

認識BCD編碼
BCD編碼是一種數(shù)字壓縮存儲編碼，大家都知道一個字節(jié)有8個位，而數(shù)字0到9最多只需要使用4個位，如果用一個字節(jié)來存儲一個數(shù)字相對就會有一定的浪費，尤其是在傳輸過程中，由此人們就想出了壓縮的辦法，于是BCD編碼就產(chǎn)生了。

BCD編碼將一個字節(jié)的8個位拆分成高4位和低4位兩個部分，也就是說一個字節(jié)能存儲兩個數(shù)字。所以BCD的編碼過程就是將數(shù)字壓縮的過程，將兩個字節(jié)的數(shù)字壓縮成一個字節(jié)。反之，解碼就是把一個字節(jié)的數(shù)字拆分為兩個數(shù)字單獨存放（大部分的處理都是按字節(jié)處理的）。

示例：

編碼過程，將數(shù)字69進行BCD編碼（注：BCD編碼低位在前，后面將不再注釋）。

1.       將6，9分別轉(zhuǎn)換成二進制表示：6（00000110）9（00001001），大家可以看到，最大的數(shù)字9也只要4個位，在傳輸過程中白白浪費了4個位；

2.       將69合并為一個字節(jié)，分別取6，9二進制編碼的低4位，按照低位在前的原則，將9的低四位放前面6的低四位放后面得出新的字節(jié)二進制編碼是10010110；

3.       完成編碼過程，69的BCD編碼結(jié)果為10010110。

解碼過程：將69的BCD碼10010110進行解碼。

1.       將10010110的高4位與低4位拆分開，得到兩個二進制數(shù)1001和0110；

2.       分別將1001和0110的前面補充4位0000得到兩個8位的二進制數(shù)00001001，00000110；

3.       因為編碼時低位在前，所以我們將兩個二進制數(shù)編排順序為00000110 000010001；

4.       將二進制數(shù)轉(zhuǎn)換為十進制得出解碼結(jié)果為69（正確解碼）。

PB中如何對BCD碼進行解碼
大家知道在PB中有二進制類型的變量blob，但要無法按位操作，那么我們?nèi)绾芜M行BCD編碼的數(shù)字進行解碼呢？

我想大家都會不約而同的想到ASCII碼，沒錯，就是她。ASCII就是數(shù)字和字符在計算機中存儲的的值，她在PB中給我們呈現(xiàn)的并不是01組成的二進制數(shù)而是十進制數(shù)值。

BCD解碼需要將一個字節(jié)的高4位和低4位進行拆分，那么我們怎么來使用十進制的ASCII編碼做到呢？

因為PB不提供位運算所以我們只能自己寫函數(shù)來做些簡單的處理了，那又如何處理呢？

方法一：我們寫函數(shù)將十進制的ASCII（單字節(jié)）轉(zhuǎn)化為二進制的字符串，當然，如此一來你還要寫一個將二進制字符串轉(zhuǎn)換為10進制數(shù)字的函數(shù)，有興趣的朋友可以嘗試一下。

方法二：在我上次寫的內(nèi)容中已經(jīng)提到了，就是借助十六進制來完成轉(zhuǎn)換。大家仔細研究不難發(fā)現(xiàn)十六進制表示等同于將一個字節(jié)的內(nèi)容高4位和低4位分別轉(zhuǎn)換為十進制，如果不信你可以自己驗算一下。這樣我們就只需要寫一個轉(zhuǎn)換函數(shù)了，將十進制數(shù)轉(zhuǎn)換為十六進制字符串。轉(zhuǎn)換后將十六串的兩個字符位置對換（因為編碼的時候低位在前），然后直接將這個串強制轉(zhuǎn)換為數(shù)值型就得到了解碼后的數(shù)值。（注：后面有一轉(zhuǎn)換函數(shù)是網(wǎng)上一網(wǎng)友所寫）

有了解碼方法我們在讀BCD碼的地磅數(shù)據(jù)的時候就很容易處理了，因為我上次寫過處理過程這里我只簡單描述一下：

1.       用二進制類型blob將串口（現(xiàn)在有的用usb口）的數(shù)據(jù)讀出來；

2.       將blob強制轉(zhuǎn)換為string，這樣就把二進制流按8位存儲格式編碼了，也就是說BCD碼在這個string中，不過是壓縮格式；

3.       將string的每個字節(jié)都分割開來，然后分別譯為ASCII編碼，PB中有函數(shù)ASC；

4.       根據(jù)具體設(shè)備出廠參數(shù)識別string中狀態(tài)位，校驗位，數(shù)字位等的位置；

5.       找到數(shù)字位進行BCD解碼，方法如上；

6.       完成解碼，得到稱量數(shù)據(jù)。



附件：
//=============================================================================

// Function: of_Hex()

//-----------------------------------------------------------------------------

// Description: 轉(zhuǎn)換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