TC官方合作论坛

标题: 标准计算器，纯TC制作，附带TC代码 [打印本页]

作者: zsconverse 时间: 2014-9-4 19:11
标题: 标准计算器，纯TC制作，附带TC代码
本帖最后由 zsconverse 于 2014-9-4 19:12 编辑

纯TC制作的一个标准计算器

下载地址：pan.baidu.com/s/1qWpwMKk
绝对无毒
[attach]17140[/attach]
希望能和大家一起交流、探讨
TC代码：
空间计算器
//默认空间
变量 A,得数,数1=0,数2=1,x=0,y=0,z=0,a=0
//A是编辑框
//数1是加、减默认数值
//数2是乘、除默认数值
//x=1、2、3、4对应按过加、减、乘、除
//y=1表示按过加减乘除或等于
//z=1表示按过等于
//a=1表示按过加减乘除
功能按钮0_点击()// C键
A = 编辑框.获得文本("编辑框0")
得数 = 字符串.移除(A,1,假)
如果(得数 == ""||得数 == "-")
      得数 = 0
如果结束
编辑框.设置文本("编辑框0",得数)
功能结束
功能输入(数字)
如果(z==1)
      计算器.按钮1_点击()
      编辑框.设置文本("编辑框0",数字)
否则

      z = 0,a = 0
      如果(y!=0)
         编辑框.设置文本("编辑框0",数字)
         y = 0
      否则
         A = 编辑框.获得文本("编辑框0")
         如果(A=="0")
            A = ""
         如果结束
         得数 = A&数字
         编辑框.设置文本("编辑框0",得数)
      如果结束
如果结束
功能结束
功能按钮8_点击()
计算器.输入(1)
功能结束
功能按钮12_点击()
计算器.输入(2)
功能结束
功能按钮13_点击()
计算器.输入(3)
功能结束
功能按钮4_点击()
计算器.输入(4)
功能结束

功能按钮5_点击()
计算器.输入(5)
功能结束
功能按钮6_点击()
计算器.输入(6)
功能结束

功能按钮11_点击()
计算器.输入(7)
功能结束

功能按钮10_点击()
计算器.输入(8)
功能结束

功能按钮9_点击()
计算器.输入(9)
功能结束

功能按钮16_点击()
计算器.输入(0)
功能结束

功能按钮17_点击() //小数点"."
A = 编辑框.获得文本("编辑框0")
如果(!类型.是否为整型(A))
否则
      A = A&"."
如果结束
编辑框.设置文本("编辑框0",A)
功能结束

功能按钮2_点击()//正负号"+/-"
A = 编辑框.获得文本("编辑框0")
如果(A<=0)
      如果(A==0)
         得数 = 0
      否则
         得数=字符串.移除(A,1,真)
      如果结束

否则
      得数 = "-"&A
