Question

在易语言中用一个编辑框一个按钮如何做个加减乘除都有的计算器。就源码

Answer 1

复制代码即可 下面附图片

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 n, 文本型, , "0"
.如果真 (寻找文本 (编辑框1.内容, “+”, , 假) ＞ 0)
n ＝ 分割文本 (编辑框1.内容, “+”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ “=” ＋ 到文本 (到数值 (n [1]) ＋ 到数值 (n [2]))
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, “-”, , 假) ＞ 0)
n ＝ 分割文本 (编辑框1.内容, “-”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ “=” ＋ 到文本 (到数值 (n [1]) － 到数值 (n [2]))
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, “*”, , 假) ＞ 0)
n ＝ 分割文本 (编辑框1.内容, “*”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ “=” ＋ 到文本 (到数值 (n [1]) × 到数值 (n [2]))
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, “×”, , 假) ＞ 0)
n ＝ 分割文本 (编辑框1.内容, “×”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ “=” ＋ 到文本 (到数值 (n [1]) × 到数值 (n [2]))
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, “/”, , 假) ＞ 0)
n ＝ 分割文本 (编辑框1.内容, “/”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ “=” ＋ 到文本 (到数值 (n [1]) ÷ 到数值 (n [2]))
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, “÷”, , 假) ＞ 0)
n ＝ 分割文本 (编辑框1.内容, “÷”, )
编辑框1.内容 ＝ 编辑框1.内容 ＋ “=” ＋ 到文本 (到数值 (n [1]) ÷ 到数值 (n [2]))
.如果真结束

目前代码只支持两个数字之间的加减乘除运算，如果需要多个数字的计算，自己按套路改良一下吧