内存计算-初级程序-极语言教程

//窗体代码:

整数 窗体,原文,结果,ToH,ToS,zs,xs,wb,fd;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-428)>>1,上=(桌面.高-320)>>1;
窗体=创建窗口($100,程序.名称,"内存数据转十六进制",$10C80000,左,上,428,320,0,0,0,0);
原文=创建窗口($200,"Edit","1234",$50010081,10,110,393,20,窗体,1,4,0);
结果=创建窗口($200,"Edit","D2040000",$50010081,7,180,393,20,窗体,2,4,0);
ToH=创建窗口($0,"Button","转十六进制",$50000000,60,233,93,33,窗体,3,3,0);
ToS=创建窗口($0,"Button","转字符数字",$50000000,260,233,93,33,窗体,4,3,0);
zs=创建窗口($0,"Button","整数",$50014009,10,40,70,20,窗体,5,7,0);
xs=创建窗口($0,"Button","小数",$50014009,110,40,70,20,窗体,6,7,0);
wb=创建窗口($0,"Button","文本",$50014009,210,40,70,20,窗体,7,7,0);
fd=创建窗口($0,"Button","浮点",$50016009,320,40,70,20,窗体,8,7,0);
窗体启动;读取消息
结束

 

//程序代码:

字节 ty;整数 lg,lc;小数 sg;文本 Tx[32],str[32];浮点 db;
小程序 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭 停止
    为 单击左键 左键点击(数据)
    否则{处理窗口(窗口,消息,参数,数据)}
结束

小程序 窗体启动
    读取消息
结束

小程序 左键点击(数据)
    判断(数据)
    为 ToH{转换}为 ToS{转回}
    为 zs{ty=0}为 xs{ty=1}为 wb{ty=2}为 fd{ty=3}
结束

小程序 转换
    lc=取窗口字(原文,Tx,32);
    判断(ty)为 0{lg=转整数(Tx);计算(@lg,4);}
    为 1{sg=转小数(Tx);计算(@sg,4);}
    为 2{计算(Tx,lc);}为 3{db=转小数(Tx);计算(@db,8);}
结束

小程序 转回
    lc=取窗口字(结果,Tx,32);
    判断(ty)为 0{输出(@lg,4);格式化(str,"%d",lg);}
    为 1{输出(@sg,4);db=sg;格式化(str,"%f",db);}
    为 2{输出(str,lc);}为 3{格式化(str,"%f",db);}
    改窗口字(原文,str)
结束

小程序 计算(整数 lm,整数 ln);
    整数 m,n=0
    设置焦点(结果)m=str
    循环数组(n<lm(ln)){
    格式化(m,"%02X",n)m+2}
    改窗口字(结果,str)
结束

小程序 输出(整数 lm,整数 ln);
    整数 m,n=0
    设置焦点(原文)m=Tx
    改窗口字(原文,0)
    循环数组(n>lm(ln)){拆分式(m,"%02X",@n)m+2}
结束