易语言计算器源码(学习)

. 版本2

.程序集窗口程序集1

.子程序_按钮1_被单击

显示框.加入文本(“1”)

.子程序_按钮2_被单击

显示框.加入文本(“2”)

.子程序_按钮3_被单击

显示框.加入文本(“3”)

.子程序_按钮4_被单击

显示框.加入文本(“4”)

.子程序_按钮5_被单击

显示框.加入文本(“5”)

.子程序_按钮6_被单击

显示框.加入文本(“6”)

.子程序_按钮7_被单击

显示框.加入文本(“7”)

.子程序_按钮8_被单击

显示框.加入文本(“8”)

.子程序_按钮9_被单击

显示框.加入文本(“9”)

.子程序_按钮0_被单击

显示框.加入文本(“0”)

.子程序_按钮点_被单击

显示框.内容＝显示框.内容＋“.”.子程序_按钮加_被单击

第一个数.内容＝显示框.内容

符号框.内容＝“+”

显示框.内容＝“”

.子程序_按钮减_被单击

第一个数.内容＝显示框.内容

符号框.内容＝“-”

显示框.内容＝“”

.子程序_按钮乘_被单击

第一个数.内容＝显示框.内容

符号框.内容＝“*”

显示框.内容＝“”

.子程序_按钮除_被单击

第一个数.内容＝显示框.内容

符号框.内容＝“/”

显示框.内容＝“”

.子程序_按钮等于_被单击

.如果(符号框.内容＝“+”)

显示框.内容＝到文本(到数值(第一个数.内容) ＋到数值(显示框.内容))

.否则

.如果(符号框.内容＝“-”)

显示框.内容＝到文本(到数值(第一个数.内容) －到数值(显示框.内容)) .否则

.如果(符号框.内容＝“*”)

显示框.内容＝到文本(到数值(第一个数.内容) ×到数值(显示框.内容))

.否则

.如果(显示框.内容≠“0”)

.如果(符号框.内容＝“/”)

显示框.内容＝到文本(到数值(第一个数.内容) ÷到数值(显示框.内容))

.否则

.如果结束

.否则

信息框(“错误，被除数不能为0 ”, 0, )

.如果结束

.如果结束

.如果结束

.如果结束

.子程序_按钮清空_被单击

显示框.内容＝“”

.子程序_按钮清空_被双击, 逻辑型

.参数横向位置, 整数型

.参数纵向位置, 整数型

.参数功能键状态, 整数型

第一个数.内容＝“”

https://www.360docs.net/doc/7112885676.html,/book_3869.html