马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
//不喜勿喷！请提建议修改！
//二楼的告诉我，TC有进制转换的方法
// 辅助.消息框(类型.转整型("3E8", 1)) //结果输出 1000 ，这样就是16进制转10进制
//代码留着给大家进制转换的参考
//后面附 求次方的原理。一个数的N次方，就是这个数自我相乘N次，任何数的0次方结果为1
功能 十六进制转十进制(输入值)
变量 输出值=""
变量 索引值=1
变量 累加值=0
变量 转换大写=字符串.转大写(输入值)
循环(索引值<字符串.长度(转换大写))
取一个字符=字符串.截取(转换大写,字符串.长度(转换大写)-索引值,字符串.长度(转换大写)-索引值+1) //从个位开始取字符 已修改
变量 对应十进制数字
选择(取一个字符)
条件 "0":
对应十进制数字=0
条件 "1":
对应十进制数字=1
条件 "2":
对应十进制数字=2
条件 "3":
对应十进制数字=3
条件 "4":
对应十进制数字=4
条件 "5":
对应十进制数字=5
条件 "6":
对应十进制数字=6
条件 "7":
对应十进制数字=7
条件 "8":
对应十进制数字=8
条件 "9":
对应十进制数字=9
条件 "A":
对应十进制数字=10
条件 "B":
对应十进制数字=11
条件 "C":
对应十进制数字=12
条件 "D":
对应十进制数字=13
条件 "E":
对应十进制数字=14
条件 "F":
对应十进制数字=15
选择结束
累加值 = 累加值 + 自定义空间.求次方(16,(索引值 - 1)) * 对应十进制数字 //这里红色字自定义空间改成你自己的空间名称
索引值=索引值+1
循环结束
输出值=类型.转字符型(累加值)
返回 输出值
功能结束
功能 求次方(原值,几次方)
//这里原值，无法判断是否为浮点型，太坑了
变量 累乘值
如果(类型.是否为整型(几次方,0)==true)
如果(几次方==0) //任何数的0次方都为1 已修改
累乘值=1
否则
累乘值=原值
如果结束
变量 计算几次=几次方-1
循环(计算几次>0)
累乘值*=原值
计算几次=计算几次-1
循环结束
如果结束
返回 累乘值
功能结束
|
/2 
发表于 2013-7-16 21:20:56
楼主