|
|
本帖最后由 zsconverse 于 2014-9-4 19:12 编辑
纯TC制作的一个标准计算器
下载地址：pan.baidu.com/s/1qWpwMKk
绝对无毒
希望能和大家一起交流、探讨
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")
功能结束
空间结束
//空间结束语句
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
|
/2 
发表于 2014-9-4 19:11:00
