觅风论坛
标题:
上一贴是文件图片循环，此贴是单一文件目录循环
[打印本页]
作者:
zhuminghao
时间:
2020-7-29 16:32
标题:
上一贴是文件图片循环，此贴是单一文件目录循环
.版本 2
.支持库 spec
.子程序 图片显示
.参数 周期, 整数型
.局部变量 指针, 整数型
.局部变量 图片目录, 文本型
.局部变量 指针2, 整数型
.局部变量 文件目录, 文本型
.局部变量 图片数, 整数型
.局部变量 图片组, 文本型, , "0"
.局部变量 文件数, 整数型
.局部变量 文件组, 文本型, , "0"
.局部变量 图片目录2, 文本型
.局部变量 jj, 整数型
.局部变量 ll, 整数型
.局部变量 L, 整数型
.局部变量 k, 整数型
打开对话框.文件名 ＝ “”
打开对话框.初始目录 ＝ 取运行目录 () ＋ “\目录”
打开对话框.过滤器 ＝ “图片文件|*.png;*.jpg;*.jepg;*.bmp”
.如果真 (打开对话框.打开 () ＝ 真)
指针 ＝ 倒找文本 (打开对话框.文件名, “\”, , 假)
图片目录 ＝ 取文本左边 (打开对话框.文件名, 指针)
图片目录2 ＝ 取文本左边 (打开对话框.文件名, 指针 － 1)
指针2 ＝ 倒找文本 (图片目录2, “\”, , 假)
文件目录 ＝ 取文本左边 (图片目录, 指针2)
图片数 ＝ 文件_枚举 (图片目录, “*.*”, 图片组, 真, 假, 假)
文件数 ＝ 目录_枚举子目录 (文件目录, 文件组, 真, 假)
_启动窗口.位置 ＝ 3
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
演示画板.宽度 ＝ 取屏幕宽度 ()
演示画板.高度 ＝ 取屏幕高度 ()
隐藏画板1.宽度 ＝ 取屏幕宽度 ()
隐藏画板2.宽度 ＝ 取屏幕宽度 ()
隐藏画板3.宽度 ＝ 取屏幕宽度 ()
隐藏画板1.高度 ＝ 取屏幕高度 ()
隐藏画板2.高度 ＝ 取屏幕高度 ()
隐藏画板3.高度 ＝ 取屏幕高度 ()
图片播放.可视 ＝ 假
目录播放.可视 ＝ 假
.计次循环首 (计次, jj)
图片数 ＝ 文件_枚举 (图片目录, “*.*”, 图片组, 真, 假, 假)
.计次循环首 (图片数, ll)
' 调试输出 (打开对话框.文件名)
.如果真 (jj ＝ 1)
.如果真 (图片组 [ll] ＝ 打开对话框.文件名)
L ＝ 取数组成员数 (图片组) － ll
.如果真 (L ＋ ll ＞ 取数组成员数 (图片组))
跳出循环 ()
.如果真结束
.计次循环首 (L ＋ 1, k)
.如果真 (k ＋ ll ＞ 取数组成员数 (图片组) ＋ 1)
跳出循环 ()
.如果真结束
模块_随机显示效果 (图片组 [k ＋ ll － 1], 演示画板, 隐藏画板1, 隐藏画板2, 隐藏画板3)
' 演示画板.底图 ＝ 读入文件 (图片组 [k ＋ ll － 1])
图片号 ＝ 载入图片 (读入文件 (图片组 [k ＋ ll － 1]))
' 调试输出 (k ＋ ll － 1)
延迟 (周期 × 1000)
.计次循环尾 ()
.如果真结束
到循环尾 ()
.如果真结束
模块_随机显示效果 (图片组 [ll], 演示画板, 隐藏画板1, 隐藏画板2, 隐藏画板3)
' 演示画板.底图 ＝ 读入文件 (图片组 [k ＋ ll － 1])
图片号 ＝ 载入图片 (读入文件 (图片组 [ll]))
延迟 (周期 × 1000)
.计次循环尾 ()
.计次循环尾 ()
作者:
无名使者
时间:
2020-7-29 16:47
学习了！！！！
作者:
小一
时间:
2020-7-29 17:03
支持！！！！！！
作者:
asd3186789
时间:
2020-7-29 17:18
学习一下！十分感谢
作者:
123456
时间:
2020-7-29 17:34
好像还不错！
作者:
幻之灭
时间:
2020-7-29 17:50
感觉不错
作者:
萨拉空军司令的
时间:
2020-7-29 17:58
支持，赞
作者:
zzq6689@qq.com
时间:
2020-7-29 18:06
提示:
作者被禁止或删除 内容自动屏蔽
作者:
啊啊啊啊啊
时间:
2020-7-29 18:15
顶一个了
作者:
付出又有回报
时间:
2020-7-29 18:23
看帖子的要发表下看法
作者:
付出又有回报
时间:
2020-7-29 18:31
前来围观，LZ好样的！
作者:
火狐
时间:
2020-7-29 18:32
不错不错 支持下
作者:
4414513216511
时间:
2020-7-29 18:32
学习了，这就去试试
作者:
毛泽东
时间:
2020-7-29 18:32
这个好好支持一下
作者:
孤独
时间:
2020-7-29 18:33
必须支持。。。。。。。
作者:
黑崎一宇啊
时间:
2020-7-29 18:33
前来围观，LZ好样的！
作者:
sdf
时间:
2020-7-29 18:34
不错不错 支持下
作者:
火狐
时间:
2020-7-29 18:35
支持一下，期待更多东西
作者:
你大爷
时间:
2020-7-29 18:36
顶起 很好的帖
作者:
sdf
时间:
2020-7-29 18:37
路过还不错
作者:
火狐
时间:
2020-7-29 18:37
必须支持。。。。。。。
作者:
qq1354596367
时间:
2020-7-29 19:09
嘻嘻不错支持一个
作者:
730422343
时间:
2020-7-29 19:41
谢谢楼主，，，收藏ing
作者:
柠檬
时间:
2020-7-29 20:13
不错不错 支持下
作者:
qazqaz
时间:
2020-7-29 20:46
感谢您的无私精神...
作者:
542134120.
时间:
2020-7-29 21:18
提示:
作者被禁止或删除 内容自动屏蔽
作者:
刘小凯
时间:
2020-7-29 21:31
谢谢楼主，，，收藏ing
作者:
Dim星痕
时间:
2020-7-29 21:44
好像还不错！
作者:
黑崎一宇
时间:
2020-7-29 21:57
不错哦 喜欢 嘿嘿
作者:
1377687493qq
时间:
2020-7-29 22:10
赞一个!
作者:
骑着蚂蚁兜风
时间:
2020-7-29 22:23
感觉不错
作者:
好吧你又赢了
时间:
2020-7-29 22:32
很给力。。。。很喜欢
作者:
物语
时间:
2020-7-29 22:40
学习一下！十分感谢
作者:
501369613
时间:
2020-7-29 22:49
期待中......
作者:
物语
时间:
2020-7-29 22:58
顶一个了
作者:
呵呵
时间:
2020-7-29 23:06
很不错的哦，支持，加油
作者:
何海银
时间:
2020-7-29 23:20
支持，赞
作者:
tzq78789
时间:
2020-7-29 23:33
不错！顶LZ
作者:
he827298796
时间:
2020-7-29 23:46
顶起 很好的帖
作者:
萨拉空军司令的
时间:
2020-7-29 23:59
路过还不错
作者:
a123354
时间:
2020-7-30 00:13
很不错的哦，支持，加油
作者:
asd26297
时间:
2020-7-30 02:11
嘻嘻不错支持一个
作者:
hui861140
时间:
2020-7-30 04:10
还是看不懂，复杂
作者:
liushengchaows
时间:
2020-7-30 06:09
非常不错，感谢分享！
作者:
hui861140
时间:
2020-7-30 08:07
我表示压力很大
作者:
林哥
时间:
2020-7-30 10:06
必须支持。。。。。。。
作者:
骑着蚂蚁兜风
时间:
2020-7-30 10:16
谢谢楼主的辛苦分享
作者:
fghjgfkjhgk
时间:
2020-7-30 10:26
支持一下，期待更多东西
作者:
骑着蚂蚁兜风
时间:
2020-7-30 10:36
路过还不错
作者:
骚年
时间:
2020-7-30 10:46
看帖子的要发表下看法
作者:
骑着蚂蚁兜风
时间:
2020-7-30 10:56
抢楼了，前排第一次啊
作者:
骑着蚂蚁兜风
时间:
2020-7-30 11:07
前来支持~~~~~~~~~~~~~~~~~~~
作者:
你大爷
时间:
2020-7-30 11:18
很给力。。。。很喜欢
作者:
asd3186789
时间:
2020-7-30 11:29
支持，赞
作者:
xiaojian
时间:
2020-7-30 11:40
非常不错，感谢分享！
作者:
lhq19880526
时间:
2020-7-30 11:51
感觉不错
欢迎光临 觅风论坛 (https://www.eyyba.com/)
Powered by Discuz! X3.4