《易语言编程之菜鸟腾飞》第三节[计算器]作业 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口1
变量名	类型	数组	备注
程序集_第一个参数	双精度小数型		公式的第一个参数
程序集_第二个参数	双精度小数型		公式的第二个参数
程序集_运算符	文本型		运算符
程序集_是否继续计算	逻辑型		是否连续计算
程序集_点击数字	文本型		记录当前按下按钮对应数字
程序集_计算结果	双精度小数型		记录计算结果
程序集_第一次按点	逻辑型		控制一次只能输入一个小数点
程序集_是否可以四舍五入	逻辑型		避免多次点击四舍五入出错

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

编辑框_算式.内容＝ “0”
程序集_第一次按点＝真 ' 程序开始没有按过点
程序集_是否可以四舍五入＝真

子程序名	返回值类型	公开	备注
_按钮0_被单击

如果真 (编辑框_算式.内容 ≠ “0”)

' 避免出现00,000,0000...这种现象

编辑框_算式.加入文本 (“0”)

编辑框_过程.加入文本 (“0”)

子程序名	返回值类型	公开	备注
_按钮1_被单击

程序集_点击数字＝ “1”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮2_被单击

程序集_点击数字＝ “2”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮3_被单击

程序集_点击数字＝ “3”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮4_被单击

程序集_点击数字＝ “4”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮5_被单击

程序集_点击数字＝ “5”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮6_被单击

程序集_点击数字＝ “6”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮7_被单击

程序集_点击数字＝ “7”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮8_被单击

程序集_点击数字＝ “8”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮9_被单击

程序集_点击数字＝ “9”
点击数字 ()

子程序名	返回值类型	公开	备注
_按钮_点_被单击

如果真 (程序集_第一次按点) ' 第一次按点

如果 (编辑框_算式.内容 ≠ “0”) ' 如果不内容是0过程自动加0.

输出调试文本 (编辑框_算式.内容)

编辑框_过程.加入文本 (“.”)

程序集_第一次按点＝假 ' 已经按过点了,避免多次按点

编辑框_过程.加入文本 (“0.”)

程序集_第一次按点＝假 ' 已经按过点了,避免多次按点

子程序名	返回值类型	公开	备注
点击数字

判断 (编辑框_算式.内容＝ “0”)

编辑框_算式.内容＝程序集_点击数字 ' 如果编辑框内容是0点击按钮编辑框内容变成按钮对应数字避免出现00,01,02,03...这种现象

编辑框_过程.加入文本 (程序集_点击数字)

编辑框_算式.加入文本 (程序集_点击数字)

编辑框_过程.加入文本 (程序集_点击数字)

子程序名	返回值类型	公开	备注
_按钮_加_被单击

判断 (程序集_是否继续计算) ' 判断是否计算

计算结果 ()

程序集_运算符＝ “+”

编辑框_过程.加入文本 (程序集_运算符)

程序集_运算符＝ “+”

点击运算符 ()

子程序名	返回值类型	公开	备注
_按钮_减_被单击

判断 (程序集_是否继续计算) ' 判断是否计算

计算结果 ()

程序集_运算符＝ “-”

编辑框_过程.加入文本 (程序集_运算符)

程序集_运算符＝ “-”

点击运算符 ()

子程序名	返回值类型	公开	备注
_按钮_乘_被单击

判断 (程序集_是否继续计算) ' 判断是否计算

计算结果 ()

程序集_运算符＝ “*”

编辑框_过程.加入文本 (程序集_运算符)

程序集_运算符＝ “*”

点击运算符 ()

子程序名	返回值类型	公开	备注
_按钮_除_被单击

判断 (程序集_是否继续计算) ' 判断是否计算

计算结果 ()

程序集_运算符＝ “/”

编辑框_过程.加入文本 (程序集_运算符)

程序集_运算符＝ “/”

点击运算符 ()

子程序名	返回值类型	公开	备注
_按钮_取余_被单击

判断 (程序集_是否继续计算) ' 判断是否计算

计算结果 ()

程序集_运算符＝ “取余数”

编辑框_过程.加入文本 (程序集_运算符)

程序集_运算符＝ “取余数”

点击运算符 ()

子程序名	返回值类型	公开	备注
_按钮_等于_被单击

如果 (程序集_运算符 ≠ “”) ' 是否没按过运算符直接就点击等于

计算结果 ()

程序集_是否继续计算＝假

程序集_是否可以四舍五入＝真

