觅风论坛

标题: 计算器-无模块，纯源码，自己做的，没有参考别人的 [打印本页]

作者: 快乐的小飞 时间: 2019-8-8 09:53
标题: 计算器-无模块，纯源码，自己做的，没有参考别人的
.版本 2
.支持库 spec
.程序集窗口程序集_启动窗口
.程序集变量第一次分割, 文本型, , "0"
.程序集变量第二次分割, 文本型, , "0"
.程序集变量第三次分割, 文本型, , "0"
.程序集变量加减乘除四则运算, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量结果1, 双精度小数型
.局部变量结果2, 双精度小数型
.局部变量和, 双精度小数型
' 用子文本替换可以分割减法
' 用标签可以更美观
标签1.标题＝子文本替换 (编辑框1.内容, “-”, “+-”, 1, , 真)
第一次分割＝分割文本 (标签1.标题, “+”, )
调试输出 (第一次分割)
.计次循环首 (取数组成员数 (第一次分割), i)
第二次分割＝分割文本 (第一次分割 [i], “*”, )
' 调试输出 (第二次分割)
结果1 ＝ 1
.计次循环首 (取数组成员数 (第二次分割), i)
      .如果 (寻找文本 (第二次分割 [i], “/”, , 假) ＝ -1)
         ' 乘法计算
         结果1 ＝结果1 × 到数值 (第二次分割 [i])
         结果2 ＝ 0
         ' 调试输出 (结果1)
      .否则
         ' 除法计算
         第三次分割＝分割文本 (第二次分割 [i], “/”, )
         结果2 ＝结果1 × 到数值 (第三次分割 [1])
         .变量循环首 (2, 取数组成员数 (第三次分割), 1, i)
            结果2 ＝结果2 ÷ 到数值 (第三次分割 [i])
         .变量循环尾 ()
         结果1 ＝ 0
      .如果结束
.计次循环尾 ()
' 调试输出 (第三次分割)
调试输出 (结果1)
调试输出 (结果2)
加入成员 (加减乘除四则运算, 到文本 (结果1))
加入成员 (加减乘除四则运算, 到文本 (结果2))
.计次循环尾 ()
.计次循环首 (取数组成员数 (加减乘除四则运算), i)
和＝和＋到数值 (加减乘除四则运算 [i])
.计次循环尾 ()
编辑框2.内容＝到文本 (和)
清除数组 (第一次分割)
清除数组 (第二次分割)
清除数组 (第三次分割)
清除数组 (加减乘除四则运算)

作者: 呵呵哒 时间: 2019-8-11 16:48
前来支持~~~~~~~~~~~~~~~~~~~

作者: yu1616 时间: 2019-8-14 23:43
谢谢楼主的辛苦分享

作者: 无敌少爷 时间: 2019-8-18 06:37
很给力。。。。很喜欢

作者: 无敌少爷 时间: 2019-8-21 13:32
顶一个了

作者: xiaojian 时间: 2019-8-24 20:26
非常不错，感谢分享！

作者: lloveyouko 时间: 2019-8-24 20:59
前来支持~~~~~~~~~~~~~~~~~~~

作者: sxy19931021 时间: 2019-8-24 21:31
提示: 作者被禁止或删除内容自动屏蔽

作者: few 时间: 2019-8-24 22:03
支持一下，期待更多东西

作者: 216341564213 时间: 2019-8-24 22:36
我表示压力很大

作者: few 时间: 2019-8-24 23:08
赞一个!

作者: 1150531613 时间: 2019-8-25 00:40
谢谢楼主，，，收藏ing

作者: 1150531613 时间: 2019-8-25 02:13
支持，赞

作者: 卧槽你妹 时间: 2019-8-25 03:45
不错不错支持下

作者: a895830975 时间: 2019-8-25 05:18
非常不错，感谢分享！

作者: 啦啦啦啦啦啦 时间: 2019-8-25 06:50
感觉不错

作者: sdf 时间: 2019-8-25 07:37
不错不错支持下

作者: 咬牙坚持 时间: 2019-8-25 08:23
不错哦喜欢嘿嘿

作者: 慌什么！ 时间: 2019-8-25 09:10
顶一个了

作者: 萨拉空军司令的 时间: 2019-8-25 09:56
顶起很好的帖

作者: NUNU 时间: 2019-8-25 10:43
很不错的哦，支持，加油

作者: 特拉斯●狗蛋儿 时间: 2019-8-25 10:43
支持你们一下下哈

作者: 呵呵 时间: 2019-8-25 10:43
支持一下，期待更多东西

作者: tzq78789 时间: 2019-8-25 10:44
碉堡了!

作者: 特拉斯●狗蛋儿 时间: 2019-8-25 10:44
支持！！！！前排！！！！

作者: hy507669673 时间: 2019-8-25 10:44
藕是来打酱油滴...

作者: wz19981007 时间: 2019-8-25 11:03
支持！！！！！！

作者: 带小叶 时间: 2019-8-25 11:21
很给力。。。。很喜欢

作者: 你大爷 时间: 2019-8-25 11:40
支持，赞

作者: 好吧你又赢了 时间: 2019-8-25 11:58
抢楼了，前排第一次啊

作者: zxcasd123c1 时间: 2019-8-25 12:17
感觉不错

作者: lmx0618 时间: 2019-8-25 13:24
学习了！！！！

作者: 骑着蚂蚁兜风 时间: 2019-8-25 14:30
还是看不懂，复杂

作者: 何海银 时间: 2019-8-25 15:37
感谢您的无私精神...

作者: 小白 时间: 2019-8-25 16:44
赞一个!

作者: 丶断弦 时间: 2019-8-25 17:51
感觉不错

作者: lhq19880526 时间: 2019-8-25 18:17
很给力。。。。很喜欢

作者: 何海银 时间: 2019-8-25 18:43
不错不错支持下

作者: 啦啦啦啦啦啦 时间: 2019-8-25 19:10
不错！顶LZ

作者: 刘小凯 时间: 2019-8-25 19:36
支持你们一下下哈

作者: tzq78789 时间: 2019-8-25 20:02
碉堡了!

作者: 光光 时间: 2019-8-25 20:04
期待中......

作者: fghjgfkjhgk 时间: 2019-8-25 20:05
顶一个了

作者: 尘封 时间: 2019-8-25 20:07
这个不错，谢谢共享

作者: he827298796 时间: 2019-8-25 20:09
碉堡了!

作者: 小粑 时间: 2019-8-25 20:11
藕是来打酱油滴...

作者: zf123456 时间: 2019-8-25 20:15
嘻嘻不错支持一个

作者: 1225061801 时间: 2019-8-25 20:19
不错哦喜欢嘿嘿

作者: 1225061801 时间: 2019-8-25 20:24
感谢您的无私精神...

作者: zzq6689@qq.com 时间: 2019-8-25 20:28
提示: 作者被禁止或删除内容自动屏蔽

作者: SMoke 时间: 2019-8-25 20:33
看帖子的要发表下看法

作者: lhq19880526 时间: 2019-8-25 20:55
学习了！！！！

作者: 何海银 时间: 2019-8-25 21:17
路过还不错

作者: 小粑 时间: 2019-8-25 21:40
这个不错，谢谢共享

作者: 小粑 时间: 2019-8-25 22:02
看帖子的要发表下看法

作者: 柠檬 时间: 2019-8-25 22:24
碉堡了!

作者: 花q2333 时间: 2019-10-12 00:16
这个，666666666

作者: 快乐的小飞 时间: 2019-11-11 15:45
大家一起努力学习易语言！

欢迎光临觅风论坛 (https://www.eyyba.com/)