TC官方合作论坛

标题: 计算器，附源码，带小数 [打印本页]

---

作者: pixiangyun    时间: 2012-11-22 22:19
标题: 计算器，附源码，带小数
[attach]6272[/attach]

1. 空间 计算器
   
2. 字符型 显示
   
3. 浮点型 数据1,数据2
   
4. 整型 运算符号,清空结果
   
5. 
   
6. 
   
7. 功能 逻辑型 按钮9_点击()
   
8. //数字9
   
9. 整型 a=9
   
10. 字符型 输入,基数
    
11. if(清空结果==1)
    
12.     编辑框.设置文本("编辑框0","")
    
13. 
    
14. 清空结果=0
    
15. endif
    
16. 基数=编辑框.获得文本("编辑框0")
    
17. 输入=转换.整型转字符型(a)
    
18. 显示=字符串.连接(基数,输入)
    
19. 编辑框.设置文本("编辑框0",显示)
    
20. 返回 真
    
21. 功能结束
    
22. 
    
23. 
    
24. 功能 逻辑型 按钮8_点击()
    
25. //数字8
    
26. 整型 a=8
    
27. 字符型 输入,基数
    
28. if(清空结果==1)
    
29.     编辑框.设置文本("编辑框0","")
    
30. 
    
31. 清空结果=0
    
32. endif
    
33. 基数=编辑框.获得文本("编辑框0")
    
34. 输入=转换.整型转字符型(a)
    
35. 显示=字符串.连接(基数,输入)
    
36. 编辑框.设置文本("编辑框0",显示)
    
37. 返回 真
    
38. 功能结束
    
39. 
    
40. 
    
41. 功能 逻辑型 按钮7_点击()
    
42. //数字7
    
43. 整型 a=7
    
44. 字符型 输入,基数
    
45. if(清空结果==1)
    
46.     编辑框.设置文本("编辑框0","")
    
47. 
    
48. 清空结果=0
    
49. endif
    
50. 基数=编辑框.获得文本("编辑框0")
    
51. 输入=转换.整型转字符型(a)
    
52. 显示=字符串.连接(基数,输入)
    
53. 编辑框.设置文本("编辑框0",显示)
    
54. 返回 真
    
55. 功能结束
    
56. 
    
57. 
    
58. 功能 逻辑型 按钮6_点击()
    
59. //数字6
    
60. 整型 a=6
    
61. 字符型 输入,基数
    
62. if(清空结果==1)
    
63.     编辑框.设置文本("编辑框0","")
    
64. 
    
65. 清空结果=0
    
66. endif
    
67. 基数=编辑框.获得文本("编辑框0")
    
68. 输入=转换.整型转字符型(a)
    
69. 显示=字符串.连接(基数,输入)
    
70. 编辑框.设置文本("编辑框0",显示)
    
71. 返回 真
    
72. 功能结束
    
73. 
    
74. 
    
75. 功能 逻辑型 按钮5_点击()
    
76. //数字5
    
77. 整型 a=5
    
78. 字符型 输入,基数
    
79. if(清空结果==1)
    
80.     编辑框.设置文本("编辑框0","")
    
81. 
    
82. 清空结果=0
    
83. endif
    
84. 基数=编辑框.获得文本("编辑框0")
    
85. 输入=转换.整型转字符型(a)
    
86. 显示=字符串.连接(基数,输入)
    
87. 编辑框.设置文本("编辑框0",显示)
    
88. 返回 真
    
89. 功能结束
    
90. 
    
91. 
    
92. 功能 逻辑型 按钮4_点击()
    
93. //数字4
    
94. 整型 a=4
    
95. 字符型 输入,基数
    
96. if(清空结果==1)
    
97.     编辑框.设置文本("编辑框0","")
    
98. 
    
99. 清空结果=0
    
100. endif
     
101. 基数=编辑框.获得文本("编辑框0")
     
102. 输入=转换.整型转字符型(a)
     
103. 显示=字符串.连接(基数,输入)
     
104. 编辑框.设置文本("编辑框0",显示)
     
105. 返回 真
     
106. 功能结束
     
107. 
     
108. 
     
109. 功能 逻辑型 按钮3_点击()
     
110. //数字3
     
111. 整型 a=3
     
112. 字符型 输入,基数
     
113. if(清空结果==1)
     
114.     编辑框.设置文本("编辑框0","")
     
115. 
     
116. 清空结果=0
     
117. endif
     
