易语言公式计算器源码
.版本 2
.支持库 script
.程序集 窗口程序集1
.程序集变量 X, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 A, 文本型, , "0"
.局部变量 Btn, 按钮, , "20"
.局部变量 b, 整数型
.局部变量 c, 整数型
' 本源码来自三叶资源网(www.sanye.cx)
A = 分割文本 (“2 3 + ( 4 5 6 - ) 7 8 9 * C . 0 / = E”, “ ”, )
.计次循环首 (取数组成员数 (A), X)
复制窗口组件 (按钮1, Btn [X])
b = X % 5
c = 取整 (X ÷ 5)
' 本源码来自三叶资源网(www.sanye.cx)
Btn [X].左边 = 32 × b + 16
Btn [X].顶边 = 32 × (c + 1)
Btn [X].标题 = A [X]
Btn [X].可视 = 真
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 Btn, 按钮
.局部变量 R, 文本型
Btn = 取事件组件 ()
输出调试文本 (Btn.标题)
.判断开始 (Btn.标题 = “=”)
R = 脚本组件1.计算表达式 (编辑框1.内容)
.如果 (R ≠ “”)
编辑框1.内容 = R
.否则
信息框 (“估计你的表达式有错误!”, 16, “错误提示”)
.如果结束
' 本源码来自三叶资源网(www.sanye.cx)
.判断 (Btn.标题 = “C”)
编辑框1.内容 = “”
.判断 (Btn.标题 = “E”)
销毁 ()
.默认
编辑框1.内容 = 编辑框1.内容 + Btn.标题
.判断结束