闹钟例程

seed如影

一个闹钟小程序 声明一下 这是照着教程做的作业 希望对初学者有点帮助

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
时间	日期时间型
闹钟	日期时间型
时间1	日期时间型
今天周几	整数型
星期一	日期时间型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

播放MP3 (, “C:\Users\Administrator\Desktop\求佛.MP3”)
_时钟1_周期事件 ()
编辑框3.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “通用”, “歌曲”, )
周日.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周一”, “时间”, )
周一.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周二”, “时间”, )
周二.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周三”, “时间”, )
周三.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周四”, “时间”, )
周四.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周五”, “时间”, )
周五.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周六”, “时间”, )
周六.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周日”, “时间”, )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

时间 ＝ 取现行时间 ()
编辑框1.内容 ＝ 到文本 (取年份 (时间)) ＋ “-” ＋ 到文本 (取月份 (时间)) ＋ “-” ＋ 到文本 (取日 (时间)) ＋ “ ” ＋ 到文本 (取小时 (时间)) ＋ “:” ＋ 到文本 (取分钟 (时间)) ＋ “:” ＋ 到文本 (取秒 (时间))
时间1 ＝ 取时间 (到时间 (编辑框1.内容))
今天周几 ＝ 取星期几 (取现行时间 ())
判断 (今天周几 ＝ 1)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周日.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

判断 (今天周几 ＝ 2)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周一.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

判断 (今天周几 ＝ 3)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周二.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

判断 (今天周几 ＝ 4)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周三.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

判断 (今天周几 ＝ 5)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周四.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

判断 (今天周几 ＝ 6)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周五.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

判断 (今天周几 ＝ 7)
闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周六.内容))
如果真 (闹钟 ＝ 时间1)
播放MP3 (-1, 编辑框3.内容)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周一”, “时间”, 周日.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “通用”, “歌曲”, 编辑框3.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周二”, “时间”, 周一.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周三”, “时间”, 周二.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周四”, “时间”, 周三.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周五”, “时间”, 周四.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周六”, “时间”, 周五.内容)
写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周日”, “时间”, 周六.内容)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 时间, 日期时间型<br /> .程序集变量 闹钟, 日期时间型<br /> .程序集变量 时间1, 日期时间型<br /> .程序集变量 今天周几, 整数型<br /> .程序集变量 星期一, 日期时间型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 播放MP3 (, “C:\Users\Administrator\Desktop\求佛.MP3”)<br /> _时钟1_周期事件 ()<br /> 编辑框3.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “通用”, “歌曲”, )<br /> 周日.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周一”, “时间”, )<br /> 周一.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周二”, “时间”, )<br /> 周二.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周三”, “时间”, )<br /> 周三.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周四”, “时间”, )<br /> 周四.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周五”, “时间”, )<br /> 周五.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周六”, “时间”, )<br /> 周六.内容 ＝ 读配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周日”, “时间”, )<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 时间 ＝ 取现行时间 ()<br /> 编辑框1.内容 ＝ 到文本 (取年份 (时间)) ＋ “-” ＋ 到文本 (取月份 (时间)) ＋ “-” ＋ 到文本 (取日 (时间)) ＋ “ ” ＋ 到文本 (取小时 (时间)) ＋ “:” ＋ 到文本 (取分钟 (时间)) ＋ “:” ＋ 到文本 (取秒 (时间))<br /> 时间1 ＝ 取时间 (到时间 (编辑框1.内容))<br /> 今天周几 ＝ 取星期几 (取现行时间 ())<br /> .判断开始 (今天周几 ＝ 1)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周日.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> .判断 (今天周几 ＝ 2)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周一.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> <br /> .判断 (今天周几 ＝ 3)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周二.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> .判断 (今天周几 ＝ 4)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周三.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> .判断 (今天周几 ＝ 5)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周四.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> .判断 (今天周几 ＝ 6)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周五.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> .判断 (今天周几 ＝ 7)<br />     闹钟 ＝ 取时间 (到时间 (“2019.11月5日” ＋ 周六.内容))<br /> <br />     .如果真 (闹钟 ＝ 时间1)<br />         播放MP3 (-1, 编辑框3.内容)<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周一”, “时间”, 周日.内容)<br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “通用”, “歌曲”, 编辑框3.内容)<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周二”, “时间”, 周一.内容)<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周三”, “时间”, 周二.内容)<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周四”, “时间”, 周三.内容)<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周五”, “时间”, 周四.内容)<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周六”, “时间”, 周五.内容)<br /> <br /> 写配置项 (“E:\Documents and Settings\Administrator\My Documents\My Music\起床.ini”, “周日”, “时间”, 周六.内容)

明天你好呀！

66666666666666

明天你好呀！

好好好好好好好好好好

lxh1230

666666666666666

zxg853399379

这个没啥用

seed如影

杨明煜 发表于 2020-2-19 07:36
感谢分享.................

每次回帖都能看到你 谢谢你的支持

杨明煜

感谢分享.................

seed如影

天源程皓 发表于 2020-2-17 20:43
不错 感谢分享 !!!!!

谢谢回复 感谢你的支持

天源程皓

不错 感谢分享 !!!!!

seed如影

汉族 发表于 2020-2-15 19:42
zc项可以计次写 你这方案可以优化

照着教程写的 有的命令还不太理解呢 ？