子程序名	返回值类型	公开	备注
点击运算符

如果 (程序集_计算结果＝ 0)

程序集_第一个参数＝到小数 (编辑框_算式.内容) ' 设置运算式第一个参数的值

程序集_第一个参数＝到小数 (程序集_计算结果)  ' 设置运算式第一个参数的值
程序集_是否继续计算＝真  ' 告知程序已经点击过运算符了,下次再点击运算符先计算之前结果再执行添加运算符
编辑框_算式.内容＝ “0”  ' 清空编辑框_算式.内容  避免再次点击数字导致编辑框_过程内容出错
编辑框_过程.加入文本 (程序集_运算符)

子程序名	返回值类型	公开	备注
计算结果

程序集_第一次按点＝真 ' 开始计算第一次按点归真
程序集_第二个参数＝到小数 (编辑框_算式.内容)

判断 (程序集_运算符＝ “+”)

程序集_计算结果＝程序集_第一个参数＋程序集_第二个参数

判断 (程序集_运算符＝ “-”)

程序集_计算结果＝程序集_第一个参数－程序集_第二个参数

判断 (程序集_运算符＝ “*”)

程序集_计算结果＝程序集_第一个参数 × 程序集_第二个参数

判断 (程序集_运算符＝ “/”)

程序集_计算结果＝程序集_第一个参数 ÷ 程序集_第二个参数

判断 (程序集_运算符＝ “取余数”)

程序集_计算结果＝程序集_第一个参数％程序集_第二个参数

编辑框_过程.加入文本 (“=” ＋到文本 (程序集_计算结果))
程序集_第一个参数＝程序集_计算结果 ' 把运算结果赋值给第一个参数
编辑框_算式.内容＝ “0” ' 清空编辑框_算式.内容避免再次点击数字导致编辑框_过程内容出错

子程序名	返回值类型	公开	备注
_按钮_删除_被单击

编辑框_算式.内容＝取文本左边 (编辑框_算式.内容, 取文本长度 (编辑框_算式.内容) － 1)
编辑框_过程.内容＝取文本左边 (编辑框_过程.内容, 取文本长度 (编辑框_过程.内容) － 1)

如果真 (编辑框_算式.内容＝ “”)

编辑框_算式.内容＝ “0”

子程序名	返回值类型	公开	备注
_按钮_清空_被单击

如果真 (编辑框_算式.内容 ≠ “0”)

编辑框_过程.内容＝取文本左边 (编辑框_过程.内容, 取文本长度 (编辑框_过程.内容) －取文本长度 (编辑框_算式.内容))
编辑框_算式.内容＝ “0”

子程序名	返回值类型	公开	备注
_按钮_四舍五入_被单击

如果真 (程序集_是否可以四舍五入)

编辑框_过程.内容＝取文本左边 (编辑框_过程.内容, 取文本长度 (编辑框_过程.内容) －取文本长度 (到文本 (程序集_计算结果))) ＋到文本 (四舍五入 (到小数 (程序集_计算结果), 3))

编辑框_算式.内容＝到文本 (四舍五入 (到小数 (程序集_计算结果), 3))

程序集_是否可以四舍五入＝假

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口1<br />
.程序集变量 程序集_第一个参数, 双精度小数型, , , 公式的第一个参数<br />
.程序集变量 程序集_第二个参数, 双精度小数型, , , 公式的第二个参数<br />
.程序集变量 程序集_运算符, 文本型, , , 运算符<br />
.程序集变量 程序集_是否继续计算, 逻辑型, , , 是否连续计算<br />
.程序集变量 程序集_点击数字, 文本型, , , 记录当前按下按钮对应数字<br />
.程序集变量 程序集_计算结果, 双精度小数型, , , 记录计算结果<br />
.程序集变量 程序集_第一次按点, 逻辑型, , , 控制一次只能输入一个小数点<br />
.程序集变量 程序集_是否可以四舍五入, 逻辑型, , , 避免多次点击四舍五入出错<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
编辑框_算式.内容 ＝ “0”<br />
程序集_第一次按点 ＝ 真  ' 程序开始没有按过点<br />
程序集_是否可以四舍五入 ＝ 真<br />
<br />
.子程序 _按钮0_被单击<br />
<br />
.如果真 (编辑框_算式.内容 ≠ “0”)<br />
    ' 避免出现00,000,0000...这种现象<br />
    编辑框_算式.加入文本 (“0”)<br />
    编辑框_过程.加入文本 (“0”)<br />
