| 网站首页 | 技术文章 | 下载频道 | 博客 | 编程论坛 |
 
| 技术教程首页 | 开发语言 | WEB开发 | .NET技术 | 数据库 | 操作系统 | 网页制作 |
 
 
您现在的位置: 编程中国 >> 技术教程 >> 数据库 >> PowerBuilder >> PB技术资料 >> 正文
  ►  PB中编写10进制到其他进制的转换函数
PB中编写10进制到其他进制的转换函数
作者:佚名    阅读人次:……    文章来源:未知    发布时间:2006/1/29    网友评论()条
 
  有时候我们要用到10进制与其他进制之间的转换,如10-16进制的转换。在此我编写了一个函数,可以方便的把10进制转换到其他进制。

  函数为changejz(long shi,int how )其中参数shi为要转换的10进制数据,how为要转换到的进制类型,取值为2,8,16三个,整个函数的返回值为string型。

  大家都知道,要把10进制转换到诸如8进制,首先得转换到2进制,再由2进制转换到8进制,所以函数的第一步为:把输入的数据都由10进制转换到2进制。

2进制 8进制 10进制 16进制
10110010 262 178 B2
10110111011 2673 1467 5BB

  函数整体代码如下:(以下列举数字时都以10进制1467为例子)
 
string two,sixteen,eight //定义三个字符串变量,用来存放最后输出的进制值
long lentwo,duan,i,j
string aa[50],a[50],b[4] //定义数组

//先把10进制数据通过取余数转换成2进制
//由于10进制到2进制的转换是通过取余数实现,所以这里用到的mod()函数,通过实//践,发现这样4行代码就可以把10进制转换到2进制
do while shi>0
two = two + string(mod(shi,2))
shi=shi / 2
loop

choose case how //选择输出进制

case 2 //选择2进制
//由于上面得到的2进制的数据方向是相反的:11011101101,所以要通过reverse()函数重新//把它颠倒过来
two=reverse(two) //得到正确的2进制10110111011
return two //返回函数值

case 8 //选择8进制
//2进制到8进制的转换是这样的,从右往左每3位为一个段,即8进制的一位,
lentwo=len(two) //取2进制的长度
if mod(lentwo,3) > 0 then //分段
duan=lentwo / 3 + 1
else
duan=lentwo /3
end if

for i= duan to 1 step -1 //由于没有颠倒过来的2进制是从右往左的,所以//分出来的段从左往右就是由大到小

aa[duan]=mid(two,i * 3 - 2 ,3) //取出每一段的2进制值
a[duan]='0'
for j=1 to 3

b[j]=mid(aa[duan],j,1) //每一段从右往左取值

if b[j]<> '' then
a[duan]=string(integer(a[duan]) + 2^(j -1 ) * integer(b[j]))
//按照2^0 * x + 2^1 *x +2^2 * x
//x为分别为从右到左的2进制的值,累加得到每一段的8进制值
end if


next
eight=eight + a[duan] //8进制段累加得到最后的8进制值
next
return eight
//16进制的方法如同8进制,只是每4位为一段而已
case 16 //16进制

lentwo=len(two)
if mod(lentwo,4) > 0 then
duan=lentwo / 4 + 1
else
duan=lentwo /4
end if


for i= duan to 1 step -1

aa[duan]=mid(two,i * 4 - 3 ,4)
a[duan]='0'
for j=1 to 4

b[j]=mid(aa[duan],j,1)

if b[j]<> '' then
a[duan]=string(integer(a[duan]) + 2^(j -1 ) * integer(b[j]))
end if

choose case integer(a[duan])
case 10
a[duan]='A'
case 11
a[duan]='B'
case 12
a[duan]='C'
case 13
a[duan]='D'
case 14
a[duan]='E'
case 15
a[duan]='F'
end choose

next
sixteen=sixteen + a[duan]
next
return sixteen

case else

end choose

  有兴趣的朋友还可以把小数点右面的值也算出来,不过他为2的负次幂。以上代码在windows2000 professional + powerbuilder80下通过。

 

 
文章录入:静夜思    责任编辑:静夜思 
  • 上一篇文章:

  • 下一篇文章: 没有了

  •  
    相关文章
    原创地带
    24小时热门帖子