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

protocol

感觉自己有点跑偏了,老是去想一些可能的错误导致进度不可思议的慢
一个计算器想了很多错误的可能解决了很多还是一堆错误
我是不是不应该纠结这么多
先把课程都过一遍

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口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 /> .如果真结束

qwf169

下来学习，感谢分享！

a1769421230

这个浮渣了一点

38828237

学习了，感谢分享。复杂才值得研究哈。

看起来就厉害

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

cdmmye

正需要呢谢谢

Burn

貌似简单的搞复杂了

往昔丶

貌似简单的搞复杂了

小渣渣哦

protocol

感觉走偏了,进度被自己拖慢了