118. 基数=编辑框.获得文本("编辑框0")
     
119. 输入=转换.整型转字符型(a)
     
120. 显示=字符串.连接(基数,输入)
     
121. 编辑框.设置文本("编辑框0",显示)
     
122. 返回 真
     
123. 功能结束
     
124. 
     
125. 
     
126. 功能 逻辑型 按钮2_点击()
     
127. //数字2
     
128. 整型 a=2
     
129. 字符型 输入,基数
     
130. if(清空结果==1)
     
131.     编辑框.设置文本("编辑框0","")
     
132. 
     
133. 清空结果=0
     
134. endif
     
135. 基数=编辑框.获得文本("编辑框0")
     
136. 输入=转换.整型转字符型(a)
     
137. 显示=字符串.连接(基数,输入)
     
138. 编辑框.设置文本("编辑框0",显示)
     
139. 返回 真
     
140. 功能结束
     
141. 
     
142. 
     
143. 功能 逻辑型 按钮1_点击()
     
144. //数字1
     
145. 整型 a=1
     
146. 字符型 输入,基数
     
147. if(清空结果==1)
     
148.     编辑框.设置文本("编辑框0","")
     
149. 
     
150. 清空结果=0
     
151. endif
     
152. 基数=编辑框.获得文本("编辑框0")
     
153. 输入=转换.整型转字符型(a)
     
154. 显示=字符串.连接(基数,输入)
     
155. 编辑框.设置文本("编辑框0",显示)
     
156. 
     
157. 返回 真
     
158. 功能结束
     
159. 
     
160. 
     
161. 功能 逻辑型 按钮0_点击()                     //数字0
     
162. 整型 a=0
     
163. 字符型 输入,基数
     
164. if(清空结果==1)
     
165.     编辑框.设置文本("编辑框0","")
     
166. 
     
167. 清空结果=0
     
168. endif
     
169. 基数=编辑框.获得文本("编辑框0")
     
170. 输入=转换.整型转字符型(a)
     
171. 显示=字符串.连接(基数,输入)
     
172. 编辑框.设置文本("编辑框0",显示)
     
173. 返回 真
     
174. 功能结束
     
175. 
     
176. 
     
177. 功能 逻辑型 按钮点_点击()
     
178. //小数点
     
179. 
     
180. 字符型 输入,基数
     
181. if(清空结果==1)
     
182.     编辑框.设置文本("编辑框0","")
     
183. 
     
184. 清空结果=0
     
185. endif
     
186. 基数=编辑框.获得文本("编辑框0")
     
187. if(基数=="")
     
188. 编辑框.设置文本("编辑框0","0.")
     
189. else
     
190. 显示=字符串.连接(基数,"0")
     
191. 编辑框.设置文本("编辑框0",显示)
     
192. endif
     
193. 返回 真
     
194. 功能结束
     
195. 
     
196. 
     
197. 功能 逻辑型 按钮负_点击()                      //负号
     
198. 整型 a=-1
     
199. 字符型 输入,基数
     
200. 基数=编辑框.获得文本("编辑框0")
     
201. 输入=转换.整型转字符型(a)
     
202. 输入=字符串.截取(输入,0,1)
     
203. 显示=字符串.连接(输入,基数)
     
204. 编辑框.设置文本("编辑框0",显示)
     
205. 返回 真
     
206. 功能结束
     
207. 
     
208. 
     
209. 功能 逻辑型 按钮加_点击()
     
210. //加号
     
211. 字符型 基数
     
212. 编辑框.设置文本("编辑框1","+")
     
213. if(运算符号==0)
     
214. 基数=编辑框.获得文本("编辑框0")
     
215. if(基数!="")
     
216. 编辑框.设置文本("编辑框2",基数)
     
217. 数据1=转换.字符型转浮点型(基数)
     
218. endif
     
219. endif
     
220. 编辑框.设置文本("编辑框0","")
     
221. 运算符号=1
     
222. 返回 真
     
223. 功能结束
     
224. 
     
225. 
     
226. 功能 逻辑型 按钮减_点击()
     
227. //减号
     
228. 字符型 基数
     
229. 编辑框.设置文本("编辑框1","-")
     
230. if(运算符号==0)
     
231. 基数=编辑框.获得文本("编辑框0")
     
232. if(基数!="")
     
233. 编辑框.设置文本("编辑框2",基数)
     
234. 数据1=转换.字符型转浮点型(基数)
     
235. endif
     
236. endif
     
237. 运算符号=2
     
