简易验证码小程序

Anyint

本程序参考了《易语言速成班第二期5》视频教程，地址：https://www.eyuyan.tv/p155
学易不能停呀，这两天又学了一个视频，感觉编程的难度又上去了，这次的例程考的是算法，对锻炼编程思维很有帮助，大家一起学习哈，一起交流。
其中去除验证码的重复的干扰和原视频中的判断条件有些出入，我自己修改了一下，重复率目前没有看出来，还望大神看看有啥小问题，那部分去干扰的代码还有待推敲。

第一部分：程序部分代码

  

子程序名	返回值类型	公开	备 注
更新验证码			‘更新验证码的子程序，方便调用

变量名	类 型	静态	数组	备 注
i	整数型			’计数变量1
随机标签1	整数型			’第一个相同的字母的数组下标（索引）
随机标签2	整数型			’第二个相同的字母的数组下标（索引）
随机文本1	文本型			’第一个相同的字母
随机文本2	文本型			’第二个相同的字母
j	整数型			’计数变量2

' 设置8个标签控件的属性
计次循环首 (8, i)
标签 [i].标题 ＝ “”  ' 标题清空
标签 [i].边框 ＝ 5  ' 边框为单线条
标签 [i].字体.字体大小 ＝ 取随机数 (10, 36)  ' 设置字体范围
标签 [i].文本颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))  ' ........以下属性自己看控件的属性列表，不多作解释
标签 [i].渐变背景方式 ＝ 取随机数 (1, 8)
标签 [i].渐变背景颜色1 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
标签 [i].渐变背景颜色2 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
标签 [i].渐变背景颜色3 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
标签 [i].横向对齐方式 ＝ 取随机数 (0, 2)
标签 [i].纵向对齐方式 ＝ 取随机数 (0, 2)
计次循环尾 ()
随机标签1 ＝ 取随机数 (1, 8)  ' 设置第一个相同数的索引
随机标签2 ＝ 取随机数 (1, 8)
判断循环首 (随机标签1 ＝ 随机标签2)  ' 判断这两个字母相等就让第二个相同的字母改成不同的字母，如果字母相等会一直死在循环里，直到不相等跳出循环
随机标签2 ＝ 取随机数 (1, 8)
判断循环尾 ()
' 设置第一个相同字母的内容
如果 (取随机数 (1, 2) ＝ 1)
随机文本1 ＝ 文本_取随机字母 (1, 0)
随机文本1 ＝ 文本_取随机字母 (1, 1)

如果 (取随机数 (1, 2) ＝ 1)
随机文本2 ＝ 到小写 (随机文本1)
随机文本2 ＝ 到大写 (随机文本1)

' 设置第一个相同标签的内容 = 第一个相同字母
标签 [随机标签1].标题 ＝ 随机文本1
标签 [随机标签2].标题 ＝ 随机文本2
' 第一次修改其他不相等的字母标签，但可能会产生两组相等的字母，一组是上面的代码生成的，另外一组是第一次的这段代码生成的
计次循环首 (8, i)
如果真 (i ≠ 随机标签1 且 i ≠ 随机标签2)
如果 (取随机数 (1, 2) ＝ 1)
标签 [i].标题 ＝ 文本_取随机字母 (1, 0)
标签 [i].标题 ＝ 文本_取随机字母 (1, 1)

判断循环首 (到小写 (标签 [i].标题) ＝ 到小写 (标签 [随机标签1].标题))
如果 (取随机数 (1, 2) ＝ 1)
标签 [i].标题 ＝ 文本_取随机字母 (1, 0)
标签 [i].标题 ＝ 文本_取随机字母 (1, 1)

判断循环尾 ()

计次循环尾 ()
' 重要！！！！！！！第二次修改其他不相等的字母，消除重复的字母，只存在一组相等的字母
计次循环首 (7, i)
计次循环首 (7 － i ＋ 1, j)
如果真 (到小写 (标签 [i].标题) ＝ 到小写 (标签 [i ＋ j].标题))
' 去除修改第一个相等字母的索引和第二个相等字母的索引的这种情况
如果真 (i ＝ 随机标签1 且 i ＋ j ＝ 随机标签2)
跳出循环 ()
如果真 (i ＝ 随机标签2 且 i ＋ j ＝ 随机标签1)
跳出循环 ()

