[库] TimerL 定时器

RobertL · 02 Sep 2014, 06:47

以下为版本V1.1.3，首发于AHK8，持续关注本帖回复，但不一定同步更新（仅更新大版本）。

功能（特点）：
- 动态定时器：代码运行期间 可增、删、改。
- 任意数量并行（互不影响）定时器。
- 每个定时器可暂停、停止（复位）、启动。
- 两种引用定时器的方式：
  1. 由本库内维护的全局定时器，使用名称（值）访问。
  2. 使用变量访问。
    　当变量被覆盖时，定时器自动失效。定时器 生命周期同变量。
- 定时器执行部分可用标签或函数。
  标签、函数同名时，先使用标签。
- 同个标签、函数可绑定多个定时器，只需按以上的引用来使用。
- 支持一次性/单次定时器，使用负值时间表示（同SetTimer）。
待实现：
- 自动校准。
  当前多定时器时，会出现积累误差；且内部使用到A_TickCount做维护，亦有误差。
- 传递标识：如A_ThisTimer。
- 变量方式使支持（如，切换状态/清空时）回调。
- 还不算方便，怕没动力改了（或者改了懒得发了），但基本可用。
- 有任何自定义、建议，欢迎统一发到本贴汇总、交流。

示例、使用方法：

Spoiler

库代码：

TimerL.ahk
V2直接使用，V1需包含模拟的V2功能库函数（#include <F2V>）（F2V.ahk见后）

Spoiler

Code: Select all

;TimerL.ahk
;RobertL AHK8.com
;http://ahk8.com/thread-5384.html
;#include V2F.ahk	;当用V1运行时需包含此文件
class Timer{
	static lt:=0
	static q:=[]
	static s:=0
	static i:={}
	class T extends Timer{
		P(){
			_d:=this.d?this.d:this
			if(ObjHasKey(_d,"r"))
				throw Exception("仅可启动，不可再次暂停")
				_r:=0,_lt:=Timer.lt
			if(_lt>0)
				_lt:=A_TickCount-_lt
			_q:=Timer.q,_ta:=-_lt
			for _in,_to in _q{
				_ta+=_to.i
				if(_to=_d)
					break
			}
			_r:=_ta,_d.r:=_r,Timer.U(_d)
			return this
		}
		S(){
			_d:=this.d?this.d:this
			if !ObjHasKey(_d,"r") || (_d.r>0)
				Timer.U(_d)
			else if(_d.r=0)
				throw Exception("仅可启动，不可再次停止。")
			_d.r:=0
			return this
		}
		B(){
			_d:=this.d?this.d:this
			if(ObjHasKey(_d,"r")){	
				if(_d.r)
					_t:=_d.t,_d.t:=_d.r
				Timer.R(_d)
				if(_d.r)
					_d.t:=_t,_d.r:=0
				ObjRemove(_d,"r")
			}
			return this
		}
	}
	class o{
		__Set(_k,_v){
			return base[_k]:=_v
		}
		__Delete(){
			Timer.U(this.d)
		}
	}
	C(m:=0){
		if(m=0 && Timer.s)
			throw Exception("运行中，不应存在重复启动")
		_q:=Timer.q
		if(m=2 ^ !(ObjLength(_q)>=1))
			throw Exception("启动了定时器，但队列为空/关闭了定时器，但队列非空")
		if(m=2)
			goto Timer_C
	Timer_B:
			_at:=Abs(_q[1].i),Timer.s:=1,Timer.lt:=A_TickCount
			SetTimer,Timer_M,%_at%,-1
			return
	Timer_M:
			_q:=Timer.q,_d:=ObjRemoveAt(_q,1),_m:=_d.m,_h:=_d.h
			if(_m=1)
				gosub %_h%
			else
				%_h%()
			_t:=_d.t
			if(_t>0)
				Timer.R(_d)
			else if(ObjLength(_q)=0)
				goto Timer_C
			goto Timer_B
	Timer_C:
			SetTimer,Timer_M,Off
			Timer.s:=0,Timer.lt:=0
			return
	}
	New(ByRef _i:="",ByRef _h:="",_t:=0){
		if not (_t+0!="")
			throw Exception("无效的参数。`n需要数值")
		_m:=0
		if IsLabel(_h){
			_m:=1
		}else if IsFunc(_h){
			if IsObject(_h)
				_m:=2
			else
				_m:=3
		}else
			throw Exception("无效的参数。`n需要标签名/函数对象/函数名。")
		_d:={t:_t,m:_m,h:_h,i:0,base:Timer.T},Timer.R(_d)
		if IsByRef(_i){
			if (_i!="")
				throw Exception("传入变量非空。`n需要空变量存储实例。")
			_b:=ObjClone(Timer.o),_b.d:=_d,_b.base:=_d,_i:={base:_b},ObjRawSet(_i,"base",Timer.T)
			return _i
		}else{
			_o:=Timer.i[_i],Timer.i[_i]:=_d
			if(_o)
				Timer.U(_o)
			return _d
		}
	}
	R(_d){
		if(!IsObject(_d) || _d.base!=Timer.T)
			throw Exception("参数错误。")
		_t:=_d.t,_lt:=Timer.lt
		if(_lt>0)
			_lt:=A_TickCount-_lt
		else if (Timer.s!=0)
			throw Exception("非预期的状态。")
		_q:=Timer.q,_at:=Abs(_t),_ib:=_ia:=0,_tb:=0,_ta:=-_lt
		for _in,_to in _q{
			_ta+=_to.i
			if(_ta<_at){
				_tb:=_ta,_ib:=_in
				continue
			}else{
				_ia:=_in
				break
			}
		}
		if(_tb<0)
			_tb:=0
		_d.i:=_at-_tb
		if(_ia)
			_q[_ia].i-=_d.i
		_ii:=_ib+1
		ObjInsertAt(_q,_ii,_d)
		if(!Timer.s)
			Timer.C()
	}
	U(_d){
		_q:=Timer.q,_l:=ObjLength(_q),_i:=0
		Loop % _l{
			if (_q[A_Index]=_d){
				if(!_i)
					_i:=A_Index
				else
					throw Exception("意外的逻辑。`n多标识对应同一数据对象！")
			}
		}
		if(_i){
			ObjRemoveAt(_q,_i+0)
			if(ObjHasKey(_q,_i)){
				_q[_i].i+=_d.i
				if(_i=1)
					_q[_i].i-=A_TickCount-Timer.lt,Timer.lt:=0,Timer.C(1)
			}else if(_l=1)
				Timer.C(2)
		}else if not ObjHasKey(_d,"r")
			throw Exception("意外的逻辑。`n未找到数据对象！")
		return 
	}
}

模拟的V2功能库函数F2V.ahk（仅包含本定时器所需的函数）

Spoiler

[库] TimerL 定时器

[库] TimerL 定时器

Who is online