学习电梯

英培 · 发表于 2012-3-23 16:38:44

学习电梯
.版本 2
.支持库 spec
.程序集窗口程序集1
.程序集变量开, 逻辑型
.程序集变量关, 逻辑型
.子程序 _按钮开门_被单击
关＝假
开＝真
.判断循环首 (开＝真)
.如果 (外形框左门.左边＝ -60)
      开＝假
.否则
      外形框左门.左边＝外形框左门.左边－ 1
      外形框右门.左边＝外形框右门.左边＋ 1
.如果结束
延迟 (10)
.判断循环尾 ()
图片框1.可视＝真
.子程序 _按钮关门_被单击
开＝假
关＝真
.判断循环首 (关＝真)
.如果 (外形框左门.左边＝ 0)
      关＝假
.否则
      外形框左门.左边＝外形框左门.左边＋ 1
      外形框右门.左边＝外形框右门.左边－ 1
.如果结束
延迟 (10)
.判断循环尾 ()
图片框1.可视＝假
.子程序 _按钮上_被单击
.判断开始 (外形框桥相.顶边＝按钮下.顶边)
子下 ()
.默认
子上 ()
.判断结束

.子程序子上
.局部变量上, 逻辑型
.判断开始 (外形框左门.左边 ≠ -60)
_按钮开门_被单击 ()
子上 ()
.默认
_按钮关门_被单击 ()
上＝真
禁止按钮真 ()
.判断循环首 (上＝真)
      .判断开始 (外形框桥相.顶边＝按钮下.顶边)
         _按钮开门_被单击 ()
         禁止按钮假 ()
         上＝假
      .默认
         外形框桥相.顶边＝外形框桥相.顶边－ 1
      .判断结束
      延迟 (10)
.判断循环尾 ()
.判断结束

.子程序 _按钮下_被单击
.判断开始 (外形框桥相.顶边＝按钮上.顶边)
子上 ()
.默认
子下 ()
.判断结束

.子程序子下
.局部变量下, 逻辑型
.判断开始 (外形框左门.左边＝ 0)
_按钮开门_被单击 ()
子下 ()
.默认
_按钮关门_被单击 ()
下＝真
禁止按钮真 ()
.判断循环首 (下＝真)
      .判断开始 (外形框桥相.顶边＝按钮上.顶边)
         _按钮开门_被单击 ()
         禁止按钮假 ()
         下＝假
      .默认
         外形框桥相.顶边＝外形框桥相.顶边＋ 1
      .判断结束
      延迟 (10)
.判断循环尾 ()
.判断结束

.子程序禁止按钮真
按钮开门.禁止＝真
按钮关门.禁止＝真
按钮下.禁止＝真
按钮上.禁止＝真
.子程序禁止按钮假
按钮开门.禁止＝假
按钮关门.禁止＝假
按钮下.禁止＝假
按钮上.禁止＝假

电梯程序.zip (12.82 KB, 下载次数: 33)