简易计算器 - 精易论坛 - Powered by Discuz!

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
加数1	双精度小数型
运算符1	文本型

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

编辑框1.内容＝取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)

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

编辑框1.内容＝ “”

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

编辑框1.加入文本 (“1”)

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

编辑框1.加入文本 (“2”)

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

编辑框1.加入文本 (“3”)

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

编辑框1.加入文本 (“4”)

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

编辑框1.加入文本 (“5”)

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

编辑框1.加入文本 (“6”)

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

编辑框1.加入文本 (“7”)

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

编辑框1.加入文本 (“8”)

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

编辑框1.加入文本 (“9”)

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

编辑框1.加入文本 (“0”)

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

运算符1 ＝ “+”
加数1 ＝到整数 (编辑框1.内容)
编辑框1.内容＝ “”

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

运算符1 ＝ “-”
加数1 ＝到整数 (编辑框1.内容)
编辑框1.内容＝ “”

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

运算符1 ＝ “*”
加数1 ＝到整数 (编辑框1.内容)
编辑框1.内容＝ “”

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

运算符1 ＝ “/”
加数1 ＝到整数 (编辑框1.内容)
编辑框1.内容＝ “”

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

判断 (运算符1 ＝ “+”)

编辑框1.内容＝到文本 (加数1 ＋到小数 (编辑框1.内容))

判断 (运算符1 ＝ “-”)

编辑框1.内容＝到文本 (加数1 －到小数 (编辑框1.内容))

判断 (运算符1 ＝ “*”)

编辑框1.内容＝到文本 (加数1 × 到小数 (编辑框1.内容))

判断 (运算符1 ＝ “/”)

编辑框1.内容＝到文本 (加数1 ÷ 到小数 (编辑框1.内容))

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

XP风格 (2)

i支持库列表	支持库注释
xplib	XP风格界面库

.版本 2<br />
.支持库 xplib<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 加数1, 双精度小数型<br />
.程序集变量 运算符1, 文本型<br />
<br />
.子程序 _按钮13_被单击<br />
<br />
编辑框1.内容 ＝ 取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)<br />
<br />
.子程序 _按钮14_被单击<br />
<br />
编辑框1.内容 ＝ “”<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
编辑框1.加入文本 (“1”)<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
编辑框1.加入文本 (“2”)<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
编辑框1.加入文本 (“3”)<br />
<br />
.子程序 _按钮6_被单击<br />
<br />
编辑框1.加入文本 (“4”)<br />
<br />
.子程序 _按钮5_被单击<br />
<br />
编辑框1.加入文本 (“5”)<br />
<br />
.子程序 _按钮4_被单击<br />
<br />
编辑框1.加入文本 (“6”)<br />
<br />
.子程序 _按钮9_被单击<br />
<br />
编辑框1.加入文本 (“7”)<br />
<br />
.子程序 _按钮8_被单击<br />
<br />
编辑框1.加入文本 (“8”)<br />
<br />
.子程序 _按钮7_被单击<br />
<br />
编辑框1.加入文本 (“9”)<br />
<br />
.子程序 _按钮12_被单击<br />
<br />
编辑框1.加入文本 (“0”)<br />
<br />
.子程序 _按钮15_被单击<br />
<br />
运算符1 ＝ “+”<br />
加数1 ＝ 到整数 (编辑框1.内容)<br />
编辑框1.内容 ＝ “”<br />
<br />
.子程序 _按钮16_被单击<br />
<br />
运算符1 ＝ “-”<br />
加数1 ＝ 到整数 (编辑框1.内容)<br />
编辑框1.内容 ＝ “”<br />
<br />
.子程序 _按钮10_被单击<br />
<br />
运算符1 ＝ “*”<br />
加数1 ＝ 到整数 (编辑框1.内容)<br />
编辑框1.内容 ＝ “”<br />
<br />
.子程序 _按钮17_被单击<br />
<br />
运算符1 ＝ “/”<br />
加数1 ＝ 到整数 (编辑框1.内容)<br />
编辑框1.内容 ＝ “”<br />
<br />
.子程序 _按钮18_被单击<br />
<br />
.判断开始 (运算符1 ＝ “+”)<br />
    编辑框1.内容 ＝ 到文本 (加数1 ＋ 到小数 (编辑框1.内容))<br />
.判断 (运算符1 ＝ “-”)<br />
    编辑框1.内容 ＝ 到文本 (加数1 － 到小数 (编辑框1.内容))<br />
.判断 (运算符1 ＝ “*”)<br />
    编辑框1.内容 ＝ 到文本 (加数1 × 到小数 (编辑框1.内容))<br />
.判断 (运算符1 ＝ “/”)<br />
    编辑框1.内容 ＝ 到文本 (加数1 ÷ 到小数 (编辑框1.内容))<br />
.默认<br />
<br />
.判断结束<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
XP风格 (2)