文章目录:
- 1、用易语言做一个简单的计算器,如下图,求源码
- 2、易语言制做计算器
- 3、谁给我做个易语言计算器源码,具体如下
- 4、求易语言最简单的计算器源码高手进
- 5、易语言计算器源码
- 6、求用易语言编写个计算器,要源码。
用易语言做一个简单的计算器,如下图,求源码
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 局部_待加减乘除, 整数型
.程序集变量 局部_点加减乘除, 文本型
.程序集变量 局部_到小数, 双精度小数型
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“1”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“1”)
.如果结束
.子程序 _按钮2_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“2”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“2”)
.如果结束
.子程序 _按钮3_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“3”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“3”)
.如果结束
.子程序 _按钮4_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“4”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“4”)
.如果结束
.子程序 _按钮5_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“5”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“5”)
.如果结束
.子程序 _按钮6_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“6”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“6”)
.如果结束
.子程序 _按钮7_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“7”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“7”)
.如果结束
.子程序 _按钮8_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“8”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“8”)
.如果结束
.子程序 _按钮9_被单击
.如果 (编辑框1.内容 ≠ “0”)
编辑框1.加入文本 (“9”)
.否则
编辑框1.内容 = “”
编辑框1.加入文本 (“9”)
.如果结束
.子程序 _按钮0_被单击
.判断开始 (编辑框1.内容 = “0”)
返回 ()
.默认
编辑框1.加入文本 (“0”)
.判断结束
.子程序 _按钮C_被单击
编辑框1.内容 = “”
.子程序 _按钮加_被单击
.判断开始 (局部_点加减乘除 = “.”)
编辑框2.内容 = “”
编辑框2.内容 = “+”
局部_到小数 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.默认
编辑框2.内容 = “”
编辑框2.内容 = “+”
局部_待加减乘除 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.判断结束
.子程序 _按钮减_被单击
.判断开始 (局部_点加减乘除 = “.”)
编辑框2.内容 = “”
编辑框2.内容 = “-”
局部_到小数 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.默认
编辑框2.内容 = “”
编辑框2.内容 = “-”
局部_待加减乘除 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.判断结束
.子程序 _按钮乘_被单击
.判断开始 (局部_点加减乘除 = “.”)
编辑框2.内容 = “”
编辑框2.内容 = “*”
局部_到小数 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.默认
编辑框2.内容 = “”
编辑框2.内容 = “*”
局部_待加减乘除 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.判断结束
.子程序 _按钮除_被单击
.判断开始 (局部_点加减乘除 = “.”)
编辑框2.内容 = “”
编辑框2.内容 = “/”
局部_到小数 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.默认
编辑框2.内容 = “”
编辑框2.内容 = “/”
局部_待加减乘除 = 到数值 (编辑框1.内容)
编辑框1.内容 = “”
.判断结束
.子程序 _按钮等于_被单击
.判断开始 (局部_点加减乘除 = “.”)
.判断开始 (编辑框2.内容 = “+”)
编辑框1.内容 = 到文本 (局部_到小数 + 到数值 (编辑框1.内容))
' 局部_点加减乘除 = “”
.判断 (编辑框2.内容 = “-”)
编辑框1.内容 = 到文本 (局部_到小数 - 到数值 (编辑框1.内容))
' 局部_点加减乘除 = “”
.判断 (编辑框2.内容 = “*”)
编辑框1.内容 = 到文本 (局部_到小数 × 到数值 (编辑框1.内容))
' 局部_点加减乘除 = “”
.判断 (编辑框2.内容 = “/”)
编辑框1.内容 = 到文本 (局部_到小数 ÷ 到数值 (编辑框1.内容))
' 局部_点加减乘除 = “”
.默认
.判断结束
.判断 (编辑框2.内容 = “+”)
编辑框1.内容 = 到文本 (局部_待加减乘除 + 到数值 (编辑框1.内容))
.判断 (编辑框2.内容 = “-”)
编辑框1.内容 = 到文本 (局部_待加减乘除 - 到数值 (编辑框1.内容))
.判断 (编辑框2.内容 = “*”)
编辑框1.内容 = 到文本 (局部_待加减乘除 × 到数值 (编辑框1.内容))
.判断 (编辑框2.内容 = “/”)
编辑框1.内容 = 到文本 (局部_待加减乘除 ÷ 到数值 (编辑框1.内容))
.默认
.判断结束
.子程序 _按钮点_被单击
编辑框1.加入文本 (“.”)
局部_点加减乘除 = “.”
源代码
提取码:wrmg
易语言制做计算器
呵呵,这个其实没这么麻烦,
易语言
里面就有这样的组件可以利用:1.先在扩展组件里面找到脚本组件并添加2.添加两个编辑框(必须的)3.添加一个按钮(没按钮怎么行?)4.些入代码,代码如下:
.
子程序
_按钮1_被单击
编辑框2.内容
=
脚本组件1.计算表达式
(编辑框1.内容)
如果可以使用,请采纳,谢谢。
谁给我做个易语言计算器源码,具体如下
可以自定义算式的,关于组件的名称截图里都标了的。
如果LZ要源码就留下邮箱吧
.版本 2
.子程序 _按钮1_被单击
.局部变量 输入, 整数型, , "6"
.局部变量 算式, 文本型
.局部变量 Suan, 文本型, , "0"
.局部变量 S, 文本型
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 结果, 整数型
输入 [1] = 到整数 (编辑框A.内容)
输入 [2] = 到整数 (编辑框B.内容)
输入 [3] = 到整数 (编辑框C.内容)
输入 [4] = 到整数 (编辑框D.内容)
输入 [5] = 到整数 (编辑框E.内容)
输入 [6] = 到整数 (编辑框F.内容)
编辑框_算式.内容 = 删全部空 (编辑框_算式.内容)
算式 = 编辑框_算式.内容
算式 = 子文本替换 (算式, “A”, “1”, , , 假)
算式 = 子文本替换 (算式, “B”, “2”, , , 假)
算式 = 子文本替换 (算式, “C”, “3”, , , 假)
算式 = 子文本替换 (算式, “D”, “4”, , , 假)
算式 = 子文本替换 (算式, “E”, “5”, , , 假)
算式 = 子文本替换 (算式, “F”, “6”, , , 假)
Suan = 分割文本 (算式, #换行符, )
.计次循环首 (取数组成员数 (Suan), i)
.如果真 (Suan [i] ≠ “”)
结果 = 0
.计次循环首 (取文本长度 (Suan [i]), ii)
S = 取文本中间 (Suan [i], ii, 1)
结果 = 结果 + 输入 [到整数 (S)]
.计次循环尾 ()
编辑框_结果.加入文本 (到文本 (结果) + “ ”)
.如果真结束
.计次循环尾 ()
求易语言最简单的计算器源码高手进
整个代码发到你邮箱了。1小数点按钮的代码修改.子程序
_按钮点_被单击'
如果
(编辑框4.内容
=
“”)'
编辑框4.内容
=
“.”编辑框1.内容
=
编辑框1.内容
+
“.”2、数字键被按下代码修改.版本
2.子程序
数字键被按下后.如果
(over
=
真)
编辑框1.内容
=
“”
over
=
假.否则.如果结束3、运算符被按下后
代码里加入编辑框1.内容
=
“”
如果帮助到您,请记得采纳为满意答案哈,谢谢!祝您生活愉快!
参考资料:
易语言计算器源码
做好了 拿去吧。输入进价默认安装50%计算出建议售价。可以自己输入 输入之后建议零售价都是自动跟着进价以及自定义毛利计算的。
求用易语言编写个计算器,要源码。
.版本2 .程序集窗口程序集1 .子程序_按钮1_被单击 .如果真(单选框1.选中=真) 编辑框3.内容=到文本(到数值(编辑框1.内容)+到数值(编辑框2.内容)).如果真结束.如果真(单选框2.选中=真) 编辑框3.内容=到文本(到数值(编辑框1.内容)-到数值(编辑框2.内容)).如果真结束.如果真(单选框3.选中=真) 编辑框3.内容=到文本(到数值(编辑框1.内容)×到数值(编辑框2.内容)).如果真结束.如果真(单选框4.选中=真) 编辑框3.内容=到文本(到数值(编辑框1.内容)÷到数值(编辑框2.内容)).如果真结束 .子程序_按钮2_被单击 编辑框1.内容=“”编辑框2.内容=“”编辑框3.内容=“”
(局部_待加减乘除 ÷ 到数值 (编辑框1.内容)).默认.判断结束.子程序 _按钮点_被单击编辑框1.加入文本 (“.”)局部_点加减乘除 = “.”源代码提取码:wrmg易语言制做计算器呵呵,这个其实没这么麻烦,易语言里面就有这
输入 [4] = 到整数 (编辑框D.内容)输入 [5] = 到整数 (编辑框E.内容)输入 [6] = 到整数 (编辑框F.内容)编辑框_算式.内容 = 删全部空 (编辑框_算式.内容)算式 = 编辑框
量 局部_待加减乘除, 整数型.程序集变量 局部_点加减乘除, 文本型.程序集变量 局部_到小数, 双精度小数型.子程序 _按钮1_被单击.如果 (编辑框1.内容 ≠ “0”) 编辑框1.加入文本 (“1”).否则 编辑框1.内容 = “” 编辑框1.加入文本 (“1”).如果结束