易语言_取随机图片

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 随机图片数组, 文本型, , "0"

取随机图片 (“C:\Users\Administrator\Desktop\666”, 5, 随机图片数组)
调试输出 (随机图片数组)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 取随机图片, 逻辑型
.参数 图片目录, 文本型, , 存放图片的文件夹路径
.参数 获取数量, 整数型, , 要取几张随机图片
.参数 取到的随机图片, 文本型, 参考 数组, 取到的随机图片路径存放数组
.局部变量 图片路径数组, 文本型, , "0"
.局部变量 图片数量, 整数型
.局部变量 随机数, 整数型

图片数量 ＝ 文件_枚举 (图片目录, “*.jpg”, 图片路径数组, 真)
.如果真 (图片数量 ＜ 获取数量)
    返回 (假)
.如果真结束
.计次循环首 (获取数量, )
    置随机数种子 ()
    随机数 ＝ 取随机数 (1, 取数组成员数 (图片路径数组))
    加入成员 (取到的随机图片, 图片路径数组 [随机数])
    删除成员 (图片路径数组, 随机数, )
.计次循环尾 ()
返回 (真)