菜鸡一枚，请假如何优化代码结构等问题

Alan855

前言，程序是为了练习3种循环，分别是，计次循环首，判断循环首，变量循环首，功能基本都实现了，就是代码写的很狗屎，菜鸡一个，想了好久，实在不知道怎么解决，忘各位大佬帮忙！
附上，源码！希望能解决：
1：代码臃肿。

2：将三种方法写在到一个子程序当中，通过判断参数的方式来选择用哪个。

3：将三种判断也写到一个子程序当中，通过判断参数的方式来调用。

4：将“运算”命令封装到一个模块中。并且使用程序调用！

以下为代码：

-----------------------------------------------------------------------------------------------------------------------------------------------------------

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_计算_被单击

变量名	类 型	静态	数组	备 注
计次	整数型
计算结果	整数型
目标值	整数型
小数点	整数型

判断 (单选框_计次循环首.选中 ＝ 假 且 单选框_判断循环首.选中 ＝ 假 且 单选框_变量循环首.选中 ＝ 假)
透明标签_错误提示.标题 ＝ “请选择一种循环方式”
返回 ()
计算结果 ＝ 0
小数点 ＝ 寻找文本 (编辑框_目标值内容.内容, “.”, 1, 假)
目标值 ＝ 到整数 (编辑框_目标值内容.内容)
判断 (单选框_计次循环首.选中 ＝ 真)
判断 (文本_是否为字母 (编辑框_目标值内容.内容))
透明标签_错误提示.标题 ＝ “当前输入目标值不能为字母”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ “”)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为空”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ 到文本 (0))
透明标签_错误提示.标题 ＝ “当前输入目标值无意义”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (小数点 ≠ -1)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为小数型”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ “ ”)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为空格”
透明标签_结果内容.标题 ＝ “”
返回 ()
计次循环首 (目标值, 计次)
计算结果 ＝ 计算结果 ＋ 计次
透明标签_结果内容.标题 ＝ 到文本 (计算结果)
透明标签_错误提示.标题 ＝ “”
输出调试文本 (计算结果)
计次循环尾 ()
判断 (单选框_判断循环首.选中 ＝ 真)
判断 (文本_是否为字母 (编辑框_目标值内容.内容))
透明标签_错误提示.标题 ＝ “当前输入目标值不能为字母”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ “”)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为空”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ 到文本 (0))
透明标签_错误提示.标题 ＝ “当前输入目标值无意义”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (小数点 ≠ -1)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为小数型”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ “ ”)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为空格”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断循环首 (计次 ≤ 目标值)
计算结果 ＝ 计算结果 ＋ 计次
计次 ＝ 计次 ＋ 1
透明标签_结果内容.标题 ＝ 到文本 (计算结果)
透明标签_错误提示.标题 ＝ “”
输出调试文本 (计算结果)
判断循环尾 ()

