火凤凰 发表于 2011-7-28 19:46:26

关于易语言编写计算器的问题（完整代码!!!!!!!)

本帖最后由 火凤凰 于 2011-7-30 18:54 编辑

{:1_81:}
.版本 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_被单击

.如果 (编辑框记录符号.内容 ＝ “+”)
    编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) ＋ 到数值 (编辑框记录加数.内容))
.否则
    .如果 (编辑框记录符号.内容 ＝ “-”)
      编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) － 到数值 (编辑框记录加数.内容))
    .否则
      .如果 (编辑框记录符号.内容 ＝ “*”)
            编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) × 到数值 (编辑框记录加数.内容))
      .否则
            .如果 (编辑框记录符号.内容 ＝ “/”)
                编辑框主显示.内容 ＝ 到文本 (到数值 (编辑框记录被加数.内容) ÷ 到数值 (编辑框记录加数.内容))
            .否则

            .如果结束

      .如果结束

    .如果结束

.如果结束





请问当输入加数时为什么只能输入一位数字
怎么解决
谢谢！！

qq553445424 发表于 2011-7-28 21:59:40

编辑框属性看看，可能是被限制长度了

火凤凰 发表于 2011-7-29 18:37:31

不是
第一次输入几位数都可以

yves 发表于 2011-7-29 22:54:15

最好把你的源码传上来，这东西前后都有联系的，但看着一段看不出来

火凤凰 发表于 2011-7-30 18:47:31

现在我把整个代码都传上来了
请各位指教下为什么输入第二个数时只能保存一位数字
谢谢

yves 发表于 2011-7-31 07:06:21

本帖最后由 yves 于 2011-7-31 09:10 编辑

你把代码发我QQ邮箱吧，18602389@qq.com，计算器里按钮有数字、点、运算符、等号，你的组件明明不规范，按钮一堆不知道对应的是哪个。
最近在学习数据库部分，计算器也是两三个月前弄的，帮你看看
给你个参考的

qq553445424 发表于 2011-8-1 16:01:31

楼上的这个不支持 键盘的！哥的这个更好
页: [1]
查看完整版本: 关于易语言编写计算器的问题（完整代码!!!!!!!)