关于时钟周期时间的一个小程序

seed如影

此程序主要应用的就是一个时钟组件 利用时钟的时钟周期时间 来实现红绿灯的相互转换*******
***************************************************************************
说明一下再此发帖主要是为了增加一下学习热情 毕竟学习编程是一个枯燥无味的过程 如果有一起刚接触易语言的小伙伴 回复一下 对我来说也是鼓励 谢谢

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
a	整数型

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

时钟1.时钟周期 ＝ 1000

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

标签2.标题 ＝ “现在时间是；” ＋ 到文本 (取现行时间 ())

子程序名	返回值类型	公开	备 注
_按钮1_被单击

外形框1.填充颜色 ＝ #红色
外形框2.填充颜色 ＝ #黑色
外形框3.填充颜色 ＝ #黑色

子程序名	返回值类型	公开	备 注
_按钮2_被单击

外形框2.填充颜色 ＝ #黄色
外形框1.填充颜色 ＝ #黑色
外形框3.填充颜色 ＝ #黑色

子程序名	返回值类型	公开	备 注
_按钮3_被单击

外形框3.填充颜色 ＝ #绿色
外形框2.填充颜色 ＝ #黑色
外形框1.填充颜色 ＝ #黑色

子程序名	返回值类型	公开	备 注
_按钮4_被单击

如果 (按钮4.标题 ＝ “自动控制”)
按钮4.标题 ＝ “手动控制”
按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 真
按钮3.禁止 ＝ 真
_按钮1_被单击 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 a, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 标签2.标题 ＝ “现在时间是；” ＋ 到文本 (取现行时间 ())<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 外形框1.填充颜色 ＝ #红色<br /> 外形框2.填充颜色 ＝ #黑色<br /> 外形框3.填充颜色 ＝ #黑色<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 外形框2.填充颜色 ＝ #黄色<br /> 外形框1.填充颜色 ＝ #黑色<br /> 外形框3.填充颜色 ＝ #黑色<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 外形框3.填充颜色 ＝ #绿色<br /> 外形框2.填充颜色 ＝ #黑色<br /> 外形框1.填充颜色 ＝ #黑色<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> .如果 (按钮4.标题 ＝ “自动控制”)<br />     按钮4.标题 ＝ “手动控制”<br />     按钮1.禁止 ＝ 真<br />     按钮2.禁止 ＝ 真<br />     按钮3.禁止 ＝ 真<br />     _按钮1_被单击 ()

leocandy

学习以下

seed如影

327883700 发表于 2019-12-10 23:24
我最开始学的时候写的  ,这个程序弄了我3个小时  写程序好难啊  ,借你这个帖子完成以下作业  .这 ...

局部变量也可以 小程序没考虑那么多

gxwdq520

大佬利害啊

327883700

我最开始学的时候写的  ,这个程序弄了我3个小时  写程序好难啊  ,借你这个帖子完成以下作业  .这个老师说不能用程序集变量  至今我都还没想明白怎样才能不用程序集变量  

327883700

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 总时间, 整数型
.程序集变量 秒, 整数型

.子程序 __启动窗口_创建完毕

外形框_绿.可视 ＝ 假
外形框_黄.可视 ＝ 假
外形框_红.可视 ＝ 假
总时间 ＝ 30


.子程序 _时钟1_周期事件

时钟1.时钟周期 ＝ 1000

子程序1 ()

.子程序 子程序1

总时间 ＝ 总时间 － 1


调试输出 (总时间)

.判断开始 (总时间 ≥ 15)
    外形框_绿.可视 ＝ 真
    标签_绿.可视 ＝ 真
    标签_绿.标题 ＝ 到文本 (总时间)
.默认
    标签_绿.可视 ＝ 假
    外形框_绿.可视 ＝ 假
.判断结束


.判断开始 (总时间 ≤ 14 且 总时间 ≥ 12)
    外形框_黄.可视 ＝ 取反 (外形框_黄.可视)
    标签_黄.可视 ＝ 真
    标签_黄.标题 ＝ 到文本 (总时间)
.默认
    标签_黄.可视 ＝ 假
    外形框_黄.可视 ＝ 假

.判断结束

.判断开始 (总时间 ≤ 11 且 总时间 ≥ 4)
    外形框_红.可视 ＝ 真
    标签_红.可视 ＝ 真
    标签_红.标题 ＝ 到文本 (总时间)
.判断 (总时间 ≤ 4 且 总时间 ≥ 1)
    外形框_红.可视 ＝ 取反 (外形框_红.可视)
    标签_红.可视 ＝ 真
    标签_红.标题 ＝ 到文本 (总时间)
.默认
    标签_红.可视 ＝ 假
    外形框_红.可视 ＝ 假

.判断结束

.判断开始 (总时间 ≤ 0)
    总时间 ＝ 30
.默认

.判断结束


.子程序 _按钮1_被单击

_时钟1_周期事件 ()

mood100

建议控件可以换成子程序调用

南方填表

控件可以换成子程序调用好点

seed如影

影知 发表于 2019-12-10 15:51
控件可以换成子程序调用好点

谢谢 我试试

影知

控件可以换成子程序调用好点