标题：赋值不对

1楼

germcn 发表于：2016/7/19 18:46:52

后台序列计算,轮询方式执行

VARIABLE:closeflagD=0;

if date<>ref(date,1) then begin
closeflagD:=0;
end

if tHOLDING=0 THEN BEGIN
tBUY(1,1,MKT);
closeflagD:=1;
END;

debugfile('c:\test.txt','开多信号 %.2f',closeflagD);

这段程序 ,执行开多后,closeflagD应该等于1

但我测试输出都为 0 老师,如有不对 ,怎么修改.

什么原因?老师帮着看看.

2楼

admin 发表于：2016/7/19 19:36:03

你并没有在你的tbuy下面使用debugfile记录日志，怎么就那么确定问题？

3楼

germcn 发表于：2016/7/19 19:38:21

if 内部也加了 debugfile 显示为 1

4楼

admin 发表于：2016/7/19 19:42:11

你的代码里没有，建议你加上，然后将你的代码和日志一起贴过俩

5楼

germcn 发表于：2016/7/19 19:44:23

if tHOLDING=0 THEN BEGIN
tBUY(1,1,MKT);
closeflagD:=1;

debugfile('c:\test.txt','开多信号 %.2f',closeflagD);
END

debugfile('c:\test.txt','Z开多信号 %.2f'',closeflagD);

显示为开多信号 1

Z开多信号 1

Z开多信号 0

6楼

admin 发表于：2016/7/19 19:47:37

看日志正常的，请有什么问题？

7楼

germcn 发表于：2016/7/19 19:50:57

我想要实现的是买多以后 closeflagD一直保持数值1 我要作为平仓标志

程序哪里写错了老师帮我看看

8楼

germcn 发表于：2016/7/19 19:56:09

后台序列计算,轮询方式执行

VARIABLE:closeflagD=0;

if date<>ref(date,1) then begin
closeflagD:=0;
end

if tHOLDING=0 THEN BEGIN
tBUY(1,1,MKT);
closeflagD:=1;

debugfile('c:\test.txt','开多信号 %.2f',closeflagD);
END

debugfile('c:\test.txt','开多信号 %.2f',closeflagD);

我需要整个程序中保持 closeflagD为1 作为平仓的一个标记之一

9楼

admin 发表于：2016/7/19 20:18:41

参考这里 http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=8615&page=270&star=1

10楼

germcn 发表于：2016/7/19 20:48:16

要用 globalvariable?

variable不是只赋值一次吗怎么还会每次给我 closeflagD 赋值为 0 呀

共11 条记录, 每页显示 10 条, 页签: [1] [2]