进制转换器

老花眼猫2024-06-03 19:31

进制转换器

关于进制转换器设计思路：

十进制转二、八、十六进制，一个函数decToN ( )就能解决。

二进制转换为其他进制：bin2dec() 先转为十进制，再用函数 decToN ( )转其他进制。

八进制转换为其他进制：oct2dec ( ) 先转为十进制，再用函数decToN ( )转其他进制。

十六进制转换为其他进制：hex2dec ( ) 先转为十进制，再用函数 decToN ( ) 转其他进制。

第一步：设置输入格式是 n 进制；

第二步：检验输入数是否规范，本例未写；

第三步：一次性计算，转换，输出二、八、十、十六进制计算结果。

//以下是源码：

//***** 进制转换器 *****************************

// 本代码是用简单的 C 语言写的，用 MySpringC

// v2.7 编译调试通过。可以 VB6, VC, Java 改写。

// 编译人：张纯叔（micelu@126.com ）

//************************************************

Canvas cs ; //画布，绘制界面

string fname ; //filename 贴底图

int context; //canvasProc 触控设置

int obj;

int id;

int event; //canvasProc

int nn ; //输入n进制设置

int dec, sd ; //传入十进制数, sd 保持原输入

string bin, oct, hex ; //二、八进制，十六进制

int N; //N=2,8,16进制

string hx$ ; //N进制值字符表

int i, j, kn, k ; //计算

double m ; //计算,输入

string output$; //输出结果

int nlen ; //Len 字节数

string get, a ; //get$ stringinput , a$ 计算

string ss ; //output

main(){

setDisplay (1); //图形界面显示

setTitle("进制转换器");

cs.SetBackground(120,120,120);

cs.Active(); //界面活动

cs.SetProc (context, mycanvasProc); //触控

nn=10 ; //预设置10进制输入

draw_interface () ; //绘制启动界面

while (){ }

}//main ()

//关于界面设计，我喜欢自己绘制自定义界面。

//方法很简单，开一个无框 form，用画布canvas或picturebox作为绘画载体，就可发挥你的想象力，发扬你的艺术细胞，挥洒你的青春。可加载艺术背景底图，可透明显示。再在上面搞些标签、按钮、题标，设置热点区，加功能设置就行了。

//功能应用设置在热区mousemove(), mouseclick (), click ()，screen touch。

