Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:哪个VBA高手能不能帮我修改一个下单模式

1楼
haizxj 发表于:2015/1/5 15:09:04


RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
kd:=K>D and c>o ;//开多平空条件
pd:=c<o;

kk:=k<d and c<o;//开空平多条件
pk:=c>o;
if TISREMAIN(3)<>0   AND   kd then
BEGIN


tcancel(1,0),ORDERQUEUE;
END

if TISREMAIN(1)<>0   AND kk  then
BEGIN


tcancel(1,0),ORDERQUEUE;


END

if TISREMAIN(1)<>0   AND   pd  and tholding2<>0 and tholding=0 then
BEGIN


tcancel(1,0),ORDERQUEUE;
END

if TISREMAIN(3)<>0   AND pk  and tholding2<>0 and tholding=0  then
BEGIN


tcancel(1,0),ORDERQUEUE;


END

if PK then BEGIN
  tsellshort( tholding<0,0,lmt,DYNAINFO(28)),ORDERQUEUE;
END


if KD and TISREMAIN(0)=0 then BEGIN
  tbuy( tholding=0,1,lmt,c-30*MINDIFF),ORDERQUEUE;
END

IF  pd then begin
   tsell( tholding>0 ,0,lmt,DYNAINFO(34)),ORDERQUEUE;
   END
 
IF KK  and TISREMAIN(0)=0 then begin
   tbuyshort (tholding=0,1,lmt,c+30*MINDIFF),ORDERQUEUE;
end

2楼
王锋 发表于:2015/1/5 15:54:55
请问你具体需要的是什么?
3楼
haizxj 发表于:2015/1/5 17:12:03

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=73952

楼上

4楼
FexTel 发表于:2015/1/5 17:34:36

1,这个你要学习下vba的一些知识哦

OrderStatusEx2 用这个事件跟踪下报单ID的返回情况,就可以实现实际需求的下单队列,以及追撤单

5楼
jinkehoo 发表于:2015/1/5 22:34:00
order对象,那得用专业版啦,可我用的是标准版,有好的炮弹,也得有配套的大炮哦!
6楼
haizxj 发表于:2015/1/19 13:43:58
已经解决,谢谢
共6 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.03125 s, 2 queries.