- .版本 2
- .支持库 spec
- .程序集 窗口程序集_启动窗口
- .程序集变量 总计数, 整数型
- .程序集变量 随机表, 字节集, , , 0~255不重复随机数表 总组合数256的阶乘
- .程序集变量 出现的随机数, 逻辑型, , "16777216"
- .子程序 __启动窗口_创建完毕
- .局部变量 不重复随机数, 整数型
- 随机表 = { 142, 122, 126, 187, 127, 203, 154, 224, 10, 93, 42, 79, 176, 1, 48, 193, 65, 96, 161, 59, 228, 98, 177, 62, 30, 27, 128, 31, 169, 129, 102, 140, 179, 236, 121, 83, 69, 18, 22, 7, 60, 44, 138, 194, 82, 147, 240, 245, 19, 86, 34, 183, 50, 109, 21, 88, 52, 115, 37, 150, 108, 230, 43, 192, 106, 239, 188, 91, 175, 164, 141, 54, 17, 167, 9, 233, 146, 196, 195, 243, 130, 2, 221, 213, 214, 152, 184, 70, 186, 45, 119, 232, 6, 111, 248, 227, 255, 159, 103, 182, 16, 219, 210, 168, 247, 144, 205, 57, 32, 149, 101, 71, 100, 217, 145, 235, 173, 35, 252, 226, 242, 208, 172, 114, 55, 143, 134, 49, 95, 11, 76, 4, 51, 125, 85, 26, 75, 212, 78, 24, 25, 155, 185, 178, 165, 174, 67, 254, 220, 89, 209, 251, 28, 104, 158, 131, 63, 77, 171, 120, 191, 56, 201, 223, 41, 47, 80, 39, 166, 3, 53, 181, 225, 36, 200, 94, 23, 190, 249, 199, 38, 206, 74, 107, 244, 162, 5, 81, 215, 151, 241, 124, 12, 246, 136, 222, 33, 58, 87, 8, 84, 73, 211, 72, 139, 99, 113, 250, 207, 117, 110, 46, 135, 231, 97, 118, 198, 216, 132, 40, 180, 116, 202, 163, 68, 137, 197, 14, 238, 153, 253, 112, 29, 133, 160, 204, 90, 92, 148, 66, 61, 105, 0, 234, 15, 170, 218, 156, 123, 64, 237, 157, 20, 189, 13, 229 }
- .变量循环首 (0, 16777215, 1, 总计数)
- 不重复随机数 = 取不重复随机数 (总计数)
- .如果 (出现的随机数 [不重复随机数 + 1] = 真)
- 暂停 ()
- .否则
- 出现的随机数 [不重复随机数 + 1] = 真
- .如果结束
- .变量循环尾 ()
- 调试输出 (逻辑数组存在多少个真 (出现的随机数))
- 结束 ()
- .子程序 取不重复随机数, 整数型
- .参数 计数, 整数型
- .局部变量 A, 整数型
- .局部变量 B, 整数型
- .局部变量 C, 整数型
- .局部变量 AA, 字节型
- .局部变量 BB, 字节型
- .局部变量 CC, 字节型
- A = 取红色值 (计数)
- B = 取绿色值 (计数)
- C = 取蓝色值 (计数)
- AA = 随机表 [位异或 (随机表 [A + 1], 255) + 1]
- BB = 位异或 (随机表 [位异或 (随机表 [B + 1], A) + 1], AA)
- CC = 位异或 (随机表 [位异或 (随机表 [C + 1], B) + 1], BB)
- 调试输出 (计数, 取十六进制文本 (取颜色值 (AA, BB, CC)))
- 返回 (取颜色值 (AA, BB, CC))
- .子程序 逻辑数组存在多少个真, 整数型
- .参数 逻辑数组, 逻辑型, 数组
- .局部变量 成员计数, 整数型
- .局部变量 返回值, 整数型
- .计次循环首 (取数组成员数 (逻辑数组), 成员计数)
- .如果真 (逻辑数组 [成员计数] = 真)
- 返回值 = 返回值 + 1
- .如果真结束
- .计次循环尾 ()
- 返回 (返回值)
- .子程序 取红色值, 字节型, 公开, 取颜色的红色值
- .参数 颜色值, 整数型
- 返回 (到字节 (位与 (颜色值, 255)))
- .子程序 取绿色值, 字节型, 公开, 取颜色的绿色值
- .参数 颜色值, 整数型
- 返回 (到字节 (右移 (位与 (颜色值, 65280), 8)))
- .子程序 取蓝色值, 字节型, 公开, 取颜色的蓝色值
- .参数 颜色值, 整数型
- 返回 (到字节 (右移 (位与 (颜色值, 16711680), 16)))
复制代码
|