draw_interface (){

//一个界面设计，多种功能设置，各进制输入选项切换，转换计算按钮设置，界面触控热点区设置，更新计算结果输出。

//二个要点：一是绘制启动界面，二是更新输出

fname="/storage/emulated/0/jiac.jpg";

cs.DrawBitmap(fname,0,0); //加底图

//Bitmap ()，用于加底图。可不加。

cs.SetFillMode (1); //0不填色，1填色

cs.SetColor (125,250,250,250); //框线

cs.DrawRect (10,0, 710, 290);

cs.DrawRect (10,300, 710, 700);

//绘制上四个 nn 进制输入 选择项

cs.SetColor (55,200,200,200);

for (i=0; i<4; i++){

cs.DrawRect (i*160+45,90, i*160+180, 140); }

cs.SetColor (155,0,200,250);

if (nn==2) cs.DrawRect (45,90, 180, 140);

if (nn==8) cs.DrawRect (205,90, 340, 140);

if (nn==10) cs.DrawRect (365,90, 500, 140);

if (nn==16) cs.DrawRect (525,90, 660, 140);

cs.SetColor (255,0,100,250);

cs.SetTextSize (34) ;

cs.DrawText ("输入设置：", 45,70 );

cs.SetColor (255,0,0,250);

cs.SetTextSize (28) ;

cs.DrawText ("二进制 ", 70,125);

cs.DrawText ("八进制 ", 230,125);

cs.DrawText ("十进制 ", 390,125);

cs.DrawText ("十六进制 ", 535,125);

//画按钮

cs.SetColor (255,250,200,0);

cs.DrawRect (198, 178, 500, 260);

cs.DrawCircle (198,219, 41) ;

cs.DrawCircle (498,219, 41) ;

cs.SetColor (255,0,190,250);

cs.DrawRect (200, 180, 500, 260);

cs.DrawCircle (200,220, 40) ;

cs.DrawCircle (500,220, 40) ;

cs.SetTextSize (42) ;

cs.SetTextStyle (1);

cs.SetStrokeWidth(1);

ss="输入 > 转换 " ;

cs.SetColor (255,0,0,0);

cs.DrawText (ss , 254,237);

cs.SetColor (255,0,250,0);

cs.DrawText (ss , 250,233);

cs.SetFillMode (0); //0不填色，1填色

cs.SetColor (255,250,150,0);

cs.DrawText (ss , 250,233);

cs.SetFillMode (1); //0不填色，1填色

cs.SetColor (255,160,0,0); //退出按钮

cs.DrawRect (630, 0, 680, 40);

cs.SetColor (255,250,250,250);

cs.SetTextSize (30) ;

cs.DrawText ("X ", 645,30);

cs.SetFillMode (0);//0不填色，1填色

cs.SetColor (255,200,0,0); //输入选项框线

cs.DrawRect (45,90, 180, 140);

cs.DrawRect (205,90, 340, 140);

cs.DrawRect (365,90, 500, 140);

cs.DrawRect (525,90, 660, 140);

cs.SetColor (255,250,250,0); //区框线

cs.DrawRect (10,0, 710, 290);

cs.DrawRect (10,300, 710, 700);

//show result 更新计算结果

cs.SetFillMode (1);//0不填色，1填色

cs.SetTextStyle (0);

cs.SetColor (155,200,200,200); //结果输出条

for (i=0; i<4; i++){

cs.DrawRect (40,i*90+350, 680, i*90+400); }

cs.SetColor (255,0,0,250);

cs.SetTextSize (28) ;

cs.DrawText ("二进制： ", 40,340);

cs.DrawText ("八进制： ", 40,430);

cs.DrawText ("十进制： ", 40,520);

cs.DrawText ("十六进制： ", 40,610);

//显示计算结果，更新计算结果

cs.SetColor (255,200,0,0);

ss="Bin = "+bin ;

cs.DrawText (ss, 45,385);

ss="Oct = "+oct ;

cs.DrawText (ss, 45,475);

ss="Dec = "+intToString (dec) ;

cs.DrawText (ss, 45,565);

ss="Hex = "+hex ;

cs.DrawText (ss, 45,655);

cs.Update ();

}//draw_interfacs ()

//Proc ( ) 是设置canvas画布功能触控热点，与用户互动，功能设置。

mycanvasProc (int context,int obj,int id,int event,float x,float y){

//功能选择热点区域，设置输入n进制

cs.SetFillMode (1);//0不填色，1填色

if (x>45&&x<180&&y>90&&y<140){

nn=2 ;

draw_interface () ; }

if (x>205&&x<340&&y>90&&y<140){

nn=8 ;

draw_interface () ; }

if (x>365&&x<500&&y>90&&y<140){

nn=10 ;

draw_interface () ; }

if (x>525&&x<660&&y>90&&y<140){

nn=16 ;

draw_interface () ; }

//输入转换按钮 > 计算

if (x>170&&x<530&&y>200&&y<280){

//依输入进制 nn 转换 > 计算 > 显示结果

nnInput () ; }

if (x>630&&x<680&&y>0&&y<40){

//程序退出按钮

exit (0); }

cs.Update () ;

}//mycanvas ()

nnInput (){

//四类进制输入 > 计算 > 输出 > 一体完成

if (nn==2){

bin_input () ; }

if (nn==8){

oct_input () ; }

if (nn==10){

dec_Input () ; }

if (nn==16){

hex_input () ; }

draw_interface (); //更新输出

}//nnInput ()

//以下是进制转换函数：

//代码中 print.... 是调试显示，可注释掉

//程序代码少了个输入校验，然而不会因输入字符数字不合格式而中断终止程序，只是计算不正确。

//下面是各类进制转换函数：

