[编程问题]
关于易语言编写计算器的问题（完整代码!!!!!!!)
- 楼主 火凤凰
- 365162011-7-28 19:46:26
本帖最后由 火凤凰 于 2011-7-30 18:54 编辑
.版本 2
.程序集 窗口程序集1
.子程序 _按钮16_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“0”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“0”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮12_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“1”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“1”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮9_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“2”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“2”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮10_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“3”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“3”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮1_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“4”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“4”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮4_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“5”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“5”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮3_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“6”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“6”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮8_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“7”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“7”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮5_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“8”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“8”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮6_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“9”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“9”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮14_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
.否则
.如果结束
编辑框主显示.加入文本 (“.”)
.子程序 _按钮15_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“+”)
.否则
编辑框记录符号.加入文本 (“+”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮11_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“-”)
.否则
编辑框记录符号.加入文本 (“-”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮2_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“*”)
.否则
编辑框记录符号.加入文本 (“*”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮7_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“/”)
.否则
编辑框记录符号.加入文本 (“/”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮18_被单击
.如果 (编辑框记录符号.内容 ＝ “+”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) ＋ 到数值 (编辑框记录加数.内容))
.否则
.如果 (编辑框记录符号.内容 ＝ “-”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) － 到数值 (编辑框记录加数.内容))
.否则
.如果 (编辑框记录符号.内容 ＝ “*”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) × 到数值 (编辑框记录加数.内容))
.否则
.如果 (编辑框记录符号.内容 ＝ “/”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) ÷ 到数值 (编辑框记录加数.内容))
.否则
.如果结束
.如果结束
.如果结束
.如果结束
请问当输入加数时为什么只能输入一位数字
怎么解决
谢谢！！
.版本 2
.程序集 窗口程序集1
.子程序 _按钮16_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“0”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“0”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮12_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“1”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“1”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮9_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“2”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“2”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮10_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“3”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“3”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮1_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“4”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“4”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮4_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“5”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“5”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮3_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“6”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“6”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮8_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“7”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“7”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮5_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“8”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“8”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮6_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
编辑框主显示.加入文本 (“9”)
编辑框记录加数.内容 ＝ 编辑框主显示.内容
.否则
编辑框主显示.加入文本 (“9”)
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.如果结束
.子程序 _按钮14_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
编辑框主显示.内容 ＝ “”
.否则
.如果结束
编辑框主显示.加入文本 (“.”)
.子程序 _按钮15_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“+”)
.否则
编辑框记录符号.加入文本 (“+”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮11_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“-”)
.否则
编辑框记录符号.加入文本 (“-”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮2_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“*”)
.否则
编辑框记录符号.加入文本 (“*”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮7_被单击
.如果 (编辑框记录符号.内容 ≠ “”)
_按钮18_被单击 ()
编辑框记录符号.内容 ＝ “”
编辑框记录符号.加入文本 (“/”)
.否则
编辑框记录符号.加入文本 (“/”)
.如果结束
编辑框记录被加数.内容 ＝ 编辑框主显示.内容
.子程序 _按钮18_被单击
.如果 (编辑框记录符号.内容 ＝ “+”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) ＋ 到数值 (编辑框记录加数.内容))
.否则
.如果 (编辑框记录符号.内容 ＝ “-”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) － 到数值 (编辑框记录加数.内容))
.否则
.如果 (编辑框记录符号.内容 ＝ “*”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) × 到数值 (编辑框记录加数.内容))
.否则
.如果 (编辑框记录符号.内容 ＝ “/”)
编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) ÷ 到数值 (编辑框记录加数.内容))
.否则
.如果结束
.如果结束
.如果结束
.如果结束
请问当输入加数时为什么只能输入一位数字
怎么解决
谢谢！！