.如果真结束<br />
<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
程序集_点击数字 ＝ “1”<br />
点击数字 ()<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
程序集_点击数字 ＝ “2”<br />
点击数字 ()<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
程序集_点击数字 ＝ “3”<br />
点击数字 ()<br />
<br />
<br />
.子程序 _按钮4_被单击<br />
<br />
程序集_点击数字 ＝ “4”<br />
点击数字 ()<br />
<br />
<br />
.子程序 _按钮5_被单击<br />
<br />
程序集_点击数字 ＝ “5”<br />
点击数字 ()<br />
<br />
<br />
.子程序 _按钮6_被单击<br />
<br />
程序集_点击数字 ＝ “6”<br />
点击数字 ()<br />
<br />
<br />
.子程序 _按钮7_被单击<br />
<br />
程序集_点击数字 ＝ “7”<br />
点击数字 ()<br />
<br />
<br />
.子程序 _按钮8_被单击<br />
<br />
程序集_点击数字 ＝ “8”<br />
点击数字 ()<br />
<br />
.子程序 _按钮9_被单击<br />
<br />
程序集_点击数字 ＝ “9”<br />
点击数字 ()<br />
<br />
.子程序 _按钮_点_被单击<br />
<br />
.如果真 (程序集_第一次按点)  ' 第一次按点<br />
    .如果 (编辑框_算式.内容 ≠ “0”)  ' 如果不内容是0过程自动加0.<br />
        输出调试文本 (编辑框_算式.内容)<br />
        编辑框_过程.加入文本 (“.”)<br />
        程序集_第一次按点 ＝ 假  ' 已经按过点了,避免多次按点<br />
    .否则<br />
        编辑框_过程.加入文本 (“0.”)<br />
        程序集_第一次按点 ＝ 假  ' 已经按过点了,避免多次按点<br />
    .如果结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 点击数字<br />
<br />
.判断开始 (编辑框_算式.内容 ＝ “0”)<br />
    编辑框_算式.内容 ＝ 程序集_点击数字  ' 如果编辑框内容是0点击按钮编辑框内容变成按钮对应数字  避免出现00,01,02,03...这种现象<br />
    编辑框_过程.加入文本 (程序集_点击数字)<br />
.默认<br />
    编辑框_算式.加入文本 (程序集_点击数字)<br />
    编辑框_过程.加入文本 (程序集_点击数字)<br />
.判断结束<br />
<br />
<br />
<br />
.子程序 _按钮_加_被单击<br />
<br />
.判断开始 (程序集_是否继续计算)  ' 判断是否计算<br />
    计算结果 ()<br />
    程序集_运算符 ＝ “+”<br />
    编辑框_过程.加入文本 (程序集_运算符)<br />
.默认<br />
    程序集_运算符 ＝ “+”<br />
    点击运算符 ()<br />
.判断结束<br />
<br />
<br />
.子程序 _按钮_减_被单击<br />
<br />
.判断开始 (程序集_是否继续计算)  ' 判断是否计算<br />
    计算结果 ()<br />
    程序集_运算符 ＝ “-”<br />
    编辑框_过程.加入文本 (程序集_运算符)<br />
.默认<br />
    程序集_运算符 ＝ “-”<br />
    点击运算符 ()<br />
.判断结束<br />
<br />
<br />
.子程序 _按钮_乘_被单击<br />
<br />
.判断开始 (程序集_是否继续计算)  ' 判断是否计算<br />
    计算结果 ()<br />
    程序集_运算符 ＝ “*”<br />
    编辑框_过程.加入文本 (程序集_运算符)<br />
.默认<br />
    程序集_运算符 ＝ “*”<br />
    点击运算符 ()<br />
.判断结束<br />
<br />
<br />
.子程序 _按钮_除_被单击<br />
<br />
.判断开始 (程序集_是否继续计算)  ' 判断是否计算<br />
    计算结果 ()<br />
    程序集_运算符 ＝ “/”<br />
    编辑框_过程.加入文本 (程序集_运算符)<br />
.默认<br />
    程序集_运算符 ＝ “/”<br />
    点击运算符 ()<br />
.判断结束<br />
<br />
<br />
.子程序 _按钮_取余_被单击<br />
<br />
.判断开始 (程序集_是否继续计算)  ' 判断是否计算<br />
    计算结果 ()<br />
    程序集_运算符 ＝ “取余数”<br />
    编辑框_过程.加入文本 (程序集_运算符)<br />
