求大神看看问题在哪

xiaoling2013

1. 功能 计算线程()
   
2.     变量 返回串=开始运算1(编辑框获取文本("编辑框2"))
   
3.     如果(字符串截取(返回串,字符串长度(返回串)-1,字符串长度(返回串))=="|")
   
4.         返回串=返回串&"0"
   
5.     结束
   
6.     字符串分割(返回串,"|",分割串)
   
7.     遍历(变量 fg = 0; fg < 数组大小(分割串); fg++)
   
8.         如果(fg==0)
   
9.             结果=分割串[fg]
   
10.         否则
    
11.             选择(下标数组[fg-1])
    
12.                 条件 1
    
13.                 结果=结果+分割串[fg]
    
14.                 条件 2
    
15.                 结果=结果-分割串[fg]
    
16.                 条件 3
    
17.                 结果=结果*分割串[fg]
    
18.                 条件 4
    
19.                 结果=结果/分割串[fg]
    
20.             结束
    
21.         结束
    
22.     结束
    
23.     标签设置文本("结果",结果)
    
24. 结束

复制代码

编辑框一直+可以计算  一直-也可以计算
比如1+2+3+4 或者10-1-2-3-4
但是1+2+3-4计算就错误了 为什么啊？

liuhaiyan008

看起来貌似还要“乘除”，那就是个计算器喽！ 那就把这个这样改下

1. 功能 执行()
   
2.     变量 字串=编辑框获取文本("编辑框0")
   
3.     变量 字串1=字符串替换(字串,"+",",+")
   
4.     变量 字串2=字符串替换(字串1,"-",",-")
   
5.     变量 字串3=字符串替换(字串2,"*",",*")
   
6.     变量 字串真=字符串替换(字串3,"/",",/")
   
7.     变量 字符集,计算数=0
   
8.     变量 总数=字符串分割(字串真,",",字符集)
   
9.     遍历(变量 i = 0; i < 总数; i++)
   
10.         如果(字符串截取左侧(字符集[i],1)=="*")
    
11.             变量 单数=取整(字符串修剪(字符集[i],"*"))
    
12.             计算数=计算数*单数
    
13.         否则如果(字符串截取左侧(字符集[i],1)=="/")
    
14.             变量 单数=取整(字符串修剪(字符集[i],"/"))
    
15.             计算数=(计算数*1.0)/单数
    
16.         否则
    
17.             变量 单数=取整(字符集[i])
    
18.             计算数=计算数+单数
    
19.         结束
    
20.     结束   
    
21.     调试输出(计算数)
    
22.     编辑框设置文本("编辑框0",计算数)
    
23.     运算中=假
    
24. 结束

复制代码

liuhaiyan008

之前也答复你了，试试这个怎样？

xiaoling2013

liuhaiyan008 发表于 2016-9-5 18:23
看起来貌似还要“乘除”，那就是个计算器喽！ 那就把这个这样改下

谢谢哈

xiaoling2013

liuhaiyan008 发表于 2016-9-5 17:36
之前也答复你了，试试这个怎样？

1. 功能 计数器_内容改变()
   
2.     变量 内容 = 编辑框获取文本("计数器"), 尾数, 组, 组2, 计数 = 0
   
3.     尾数 = 字符串截取(内容, 字符串长度(内容) - 1, 字符串长度(内容))
   
4.     如果(尾数 == "+" || 尾数 == "-" || 尾数 == "*" || 尾数 == "/")
   
5.         内容 = 字符串截取(内容, 0, 字符串长度(内容) - 1)
   
6.     结束
   
7.     内容 = 字符串替换(内容, "+", ",+")
   
8.     内容 = 字符串替换(内容, "-", ",-")
   
9.     内容 = 字符串替换(内容, "*", ",*")
   
10.     内容 = 字符串替换(内容, "/", ",/")
    
11.     字符串分割(内容, ",", 组)
    
12.     计数 = 组[0]
    
13.     遍历(变量 i = 1; i < 数组大小(组); i ++)
    
14.         如果(字符串截取(组[i], 0, 1) == "*")
    
15.             字符串分割(组[i], "*", 组2)
    
16.             计数 = 计数 * 组2[1]
    
17.         否则
    
18.             如果(字符串截取(组[i], 0, 1) == "/")
    
19.                 字符串分割(组[i], "/", 组2)
    
20.                 如果(字符串替换(字符串替换(组2[1], "0", ""), ".", "") == "")
    
21.                     计数 = 计数 / 1
    
