第一次写的一个红绿灯

旧回忆 · 发表于 2018-7-26 09:33:37

.版本 2
.程序集窗口程序集_启动窗口
.子程序 _按钮1_被单击
外形框1.填充颜色＝ #红色
外形框2.填充颜色＝ #黑色
外形框3.填充颜色＝ #黑色
.子程序 _按钮2_被单击
外形框2.填充颜色＝ #黄色
外形框1.填充颜色＝ #黑色
外形框3.填充颜色＝ #黑色
.子程序 _按钮3_被单击
外形框3.填充颜色＝ #绿色
外形框1.填充颜色＝ #黑色
外形框2.填充颜色＝ #黑色
.子程序 __启动窗口_创建完毕
时钟1.时钟周期＝ 1000
.子程序 _时钟1_周期事件
标签2.标题＝ “时间：” ＋到文本 (取现行时间 ())
.子程序 _按钮4_被单击
.如果 (按钮4.标题＝ “自动”)
按钮4.标题＝ “手动”
按钮1.禁止＝真
按钮2.禁止＝真
按钮3.禁止＝真
_按钮1_被单击 ()
q ＝ #显示时间
时钟2.时钟周期＝ 1000
.否则
按钮4.标题＝ “自动”
按钮1.禁止＝假
按钮2.禁止＝假
按钮3.禁止＝假
时钟2.时钟周期＝ 0
时钟3.时钟周期＝ 0
标签1.标题＝ “手动”
.如果结束

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

q ＝ q － 1
标签1.标题＝到文本 (q) ＋ “秒”
.如果真 (q ＝ 3)
外形框2.填充颜色＝ #黄色
.如果真结束
.如果真 (q ＝ 0)
q ＝ #显示时间
时钟3.时钟周期＝ 1000 ' 启动时钟3
时钟2.时钟周期＝ 0
_按钮3_被单击 () ' 绿灯亮
.如果真结束

.子程序 _时钟3_周期事件
q ＝ q － 1
标签1.标题＝到文本 (q) ＋ “秒”
.如果真 (q ＝ 3)
外形框2.填充颜色＝ #黄色
.如果真结束
.如果真 (q ＝ 0)
q ＝ #显示时间
时钟2.时钟周期＝ 1000
时钟3.时钟周期＝ 0
_按钮1_被单击 ()
.如果真结束

坏涛 · 发表于 2018-9-19 19:50:25

慢点多写写就熟练了支持下

aqwly · 发表于 2018-7-28 08:46:01

慢点多写写就熟练了支持下

hhhql · 发表于 2018-7-27 12:23:52

共同努力，共同进步支持新人

Dhs过客 · 发表于 2018-7-26 16:19:21

慢点多写写就熟练了支持下

古城老人 · 发表于 2018-7-26 13:54:45

没什么难度~

liang681418 · 发表于 2018-7-26 13:09:12

此处应该有鼓励~

精“易”求精 · 发表于 2018-7-26 11:39:34

变量命名尽量直观些。然后其实可以写一个子程序，专门用来改颜色？自动的时钟周期事件只写一个？通过静态变量来记录状态？

旧回忆 · 发表于 2018-7-26 09:34:28

第一次写请多指教

		自动登录	找回密码
密码			注册

[易源码分享] 第一次写的一个红绿灯

评分