大家来帮帮我检查程序BUG

admin5年前 (2021-08-02)易语言问答6164
代码部分:

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 = #D键)
    外形框1.左边 = 外形框1.左边 + 8
.如果真结束
.如果真 (键代码 = #A键)
    外形框1.左边 = 外形框1.左边 - 8
.如果真结束
.如果真 (键代码 = #W键)
    外形框1.顶边 = 外形框1.顶边 - 8
.如果真结束
.如果真 (键代码 = #右光标键)
    外形框2.左边 = 外形框2.左边 + 8
.如果真结束
.如果真 (键代码 = #左光标键)
    外形框2.左边 = 外形框2.左边 - 8
.如果真结束
.如果真 (键代码 = #上光标键)
    外形框2.顶边 = 外形框2.顶边 - 8
.如果真结束
.如果真 (键代码 = #空格键 且 外形框2.左边 < 外形框1.左边 + 68 且 外形框2.左边 > 外形框1.左边 - 68 且 外形框2.顶边 > 外形框1.顶边 - 68)
    进度条1.位置 = 进度条1.位置 - 1
.如果真结束
.如果真 (键代码 = #F键 且 外形框2.左边 < 外形框1.左边 + 68 且 外形框2.左边 > 外形框1.左边 - 68 且 外形框1.顶边 > 外形框2.顶边 - 68)
    进度条2.位置 = 进度条2.位置 - 1
.如果真结束


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

外形框1.顶边 = 外形框1.顶边 + 1
外形框2.顶边 = 外形框2.顶边 + 1

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

.如果真 (外形框1.顶边 < 72)
    外形框1.顶边 = 72
.如果真结束
.如果真 (外形框2.顶边 < 72)
    外形框2.顶边 = 72
.如果真结束
.如果真 (外形框2.顶边 > 264)
    外形框2.顶边 = 264
.如果真结束
.如果真 (外形框1.顶边 > 264)
    外形框1.顶边 = 264
.如果真结束
.如果真 (外形框1.左边 < 0)
    外形框1.左边 = 0
.如果真结束
.如果真 (外形框1.左边 > 602)
    外形框1.左边 = 600
.如果真结束
.如果真 (外形框2.左边 < 0)
    外形框2.左边 = 0
.如果真结束
.如果真 (外形框2.左边 > 602)
    外形框2.左边 = 600
.如果真结束
标签1.标题 = 到文本 (进度条1.位置)
标签2.标题 = 到文本 (进度条2.位置)
.如果真 (进度条1.位置 = 0)
    透明标签1.标题 = “蓝队胜利”
    信息框 (“蓝队胜利,是否重来一局?”, 4, “胜利提示”, )
    外形框1.左边 = 0 且 外形框1.顶边 = 264 且 外形框2.左边 = 602 且 外形框2.顶边 = 264 且 进度条1.位置 = 100 且 进度条2.位置 = 100 且 透明标签1.标题 = “” 且 透明标签2.标题 = “”

.如果真结束
.如果真 (进度条2.位置 = 0)
    透明标签2.标题 = “红队胜利”
    信息框 (“红队胜利,是否重来一局?”, 4, “胜利提示”, )
    外形框1.左边 = 0 且 外形框1.顶边 = 264 且 外形框2.左边 = 602 且 外形框2.顶边 = 264 且 进度条1.位置 = 100 且 进度条2.位置 = 100 且 透明标签1.标题 = “” 且 透明标签2.标题 = “”




.如果真结束
























出错部分:“.版本 2
.支持库 iext

.如果真 (进度条1.位置 = 0)
    透明标签1.标题 = “蓝队胜利”
    信息框 (“蓝队胜利,是否重来一局?”, 4, “胜利提示”, )
    外形框1.左边 = 0 且 外形框1.顶边 = 264 且 外形框2.左边 = 602 且 外形框2.顶边 = 264 且 进度条1.位置 = 100 且 进度条2.位置 = 100 且 透明标签1.标题 = “” 且 透明标签2.标题 = “”

.如果真结束
.如果真 (进度条2.位置 = 0)
    透明标签2.标题 = “红队胜利”
    信息框 (“红队胜利,是否重来一局?”, 4, “胜利提示”, )
    外形框1.左边 = 0 且 外形框1.顶边 = 264 且 外形框2.左边 = 602 且 外形框2.顶边 = 264 且 进度条1.位置 = 100 且 进度条2.位置 = 100 且 透明标签1.标题 = “” 且 透明标签2.标题 = “”




.如果真结束



”

求帮助啊啊啊