22.                 否则
    
23.                     计数 = 计数 / 组2[1]
    
24.                 结束
    
25.             否则
    
26.                 计数 = 计数 + 组[i]
    
27.             结束
    
28.         结束
    
29.     结束
    
30.     如果(字符串截取(计数, 字符串长度(计数) - 5, 字符串长度(计数)) == "00000")
    
31.         计数 = 字符串截取左侧(计数, 字符串长度(计数) - 5)
    
32.     结束
    
33.     如果(字符串截取(计数, 字符串长度(计数) - 4, 字符串长度(计数)) == "0000")
    
34.         计数 = 字符串截取左侧(计数, 字符串长度(计数) - 4)
    
35.     结束
    
36.     如果(字符串截取(计数, 字符串长度(计数) - 3, 字符串长度(计数)) == "000")
    
37.         计数 = 字符串截取左侧(计数, 字符串长度(计数) - 3)
    
38.     结束
    
39.     如果(字符串截取(计数, 字符串长度(计数) - 2, 字符串长度(计数)) == "00")
    
40.         计数 = 字符串截取左侧(计数, 字符串长度(计数) - 2)
    
41.     结束
    
42.     如果(字符串截取(计数, 字符串长度(计数) - 1, 字符串长度(计数)) == "0")
    
43.         计数 = 字符串截取左侧(计数, 字符串长度(计数) - 1)
    
44.     结束
    
45.     标签设置文本("金额", 计数)
    
46. 结束
    

复制代码

你上面那个小数计算不了，而且除算输入0.几会提示除数不能为0

liuhaiyan008

不要紧，你再试下这个咋样？回车直接就运算。

1. 变量 运算中=假,ID
   
2. 
   
3. 功能 按钮0_点击()
   
4.     如果(运算中)
   
5.         线程关闭(ID)
   
6.         运算中=假
   
7.     否则
   
8.         运算中=真
   
9.         ID=线程开启("执行","")
   
10.     结束
    
11. 结束
    
12. 
    
13. 功能 执行()
    
14.     变量 字串=编辑框获取文本("编辑框0")
    
15.     变量 字串1=字符串替换(字串,"+",",+")
    
16.     变量 字串2=字符串替换(字串1,"-",",-")
    
17.     变量 字串3=字符串替换(字串2,"*",",*")
    
18.     变量 字串真=字符串替换(字串3,"/",",/")
    
19.     变量 字符集,计算数=0
    
20.     变量 总数=字符串分割(字串真,",",字符集)
    
21.     遍历(变量 i = 0; i < 总数; i++)
    
22.         如果(字符串截取左侧(字符集[i],1)=="*")
    
23.             变量 单数=转浮点型(字符串修剪(字符集[i],"*"))
    
24.             如果(单数!=null)
    
25.                 计算数=计算数*单数
    
26.             结束
    
27.         否则如果(字符串截取左侧(字符集[i],1)=="/")
    
28.             变量 单数=转浮点型(字符串修剪(字符集[i],"/"))
    
29.             如果(单数!=null)
    
30.                 计算数=(计算数*1.0)/单数
    
31.             结束
    
32.         否则
    
33.             变量 单数=转浮点型(字符集[i])
    
34.             如果(单数!=null)
    
35.                 计算数=计算数+单数
    
36.             结束
    
37.         结束
    
38.     结束
    
39.     计算数=转字符型(计算数)
    
40.     遍历(变量 i = 0; i < 8; i++)
    
41.         变量 字长=字符串长度(计算数)
    
42.         如果(字符串截取右侧(计算数,1)=="."||(字长>1&&字符串截取右侧(计算数,1)=="0"))
    
43.             计算数=字符串截取左侧(计算数,(字长-1))
    
44.         否则
    
45.             跳出
    
46.         结束
    
47.     结束
    
48.     调试输出(计算数)
    
49.     编辑框设置文本("编辑框0",计算数)
    
50.     键盘按键(39,8)
    
51.     运算中=假
    
52. 结束
    
53. 
    
54. 功能 运算测试_消息路由(句柄,消息,w参数,l参数,时间,x坐标,y坐标)
    
55.     如果(消息==256&&w参数==13)
    
56.         按钮0_点击()
    
57.     结束
    
58.     返回 假
    
59. 结束

复制代码

xiaoling2013

liuhaiyan008 发表于 2016-9-6 06:37
不要紧，你再试下这个咋样？回车直接就运算。

还有个问题想了解一下哈，选项卡里面没有消息路由反应