TC官方合作论坛

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

[问题] 大大们请问计算器清除代码怎么写啊

[复制链接]
跳转到指定楼层
楼主
发表于 2012-2-5 17:03:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

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

x
这是我按着教程里写的 但是最后清除的时候是归0了 但是在输入的时候就出现以前的了
空间 计算器
//定义默认空间
字符型 点击字符,运算操作前字符
逻辑型 加,减,乘,除
逻辑型 计算加,计算减,计算乘,计算除
逻辑型 清除

功能 逻辑型 按钮10_点击()
//这里添加你要执行的代码
点击字符=字符串.连接(点击字符,"0")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束

功能 逻辑型 按钮2_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"00")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束

功能 逻辑型 按钮7_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"1")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束
功能 逻辑型 按钮11_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"2")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束
功能 逻辑型 按钮9_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
  乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束

点击字符=字符串.连接(点击字符,"3")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束

功能 逻辑型 按钮4_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束

点击字符=字符串.连接(点击字符,"4")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束

功能 逻辑型 按钮5_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"5")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束
功能 逻辑型 按钮6_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"6")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束
功能 逻辑型 按钮1_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"7")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束
功能 逻辑型 按钮8_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"8")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束

功能 逻辑型 按钮3_点击()
//这里添加你要执行的代码
如果(加)
   点击字符=""
   加=假
如果结束
如果(减)
   点击字符=""
   减=假
如果结束
如果(乘)
   点击字符=""
   乘=假
如果结束
如果(除)
   点击字符=""
   除=假
如果结束
点击字符=字符串.连接(点击字符,"9")
编辑框.设置文本("编辑框0",点击字符)
返回 真
功能结束

功能 逻辑型 按钮13_点击()
//这里添加你要执行的代码
运算操作前字符=编辑框.获得文本("编辑框0")
加=真
计算加=真
返回 真
功能结束
功能 逻辑型 按钮14_点击()
//这里添加你要执行的代码
运算操作前字符=编辑框.获得文本("编辑框0")
减=真
计算减=真
返回 真
功能结束

功能 逻辑型 按钮12_点击()
//这里添加你要执行的代码
如果(计算加)
  字符型 被加数
  被加数=编辑框.获得文本("编辑框0")
  整型 加的结果
  加的结果=转换.字符型转整型(运算操作前字符,0)+转换.字符型转整型(被加数,0)
  编辑框.设置文本("编辑框0",转换.整型转字符型(加的结果))
  计算加=假
如果结束
如果(计算减)
  字符型 减数
  减数=编辑框.获得文本("编辑框0")
  整型 减的结果
  减的结果=转换.字符型转整型(运算操作前字符,0)-转换.字符型转整型(减数,0)
  编辑框.设置文本("编辑框0",转换.整型转字符型(减的结果))
计算减=假
如果结束
如果(计算乘)
  字符型 乘数
  乘数=编辑框.获得文本("编辑框0")
  整型 乘的结果
乘的结果=转换.字符型转整型(运算操作前字符,0)*转换.字符型转整型(乘数,0)
  编辑框.设置文本("编辑框0",转换.整型转字符型(乘的结果))
计算乘=假
如果结束
如果(计算除)
  字符型 除数
除数=编辑框.获得文本("编辑框0")
  整型 除的结果
除的结果=转换.字符型转整型(运算操作前字符,0)/转换.字符型转整型(除数,0)
  编辑框.设置文本("编辑框0",转换.整型转字符型(除的结果))
计算除=假
如果结束
返回 真
功能结束
功能 逻辑型 按钮16_点击()
//这里添加你要执行的代码
运算操作前字符=编辑框.获得文本("编辑框0")
除=真
计算除=真
返回 真
功能结束
功能 逻辑型 按钮15_点击()
//这里添加你要执行的代码
运算操作前字符=编辑框.获得文本("编辑框0")
乘=真
计算乘=真
返回 真
功能结束

功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
   编辑框.设置文本("编辑框0","0")
返回 真
功能结束
空间结束
//空间结束语句
回复

使用道具 举报

沙发
发表于 2012-2-5 19:01:03 | 只看该作者
我来顶顶!!
回复 支持 反对

使用道具 举报

板凳
 楼主| 发表于 2012-2-5 19:47:49 | 只看该作者
没人回答吗?:~
回复 支持 反对

使用道具 举报

地板
发表于 2012-12-22 14:55:05 | 只看该作者
看不懂
回复 支持 反对

使用道具 举报

5#
发表于 2013-3-20 11:17:40 | 只看该作者
功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
   编辑框.设置文本("编辑框0","0")
返回 真
功能结束
空间结束
//空间结束语句
这是你获得的定义数字0  必须要在每次计算结果后清除编辑框的内容后再定义为空
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

关闭

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

GMT+8, 2025-10-6 04:29 , Processed in 0.135964 second(s), 25 queries .

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

© 2001-2013 Comsenz Inc.

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