逐筆觸發

正確程式在這  抱歉 ! 跑了3-5分鐘後數字開始重複

input : xtime(002700,"TIMESTART");

variable: x1(0), x2(0);

var : m1(0), M2(0);

var : intrabarpersist BarNo(0), T1(0), T2(0), Tdiff(0), starttime(0);

var : intrabarpersist xCount(0);

if time >= xTime and date >=currentdate then

begin

//******

if BarNo = 0 then 

begin

Starttime = currenttime;

T1 = timevalue(currenttime,"M");

end;

BarNo = BarNo + 1;

T2 = Timevalue(currenttime,"M");

tdiff = t2-t1;

Xcount = Xcount + 1;

if Tdiff > 0 then 

begin

BarNo = 0;

ret = 1;

end;

//print(file("D:\XQLOG\TIMETESTER.csv"),"Date= ,",date,",Timee=,",time,",CurrentTime=,",currentTime,",T1=",T1,",T2 =",T2,

// ",Tdiff=,",tdiff,",q_Last,",q_last,",close,",close,",getfield1,",getfield("close","1")[1],",getfield2,",getfield("close","3")[1] ,",Xcount,",Xcount);

print(file("D:\XQLOG\TIMETESTER.csv"),"Date= ,",date,",Timee=,",time,",CurrentTime=,",currentTime,",XCount=,",Xcount);

END;

//**********