238. 编辑框.设置文本("编辑框0","")
     
239. 返回 真
     
240. 功能结束
     
241. 
     
242. 
     
243. 功能 逻辑型 按钮乘_点击()
     
244. //乘号
     
245. 字符型 基数
     
246. 编辑框.设置文本("编辑框1","x")
     
247. if(运算符号==0)
     
248. 基数=编辑框.获得文本("编辑框0")
     
249. if(基数!="")
     
250. 编辑框.设置文本("编辑框2",基数)
     
251. 数据1=转换.字符型转浮点型(基数)
     
252. endif
     
253. endif
     
254. 编辑框.设置文本("编辑框0","")
     
255. 运算符号=3
     
256. 返回 真
     
257. 功能结束
     
258. 
     
259. 
     
260. 功能 逻辑型 按钮除_点击()
     
261. //除号
     
262. 字符型 基数
     
263. 编辑框.设置文本("编辑框1","÷")
     
264. if(运算符号==0)
     
265. 基数=编辑框.获得文本("编辑框0")
     
266. if(基数!="")
     
267. 编辑框.设置文本("编辑框2",基数)
     
268. 数据1=转换.字符型转浮点型(基数)
     
269. endif
     
270. endif
     
271. 运算符号=4
     
272. 编辑框.设置文本("编辑框0","")
     
273. 返回 真
     
274. 功能结束
     
275. 
     
276. 
     
277. 功能 逻辑型 取模_点击()
     
278. //取模符号
     
279. 字符型 基数
     
280. 编辑框.设置文本("编辑框1","/")
     
281. if(运算符号==0)
     
282. 基数=编辑框.获得文本("编辑框0")
     
283. if(基数!="")
     
284. 编辑框.设置文本("编辑框2",基数)
     
285. 数据1=转换.字符型转浮点型(基数)
     
286. endif
     
287. endif
     
288. 编辑框.设置文本("编辑框0","")
     
289. 运算符号=5
     
290. 返回 真
     
291. 功能结束
     
292. 
     
293. 
     
294. 功能 逻辑型 等于_点击()
     
295. //运算
     
296. 浮点型 结果
     
297. 字符型 基数
     
298. 整型 a,b,c,d
     
299. 基数=编辑框.获得文本("编辑框0")
     
300. if(基数!="")
     
301. 编辑框.设置文本("编辑框1","=")
     
302. 数据2=转换.字符型转浮点型(基数)
     
303. endif
     
304. 选择(运算符号)
     
305.     条件 0:
     
306. 
     
307. 结果=数据1+数据2
     
308.     条件 1:
     
309. 
     
310. 结果=数据1+数据2
     
311.         c=1
     
312.     条件 2:
     
313.         结果=数据1-数据2
     
314.         c=1
     
315.     条件 3:
     
316. 
     
317. 结果=数据1*数据2
     
318.         条件 4:
     
319.         d=转换.浮点型转整型(数据2)
     
320.         if(d==0)
     
321.             c=2
     
322.             help.messagebox("除数不能为0")
     
323.         else
     
324.         结果=数据1/数据2
     
325.         endif
     
326.         默认:
     
327.         a=转换.浮点型转整型(数据1)
     
328.         b=转换.浮点型转整型(数据2)
     
329.         if(a==0||b==0)
     
330.             c=2
     
331.             help.messagebox("数据错误,请重新输入 ")
     
332.         else
     
333.         结果=a%b
     
334.         endif
     
335.     选择结束
     
336. if(c==2)
     
337.     编辑框.设置文本("编辑框0","")
     
338.     编辑框.设置文本("编辑框1","")
     
339.     编辑框.设置文本("编辑框2","")
     
340. else
     
341. 基数=转换.浮点型转字符型(结果)
     
342.     编辑框.设置文本("编辑框0",基数)
     
343.     编辑框.设置文本("编辑框1","")
     
344.     编辑框.设置文本("编辑框2","")
     
345.     数据1=0
     
346.     数据2=0
     
347.     运算符号=0
     
348.     清空结果=1
     
349. endif
     
350. 返回 真
     
351. 功能结束
     
352. 
     
353. 
     
354. 功能 逻辑型 清空_点击()
     
355. //清空
     
356.     编辑框.设置文本("编辑框0","")
     
357.     编辑框.设置文本("编辑框1","")
     
358.     编辑框.设置文本("编辑框2","")
     
359.     数据1=0
     
360.     数据2=0
     
