下單組件"掛價(jià)發(fā)出委托，3秒不成交的話撤單，以對(duì)價(jià)再發(fā)出委托" 源碼

作者：文華財(cái)經(jīng) 來(lái)源：cxh99.com 發(fā)布時(shí)間：2012年10月31日

下面這個(gè)下單組件，目的是實(shí)現(xiàn)“掛價(jià)發(fā)出委托，3秒不成交的話撤單，以對(duì)價(jià)再發(fā)出委托”，半年前我曾經(jīng)發(fā)過(guò)到論壇，經(jīng)過(guò)一個(gè)多星期的討論和更新，最后文華員工的答復(fù)是軟件存在BUG，沒(méi)法實(shí)現(xiàn)~

現(xiàn)在不知道能不能實(shí)現(xiàn)，上星期再次測(cè)試，結(jié)果是模型可以發(fā)出開(kāi)、平倉(cāng)信號(hào)，但是沒(méi)有發(fā)出任何具體委托。

因?yàn)?，我這個(gè)下單組件，估計(jì)80%用文華實(shí)盤的人都會(huì)用到，到時(shí)候正常使用的話可以寫到文華下單組件的示范里面供更多人使用~

源碼如下：

VAR Price,M,N;
VAR BKID,SKID,BPID,SPID,SPKID1,BPKID1,SPKID2,BPKID2;//定義BKID,SKID,BPID,SPID
VAR LastWithDrawFinsh;
VAR LastState;
VAR KNALL;//目標(biāo)總開(kāi)倉(cāng)數(shù)
VOID MAIN() //
{
//KPN設(shè)為按照模型信號(hào)
M=0;//發(fā)出信號(hào)時(shí)，0為掛價(jià)委托，1為對(duì)價(jià)委托，>=2為超價(jià)委托
N=1;//再委托的委托價(jià)參數(shù)，0為掛價(jià)委托，1為對(duì)價(jià)委托，>=2為超價(jià)委托
Price=Price(F_DealCode());//
BKID=ReadGlobalStr("BKID");
SKID=ReadGlobalStr("SKID");
BPID=ReadGlobalStr("BPID");
SPID=ReadGlobalStr("SPID");
BPKID1=ReadGlobalStr("BPKID1");
SPKID1=ReadGlobalStr("SPKID1");
BPKID2=ReadGlobalStr("BPKID2");
SPKID2=ReadGlobalStr("SPKID2");
KNALL=ReadGlobal("KNALL");
//下面是3秒沒(méi)有成交，撤單。
LastWithDrawFinsh=ReadGlobal("LASTWITHDRAW");
IF(T_IsNoOrder()!=1 ) //有掛單的情況
{
//查詢掛單然后進(jìn)行撤單
IF(CurrentTime()-LastOrderTime()==3 && LastWithDrawFinsh==1) //如果3秒有委托未成交，全撤，下次進(jìn)入會(huì)重新下委托
{
   IF(F_Sig()==BK) //如果取出的信號(hào)為BP
   {
    IF(T_IsNoOrder()==0)
    {
     MessageOut("BK撤單到了！");
     T_DeleteOrder(BKID);
     LastState=0;
    //
    }
   }
   IF(F_Sig()==SK) //如果取出的信號(hào)為SP
   {
    IF(T_IsNoOrder()==0)
    {
     MessageOut("SK撤單到了！");
     T_DeleteOrder(SKID);
     LastState=0;
    }
   }
   IF(F_Sig()==BP) //如果取出的信號(hào)為BP
   {
    IF(T_SellPosition(F_DealCode())>0&&T_IsNoOrder()==0)
    {
     MessageOut("BP撤單到了！");
     T_DeleteOrder(BPID);
     LastState=0;
    //
    }
   }
   IF(F_Sig()==SP) //如果取出的信號(hào)為SP
   {
    IF(T_BuyPosition(F_DealCode())>0&&T_IsNoOrder()==0)
    {
     MessageOut("SP撤單到了！");
     T_DeleteOrder(SPID);
     LastState=0;
    }
   }

   IF(F_Sig()==SPK) //如果取出的信號(hào)為SP
   {
    IF(T_IsNoOrder()==0)
    {
     MessageOut("SPK撤單到了！");
     T_DeleteOrder(SPKID1);
     T_DeleteOrder(SPKID2);
     LastState=0;
    }
   }
   IF(F_Sig()==BPK) //如果取出的信號(hào)為BP
   {
    IF(T_IsNoOrder()==0)
    {
     MessageOut("BPK撤單到了！");
     T_DeleteOrder(BPKID1);
     T_DeleteOrder(BPKID2);
     LastState=0;
    //
    }
   }

   LastWithDrawFinsh=0;
}
WriteGlobal("LASTWITHDRAW", LastWithDrawFinsh);
RETURN;
}
LastWithDrawFinsh=1;
IF(F_FreshSig()==1)//刷新現(xiàn)有的信號(hào)，有新信號(hào)
{
SEND();
}
ELSE IF(F_FreshSig()==0)//如果是處理過(guò)的信號(hào)
{
IF((T_OrderState(BKID)==2||T_OrderState(SKID)==2||T_OrderState(BPID)==2||T_OrderState(SPID)==2||T_OrderState(BPKID1)==2||T_OrderState(SPKID1)==2||T_OrderState(BPKID2)==2||T_OrderState(SPKID2)==2||T_OrderState(BKID)==3||T_OrderState(SKID)==3||T_OrderState(BPID)==3||T_OrderState(SPID)==3||T_OrderState(BPKID1)==3||T_OrderState(SPKID1)==3||T_OrderState(BPKID2)==3||T_OrderState(SPKID2)==3)&&LastState==0)//如果委托撤單
{
   RESEND();
   LastState=1;
}
}
WriteGlobalStr("BKID",BKID);
WriteGlobalStr("SKID",SKID);
WriteGlobalStr("BPID",BPID);
WriteGlobalStr("SPID",SPID);
WriteGlobalStr("BPKID1",BPKID1);
WriteGlobalStr("SPKID1",SPKID1);
WriteGlobalStr("BPKID2",BPKID2);
WriteGlobalStr("SPKID2",SPKID2);
WriteGlobal("LASTSTATE", LastState);
WriteGlobal("LASTWITHDRAW", LastWithDrawFinsh);
WriteGlobal("KNALL",KNALL);

}

