菜鸟之路-计算器源码

小0……0安 · 发表于 2017-4-1 22:10:38

菜鸟之路，不喜勿喷！！！

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
前半式	双精度小数型		第一次输入的数字
后半式	双精度小数型		第二次输入的数字
运算符	文本型		运算符号“+、-、×、÷、”
运算结果	双精度小数型

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

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

编辑框.加入文本 (“1”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“2”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“3”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“4”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“5”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“6”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“7”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“8”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“9”)
输出调试文本 (编辑框.内容)

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

编辑框.加入文本 (“0”)
输出调试文本 (编辑框.内容)

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

编辑框.内容＝ “”
输出调试文本 (“清空”)

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

编辑框.内容＝取文本左边 (编辑框.内容, 取文本长度 (编辑框.内容) － 1)
输出调试文本 (“←”, 编辑框.内容)

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

编辑框.加入文本 (“.”)
输出调试文本 (“.”)

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

前半式＝到数值 (编辑框.内容)
运算符＝ “加”
编辑框.内容＝ “”
输出调试文本 (“＋”)

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

前半式＝到数值 (编辑框.内容)
运算符＝ “减”
编辑框.内容＝ “”
输出调试文本 (“－”)

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

前半式＝到数值 (编辑框.内容)
运算符＝ “乘”
编辑框.内容＝ “”
输出调试文本 (“×”)

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

前半式＝到数值 (编辑框.内容)
运算符＝ “除”
编辑框.内容＝ “”
输出调试文本 (“÷”)

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

前半式＝到数值 (编辑框.内容)
运算符＝ “余数”
编辑框.内容＝ “”
输出调试文本 (“％”)

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

编辑框.内容＝到文本 (四舍五入 (到数值 (编辑框.内容), 3))
输出调试文本 (编辑框.内容)

子程序名	返回值类型	公开	备注
_按钮_等于_被单击			等于（运算结果）

后半式＝到数值 (编辑框.内容)

判断 (运算符＝ “加”)

运算结果＝前半式＋后半式

判断 (运算符＝ “减”)

运算结果＝前半式－后半式

判断 (运算符＝ “乘”)

运算结果＝前半式 × 后半式

判断 (运算符＝ “除”)

运算结果＝前半式 ÷ 后半式

判断 (运算符＝ “余数”)

运算结果＝前半式％后半式

编辑框.内容＝到文本 (运算结果)
输出调试文本 (“＝”, 编辑框.内容)

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 前半式, 双精度小数型, , , 第一次输入的数字<br />
.程序集变量 后半式, 双精度小数型, , , 第二次输入的数字<br />
.程序集变量 运算符, 文本型, , , 运算符号“+、-、×、÷、”<br />
.程序集变量 运算结果, 双精度小数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
<br />
<br />
.子程序 _按钮1_被单击, , , 数字“1”<br />
<br />
编辑框.加入文本 (“1”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮2_被单击, , , 数字“2”<br />
<br />
编辑框.加入文本 (“2”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮3_被单击, , , 数字“3”<br />
<br />
编辑框.加入文本 (“3”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮4_被单击, , , 数字“4”<br />
<br />
编辑框.加入文本 (“4”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮5_被单击, , , 数字“5”<br />
<br />
编辑框.加入文本 (“5”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮6_被单击, , , 数字“6”<br />
<br />
编辑框.加入文本 (“6”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮7_被单击, , , 数字“7”<br />
<br />
编辑框.加入文本 (“7”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮8_被单击, , , 数字“8”<br />
<br />
编辑框.加入文本 (“8”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮9_被单击, , , 数字“9”<br />
<br />
编辑框.加入文本 (“9”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮0_被单击, , , 数字“0”<br />
<br />
编辑框.加入文本 (“0”)<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮_清空_被单击, , , 清空数据<br />
<br />
编辑框.内容 ＝ “”<br />
输出调试文本 (“清空”)<br />
<br />
<br />
.子程序 _按钮_删除_被单击, , , 删除<br />
<br />
编辑框.内容 ＝ 取文本左边 (编辑框.内容, 取文本长度 (编辑框.内容) － 1)<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 />
编辑框.内容 ＝ 到文本 (四舍五入 (到数值 (编辑框.内容), 3))<br />
输出调试文本 (编辑框.内容)<br />
<br />
<br />
.子程序 _按钮_等于_被单击, , , 等于（运算结果）<br />
<br />
后半式 ＝ 到数值 (编辑框.内容)<br />
.判断开始 (运算符 ＝ “加”)<br />
    运算结果 ＝ 前半式 ＋ 后半式<br />
.判断 (运算符 ＝ “减”)<br />
    运算结果 ＝ 前半式 － 后半式<br />
.判断 (运算符 ＝ “乘”)<br />
    运算结果 ＝ 前半式 × 后半式<br />
.判断 (运算符 ＝ “除”)<br />
    运算结果 ＝ 前半式 ÷ 后半式<br />
.判断 (运算符 ＝ “余数”)<br />
    运算结果 ＝ 前半式 ％ 后半式<br />
.默认<br />
<br />
.判断结束<br />
编辑框.内容 ＝ 到文本 (运算结果)<br />
输出调试文本 (“＝”, 编辑框.内容)