TC官方合作论坛

 找回密码
 立即注册
查看: 2575|回复: 6

[源码分享] 简单计算器(代码简化版) 22行实现加减乘除

[复制链接]
发表于 2012-6-17 14:24:12 | 显示全部楼层 |阅读模式
实现简单加减乘除

第1次
  1. 空间 简单计算器
  2. 功能 逻辑型 开始_点击()
  3.   整型 选项编号,算术运算符,数1,数2,结果
  4.   字符型 字符串结果,字符串数1,字符串数2
  5.           字符串数1=编辑框.获得文本("编辑框0")
  6.           字符串数2=编辑框.获得文本("编辑框1")
  7.           数1=转换.字符型转整型(字符串数1,0)
  8.           数2=转换.字符型转整型(字符串数2,0)
  9.           算术运算符=下拉框.得到选项("下拉框0")
  10.           选项编号=算术运算符
  11. 选择(选项编号)
  12.         条件 -1:
  13.               help.messagebox("错误,请选择算术运算符")
  14.         条件 0:
  15.               结果=数1+数2
  16.         条件 1:
  17.               结果=数1-数2
  18.         条件 2:
  19.               结果=数1*数2
  20.         条件 3:
  21.               结果=数1/数2
  22. 选择结束
  23.         字符串结果=转换.整型转字符型(结果)
  24.         编辑框.设置文本("编辑框2",(字符串结果))
  25. 返回 真
  26. 功能结束
  27. 功能 逻辑型 退出_点击()
  28. 辅助.退出()
  29. 返回 真
  30. 功能结束
  31. 空间结束
复制代码
欢迎指出缺点,各种问题 第2次修改,简化代码。一直想用传参写,但感觉越写越复杂,请教传参用法实例
  1. 空间 简单计算器
  2. 整型 选项编号,数1,数2,结果
  3. 功能 逻辑型 开始_点击()
  4.           数1=转换.字符型转整型( 编辑框.获得文本("编辑框0") ,0)
  5.           数2=转换.字符型转整型( 编辑框.获得文本("编辑框1") ,0)
  6.           选项编号=下拉框.得到选项("下拉框0")
  7. 选择(选项编号)
  8.         条件 -1:
  9.               help.messagebox("错误,请选择算术运算符")
  10.         条件 0:
  11.               结果=数1+数2
  12.         条件 1:
  13.               结果=数1-数2
  14.         条件 2:
  15.               结果=数1*数2
  16.         条件 3:
  17.               结果=数1/数2
  18. 选择结束
  19.         编辑框.设置文本("编辑框2",( 转换.整型转字符型(结果) ))
  20. 返回 真
  21. 功能结束
  22. 空间结束
复制代码




本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2012-6-17 15:08:07 | 显示全部楼层
恭喜哈
回复 支持 反对

使用道具 举报

发表于 2012-6-17 15:14:23 | 显示全部楼层
不错
回复 支持 反对

使用道具 举报

发表于 2012-6-17 15:45:11 | 显示全部楼层
我要是输入汉字在点计算会出现什么情况
回复 支持 反对

使用道具 举报

发表于 2012-6-17 21:51:19 | 显示全部楼层
支持新手
回复 支持 反对

使用道具 举报

发表于 2012-6-17 22:35:04 | 显示全部楼层
看看喽
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-6-17 23:41:44 | 显示全部楼层
回复 5楼TC兔子的帖子

呵呵,继续看,写,学习,想大神学习
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

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

GMT+8, 2024-5-21 14:06 , Processed in 0.065267 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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