VOID SEND()
{
IF(F_Sig()==BPK && F_SigValid()==1) //如果取出的信號(hào)為BPK 且信號(hào)不是消失狀態(tài)
{
  IF(F_SellPosition()!=0)
  {
   MessageOut("信號(hào)BPK生效，平掉所有賣倉(cāng)");
   BPKID1=T_ReduceSellOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*M,0); //平掉所有空頭持倉(cāng)
  }
  IF(F_BuyPosition()>=0)//
  {
   MessageOut("信號(hào)BPK生效，開(kāi)倉(cāng)");
                  KNALL=F_SigVol()+F_BuyPosition();
   BPKID2=T_AddBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*M,F_SigVol()+F_BuyPosition()); //補(bǔ)充持倉(cāng)

  }
}
IF(F_Sig()==SPK && F_SigValid()==1) //如果取出的信號(hào)為SPK 且信號(hào)不是消失狀態(tài)
{
  IF(F_BuyPosition()!=0)
  {
   SPKID1=T_ReduceBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*M,0); //平掉所有多頭持倉(cāng)
  }
  IF(F_SellPosition()>=0) //如果買倉(cāng)為0，不存在止贏止損問(wèn)題，直接開(kāi)倉(cāng)
  {
                  KNALL=F_SigVol()+F_SellPosition();
   SPKID2=T_AddSellOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*M,F_SigVol()+F_SellPosition()); //補(bǔ)充空頭持倉(cāng)
  }
}
IF(F_Sig()==BP && F_SigValid()==1) //如果取出的信號(hào)為BP 且信號(hào)不是消失狀態(tài)
{
  IF(F_SellPosition()!=0)
  {
   MessageOut("信號(hào)BP生效，平掉所有賣倉(cāng)");
   BPID=T_ReduceSellOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*M,0); //平掉所有空頭持倉(cāng)
  }
}

IF(F_Sig()==SP && F_SigValid()==1) //如果取出的信號(hào)為SP 且信號(hào)不是消失狀態(tài)
{
  IF(F_BuyPosition()!=0)
  {
   SPID=T_ReduceBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*M,0); //平掉所有多頭持倉(cāng)
  }
}