如果 (取随机数 (1, 2) ＝ 1)
标签 [i ＋ j].标题 ＝ 文本_取随机字母 (1, 0)
标签 [i ＋ j].标题 ＝ 文本_取随机字母 (1, 1)


计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 更新验证码, , , ‘更新验证码的子程序，方便调用<br /> .局部变量 i, 整数型, , , ’计数变量1<br /> .局部变量 随机标签1, 整数型, , , ’第一个相同的字母的数组下标（索引）<br /> .局部变量 随机标签2, 整数型, , , ’第二个相同的字母的数组下标（索引）<br /> .局部变量 随机文本1, 文本型, , , ’第一个相同的字母<br /> .局部变量 随机文本2, 文本型, , , ’第二个相同的字母<br /> .局部变量 j, 整数型, , , ’计数变量2<br /> <br /> ' 设置8个标签控件的属性<br /> .计次循环首 (8, i)<br />     标签 <i>.标题 ＝ “”  ' 标题清空<br />     标签 <i>.边框 ＝ 5  ' 边框为单线条<br />     标签 <i>.字体.字体大小 ＝ 取随机数 (10, 36)  ' 设置字体范围<br />     标签 <i>.文本颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))  ' ........以下属性自己看控件的属性列表，不多作解释<br />     标签 <i>.渐变背景方式 ＝ 取随机数 (1, 8)<br />     标签 <i>.渐变背景颜色1 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))<br />     标签 <i>.渐变背景颜色2 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))<br />     标签 <i>.渐变背景颜色3 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))<br />     标签 <i>.横向对齐方式 ＝ 取随机数 (0, 2)<br />     标签 <i>.纵向对齐方式 ＝ 取随机数 (0, 2)<br /> .计次循环尾 ()<br /> <br /> <br /> 随机标签1 ＝ 取随机数 (1, 8)  ' 设置第一个相同数的索引<br /> 随机标签2 ＝ 取随机数 (1, 8)<br /> .判断循环首 (随机标签1 ＝ 随机标签2)  ' 判断这两个字母相等就让第二个相同的字母改成不同的字母，如果字母相等会一直死在循环里，直到不相等跳出循环<br />     随机标签2 ＝ 取随机数 (1, 8)<br /> .判断循环尾 ()<br /> <br /> ' 设置第一个相同字母的内容<br /> .如果 (取随机数 (1, 2) ＝ 1)<br />     随机文本1 ＝ 文本_取随机字母 (1, 0)<br /> .否则<br />     随机文本1 ＝ 文本_取随机字母 (1, 1)<br /> .如果结束<br /> <br /> .如果 (取随机数 (1, 2) ＝ 1)<br />     随机文本2 ＝ 到小写 (随机文本1)<br /> .否则<br />     随机文本2 ＝ 到大写 (随机文本1)<br /> .如果结束<br /> <br /> ' 设置第一个相同标签的内容 = 第一个相同字母<br /> 标签 [随机标签1].标题 ＝ 随机文本1<br /> 标签 [随机标签2].标题 ＝ 随机文本2<br /> <br /> <br /> <br /> ' 第一次修改其他不相等的字母标签，但可能会产生两组相等的字母，一组是上面的代码生成的，另外一组是第一次的这段代码生成的<br /> .计次循环首 (8, i)<br />     .如果真 (i ≠ 随机标签1 且 i ≠ 随机标签2)<br />         .如果 (取随机数 (1, 2) ＝ 1)<br />             标签 <i>.标题 ＝ 文本_取随机字母 (1, 0)<br />         .否则<br />             标签 <i>.标题 ＝ 文本_取随机字母 (1, 1)<br />         .如果结束<br /> <br />         .判断循环首 (到小写 (标签 <i>.标题) ＝ 到小写 (标签 [随机标签1].标题))<br />             .如果 (取随机数 (1, 2) ＝ 1)<br />                 标签 <i>.标题 ＝ 文本_取随机字母 (1, 0)<br />             .否则<br />                 标签 <i>.标题 ＝ 文本_取随机字母 (1, 1)<br />             .如果结束<br /> <br /> <br />         .判断循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> ' 重要！！！！！！！第二次修改其他不相等的字母，消除重复的字母，只存在一组相等的字母<br /> .计次循环首 (7, i)<br />     .计次循环首 (7 － i ＋ 1, j)<br />         .如果真 (到小写 (标签 <i>.标题) ＝ 到小写 (标签 [i ＋ j].标题))<br />             ' 去除修改第一个相等字母的索引和第二个相等字母的索引的这种情况<br />             .如果真 (i ＝ 随机标签1 且 i ＋ j ＝ 随机标签2)<br />                 跳出循环 ()<br />             .如果真结束<br />             .如果真 (i ＝ 随机标签2 且 i ＋ j ＝ 随机标签1)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />             .如果 (取随机数 (1, 2) ＝ 1)<br />                 标签 [i ＋ j].标题 ＝ 文本_取随机字母 (1, 0)<br />             .否则<br />                 标签 [i ＋ j].标题 ＝ 文本_取随机字母 (1, 1)<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
判断验证码			‘判断验证码子程序，方便后期调用

