想做一个程序来向QQ报当前的账号资产情况
GLOBALVARIABLE:CS=0,TN=0,WR=0,OS=0,LWR=0;
CS:=TASSET;
当前资产:CS,noaxis,linethick0;
TN:=TTOTALDAYTRADE;
WR:=TPERCENTWIN;
LWR:=TNUMPROFIT(1);
当天交易次数:TN,noaxis,linethick0;
交易胜率:WR,noaxis,linethick0;
om:OPENMINUTES(time),linethick0;
OS:=ref(当前资产,om);
盘初资产:OS,noaxis,linethick0;
当天盈利:当前资产-盘初资产,noaxis,linethick0;
当次交易盈利:LWR,noaxis,linethick0;
th:=(当前资产=ref(当前资产,1));
if th then begin
extgbstringSet('QQSTR','当前资产:'+numtostr(当前资产,2) &', 平仓盈利:'+numtostr(当次交易盈利,2)&', 当天总交易盈利:'+numtostr(当天盈利,2)&', 交易次数:'&numtostr(当天交易次数,2)& ', 交易胜率: '&numtostr(交易胜率,2));
VQQM:=QQMSGX(1,close);
end
但那个盘初资产总是与当前资产一致,而且交易次数、胜率,当次交易盈利都始终是0,不知哪出了问题,是不是全局变量的用法还是不对?另外对QQMSGX(1,close)这个的意思有点不明白,
上面程序贴错了,以下面的为准,但还是会有上面的问题
GLOBALVARIABLE:CS=0,TN=0,WR=0,OS=0,LWR=0;
CS:=TASSET;
当前资产:CS,noaxis,linethick0;
TN:=TTOTALDAYTRADE;
WR:=TPERCENTWIN;
LWR:=TNUMPROFIT(1);
当天交易次数:TN,noaxis,linethick0;
交易胜率:WR,noaxis,linethick0;
om:OPENMINUTES(time),linethick0;
OS:=ref(当前资产,om);
盘初资产:OS,noaxis,linethick0;
当天盈利:当前资产-盘初资产,noaxis,linethick0;
当次交易盈利:LWR,noaxis,linethick0;
th:=not(当前资产=ref(当前资产,1));
if th then begin
extgbstringSet('QQSTR','当前资产:'+numtostr(当前资产,2) &', 平仓盈利:'+numtostr(当次交易盈利,2)&', 当天总交易盈利:'+numtostr(当天盈利,2)&', 交易次数:'&numtostr(当天交易次数,2)& ', 交易胜率: '&numtostr(交易胜率,2));
VQQM:=QQMSGX(1,close);
end
下单有另外的程序,这个只是集中处理信息,然后发往指定QQ