标题：后台程序化问题

1楼

drliang680 发表于：2016/3/10 21:41:38

你好！

刚从图表程序化转向后台程序化，照着金字塔示范程序，试着编了一个简单的后台程序，放入后台，监控窗口没反应，请老师帮忙看看。

ZH1:='XXXXXX';

PZ1:='I05';

PZ2:='RU05';

PZ3:='RB05';

PZ4:='CF09';

PZ5:='C09';

PZ6:='NI05';

VARIABLE:=0;

//条件判断

KD:=XXX;

PD:=XXX;

KK:=XXX;

PK:=XXX;

//开仓和平仓

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ1 );

TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ1);

TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ1 );

TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ1 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ2 );

TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ2);

TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ2 );

TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ2 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ3 );

TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ3);

TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ3 );

TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ3 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ4 );

TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ4);

TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ4 );

TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ4 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ5);

TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ5);

TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ5 );

TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ5 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ6 );

TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ6);

TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ6 );

TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ6 );

这样同事交易6个品种的简单程序，是否写的对？

谢谢！

2楼

wenarm 发表于：2016/3/10 22:33:39

你上面的代码整体就是这个结构

ZH1:='5';

PZ1:='ag00';

VARIABLE:=0;//这个位置是想声明全局变量，还是定义普通变量？全局变量定义格式VARIABLE:X=1；普通变量定义，能和系统的关键字重名VARIABLE1:=0

KD:=1;

TBUY(kd ,1,LMT,CLOSE,0,ZH1,PZ1 );

语法上没有错误。使用debug函数调试输出看下你的条件是否成立。

红色部分是用的大括号，代表注释，这个不需要直接删除，影响代码阅读。

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ1 );

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