易语言判断循环首怎么只用一次

segui

我写了个计时器精度到毫秒，我想程序到0秒后弹出一个信息框，但我写出来判断循环首信息框会弹出无数个···要怎么才让他只执行一次·前提时间周期要继续运行，谢谢各位大哥大姐了

wkfy

时钟周期要设置为0，在跳出循环的时候设置，不然会一直调用这个子程序

segui

wkfy 发表于 2020-9-1 10:05
时钟周期要设置为0，在跳出循环的时候设置，不然会一直调用这个子程序

设置了也不行

wkfy

完整代码贴出来看看。

segui

wkfy 发表于 2020-9-1 10:16
完整代码贴出来看看。

.版本 2

.程序集 窗口程序集1

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



.子程序 _时钟1_周期事件
.局部变量 t, SYSTEMTIME
.局部变量 年年, 文本型
.局部变量 月月, 文本型
.局部变量 日日, 文本型
.局部变量 时时, 文本型
.局部变量 分分, 文本型
.局部变量 秒秒, 文本型
.局部变量 毫毫, 文本型
.局部变量 n, 整数型


系统时间到毫秒 (t)
年年 ＝ 到文本 (t.wYear)

月月 ＝ 到文本 (t.wMonth)
.如果真 (到整数 (月月) ＜ 10)
    月月 ＝ “0” ＋ 月月
.如果真结束

日日 ＝ 到文本 (t.wDay)
.如果真 (到整数 (年年) ＜ 10)
    日日 ＝ “0” ＋ 日日
.如果真结束

时时 ＝ 到文本 (t.wHour)
.如果真 (到整数 (时时) ＜ 10)
    时时 ＝ “0” ＋ 时时
.如果真结束

分分 ＝ 到文本 (t.wMinute)
.如果真 (到整数 (分分) ＜ 10)
    分分 ＝ “0” ＋ 分分
.如果真结束

秒秒 ＝ 到文本 (t.wSecond)
.如果真 (到整数 (秒秒) ＜ 10)
    秒秒 ＝ “0” ＋ 秒秒
.如果真结束


毫毫 ＝ 到文本 (t.wMilliseconds)
.如果真 (到整数 (毫毫) ＜ 10)
    毫毫 ＝ “0” ＋ 毫毫
.如果真结束


.如果真 (到整数 (毫毫) ＞ 10 且 到整数 (毫毫) ＜ 100)
    毫毫 ＝ “0” ＋ 毫毫
.如果真结束



编辑框1.内容 ＝ 时时 ＋ “时” ＋ 分分 ＋ “分” ＋ 秒秒 ＋ “秒” ＋ 毫毫

.判断循环首 (到整数 (秒秒) ＝ 50)
    信息框 (“1”, 0, , )
    跳出循环 ()
.判断循环尾 ()

Light紫星

判断这一次和上一次的时间差值

b0y

你这样写是想每1分钟 弹一次信息框,如果已经弹出且没关闭就不弹了?  为题描述清楚一点

坑比

易语言有个单步跟踪，你跟着跑一遍就看出来哪错了

segui

b0y 发表于 2020-9-1 10:27
你这样写是想每1分钟 弹一次信息框,如果已经弹出且没关闭就不弹了?  为题描述清楚一点

就是想只执行一次 就是比如到10：10：00秒弹出提示 就可以了