Question

易语言中怎么利用按钮开关时钟，单击一下开启时钟，再单击一下就关闭时钟？？帮帮忙！！

.版本 2

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

.如果 (时钟2.时钟周期 ≠ 0)

时钟2.时钟周期 ＝ 0
.如果真 (按钮4.标题 ＝ “恢复所有植物”)

读内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), )

按钮4.标题 ＝ “增强所有植物”
.如果真结束

.否则
时钟2.时钟周期 ＝ 500
.如果结束

.如果真 (按钮4.标题 ＝ “增强所有植物”)
.计次循环首 (100, Z)

写内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), 0)

.计次循环尾 ()
按钮4.标题 ＝ “恢复所有植物”
返回 ()
.如果真结束

你看看这代码错在哪？？谢谢了！

Answer 1

如果真 (按钮4.标题 ＝ “增强所有植物”)
.计次循环首 (100, Z)

写内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), 0)

.计次循环尾 ()
按钮4.标题 ＝ “恢复所有植物”'
返回 ()
.如果真结束

这段代码要加到时钟1的周期事件里，并且不要用计次循环。

追问

怎么改，你能写出来吗？谢谢了！！

追答

.版本 2

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

.如果 (按钮4.标题 ＝ “恢复所有植物”)
读内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), )
按钮4.标题 ＝ “增强所有植物”
.计次循环首 (100, Z)

写内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), 0)

.计次循环尾 ()
按钮4.标题 ＝ “恢复所有植物”

.否则

.如果结束
返回 ()

这段代码用不到时钟这个控件，这样改就行了。

追问

我想用时钟来监控这段代码，那用该怎么写？
谢谢你！！
我的意思是也就是_按钮4_被单击后就执行写内存而且是不断执行
再单击一下就停止执行！！

追答

.版本 2

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

.如果 (时钟2.时钟周期 ≠ 0)
时钟2.时钟周期 = 500
.否则
时钟2.时钟周期=0
.如果结束

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

.如果真 (按钮4.标题 ＝ “恢复所有植物”)
读内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), )
按钮4.标题 ＝ “增强所有植物”
.如果真结束

.如果真 (按钮4.标题 ＝ “增强所有植物”)
.计次循环首 (100, Z)

写内存整数型 (游戏进程ID, 增强食人花一 ＋ 十六到十 (“54”) ＋ 十六到十 (“a6”) × (Z － 1), 0)

.计次循环尾 ()
按钮4.标题 ＝ “恢复所有植物”

.如果真结束

这样应该就可以了

追问

不行啊！！

追答

本来使用计次循环就不怎么兼容时钟控件，所以想用时钟控制很难……并且易语言本身有缺陷，有些命令无法完全执行，比如循环等。

Answer 2

如果（时钟1.时钟周期=0）
时钟1.时钟周期=1000
时钟1.时钟周期=0 备注：这里是否则