|
楼主 |
发表于 2018-4-27 09:51:32
|
显示全部楼层
福建省福州市
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 运算量1, 整数型
.程序集变量 运算量3, 整数型
.程序集变量 运算量4, 整数型
.程序集变量 运算符号, 文本型
.子程序 _按钮1_被单击
编辑框_算式.加入文本 (“1”)
.子程序 _按钮2_被单击
编辑框_算式.加入文本 (“2”)
.子程序 _按钮3_被单击
编辑框_算式.加入文本 (“3”)
.子程序 _按钮4_被单击
编辑框_算式.加入文本 (“4”)
.子程序 _按钮5_被单击
编辑框_算式.加入文本 (“5”)
.子程序 _按钮6_被单击
编辑框_算式.加入文本 (“6”)
.子程序 _按钮7_被单击
编辑框_算式.加入文本 (“7”)
.子程序 _按钮8_被单击
编辑框_算式.加入文本 (“8”)
.子程序 _按钮9_被单击
编辑框_算式.加入文本 (“9”)
.子程序 _按钮0_被单击
编辑框_算式.加入文本 (“0”)
.子程序 _按钮_加_被单击
运算量1 = 到整数 (编辑框_算式.内容)
编辑框_算式.内容 = “”
运算量4 = 到整数 (编辑框_算式.内容)
输出调试文本 (运算量4)
运算量3 = 运算量1 + 运算量4
编辑框_算式.内容 = 到文本 (运算量3)
运算符号 = “+”
.子程序 _按钮_减_被单击
运算量1 = 到整数 (编辑框_算式.内容)
运算符号 = “-”
编辑框_算式.内容 = “”
.子程序 _按钮_乘_被单击
运算量1 = 到整数 (编辑框_算式.内容)
运算符号 = “*”
编辑框_算式.内容 = “”
.子程序 _按钮_除_被单击
运算量1 = 到整数 (编辑框_算式.内容)
运算符号 = “/”
编辑框_算式.内容 = “”
.子程序 _按钮_等于_被单击
.局部变量 运算量2, 整数型
.局部变量 运算结果, 双精度小数型
运算量2 = 到整数 (编辑框_算式.内容)
.判断开始 (运算符号 = “+”)
编辑框_算式.内容 = 到文本 (运算量1 + 运算量2)
.判断 (运算符号 = “-”)
编辑框_算式.内容 = 到文本 (运算量1 - 运算量2)
.判断 (运算符号 = “*”)
编辑框_算式.内容 = 到文本 (运算量1 × 运算量2)
.判断 (运算符号 = “/”)
编辑框_算式.内容 = 到文本 (运算量1 ÷ 运算量2)
.默认
.判断结束
.子程序 _按钮_复位_被单击
编辑框_算式.内容 = “”
.子程序 _按钮_退格_被单击
编辑框_算式.内容 = 取文本左边 (编辑框_算式.内容, 取文本长度 (编辑框_算式.内容) - 1)
.子程序 __启动窗口_创建完毕
|
|