decToN (){

// input dec ＆ N , return Bin Oct Hex = output$

//传入十进制整数int dec，一个预设置字符表hx$就可完成三类N进制的转换。N=2, 8, 16

//最大十进制可计算值 2,147,483,647

string hx$ ;

hx$="0123456789ABCDEF" ;

dec=sd ; //保持原数值dec，计算其他进制

print "dec= ", dec ;

output$=" "; //init输出

//开始计算：

while (dec !=0){

//** do calculate until dec=0, return output$

k=dec-dec/N*N ; //k=dec Mod N, k=dec % N

dec=dec/N ; //整除，dec\N

output=subString (hx, k,1)+output$ ; }

//输出结果：

print "转换为", N, "进制" ;

if (N==2) print "输出结果： bin= ", output$ ;

if (N==8) print "输出结果： oct= ", output$ ;

if (N==16) print "输出结果： hex= ", output$ ;

print " ";

//draw text result output$ on interface

if (N==2) bin=output$ ;

if (N==8) oct=output$ ;

if (N==16) hex= output$ ;

dec=sd ; //原输入 dec 还原

}//decToN ()

hex2dec (){

//传入十六进制数转换为十进制数

//传入 string get$ 输出 int dec

nlen=len (get$); //字串长度

dec=0 ; //init 置初值 0

//开始计算 >

for (i=0; i<nlen; i++){

a=subString (get, i, 1);

//字符串转为数值的方法很多，我采用最简单直观的写法，字母大小写都可以。

if (a$=="0") k=0 ;

if (a$=="1") k=1 ;

if (a$=="2") k=2 ;

if (a$=="3") k=3 ;

if (a$=="4") k=4 ;

if (a$=="5") k=5 ;

if (a$=="6") k=6 ;

if (a$=="7") k=7 ;

if (a$=="8") k=8 ;

if (a$=="9") k=9 ;

if (a=="A"\|\|a=="a") k=10 ;

if (a=="B"\|\|a=="b") k=11 ;

if (a=="C"\|\|a=="c") k=12 ;

if (a=="D"\|\|a=="d") k=13 ;

if (a=="E"\|\|a=="e") k=14 ;

if (a=="F"\|\|a=="f") k=15 ;

kn=nlen-i-1 ; //高权位起降幂计算

dec=dec+(int)(k*pow(16,kn)) ; //乘方累加

} // return dec

sd=dec ; //保持原数值dec

}//hex2dec ()

bin2dec (){ //二进制转十进制

//传入二进制数转换为十进制数

//传入 string get$ 输出 int dec

nlen=len (get$); //字串长度

dec=0 ; //init 置初值 0

//开始计算 >

for (i=0; i<nlen; i++){

a=subString (get, i, 1);

//字符串转为数值的方法很多，我采用最简单直观的写法，字母大小写都可以。

if (a$=="0") k=0 ;

if (a$=="1") k=1 ;

kn=nlen-i-1 ; //高权位起降幂计算

dec=dec+(int)(k*pow(2,kn)) ; //乘方累加

} // return dec

sd=dec ; //保持原数值dec

}//bin2dec

oct2dec (){ //八进制转十进制

//传入八进制数转换为十进制数

//传入 string get$ 输出 int dec

nlen=len (get$); //字串长度

dec=0 ; //init 置初值 0

//开始计算 >

for (i=0; i<nlen; i++){

a=subString (get, i, 1);

//字符串转为数值的方法很多，我采用最简单直观的写法，字母大小写都可以。

if (a$=="0") k=0 ;

if (a$=="1") k=1 ;

if (a$=="2") k=2 ;

if (a$=="3") k=3 ;

if (a$=="4") k=4 ;

if (a$=="5") k=5 ;

if (a$=="6") k=6 ;

if (a$=="7") k=7 ;

kn=nlen-i-1 ; //高权位起降幂计算

dec=dec+(int)(k*pow(8,kn)) ; //乘方累加

} // return dec

sd=dec ; //保持原数值dec

}//oct2dec

//以下四类输入转换函数，一个输入，全部转换

