PB编程实现读取地磅BCD码的原理与实现

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

// 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

翔宇亭IT乐园提醒您：本文来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。(www.biye5u.com)

上一页  [1] [2]