361.     运算符号=0
     
362.     清空结果=0
     
363. 返回 真
     
364. 功能结束
     
365. 
     
366. 功能 逻辑型 删除_点击()
     
367. //删除
     
368. 整型 a=0
     
369. 字符型 基数
     
370. 基数=编辑框.获得文本("编辑框0")
     
371. 显示=字符串.移除(基数,1,假)
     
372. 编辑框.设置文本("编辑框0",显示)
     
373. 返回 真
     
374. 功能结束
     
375. 
     
376. 功能 逻辑型 记忆_点击()
     
377. //记忆
     
378. 字符型 储存
     
379. 储存=编辑框.获得文本("编辑框0")
     
380. 辅助.写配置("RealmName","East",储存,"D:\\Config.ini")
     
381. 返回 真
     
382. 功能结束
     
383. 
     
384. 功能 逻辑型 恢复_点击()
     
385. //恢复记忆
     
386. 字符型 储存
     
387. 储存=辅助.读配置("RealmName","East","D:\\Config.ini")
     
388. 编辑框.设置文本("编辑框0",储存)
     
389. 文件.删除("D:\\Config.ini")
     
390. 返回 真
     
391. 功能结束
     
392. 
     
393. 功能 逻辑型 初始化()
     
394. //初始化
     
395. 数据1=0
     
396. 数据2=0
     
397. 清空结果=0
     
398. 运算符号=0
     
399. 返回 真
     
400. 功能结束
     
401. 
     
402. 空间结束

复制代码

如果有人需要T文件的话，我再上传。

---

作者: 554354854    时间: 2012-11-22 22:29
有点乱。。。。还是赞

---

作者: pixiangyun    时间: 2012-11-22 22:35
运算的只有这一段，其它是配置按键的

1. 
   
2. 
   
3. 功能 逻辑型 等于_点击()
   
4. //运算
   
5. 浮点型 结果
   
6. 字符型 基数
   
7. 整型 a,b,c,d
   
8. 基数=编辑框.获得文本("编辑框0")
   
9. if(基数!="")
   
10. 编辑框.设置文本("编辑框1","=")
    
11. 数据2=转换.字符型转浮点型(基数)
    
12. endif
    
13. 选择(运算符号)
    
14.     条件 0:
    
15. 
    
16. 结果=数据1+数据2
    
17.     条件 1:
    
18. 
    
19. 结果=数据1+数据2
    
20.         c=1
    
21.     条件 2:
    
22.         结果=数据1-数据2
    
23.         c=1
    
24.     条件 3:
    
25. 
    
26. 结果=数据1*数据2
    
27.         条件 4:
    
28.         d=转换.浮点型转整型(数据2)
    
29.         if(d==0)
    
30.             c=2
    
31.             help.messagebox("除数不能为0")
    
32.         else
    
33.         结果=数据1/数据2
    
34.         endif
    
35.         默认:
    
36.         a=转换.浮点型转整型(数据1)
    
37.         b=转换.浮点型转整型(数据2)
    
38.         if(a==0||b==0)
    
39.             c=2
    
40.             help.messagebox("数据错误,请重新输入 ")
    
41.         else
    
42.         结果=a%b
    
43.         endif
    
44.     选择结束
    
45. if(c==2)
    
46.     编辑框.设置文本("编辑框0","")
    
47.     编辑框.设置文本("编辑框1","")
    
48.     编辑框.设置文本("编辑框2","")
    
49. else
    
50. 基数=转换.浮点型转字符型(结果)
    
51.     编辑框.设置文本("编辑框0",基数)
    
52.     编辑框.设置文本("编辑框1","")
    
53.     编辑框.设置文本("编辑框2","")
    
54.     数据1=0
    
55.     数据2=0
    
56.     运算符号=0
    
57.     清空结果=1
    
58. endif
    
59. 返回 真
    
60. 功能结束
    

复制代码

---

作者: qq910950471    时间: 2012-12-21 21:55
一时半会看不懂

---

作者: qisi2012    时间: 2013-1-9 08:13
有没有....打包的.....
比如....把源码和程序打包给我吧
所有的

---

作者: 554354854    时间: 2013-1-16 19:17
楼主建议你将代码做成TLL

---

作者: ma3yu    时间: 2013-1-17 00:08
找不到小数点也

---

作者: ma3yu    时间: 2013-1-17 00:09
积极回帖，努力帮助新手，赚取TC币

---

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

Powered by Discuz! X3.1