hex_input (){

//输入十六进制数转换为10, 2, 8 进制

get$=stringInput (" 输入十六进制数 "," 例： 3ff \n 输入 [ 空 ] 退出 " ) ;

if (get$==" ") {

print "输入为空，请重新输入。 " ; }

print "Input : string= ",get$ ;

hex=get$ ;

hex2dec () ; //开始计算 16转10

//计算结果： return dec

print "输出结果： dec= ", dec ;

print " " ;

N=2 ; decToN () ; //10转2

N=8 ; decToN () ; //10转8

}//test16 ()

oct_input (){

//输入八进制数转换为 10, 2, 16 进制

get$=stringInput (" 输入八进制数 "," 例： 377 \n 输入 [ 空 ] 退出 " ) ;

if (get$==" ") {

print "输入为空，请重新输入。 " ; }

print "Input : string= ",get$ ;

oct=get$ ;

oct2dec () ; //开始计算 8转10

//计算结果： return dec

print "输出结果： dec= ", dec ;

print " " ;

N=2 ; decToN () ; //10转2

N=16 ; decToN () ; //10转16

}//test8 ()

bin_input (){

//输入二进制数转换为 进制

// clearOutput();

get$=stringInput (" 输入二进制数 "," 例： 10110011 \n 输入 [ 空 ] 退出 " ) ;

if (get$==" ") {

print "输入为空，请重新输入。 " ; }

print "Input : string= ",get$ ;

bin=get$ ; //print

bin2dec () ; //开始计算 2转10

//计算结果： return dec

print "输出结果： dec= ", dec ;

print " " ;

N=8 ; decToN () ; //10转8

N=16 ; decToN () ; //10转16

}//test2 ()

dec_Input (){//输入

m=doubleInput (" 输入十进制非负整数 "," 例： 65535 \n 输入 [ 空 ] 退出 " ) ;

clearOutput (); //清屏

if (m==0) {

print "输入为空，请重新输入。 " ; }

dec=(int)(m);

sd=dec ; //保持原输入数值dec

print "Input : 十进制整数 = ", dec;

print " " ;

N=2 ;

decToN () ; //转换

N=8 ;

decToN () ; //转换

N=16 ;

decToN () ; //转换

}//dec_Input ()

//**** End ****

相关推荐
蜡笔小新星10 分钟前
Python Kivy库学习路线
开发语言·网络·经验分享·python·学习
凯子坚持 c10 分钟前
C语言复习概要（三）
c语言·开发语言
无限大.22 分钟前
c语言200例 067
java·c语言·开发语言
无限大.24 分钟前
c语言实例
c语言·数据结构·算法
Death20027 分钟前
Qt 中的 QListWidget、QTreeWidget 和 QTableWidget：简化的数据展示控件
c语言·开发语言·c++·qt·c#
六点半88829 分钟前
【C++】速通涉及 “vector” 的经典OJ编程题
开发语言·c++·算法·青少年编程·推荐算法
Death2001 小时前
Qt 3D、QtQuick、QtQuick 3D 和 QML 的关系
c语言·c++·qt·3d·c#
洛临_1 小时前
【C语言】基础篇
c语言·算法
墨@#≯1 小时前
机器学习系列篇章0 --- 人工智能&机器学习相关概念梳理
人工智能·经验分享·机器学习
长天一色2 小时前
C语言日志类库 zlog 使用指南（第五章 配置文件）
c语言·开发语言
热门推荐
01组基轨迹建模 GBTM的介绍与实现（Stata 或 R）02【经验分享】Ubuntu22.04安装微信(linux官方版)032024年高教社杯数学建模国赛C题超详细解题思路分析04分享几个惊艳的 Three.js 个人站点05安卓系列机型永久去除data分区加密 详细步骤解析06【2024数模国赛赛题思路公开】国赛B题思路丨附可运行代码丨无偿自提07CTF网络安全大赛简单的web抓包题目：HEADache08Ubuntu24.04安装中文输入法09【2024高教社杯全国大学生数学建模竞赛】B题 生产过程中的决策问题——解题思路 代码 论文10springer 在线投稿编译踩坑