精易论坛

标题: D音小故事(一个按钮可以执行多少次?) [打印本页]

作者: 我就我    时间: 2021-12-13 17:06
标题: D音小故事(一个按钮可以执行多少次?)
一个按钮理论上可以执行无数次操作。大佬勿喷
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
文本组1文本型0 
文本组2文本型0 
文本组3文本型0 
文本组4文本型0 
循环次数整数型  
新的循环整数型  
倒计时整数型  

子程序名返回值类型公开备 注
_按钮1_被单击  
倒计时 = 倒计时 + 1
' 这里是设计了四次。试验一下。当然,只凭按钮是不可能的,需要有变量配合。这里的“倒计时”就是起到钥匙的作用,每变化一次,就配合一个子程序。
图形按钮1.可视 = 假
判断 (倒计时 = 1)
按钮1.标题 = “抖音小故事”
按钮1.禁止 = 真
抖音小故事 ()


判断 (倒计时 = 2)
按钮1.禁止 = 真
抖友一 ()


判断 (倒计时 = 3)
按钮1.禁止 = 真
抖友二 ()


判断 (倒计时 = 4)
按钮1.禁止 = 真
抖友三 ()



子程序名返回值类型公开备 注
抖音小故事  
文本组1 = { “明媚的春光下,万紫千红,三个青年男女坐在一头瘦弱的黑驴背上,走在一座陡峭的荒山小路上,六只脚悠闲的荡来荡去,言笑晏晏,全然不顾身下的黑驴被压的趔趔趄趄。” }
计次循环首 (取数组成员数 (文本组1), 循环次数)
标签1.标题 = “”
标签1.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
判断 (标签1.文本颜色 = _启动窗口.底色)
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10))


变量循环首 (1, 取文本长度 (文本组1 [循环次数]), 2, 新的循环)
标签1.标题 = 标签1.标题 + 取文本中间 (文本组1 [循环次数], 新的循环, 2)
判断 (新的循环 = 取文本长度 (文本组1 [循环次数]) - 1)
按钮1.禁止 = 假
按钮1.标题 = “过分了啊!”
跳出循环 ()


延迟 (200)
变量循环尾 ()
计次循环尾 ()
子程序名返回值类型公开备 注
抖友一  
文本组2 = { “劝你们做个人吧!为了拍小视频赚钱,不顾动物的死活,有点过分了吧!” }
计次循环首 (取数组成员数 (文本组2), 循环次数)
标签1.标题 = “”
标签1.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
判断 (标签1.文本颜色 = _启动窗口.底色)
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10))


变量循环首 (1, 取文本长度 (文本组2 [循环次数]), 2, 新的循环)
标签1.标题 = 标签1.标题 + 取文本中间 (文本组2 [循环次数], 新的循环, 2)
判断 (新的循环 = 取文本长度 (文本组2 [循环次数]) - 1)
按钮1.禁止 = 假
按钮1.标题 = “为人要善良!”
跳出循环 ()


延迟 (200)
变量循环尾 ()
计次循环尾 ()
子程序名返回值类型公开备 注
抖友二  
文本组3 = { “三人骑驴过荒山,四腿忙碌六腿闲。都是世间轮回客,多为自己结善缘!” }
计次循环首 (取数组成员数 (文本组2), 循环次数)
标签1.标题 = “”
标签1.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
判断 (标签1.文本颜色 = _启动窗口.底色)
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10))


变量循环首 (1, 取文本长度 (文本组3 [循环次数]), 2, 新的循环)
标签1.标题 = 标签1.标题 + 取文本中间 (文本组3 [循环次数], 新的循环, 2)
判断 (新的循环 = 取文本长度 (文本组3 [循环次数]) - 1)
按钮1.禁止 = 假
按钮1.标题 = “哈哈一笑”
跳出循环 ()


延迟 (200)
变量循环尾 ()
计次循环尾 ()
子程序名返回值类型公开备 注
抖友三  
文本组4 = { “楼上评论不一般,没蛋坠着会上天。回到唐朝走一走,唐诗何止三百首!” }
计次循环首 (取数组成员数 (文本组2), 循环次数)
标签1.标题 = “”
标签1.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
判断 (标签1.文本颜色 = _启动窗口.底色)
_启动窗口.底色 = 取颜色值 (取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10), 取随机数 (0, 255 - 10))


变量循环首 (1, 取文本长度 (文本组4 [循环次数]), 2, 新的循环)
标签1.标题 = 标签1.标题 + 取文本中间 (文本组4 [循环次数], 新的循环, 2)
判断 (新的循环 = 取文本长度 (文本组4 [循环次数]) - 1)
按钮1.标题 = “同为世间生物,请善良!!!”
图形按钮1.可视 = 真
跳出循环 ()


延迟 (200)
变量循环尾 ()
计次循环尾 ()
子程序名返回值类型公开备 注
_图形按钮1_被单击  
销毁 ()


i支持库列表   支持库注释   
spec特殊功能支持库


作者: xjshuaishuai    时间: 2021-12-13 17:27
谢谢分享!
作者: 无敌灰灰    时间: 2021-12-13 17:36
双减后,论坛好像小学生多了起来。。。
作者: sinewtec    时间: 2021-12-13 17:40
谢谢分享!
作者: qq1056123185    时间: 2021-12-13 17:40
具体是个啥效果
作者: 汉族    时间: 2021-12-13 18:01
你的写法 优化 基本可以缩减 70%以上代码
作者: 我就我    时间: 2021-12-13 18:19
汉族 发表于 2021-12-13 18:01
你的写法 优化 基本可以缩减 70%以上代码

我觉得也是,但是作为新手,优化没有思路
作者: 我就我    时间: 2021-12-13 18:21
qq1056123185 发表于 2021-12-13 17:40
具体是个啥效果

等我截几张图,再发上来
作者: 我就我    时间: 2021-12-13 18:22
无敌灰灰 发表于 2021-12-13 17:36
双减后,论坛好像小学生多了起来。。。

我可不是什么小学生,易语言只是业余爱好
作者: 我就我    时间: 2021-12-13 18:23
sinewtec 发表于 2021-12-13 17:40
谢谢分享!

谢谢
作者: 大师兄是反派    时间: 2021-12-14 01:07

作者: weixin123    时间: 2021-12-14 15:30
厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害
作者: 我就我    时间: 2021-12-14 16:23
weixin123 发表于 2021-12-14 15:30
厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害

谢谢夸奖,惭愧惭愧
作者: 我就我    时间: 2021-12-14 16:27
qq1056123185 发表于 2021-12-13 17:40
具体是个啥效果


作者: 我就我    时间: 2021-12-14 16:30
qq1056123185 发表于 2021-12-13 17:40
具体是个啥效果

好像不能回复图片
作者: 成神之日    时间: 2021-12-15 02:39
谢谢分享来看看
作者: Hdfws858    时间: 2021-12-15 10:59
这是干什么用的啊?
作者: 我就我    时间: 2021-12-15 15:02
Hdfws858 发表于 2021-12-15 10:59
这是干什么用的啊?

用软件讲故事啊。讲做人要善良。众生平等
作者: 1468848161    时间: 2021-12-28 09:17
学习了,谢谢
作者: 你送的花开了    时间: 2021-12-30 07:10
支持开源~!感谢分享
作者: 我就我    时间: 2022-1-4 07:40
你送的花开了 发表于 2021-12-30 07:10
支持开源~!感谢分享

谢谢支持
作者: 趣冉科技    时间: 2022-1-4 19:25
感谢楼主分享,支持一下~~!!!




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4