如果结束
编辑框.设置文本("编辑框0",得数)
功能结束
//清除
功能按钮1_点击()
编辑框.设置文本("编辑框0",0)
数1 = 0
数2 = 1
x = 0
y = 0
z = 0
a = 0
功能结束
//加法按钮
功能按钮3_点击()
如果(x==2&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = 数1 - A
      编辑框.设置文本("编辑框0",数1)
      y = 1
      x = 1
      返回数1
如果结束
如果(x==3&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = 数2 * A
      编辑框.设置文本("编辑框0",数1)
      y = 1
      x = 1
      返回数1
如果结束
如果(x==4&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = 数2 / A
      编辑框.设置文本("编辑框0",数1)
      y = 1
      x = 1
      返回数1
如果结束
y = 1
x = 1
如果(z==1||a==1)
      A = 编辑框.获得文本("编辑框0")
      数1 =  A
      a = 1
      z = 0
否则
      A = 编辑框.获得文本("编辑框0")
      数1 = A + 数1
      a = 1
如果结束
编辑框.设置文本("编辑框0",数1)
功能结束
//等于按钮
功能按钮19_点击()
y = 1
如果(x==1&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 =  A + 数1
      编辑框.设置文本("编辑框0",数1)
      z = 1
      返回数1
如果结束

如果(x==1&&z==1)
      数1 =  A + 数1
      编辑框.设置文本("编辑框0",数1)
如果结束

如果(x==2&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 =  数1 - A
      编辑框.设置文本("编辑框0",数1)
      z = 1
      返回数1
如果结束

如果(x==2&&z==1)
      数1 = 数1 - A
      编辑框.设置文本("编辑框0",数1)
如果结束

如果(x==3&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 =  A * 数2
      编辑框.设置文本("编辑框0",数2)
      z = 1
      返回数1
如果结束

如果(x==3&&z==1)
      数2 =  A * 数2
      编辑框.设置文本("编辑框0",数2)
如果结束
//除
如果(x==4&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 =  数2 / A
      编辑框.设置文本("编辑框0",数2)
      z = 1
      返回数2
如果结束

如果(x==4&&z==1)
      数2 = 数2 / A
      编辑框.设置文本("编辑框0",数2)
如果结束

功能结束
//减法按钮
功能按钮14_点击()
如果(x==1&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = 数1 + A
      编辑框.设置文本("编辑框0",数1)
      y = 1
      x = 2
      返回数1
如果结束
如果(x==3&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = 数2 * A
      编辑框.设置文本("编辑框0",数1)
      y = 1
      x = 2
      返回数1
如果结束
如果(x==4&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = 数2 / A
      编辑框.设置文本("编辑框0",数1)
      y = 1
      x = 2
      返回数1
如果结束
y = 1
如果(x==0)
      A = 编辑框.获得文本("编辑框0")
      数1 = A
否则
      如果(z==1||a==1)
         A = 编辑框.获得文本("编辑框0")
         数1 = A
         a = 1
         z = 0
      否则
         A = 编辑框.获得文本("编辑框0")
         数1 = 数1 - A
         a = 1
      如果结束
如果结束
x = 2
编辑框.设置文本("编辑框0",数1)
功能结束
//乘法按钮
功能按钮7_点击()
如果(x==2&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = 数1 - A
      编辑框.设置文本("编辑框0",数2)
      y = 1
      x = 3
      返回数1
如果结束
如果(x==1&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = 数1 + A
      编辑框.设置文本("编辑框0",数2)
      y = 1
      x = 3
      返回数1
如果结束
如果(x==4&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = 数2 / A
      编辑框.设置文本("编辑框0",数2)
      y = 1
      x = 3
      返回数1
如果结束
y = 1
x=3
如果(z==1||a==1)
      A = 编辑框.获得文本("编辑框0")
      数2 = 1
      数2 =  A * 数2
      a = 1
      z = 0
否则
      A = 编辑框.获得文本("编辑框0")
      数2 = A * 数2
      a = 1
如果结束
编辑框.设置文本("编辑框0",数2)
功能结束
//除法按钮
功能按钮15_点击()
如果(x==2&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = 数1 - A
      编辑框.设置文本("编辑框0",数2)
      y = 1
      x = 4
      返回数1
如果结束
如果(x==3&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = 数2 * A
      编辑框.设置文本("编辑框0",数2)
      y = 1
      x = 4
      返回数1
如果结束
如果(x==1&&z==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = 数1 + A
      编辑框.设置文本("编辑框0",数2)
      y = 1
      x = 4
      返回数1
如果结束
y = 1
如果(x==0)
      A = 编辑框.获得文本("编辑框0")
      数2 = A
否则
      如果(z==1||a==1)
         A = 编辑框.获得文本("编辑框0")
         数2 = A
         a = 1
         z = 0
      否则
         A = 编辑框.获得文本("编辑框0")
         数2 = 数2 / A
         a = 1
      如果结束
如果结束
x = 4
编辑框.设置文本("编辑框0",数2)
功能结束

功能标签1_点击()
//这里添加你要执行的代码
辅助.消息框("作者QQ:262869122")
功能结束
空间结束
//空间结束语句

作者: 风凌天下 时间: 2014-9-4 21:16
这计算器,做为小白的我,曾经无数次幻想过我一定要做这样一个神器

作者: csbadmin 时间: 2014-9-4 21:44
好有耐心啊.赞

作者: 78213505 时间: 2014-9-4 22:07
的确好有耐心。。。顶一个。。

我都是直接把系统计算器单独出来用的。。。

作者: 不羁的风1989 时间: 2014-9-27 05:29
不错顶个！

作者: qq1452193644 时间: 2015-1-20 17:42
给楼主点个赞

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)