//==================================================================== // [FUNCTION] : gf_convertnumsys() // [RETURNS] : string // [ARGEMENTS] : // value integer ai_value 需要转化的10进制数 // value integer ai_how 转化方式(共3种: 2,8,16) //-------------------------------------------------------------------- // [DESCRIPTION]: 把10进制转化成2,8,16进制(10进制数必须大于零) //-------------------------------------------------------------------- // [AUTHOR INFO] : DoItNow Date: 2003.05.21 // [MODIFIER INFO]: // //-------------------------------------------------------------------- // Copyright (C) saccsoft.com(TM) 2003, All rights reserved //====================================================================
String two,sixteen,eight //定义三个字符串变量,用来存放最后输出的进制值 String ls_return Long lentwo,duan,i,j String aa[50],a[50],b[4]
//==================================================================== // 先把10进制数据通过取余数转换成2进制 // 10进制到2进制的转换是通过取余数实现 //==================================================================== DO WHILE ai_value > 0 two = two + String(Mod(ai_value,2)) ai_value = ai_value / 2 LOOP
//==================================================================== // 选择输出进制 //==================================================================== CHOOSE CASE ai_how CASE 2 //由于上面得到的2进制的数据方向是相反的:11011101101,所以要通过reverse()函数重新//把它颠倒过来 two = Reverse(two) //得到正确的2进制10110111011 ls_return= two CASE 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 ls_return= eight CASE 16 //16进制的方法如同8进制,只是每4位为一段而已 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 ls_return= sixteen CASE ELSE END CHOOSE
RETURN ls_return
/////////////////////////////////////////
|