IF(F_Sig()==BK && F_SigValid()==1) //如果取出的信號(hào)為BK 且信號(hào)不是消失狀態(tài)
{

  IF(F_BuyPosition()>=0 && F_SellPosition()==0)//判斷是不是部分成交
  {
   MessageOut("信號(hào)BK生效，開(kāi)倉(cāng)");
                  KNALL=F_SigVol()+F_BuyPosition();
   BKID=T_AddBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*M,F_SigVol()+F_BuyPosition()); //
  }
}

IF(F_Sig()==SK && F_SigValid()==1) //如果取出的信號(hào)為SK 且信號(hào)不是消失狀態(tài)
{

  IF(F_SellPosition()>=0 && F_BuyPosition()==0) //如果買倉(cāng)為0，不存在止贏止損問(wèn)題，直接開(kāi)倉(cāng)
  {
                  KNALL=F_SigVol()+F_SellPosition();
   SKID=T_AddSellOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*M,F_SigVol()+F_SellPosition()); //
  }
}
}

VOID RESEND()
{
IF(F_Sig()==BPK && F_SigValid()==1) //如果取出的信號(hào)為BPK 且信號(hào)不是消失狀態(tài)
{
  IF(F_SellPosition()!=0)
  {
   MessageOut("信號(hào)BPK生效，平掉所有賣倉(cāng)");
   BPKID1=T_ReduceSellOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*N,0); //平掉所有空頭持倉(cāng)
  }
  IF(F_BuyPosition()<=KNALL)//判斷是不是部分成交
  {
   MessageOut("信號(hào)BPK生效，開(kāi)倉(cāng)");
   BPKID2=T_AddBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*N,KNALL); //補(bǔ)充持倉(cāng)
  }
}
IF(F_Sig()==SPK && F_SigValid()==1) //如果取出的信號(hào)為SPK 且信號(hào)不是消失狀態(tài)
{
  IF(F_BuyPosition()!=0)
  {
   SPKID1=T_ReduceBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*N,0); //平掉所有多頭持倉(cāng)
  }
  IF(F_SellPosition()<=KNALL) //如果買倉(cāng)為0，不存在止贏止損問(wèn)題，直接開(kāi)倉(cāng)
  {
   SPKID2=T_AddSellOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*N,KNALL); //補(bǔ)充空頭持倉(cāng)
  }
}
IF(F_Sig()==BP && F_SigValid()==1) //如果取出的信號(hào)為BP 且信號(hào)不是消失狀態(tài)
{
  IF(F_SellPosition()!=0)
  {
   MessageOut("信號(hào)BP生效，平掉所有賣倉(cāng)");
   BPID=T_ReduceSellOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*N,0); //平掉所有空頭持倉(cāng)
  }
}

IF(F_Sig()==SP && F_SigValid()==1) //如果取出的信號(hào)為SP 且信號(hào)不是消失狀態(tài)
{
  IF(F_BuyPosition()!=0)
  {
   SPID=T_ReduceBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*N,0); //平掉所有多頭持倉(cāng)
  }
}

IF(F_Sig()==BK && F_SigValid()==1) //如果取出的信號(hào)為BK 且信號(hào)不是消失狀態(tài)
{

  IF(F_BuyPosition()<=KNALL && F_SellPosition()==0)//判斷是不是部分成交
  {
   MessageOut("信號(hào)BK生效，開(kāi)倉(cāng)");
   BKID=T_AddBuyOpiTo(F_DealCode(), Offers(F_DealCode(),"bid1")+MinPrice(F_DealCode())*N,KNALL); //補(bǔ)多倉(cāng)
  }
}

IF(F_Sig()==SK && F_SigValid()==1) //如果取出的信號(hào)為SK 且信號(hào)不是消失狀態(tài)
{

  IF(F_SellPosition()<=KNALL && F_BuyPosition()==0) //如果買倉(cāng)為0，不存在止贏止損問(wèn)題，直接開(kāi)倉(cāng)
  {
   SKID=T_AddSellOpiTo(F_DealCode(), Offers(F_DealCode(),"ask1")-MinPrice(F_DealCode())*N,KNALL); //補(bǔ)空倉(cāng)
  }
}
}

下單組件"掛價(jià)發(fā)出委托，3秒不成交的話撤單，以對(duì)價(jià)再發(fā)出委托" 源碼

下單組件"掛價(jià)發(fā)出委托，3秒不成交的話撤單，以對(duì)價(jià)再發(fā)出委托" 源碼