TC官方合作论坛

 找回密码
 立即注册
查看: 432|回复: 1
打印 上一主题 下一主题

[问题] 新手计算器 大神来看看

[复制链接]
跳转到指定楼层
楼主
发表于 2013-3-29 09:23:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式


空间 计算机
变量 a
变量 b
变量 c
变量 d
变量 e
a="0"
字符型 c=""
d=""
功能 按钮_7_点击()
    如果(a=="0")
        a=字符串.连接("","7")
        编辑框.设置文本("编辑框0",a)
    否则
        //如果()
        //如果结束
        a=字符串.连接(a,"7")
        编辑框.设置文本("编辑框0",a)  
    如果结束
功能结束


功能 按钮_0_点击()
    如果(a>0)
        a=字符串.连接(a,"0")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"")
        编辑框.设置文本("编辑框0",a)
    如果结束
   
   
功能结束


功能 按钮_1_点击()
    如果(a=="0")
        a=字符串.连接("","1")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"1")
        编辑框.设置文本("编辑框0",a)  
    如果结束
功能结束


功能 按钮_2_点击()
    如果(a=="0")
        a=字符串.连接("","2")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"2")
        编辑框.设置文本("编辑框0",a)  
    如果结束
   
功能结束


功能 按钮_3_点击()
    如果(a=="0")
        a=字符串.连接("","3")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"3")
        编辑框.设置文本("编辑框0",a)  
    如果结束
功能结束


功能 按钮_5_点击()
    如果(a=="0")
        a=字符串.连接("","5")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"5")
        编辑框.设置文本("编辑框0",a)  
    如果结束
   
功能结束


功能 按钮_4_点击()
    如果(a=="0")
        a=字符串.连接("","4")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"4")
        编辑框.设置文本("编辑框0",a)  
    如果结束
功能结束


功能 按钮_6_点击()
    如果(a=="0")
        a=字符串.连接("","6")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"6")
        编辑框.设置文本("编辑框0",a)  
    如果结束
   
功能结束


功能 按钮_等_点击()
    //辅助.消息框(b)
    //条件(a>0)
   
   
    选择(c)
        
        条件 "+":
        d=e+a   
        如果(d<1)
            d=字符串.连接("0",d)
            编辑框.设置文本("编辑框0",d)
        否则
            d=字符串.连接(d,"")
            编辑框.设置文本("编辑框0",d)
        如果结束      
        条件 "-":
        d=b-a   
        如果(d<1)
            d=字符串.连接("0",d)
            编辑框.设置文本("编辑框0",d)
        否则
            d=字符串.连接(d,"")
            编辑框.设置文本("编辑框0",d)
        如果结束      
        条件 "*":
        d=b*a   
        如果(d<1)
            d=字符串.连接("0",d)
            编辑框.设置文本("编辑框0",d)
        否则
            d=字符串.连接(d,"")
            编辑框.设置文本("编辑框0",d)
        如果结束      
        条件 "/":
        d=b/a   
        如果(d<1)
            d=字符串.连接("0",d)
            编辑框.设置文本("编辑框0",d)
        否则
            d=字符串.连接(d,"")
            编辑框.设置文本("编辑框0",d)
        如果结束      
    选择结束  //执行完一条匹配的条件即跳到选择结束   
功能结束

功能 按钮_8_点击()
    如果(a=="0")
        a=字符串.连接("","8")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"8")
        编辑框.设置文本("编辑框0",a)  
    如果结束   
功能结束


功能 按钮_9_点击()
    如果(a=="0")
        a=字符串.连接("","9")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"9")
        编辑框.设置文本("编辑框0",a)  
    如果结束
功能结束

功能 按钮_加_点击()
    c=""
    e=e+a     
    b=a
    a=""
    c="+"
   
   
    编辑框.设置文本("编辑框0","")
   
功能结束



功能 按钮_减_点击()
    c=""
    b=a
    a=""
    c="-"
    编辑框.设置文本("编辑框0","")
   
功能结束



功能 按钮_乘_点击()
    c=""
    b=a
    a=""
    c="*"
功能结束

功能 按钮_除_点击()
    c=""
    b=a
    a=""
    c="/"
    编辑框.设置文本("编辑框0","")
功能结束


功能 按钮0_点击()
   
   
功能结束


功能 按钮_点_点击()
    //返回位置=字符串.查找字符串(编辑框.获得文本("编辑框0"),0.)
    //辅助.消息框(返回位置)
   
   
    如果(字符串.查找字符串(编辑框.获得文本("编辑框0"),".")==真)
        a=字符串.连接(a,".")
        编辑框.设置文本("编辑框0",a)
    否则
        a=字符串.连接(a,"")
        编辑框.设置文本("编辑框0",a)  
    如果结束
   
功能结束


功能 按钮_清除_点击()
    编辑框.设置文本("编辑框0","")
    a=""
    b=""
    c=""
    d=""
    e=""
功能结束

空间结束

现在刚改的关于加法的   为什么我点清除了 以后再运行加法就出现错误   

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

沙发
 楼主| 发表于 2013-3-29 09:29:36 | 只看该作者
回复 1楼mn234561的帖子

我已经知道了
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-10-5 22:23 , Processed in 0.170513 second(s), 25 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表