定时执行按钮操作

wyxyyy

菜鸡请教
程序是这个样子的，我想加一个定时的功能，每过1小时执行一次按钮或代码的操作啊

求代码


补充内容 (2021-5-14 14:58):
时间= 到整数 (编辑框1.内容)
时钟1.时钟周期 ＝ 时间*60*1000
但是不生效，不知道为啥

补充内容 (2021-5-14 14:59):
我想把定时的时间设置成可以控制的，在编辑框里设置应该怎么写。上面的我写的不生效

pwind

时钟周期是按毫秒为单位的
1000=1秒 1000*60 =一分钟 100*60*60 等于一小时
你可以这样
时钟1.时钟周期 = 到整数(编辑框1.内容) * 1000 这是样编辑框内容代表多少秒
时钟1.时钟周期 = 到整数(编辑框1.内容) * 1000 * 60 这是样编辑框内容代表多少分钟

jiexu003

使用“时钟周期”即可，周期是以毫秒为单位计算

pwind

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 60 × 60 × 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 60 × 60 × 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()

云少i

时钟1.时钟周期=3600000

七夜网

加个时钟，时钟周期设为：3600000（1小时的毫秒），然后双击时钟，写入代码：_按钮1_被单击()，完事。

飞羽软件

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
g	逻辑型

g ＝ 真
判断循环首 (g)
启动线程 (&要执行的代码, , )
程序_延时2 (1, 3)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
要执行的代码

信息框 (“这下面放要执行的代码”, 0, , )

子程序名	返回值类型	公开	备 注
程序_延时2	逻辑型		不占用cpu，窗口不卡死，不影响其它代码执行
参数名	类 型	参考	可空	数组	备 注
延时间隔	整数型				1000毫秒 = 1秒  留空为无限等待
延时单位	长整数型				默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时

变量名	类 型	静态	数组	备 注
局_时间句柄	整数型
局_时间	LARGE_INTEGER

判断 (延时单位 ＝ 0 且 是否为空 (延时间隔))
延时间隔 ＝ 5000 × 60 × 60
延时单位 ＝ 5000 × 60 × 60
判断 (延时单位 ＝ 0)
延时单位 ＝ 1
判断 (延时单位 ＝ 1)
延时单位 ＝ 1000
判断 (延时单位 ＝ 2)
延时单位 ＝ 1000 × 60
判断 (延时单位 ＝ 3)
延时单位 ＝ 1000 × 60 × 60


局_时间.QuadPart ＝ -10 × 延时间隔 × 1000 × 延时单位
局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)
判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)
处理事件 ()
判断循环尾 ()
CloseHandle (局_时间句柄)
返回 (真)

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 g, 逻辑型<br /> <br /> g ＝ 真<br /> <br /> .判断循环首 (g)<br /> <br />     启动线程 (&要执行的代码, , )<br /> <br />     程序_延时2 (1, 3)<br /> <br /> .判断循环尾 ()<br /> <br /> <br /> <br /> .子程序 要执行的代码<br /> <br /> 信息框 (“这下面放要执行的代码”, 0, , )<br /> <br /> .子程序 程序_延时2, 逻辑型, 公开, 不占用cpu，窗口不卡死，不影响其它代码执行<br /> .参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒  留空为无限等待<br /> .参数 延时单位, 长整数型, 可空, 默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时<br /> .局部变量 局_时间句柄, 整数型<br /> .局部变量 局_时间, LARGE_INTEGER<br /> <br /> .判断开始 (延时单位 ＝ 0 且 是否为空 (延时间隔))<br />     延时间隔 ＝ 5000 × 60 × 60<br />     延时单位 ＝ 5000 × 60 × 60<br /> .判断 (延时单位 ＝ 0)<br />     延时单位 ＝ 1<br /> .判断 (延时单位 ＝ 1)<br />     延时单位 ＝ 1000<br /> .判断 (延时单位 ＝ 2)<br />     延时单位 ＝ 1000 × 60<br /> .判断 (延时单位 ＝ 3)<br />     延时单位 ＝ 1000 × 60 × 60<br /> .默认<br /> <br /> .判断结束<br /> 局_时间.QuadPart ＝ -10 × 延时间隔 × 1000 × 延时单位<br /> 局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)<br /> SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)<br /> .判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> CloseHandle (局_时间句柄)<br /> 返回 (真)

小生小白

时钟周期设为3600000  OK

wyxyyy

小生小白 发表于 2021-5-14 14:08
时钟周期设为3600000  OK

如果我把定时的时间设置成可以控制的，在编辑框里设置应该怎么写

wyxyyy

pwind 发表于 2021-5-14 11:57
[e=1].版本 2

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

如果我把定时的时间设置成可以控制的，在编辑框里设置应该怎么写