开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 3669|回复: 21
打印 上一主题 下一主题
收起左侧

[易源码分享] D音小故事(一个按钮可以执行多少次?)

[复制链接]
结帖率:50% (1/2)
跳转到指定楼层
楼主
发表于 2021-12-13 17:06:39 | 只看该作者 回帖奖励 |正序浏览 |阅读模式   山东省临沂市
分享源码
界面截图: -
是否带模块: -
备注说明: -
一个按钮理论上可以执行无数次操作。大佬勿喷
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
文本组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特殊功能支持库

评分

参与人数 1好评 +1 精币 +2 收起 理由
金胖子 + 1 + 2 支持开源~!感谢分享

查看全部评分


结帖率:81% (13/16)
22
发表于 2022-1-4 19:25:49 | 只看该作者   浙江省嘉兴市
感谢楼主分享,支持一下~~!!!
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
21
 楼主| 发表于 2022-1-4 07:40:24 | 只看该作者   山东省临沂市

谢谢支持
回复 支持 反对

使用道具 举报

结帖率:85% (77/91)

签到天数: 25 天

20
发表于 2021-12-30 07:10:41 | 只看该作者   江苏省常州市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

19
发表于 2021-12-28 09:17:15 | 只看该作者   山东省潍坊市
学习了,谢谢
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
18
 楼主| 发表于 2021-12-15 15:02:38 | 只看该作者   山东省临沂市
Hdfws858 发表于 2021-12-15 10:59
这是干什么用的啊?

用软件讲故事啊。讲做人要善良。众生平等
回复 支持 反对

使用道具 举报

17
发表于 2021-12-15 10:59:27 | 只看该作者   江苏省常州市
这是干什么用的啊?
回复 支持 反对

使用道具 举报

签到天数: 25 天

16
发表于 2021-12-15 02:39:21 | 只看该作者   四川省成都市
谢谢分享来看看
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
15
 楼主| 发表于 2021-12-14 16:30:00 | 只看该作者   山东省临沂市

好像不能回复图片
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
14
 楼主| 发表于 2021-12-14 16:27:50 | 只看该作者   山东省临沂市
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表