.默认<br />
    程序集_运算符 ＝ “取余数”<br />
    点击运算符 ()<br />
.判断结束<br />
<br />
<br />
<br />
.子程序 _按钮_等于_被单击<br />
<br />
.如果 (程序集_运算符 ≠ “”)  ' 是否没按过运算符直接就点击等于<br />
    计算结果 ()<br />
    程序集_是否继续计算 ＝ 假<br />
    程序集_是否可以四舍五入 ＝ 真<br />
.否则<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 点击运算符<br />
<br />
.如果 (程序集_计算结果 ＝ 0)<br />
    程序集_第一个参数 ＝ 到小数 (编辑框_算式.内容)  ' 设置运算式第一个参数的值<br />
.否则<br />
    程序集_第一个参数 ＝ 到小数 (程序集_计算结果)  ' 设置运算式第一个参数的值<br />
.如果结束<br />
程序集_是否继续计算 ＝ 真  ' 告知程序已经点击过运算符了,下次再点击运算符先计算之前结果再执行添加运算符<br />
编辑框_算式.内容 ＝ “0”  ' 清空编辑框_算式.内容  避免再次点击数字导致编辑框_过程内容出错<br />
编辑框_过程.加入文本 (程序集_运算符)<br />
<br />
<br />
.子程序 计算结果<br />
<br />
程序集_第一次按点 ＝ 真  ' 开始计算第一次按点归真<br />
程序集_第二个参数 ＝ 到小数 (编辑框_算式.内容)<br />
.判断开始 (程序集_运算符 ＝ “+”)<br />
    程序集_计算结果 ＝ 程序集_第一个参数 ＋ 程序集_第二个参数<br />
.判断 (程序集_运算符 ＝ “-”)<br />
    程序集_计算结果 ＝ 程序集_第一个参数 － 程序集_第二个参数<br />
.判断 (程序集_运算符 ＝ “*”)<br />
    程序集_计算结果 ＝ 程序集_第一个参数 × 程序集_第二个参数<br />
.判断 (程序集_运算符 ＝ “/”)<br />
    程序集_计算结果 ＝ 程序集_第一个参数 ÷ 程序集_第二个参数<br />
.判断 (程序集_运算符 ＝ “取余数”)<br />
    程序集_计算结果 ＝ 程序集_第一个参数 ％ 程序集_第二个参数<br />
.默认<br />
<br />
.判断结束<br />
<br />
编辑框_过程.加入文本 (“=” ＋ 到文本 (程序集_计算结果))<br />
程序集_第一个参数 ＝ 程序集_计算结果  ' 把运算结果赋值给第一个参数<br />
编辑框_算式.内容 ＝ “0”  ' 清空编辑框_算式.内容  避免再次点击数字导致编辑框_过程内容出错<br />
<br />
.子程序 _按钮_删除_被单击<br />
<br />
编辑框_算式.内容 ＝ 取文本左边 (编辑框_算式.内容, 取文本长度 (编辑框_算式.内容) － 1)<br />
编辑框_过程.内容 ＝ 取文本左边 (编辑框_过程.内容, 取文本长度 (编辑框_过程.内容) － 1)<br />
.如果真 (编辑框_算式.内容 ＝ “”)<br />
    编辑框_算式.内容 ＝ “0”<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮_清空_被单击<br />
<br />
.如果真 (编辑框_算式.内容 ≠ “0”)<br />
    编辑框_过程.内容 ＝ 取文本左边 (编辑框_过程.内容, 取文本长度 (编辑框_过程.内容) － 取文本长度 (编辑框_算式.内容))<br />
.如果真结束<br />
编辑框_算式.内容 ＝ “0”<br />
<br />
<br />
.子程序 _按钮_四舍五入_被单击<br />
<br />
.如果真 (程序集_是否可以四舍五入)<br />
    编辑框_过程.内容 ＝ 取文本左边 (编辑框_过程.内容, 取文本长度 (编辑框_过程.内容) － 取文本长度 (到文本 (程序集_计算结果))) ＋ 到文本 (四舍五入 (到小数 (程序集_计算结果), 3))<br />
    编辑框_算式.内容 ＝ 到文本 (四舍五入 (到小数 (程序集_计算结果), 3))<br />
    程序集_是否可以四舍五入 ＝ 假<br />
<br />
.如果真结束