|
- 空间 计算器
- 字符型 显示
- 浮点型 数据1,数据2
- 整型 运算符号,清空结果
- 功能 逻辑型 按钮9_点击()
- //数字9
- 整型 a=9
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮8_点击()
- //数字8
- 整型 a=8
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮7_点击()
- //数字7
- 整型 a=7
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮6_点击()
- //数字6
- 整型 a=6
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮5_点击()
- //数字5
- 整型 a=5
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮4_点击()
- //数字4
- 整型 a=4
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮3_点击()
- //数字3
- 整型 a=3
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮2_点击()
- //数字2
- 整型 a=2
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮1_点击()
- //数字1
- 整型 a=1
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮0_点击() //数字0
- 整型 a=0
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 显示=字符串.连接(基数,输入)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮点_点击()
- //小数点
- 字符型 输入,基数
- if(清空结果==1)
- 编辑框.设置文本("编辑框0","")
- 清空结果=0
- endif
- 基数=编辑框.获得文本("编辑框0")
- if(基数=="")
- 编辑框.设置文本("编辑框0","0.")
- else
- 显示=字符串.连接(基数,"0")
- 编辑框.设置文本("编辑框0",显示)
- endif
- 返回 真
- 功能结束
- 功能 逻辑型 按钮负_点击() //负号
- 整型 a=-1
- 字符型 输入,基数
- 基数=编辑框.获得文本("编辑框0")
- 输入=转换.整型转字符型(a)
- 输入=字符串.截取(输入,0,1)
- 显示=字符串.连接(输入,基数)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮加_点击()
- //加号
- 字符型 基数
- 编辑框.设置文本("编辑框1","+")
- if(运算符号==0)
- 基数=编辑框.获得文本("编辑框0")
- if(基数!="")
- 编辑框.设置文本("编辑框2",基数)
- 数据1=转换.字符型转浮点型(基数)
- endif
- endif
- 编辑框.设置文本("编辑框0","")
- 运算符号=1
- 返回 真
- 功能结束
- 功能 逻辑型 按钮减_点击()
- //减号
- 字符型 基数
- 编辑框.设置文本("编辑框1","-")
- if(运算符号==0)
- 基数=编辑框.获得文本("编辑框0")
- if(基数!="")
- 编辑框.设置文本("编辑框2",基数)
- 数据1=转换.字符型转浮点型(基数)
- endif
- endif
- 运算符号=2
- 编辑框.设置文本("编辑框0","")
- 返回 真
- 功能结束
- 功能 逻辑型 按钮乘_点击()
- //乘号
- 字符型 基数
- 编辑框.设置文本("编辑框1","x")
- if(运算符号==0)
- 基数=编辑框.获得文本("编辑框0")
- if(基数!="")
- 编辑框.设置文本("编辑框2",基数)
- 数据1=转换.字符型转浮点型(基数)
- endif
- endif
- 编辑框.设置文本("编辑框0","")
- 运算符号=3
- 返回 真
- 功能结束
- 功能 逻辑型 按钮除_点击()
- //除号
- 字符型 基数
- 编辑框.设置文本("编辑框1","÷")
- if(运算符号==0)
- 基数=编辑框.获得文本("编辑框0")
- if(基数!="")
- 编辑框.设置文本("编辑框2",基数)
- 数据1=转换.字符型转浮点型(基数)
- endif
- endif
- 运算符号=4
- 编辑框.设置文本("编辑框0","")
- 返回 真
- 功能结束
- 功能 逻辑型 取模_点击()
- //取模符号
- 字符型 基数
- 编辑框.设置文本("编辑框1","/")
- if(运算符号==0)
- 基数=编辑框.获得文本("编辑框0")
- if(基数!="")
- 编辑框.设置文本("编辑框2",基数)
- 数据1=转换.字符型转浮点型(基数)
- endif
- endif
- 编辑框.设置文本("编辑框0","")
- 运算符号=5
- 返回 真
- 功能结束
- 功能 逻辑型 等于_点击()
- //运算
- 浮点型 结果
- 字符型 基数
- 整型 a,b,c,d
- 基数=编辑框.获得文本("编辑框0")
- if(基数!="")
- 编辑框.设置文本("编辑框1","=")
- 数据2=转换.字符型转浮点型(基数)
- endif
- 选择(运算符号)
- 条件 0:
- 结果=数据1+数据2
- 条件 1:
- 结果=数据1+数据2
- c=1
- 条件 2:
- 结果=数据1-数据2
- c=1
- 条件 3:
- 结果=数据1*数据2
- 条件 4:
- d=转换.浮点型转整型(数据2)
- if(d==0)
- c=2
- help.messagebox("除数不能为0")
- else
- 结果=数据1/数据2
- endif
- 默认:
- a=转换.浮点型转整型(数据1)
- b=转换.浮点型转整型(数据2)
- if(a==0||b==0)
- c=2
- help.messagebox("数据错误,请重新输入 ")
- else
- 结果=a%b
- endif
- 选择结束
- if(c==2)
- 编辑框.设置文本("编辑框0","")
- 编辑框.设置文本("编辑框1","")
- 编辑框.设置文本("编辑框2","")
- else
- 基数=转换.浮点型转字符型(结果)
- 编辑框.设置文本("编辑框0",基数)
- 编辑框.设置文本("编辑框1","")
- 编辑框.设置文本("编辑框2","")
- 数据1=0
- 数据2=0
- 运算符号=0
- 清空结果=1
- endif
- 返回 真
- 功能结束
- 功能 逻辑型 清空_点击()
- //清空
- 编辑框.设置文本("编辑框0","")
- 编辑框.设置文本("编辑框1","")
- 编辑框.设置文本("编辑框2","")
- 数据1=0
- 数据2=0
- 运算符号=0
- 清空结果=0
- 返回 真
- 功能结束
- 功能 逻辑型 删除_点击()
- //删除
- 整型 a=0
- 字符型 基数
- 基数=编辑框.获得文本("编辑框0")
- 显示=字符串.移除(基数,1,假)
- 编辑框.设置文本("编辑框0",显示)
- 返回 真
- 功能结束
- 功能 逻辑型 记忆_点击()
- //记忆
- 字符型 储存
- 储存=编辑框.获得文本("编辑框0")
- 辅助.写配置("RealmName","East",储存,"D:\\Config.ini")
- 返回 真
- 功能结束
- 功能 逻辑型 恢复_点击()
- //恢复记忆
- 字符型 储存
- 储存=辅助.读配置("RealmName","East","D:\\Config.ini")
- 编辑框.设置文本("编辑框0",储存)
- 文件.删除("D:\\Config.ini")
- 返回 真
- 功能结束
- 功能 逻辑型 初始化()
- //初始化
- 数据1=0
- 数据2=0
- 清空结果=0
- 运算符号=0
- 返回 真
- 功能结束
- 空间结束
复制代码
如果有人需要T文件的话,我再上传。
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|