向老师求助

102793

我求教的是两个问题，一是如何写停顿8秒钟。二最重要的是如何能让程序识别出，当第二遍从头刷时，如何能跳过指令停顿的这两行，直接刷下面的代码。 GLOBALVARIABLE:AA=0;

      if   close010>ff   then   goto skipa@;
            
      if  AA=0 then  AA:=CURRENTTIME;
   
      if   close010<ff   then  TIMETOT0(CURRENTTIME)-TIMETOT0(AA)>=5;  
      
      exit;
      
skipa@;
            

技术009

你这个条件可能这个K开始时候是满足的，中间突然不满足了。然后又满足了，然后又不满足了。每次不满足都停止执行代码？

我也不想复制粘贴，但是不这样，你似乎根本不在乎我存疑的地方。。。

技术009

[PEL] 复制代码

GLOBALVARIABLE:AA:=0;
close010:ma(c,10)+MINDIFF;
ff:ma(c,15);


if   (close010>ff and  (aa=0  or (CURRENTTIME-aa>5 and aa<>0)))  and ISLASTBAR  then   //如果满足这个条件并且  当前不在暂停的时间内，直接跳转
begin 
goto skipa@; 
end 
if   close010<ff and (aa=0  or (CURRENTTIME-aa>5 and aa<>0)) then //在暂停时间内 不重复给AA赋值
begin 
AA:=CURRENTTIME;  
MSGOUT(ISLASTBAR,'开始暂停');            
end 
   
if CURRENTTIME-aa<=5 then  
begin 
MSGOUT(ISLASTBAR,'暂停中');
exit;
end 
skipa@;

只要满足了条件就“暂停”，这个暂停并不是能将程序卡在这里不允许，仅仅是运行到这里就返回直到时间够5秒为止。

102793

请问老师，像MSGOUT(ISLASTBAR,'开始暂停'); 和MSGOUT(ISLASTBAR,'暂停中');这样的代码是否可以不用写入公式里？另外是否可以不用TIMETOT0(CURRENTTIME)？

技术009

1. 那个是我调试时候使用的。你可以先用这段代码做测试，确定逻辑满足你需求后 再删除调试语句。
2.不需要再对时间做其他转换的。那个CURRENTTIME 它不是K线时间，直接做差值就是秒数的差值。

102793

非常感谢您的再三指导！！不厌其烦，由衷的感谢！

102793

老师，还有一个疑问，就是每一次不到5秒就会返回，但下次aa又重新置0，会不会  currenttime-aa  就总是不到5秒，就会不会不停的反回。