TC官方合作论坛

 找回密码
 立即注册
查看: 1159|回复: 5

[源码分享] 简单计算器源代码+图片

[复制链接]
发表于 2013-1-16 10:28:09 | 显示全部楼层 |阅读模式
  1. 空间 计算器
  2. 功能 运算(内容) //得到函数参数
  3. 运算对象=数组[2]//声明数组
  4. 如果(字符串.查找字符串(内容,"+")>0)//查找字符串里是否有+号
  5. 字符串.分割(内容,"+",运算对象)//有+号就以+号分割字符串
  6. 返回 运算对象[0]+运算对象[1]//把分割出来的两个数做加法运算,并且返回
  7. 如果结束
  8. 如果(字符串.查找字符串(内容,"-")>0)
  9. 字符串.分割(内容,"-",运算对象)
  10. 返回 运算对象[0]-运算对象[1]
  11. 如果结束
  12. 如果(字符串.查找字符串(内容,"*")>0)
  13. 字符串.分割(内容,"*",运算对象)
  14. 返回 运算对象[0]*运算对象[1]
  15. 如果结束
  16. 如果(字符串.查找字符串(内容,"/")>0)
  17. 字符串.分割(内容,"/",运算对象)
  18. 返回 运算对象[0]/运算对象[1]
  19. 如果结束
  20. 功能结束
  21. 功能 退出_点击()

  22. 辅助.退出()
  23. 功能结束

  24. 功能 按钮0_点击()//数字1键
  25. 内容=编辑框.获得文本("编辑框0")
  26. 如果(内容=="")//如果编辑框上没有内容
  27. 编辑框.设置文本("编辑框0","1")//直接设置1
  28. 否则//编辑框上有内容
  29. 编辑框.设置文本("编辑框0",内容&"1")//设置原来的内容链接1
  30. 如果结束

  31. 功能结束

  32. 功能 按钮1_点击()//数字2键
  33. 内容=编辑框.获得文本("编辑框0")
  34. 如果(内容=="")//如果编辑框上没有内容
  35. 编辑框.设置文本("编辑框0","2")//直接设置1
  36. 否则//编辑框上有内容
  37. 编辑框.设置文本("编辑框0",内容&"2")//设置原来的内容链接1
  38. 如果结束

  39. 功能结束

  40. 功能 按钮9_点击()
  41. 内容=编辑框.获得文本("编辑框0")
  42. 如果(内容=="")//如果编辑框上没有内容
  43. 返回 0//直接返回结束功能函数
  44. 否则//编辑框上有内容
  45. 如果(类型.是否为整型(内容))//判断内容是否有运算符
  46. 编辑框.设置文本("编辑框0",内容&"+")//设置原来的内容链接1
  47. //否则//有运算符
  48. //结果=计算器.运算(内容)//调用函数传入参数,接收函数返回值
  49. //编辑框.设置文本("编辑框0",结果&"+")
  50. 如果结束
  51. 如果结束

  52. 功能结束



  53. 功能 按钮2_点击()
  54. 内容=编辑框.获得文本("编辑框0")
  55. 如果(内容=="")//如果编辑框上没有内容
  56. 编辑框.设置文本("编辑框0","3")//直接设置1
  57. 否则//编辑框上有内容
  58. 编辑框.设置文本("编辑框0",内容&"3")//设置原来的内容链接1
  59. 如果结束
  60. 功能结束


  61. 功能 按钮4_点击()
  62. 内容=编辑框.获得文本("编辑框0")
  63. 如果(内容=="")//如果编辑框上没有内容
  64. 编辑框.设置文本("编辑框0","6")//直接设置1
  65. 否则//编辑框上有内容
  66. 编辑框.设置文本("编辑框0",内容&"6")//设置原来的内容链接1
  67. 如果结束
  68. 功能结束


  69. 功能 按钮5_点击()
  70. 内容=编辑框.获得文本("编辑框0")
  71. 如果(内容=="")//如果编辑框上没有内容
  72. 编辑框.设置文本("编辑框0","5")//直接设置1
  73. 否则//编辑框上有内容
  74. 编辑框.设置文本("编辑框0",内容&"5")//设置原来的内容链接1
  75. 如果结束
  76. 功能结束


  77. 功能 按钮3_点击()
  78. 内容=编辑框.获得文本("编辑框0")
  79. 如果(内容=="")//如果编辑框上没有内容
  80. 编辑框.设置文本("编辑框0","4")//直接设置1
  81. 否则//编辑框上有内容
  82. 编辑框.设置文本("编辑框0",内容&"4")//设置原来的内容链接1
  83. 如果结束
  84. 功能结束


  85. 功能 按钮6_点击()
  86. 内容=编辑框.获得文本("编辑框0")
  87. 如果(内容=="")//如果编辑框上没有内容
  88. 编辑框.设置文本("编辑框0","7")//直接设置1
  89. 否则//编辑框上有内容
  90. 编辑框.设置文本("编辑框0",内容&"7")//设置原来的内容链接1
  91. 如果结束
  92. 功能结束


  93. 功能 按钮7_点击()
  94. 内容=编辑框.获得文本("编辑框0")
  95. 如果(内容=="")//如果编辑框上没有内容
  96. 编辑框.设置文本("编辑框0","8")//直接设置1
  97. 否则//编辑框上有内容
  98. 编辑框.设置文本("编辑框0",内容&"8")//设置原来的内容链接1
  99. 如果结束
  100. 功能结束


  101. 功能 按钮8_点击()
  102. 内容=编辑框.获得文本("编辑框0")
  103. 如果(内容=="")//如果编辑框上没有内容
  104. 编辑框.设置文本("编辑框0","9")//直接设置1
  105. 否则//编辑框上有内容
  106. 编辑框.设置文本("编辑框0",内容&"9")//设置原来的内容链接1
  107. 如果结束
  108. 功能结束


  109. 功能 按钮10_点击()
  110. 内容=编辑框.获得文本("编辑框0")
  111. 如果(内容=="")//如果编辑框上没有内容
  112. 编辑框.设置文本("编辑框0","0")//直接设置1
  113. 否则//编辑框上有内容
  114. 编辑框.设置文本("编辑框0",内容&"0")//设置原来的内容链接1
  115. 如果结束
  116. 功能结束


  117. 功能 按钮12_点击()
  118. 内容=编辑框.获得文本("编辑框0")
  119. 如果(内容=="")//如果编辑框上没有内容
  120. 返回 0//直接返回结束功能函数
  121. 否则//编辑框上有内容
  122. 如果(类型.是否为整型(内容))//判断内容是否有运算符
  123. 编辑框.设置文本("编辑框0",内容&"*")//设置原来的内容链接1
  124. //否则//有运算符
  125. //结果=计算器.运算(内容)//调用函数传入参数,接收函数返回值
  126. //编辑框.设置文本("编辑框0",结果&"*")
  127. 如果结束
  128. 如果结束
  129. 功能结束


  130. 功能 按钮14_点击()
  131. 内容=编辑框.获得文本("编辑框0")
  132. 如果(内容=="")//如果编辑框上没有内容
  133. 返回 0//直接返回结束功能函数
  134. 否则//编辑框上有内容
  135. 如果(类型.是否为整型(内容))//判断内容是否有运算符
  136. 编辑框.设置文本("编辑框0",内容&"/")//设置原来的内容链接1
  137. //否则//有运算符
  138. //结果=计算器.运算(内容)//调用函数传入参数,接收函数返回值
  139. //编辑框.设置文本("编辑框0",结果&"/")
  140. 如果结束
  141. 如果结束
  142. 功能结束


  143. 功能 CE_点击()
  144. 内容=编辑框.获得文本("编辑框0")
  145. 编辑框.设置文本("编辑框0",字符串.移除(内容,2,假))
  146. 功能结束


  147. 功能 按钮11_点击()
  148. 内容=编辑框.获得文本("编辑框0")
  149. 如果(内容=="")//如果编辑框上没有内容
  150. 返回 0//直接返回结束功能函数
  151. 否则//编辑框上有内容
  152. 如果(类型.是否为整型(内容))//判断内容是否有运算符
  153. 编辑框.设置文本("编辑框0",内容&"-")//设置原来的内容链接1
  154. //否则//有运算符
  155. //结果=计算器.运算(内容)//调用函数传入参数,接收函数返回值
  156. //编辑框.设置文本("编辑框0",结果&"-")
  157. 如果结束
  158. 如果结束
  159. 功能结束


  160. 功能 开始_点击()
  161. 内容=编辑框.获得文本("编辑框0")
  162. 结果=计算器.运算(内容)
  163. 编辑框.设置文本("编辑框0",结果&"")
  164. 功能结束


  165. 功能 按钮13_点击()
  166. 内容=编辑框.获得文本("编辑框0")
  167. 如果(内容=="")//如果编辑框上没有内容
  168. 编辑框.设置文本("编辑框0",".")//直接设置1
  169. 否则//编辑框上有内容
  170. 编辑框.设置文本("编辑框0",内容&".")//设置原来的内容链接1
  171. 如果结束
  172. 功能结束

  173. 空间结束
  174. //空间结束语句

复制代码
声明下  本教程还不能实现小数的运算

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2013-1-16 10:34:38 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2013-1-16 10:35:39 | 显示全部楼层
不错  进步很快

小数方面 记得兔版版  以前开班带学生的时候 有个帖子是对计算器小数处理
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-1-16 11:30:54 | 显示全部楼层
不错  进步很快

小数方面 记得兔版版  以前开班带学生的时候 有个帖子是对计算器小数处理
陌上青衣。 发表于 2013-1-16 10:35:39

谢谢你 我等下去看看  我一定能成功的  给自己打打气
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-1-16 11:31:39 | 显示全部楼层
回复 2楼冷月无痕的帖子

我还以为,老师你会怪我呢
回复 支持 反对

使用道具 举报

发表于 2013-1-16 12:21:56 | 显示全部楼层
路过.,.....
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

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

GMT+8, 2024-5-21 07:43 , Processed in 0.043250 second(s), 23 queries .

Powered by 海安简单软件服务部

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

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