变量名	类 型	静态	数组	备 注
i	整数型			’计数变量1
a	文本型			‘第一个相等的数
b	文本型			’第二个相等的数
flag	逻辑型			’重复标志位

计次循环首 (8, i)
如果真 (标签 [i].边框 ＝ 6 且 flag ＝ 假)  ' 找第一个相等数的位置，并取出内容，设置重复标志位
flag ＝ 真
a ＝ 到小写 (标签 [i].标题)
如果真 (标签 [i].边框 ＝ 6 且 flag ＝ 真)
b ＝ 到小写 (标签 [i].标题)

计次循环尾 ()
如果 (a ＝ b 且 flag ＝ 真)  ' 判断第一个数和第二个数是否相等 并且 重复次数标志位等于真
信息框 (“验证正确！”, 64, “提示”, )
信息框 (“验证失败！”, 16, “提示”, )

更新验证码 ()

.版本 2<br /> <br /> .子程序 判断验证码, , , ‘判断验证码子程序，方便后期调用<br /> .局部变量 i, 整数型, , , ’计数变量1<br /> .局部变量 a, 文本型, , , ‘第一个相等的数<br /> .局部变量 b, 文本型, , , ’第二个相等的数<br /> .局部变量 flag, 逻辑型, , , ’重复标志位<br /> <br /> .计次循环首 (8, i)<br />     .如果真 (标签 <i>.边框 ＝ 6 且 flag ＝ 假)  ' 找第一个相等数的位置，并取出内容，设置重复标志位<br />         flag ＝ 真<br />         a ＝ 到小写 (标签 <i>.标题)<br />     .如果真结束<br />     .如果真 (标签 <i>.边框 ＝ 6 且 flag ＝ 真)<br />         b ＝ 到小写 (标签 <i>.标题)<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .如果 (a ＝ b 且 flag ＝ 真)  ' 判断第一个数和第二个数是否相等 并且 重复次数标志位等于真<br />     信息框 (“验证正确！”, 64, “提示”, )<br /> .否则<br />     信息框 (“验证失败！”, 16, “提示”, )<br /> .如果结束<br /> <br /> 更新验证码 ()

第二部分：程序源码（包含精易模块）
验证码例程.rar (755.96 KB, 下载次数: 15)

2019-1-12 22:35 上传

点击文件名下载附件

Singularity

我觉得这个很牛逼

kid791

谢谢楼主，我来学学

fs20154

学习到了  挺棒

Foreign000

涨姿势了啊

hao3509557413

学习了  挺好的