等级: 免费版
- 注册:
- 2022-1-15
- 曾用名:
|

楼主 |
发表于 2022-9-16 14:19
|
显示全部楼层
上面的输出代码稍作修改如下:
GLOBALVARIABLE:yjtime3=0,yjtime4=0;
VARIABLE:csd=0,csg=0;
ilen:=STRLEN(NUMTOSTR(CURRENTTIME,0));
if ilen=5 then
m:=1;
else
m:=2;
nowhour:=strtonum( STRLEFT(NUMTOSTR(CURRENTTIME,0),m ) );
nowseconds:=strtonum( STRRIGHT(NUMTOSTR(CURRENTTIME,0),2) );
////////////////////////////////////
cond_scH:=c>ref(hhv(h,DH),1) and ISLASTBAR() and range(nowseconds,1,60);
cond_xcH:=c<ref(llv(l,KH),1) and ISLASTBAR() and range(nowseconds,1,60);
dhc:=ref(hhv(h,DH),1);
khc:=ref(llv(l,KH),1);
schour:nowhour<>yjtime3 and cond_scH;
if schour then
begin
//txet:=strcat(strcat(STRCAT(STKLABEL,strcat(strcat(NUMTOSTR(nowhour,0),' ,小时线新高, '),NUMTOSTR(yjtime3,0))),',' ),NUMTOSTR(dhh,2) ) ;
txet:=strcat(strcat(STRCAT(STRCAT(STRCAT(STRCAT(STKLABEL,'小时线新高,前高='),NUMTOSTR(dhc,2)),',现价='),NUMTOSTR(c,2)),','),NUMTOSTR(yjtime3,0));
msgout(1,strcat(strcat(STRCAT(STRCAT(STKLABEL,'小时线新高1,'),numtostr(csg,0) ),','),NUMTOSTR(yjtime3,0)) );
yjtime3:=nowhour;
csg:=nowhour;
//MSGOUT(1,txet );
msgout(1,strcat(strcat(STRCAT(STRCAT(STKLABEL,'小时线新高2,'),numtostr(csg,0) ),','),NUMTOSTR(yjtime3,0)) );
END
xchour:nowhour<>yjtime4 and cond_xcH;
if xchour then
begin
//txet:=strcat(strcat(STRCAT(STKLABEL,strcat(strcat(NUMTOSTR(nowhour,0),' ,小时线新低, '),NUMTOSTR(yjtime4,0))),',' ),NUMTOSTR(khh,2) ) ;
txet:=strcat(strcat(STRCAT(STRCAT(STRCAT(STRCAT(STKLABEL,'小时线新低,前低='),NUMTOSTR(khc,2)),',现价='),NUMTOSTR(c,2)),','),NUMTOSTR(yjtime4,0));
msgout(1,strcat(strcat(STRCAT(STRCAT(STKLABEL,'小时线新低1,'),numtostr(csd,0) ),','),NUMTOSTR(yjtime4,0)) );
yjtime4:=nowhour;
csd:=nowhour;
//MSGOUT(1,txet );
msgout(1,strcat(strcat(STRCAT(STRCAT(STKLABEL,'小时线新低2,'),numtostr(csd,0) ),','),NUMTOSTR(yjtime4,0)) );
END
|
|