判断 (单选框_变量循环首.选中 ＝ 真)
判断 (文本_是否为字母 (编辑框_目标值内容.内容))
透明标签_错误提示.标题 ＝ “当前输入目标值不能为字母”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ “”)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为空”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ 到文本 (0))
透明标签_错误提示.标题 ＝ “当前输入目标值无意义”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (小数点 ≠ -1)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为小数型”
透明标签_结果内容.标题 ＝ “”
返回 ()
判断 (编辑框_目标值内容.内容 ＝ “ ”)
透明标签_错误提示.标题 ＝ “当前输入目标值不能为空格”
透明标签_结果内容.标题 ＝ “”
返回 ()
变量循环首 (1, 目标值, 1, 计次)
计算结果 ＝ 计算结果 ＋ 计次
透明标签_结果内容.标题 ＝ 到文本 (计算结果)
透明标签_错误提示.标题 ＝ “”
输出调试文本 (计算结果)
变量循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_计算_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 计算结果, 整数型<br /> .局部变量 目标值, 整数型<br /> .局部变量 小数点, 整数型<br /> <br /> .判断开始 (单选框_计次循环首.选中 ＝ 假 且 单选框_判断循环首.选中 ＝ 假 且 单选框_变量循环首.选中 ＝ 假)<br />     透明标签_错误提示.标题 ＝ “请选择一种循环方式”<br />     返回 ()<br /> .默认<br />     计算结果 ＝ 0<br />     小数点 ＝ 寻找文本 (编辑框_目标值内容.内容, “.”, 1, 假)<br />     目标值 ＝ 到整数 (编辑框_目标值内容.内容)<br /> .判断结束<br /> .判断开始 (单选框_计次循环首.选中 ＝ 真)<br />     .判断开始 (文本_是否为字母 (编辑框_目标值内容.内容))<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为字母”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ “”)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为空”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ 到文本 (0))<br />         透明标签_错误提示.标题 ＝ “当前输入目标值无意义”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (小数点 ≠ -1)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为小数型”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ “ ”)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为空格”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .默认<br />         .计次循环首 (目标值, 计次)<br />             计算结果 ＝ 计算结果 ＋ 计次<br />             透明标签_结果内容.标题 ＝ 到文本 (计算结果)<br />             透明标签_错误提示.标题 ＝ “”<br />             输出调试文本 (计算结果)<br />         .计次循环尾 ()<br />     .判断结束<br /> <br /> .判断 (单选框_判断循环首.选中 ＝ 真)<br />     .判断开始 (文本_是否为字母 (编辑框_目标值内容.内容))<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为字母”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ “”)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为空”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ 到文本 (0))<br />         透明标签_错误提示.标题 ＝ “当前输入目标值无意义”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (小数点 ≠ -1)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为小数型”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ “ ”)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为空格”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .默认<br />         .判断循环首 (计次 ≤ 目标值)<br />             计算结果 ＝ 计算结果 ＋ 计次<br />             计次 ＝ 计次 ＋ 1<br />             透明标签_结果内容.标题 ＝ 到文本 (计算结果)<br />             透明标签_错误提示.标题 ＝ “”<br />             输出调试文本 (计算结果)<br />         .判断循环尾 ()<br />     .判断结束<br /> <br /> .判断 (单选框_变量循环首.选中 ＝ 真)<br />     .判断开始 (文本_是否为字母 (编辑框_目标值内容.内容))<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为字母”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ “”)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为空”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ 到文本 (0))<br />         透明标签_错误提示.标题 ＝ “当前输入目标值无意义”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (小数点 ≠ -1)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为小数型”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .判断 (编辑框_目标值内容.内容 ＝ “ ”)<br />         透明标签_错误提示.标题 ＝ “当前输入目标值不能为空格”<br />         透明标签_结果内容.标题 ＝ “”<br />         返回 ()<br />     .默认<br />         .变量循环首 (1, 目标值, 1, 计次)<br />             计算结果 ＝ 计算结果 ＋ 计次<br />             透明标签_结果内容.标题 ＝ 到文本 (计算结果)<br />             透明标签_错误提示.标题 ＝ “”<br />             输出调试文本 (计算结果)<br />         .变量循环尾 ()<br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束

小笨瓜

000.e (6.79 KB, 下载次数: 7)

2021-7-2 08:39 上传

点击文件名下载附件

永美发

工工整整

小羊要吃狼

利用线程给你优化了，单选框你默认一个选中就不需要判断是否三个都没选择

kingtt

看你的代码，除了整数，其它的返回，精易模块中有个命令：文本_是否为数字（），如果为真，那么这个就是整数或0，再加上一个排除0的判断，下面再加你要的循环就好了，比如：

  

如果真 (文本_是否为数字 (编辑框_目标值内容) ＝ 真)  ' 判断是否为整数或为0
如果真 (到数值 (编辑框_目标值内容) ≠ 0)  ' 不为0时
计次循环首 (目标值, 计次)
计算结果 ＝ 计算结果 ＋ 计次
透明标签_结果内容.标题 ＝ 到文本 (计算结果)
透明标签_错误提示.标题 ＝ “”
输出调试文本 (计算结果)
计次循环尾 ()

.版本 2<br /> <br />     .如果真 (文本_是否为数字 (编辑框_目标值内容) ＝ 真)  ' 判断是否为整数或为0<br />         .如果真 (到数值 (编辑框_目标值内容) ≠ 0)  ' 不为0时<br />             .计次循环首 (目标值, 计次)<br />                 计算结果 ＝ 计算结果 ＋ 计次<br />                 透明标签_结果内容.标题 ＝ 到文本 (计算结果)<br />                 透明标签_错误提示.标题 ＝ “”<br />                 输出调试文本 (计算结果)<br />             .计次循环尾 ()

补充内容 (2021-7-2 08:38):
根本不需要你那些：“当前输入目标值不能为字母”、“当前输入目标值不能为空”、“当前输入目标值不能为小数型”的判断

小羊要吃狼

用这个吧，删除了你对输入文本的判断
直接用整数型输入框
不允许输入字母小数点以及汉字

kingtt

xiaoxiaoxxx 发表于 2021-7-2 08:38
用这个吧，删除了你对输入文本的判断
直接用整数型输入框
不允许输入字母小数点以及汉字

你的代码有问题，如果编辑框的内容为0、空格、字母、汉字，你试试

补充内容 (2021-7-2 08:48):
不好意思，没看清，是0不行

小羊要吃狼

kingtt 发表于 2021-7-2 08:43
你的代码有问题，如果编辑框的内容为0、空格、字母、汉字，你试试 ...

你试试能不能输入进去空格，字母以及汉字

kingtt

xiaoxiaoxxx 发表于 2021-7-2 08:45
你试试能不能输入进去空格，字母以及汉字

补充了一下，是0

小羊要吃狼

1，利用线程优化代码2，利用易语言的属性，删除对编辑框内容以及单选框是否选中的判断
3，如果输入0直接输出结果0