TrimPipsプロトにpips表示削除で決済処理を追加する

hiroshi

4年前

TrimPipsプロトの一覧

ご訪問ありがとうございます。

ひろしです。

前回

TrimPipsプロトにブレークイーブンラインを追加する

TrimPipsプロトの一覧ご訪問ありがとうございます。ひろしです。前回こんなコメントを頂きました。ひろし：「えっ? ブレークイーブンライン?」私はブレークイーブンラインって知りませんでした。本家のセールスページを見ると。。 ...

こんなコメントを頂きました。

pips表示削除で決済。。。。

ラベルのイベントが取れることができれば
できそうです。

やることは2つ

ラベル削除のイベントを判別
削除されたラベルに該当するチケットNoをクローズ(決済)する

では、やってみましょう。

ラベル削除のイベントを判別

ラベル削除時には、OnChartEvent()で第1引数(id)が
「CHARTEVENT_OBJECT_DELETE」で
入ってきます。

なので

void OnChartEvent(const int id, const long & lparam, const double & dparam,
                  const string & sparam)
  {
   
   if(id == CHARTEVENT_OBJECT_DELETE)             // オブジェクトが削除された

void OnChartEvent(const int id, const long & lparam, const double & dparam,

const string & sparam)

{

if(id == CHARTEVENT_OBJECT_DELETE) // オブジェクトが削除された

これで、ラベルの削除が判別できます。

オーダーNoの取得

OnChartEvent()の第4引数(id)sparamは、”ProConx_オーダーNo” の
文字列が入ってきました。
なので、’_’をデリミタとして分割すればオーダーNoが取得できます。

        //オーダー番号を切り出す
         string sep_str[];
         StringSplit(sparam, '_', sep_str);
         //バッファの2個目にはオーダー番号
         int norderno = StrToInteger(sep_str[1]);

//オーダー番号を切り出す

string sep_str[];

StringSplit(sparam, '_', sep_str);

//バッファの2個目にはオーダー番号

int norderno = StrToInteger(sep_str[1]);

決済処理

あとは、取得したオーダーNoで
OrderSelect()してOrderClose()すればできあがりです。

         if(!OrderSelect(norderno, SELECT_BY_TICKET, MODE_TRADES))
           {
            Print("OrderSelect失敗 オーダーNo=", norderno);
            return;
           }
         if(!OrderClose(norderno, OrderLots(), OrderClosePrice(), 0))
           {
            Print("OrderClose失敗 オーダーNo=", norderno);
            return;
           }
        }

if(!OrderSelect(norderno, SELECT_BY_TICKET, MODE_TRADES))

{

Print("OrderSelect失敗オーダーNo=", norderno);

return;

}

if(!OrderClose(norderno, OrderLots(), OrderClosePrice(), 0))

{

Print("OrderClose失敗オーダーNo=", norderno);

return;

}

実は最初、ともさんからのコメントをよく読まず、
pipsのラベル削除時ではなく、ラベルのダブルクリック時に
クローズ(決済)処理を行おうとしていました。

OnChartEvent()では、ダブルクリックが取得できなくて、
ちょっと暗雲が立ち込めてきました。

でも、そこで再度コメントを読み、ラベルの削除時ということに
気づきました^^

最終形(コメントもそのまま)

void OnChartEvent(const int id, const long & lparam, const double & dparam,
                  const string & sparam)
  {
   AppWindow.ChartEvent(id, lparam, dparam, sparam);
   Event.OnEvent(id, lparam, dparam, sparam);   // --- コレだけ追加
   
   if(id == CHARTEVENT_OBJECT_DELETE)             // オブジェクトが削除された
     {
/*      
Print("id =", id);
      Print("sparam =", sparam);
      Print("lparam =", lparam);
      Print("dparam =", dparam);
      Print("sparam =", sparam);
      */
      if(StringFind(sparam, Str_dsppip) == 0)
        {
        
        //オーダー番号を切り出す
         string sep_str[];
         StringSplit(sparam, '_', sep_str);
         //バッファの2個目にはオーダー番号
         int norderno = StrToInteger(sep_str[1]);
         if(!OrderSelect(norderno, SELECT_BY_TICKET, MODE_TRADES))
           {
            Print("OrderSelect失敗 オーダーNo=", norderno);
            return;
           }
/*
         Print("norderno =", norderno);
         Print("OrderLots() =", OrderLots());
         Print("OrderClosePrice() =", OrderClosePrice());
         Print("OrderOpenPrice() =", OrderOpenPrice());
         */
         if(!OrderClose(norderno, OrderLots(), OrderClosePrice(), 0))
           {
            Print("OrderClose失敗 オーダーNo=", norderno);
            return;
           }
//            PlaySound("Ok.wav");
        }
     }
  }

void OnChartEvent(const int id, const long & lparam, const double & dparam,

const string & sparam)

{

AppWindow.ChartEvent(id, lparam, dparam, sparam);

Event.OnEvent(id, lparam, dparam, sparam); // --- コレだけ追加

if(id == CHARTEVENT_OBJECT_DELETE) // オブジェクトが削除された

{

Print("id =", id);

Print("sparam =", sparam);

Print("lparam =", lparam);

Print("dparam =", dparam);

Print("sparam =", sparam);

if(StringFind(sparam, Str_dsppip) == 0)

{

//オーダー番号を切り出す

string sep_str[];

StringSplit(sparam, '_', sep_str);

//バッファの2個目にはオーダー番号

int norderno = StrToInteger(sep_str[1]);

if(!OrderSelect(norderno, SELECT_BY_TICKET, MODE_TRADES))

{

Print("OrderSelect失敗オーダーNo=", norderno);

return;

}

Print("norderno =", norderno);

Print("OrderLots() =", OrderLots());

Print("OrderClosePrice() =", OrderClosePrice());

Print("OrderOpenPrice() =", OrderOpenPrice());

if(!OrderClose(norderno, OrderLots(), OrderClosePrice(), 0))

{

Print("OrderClose失敗オーダーNo=", norderno);

return;

}

// PlaySound("Ok.wav");

}

–2020/12/28追記–

PIPS削除で決済を行わない

しばらくブログを見ていなかったのですが
見るとこんなメッセージが

おー、確かに!

これは、よろしくないですね。

非選択状態は、調べないと行けないのと
個人的には、表示後すぐにドラッグしたいので
とりあえず、そのままに(ご要望があれば対応するかもしれません)

まず、フラグを追加(ファイル読み込み対応のため2箇所)

input bool input_DspSetting = false;   //この画面の設定で動作する

1	input bool input_DspSetting = false; //この画面の設定で動作する

bool DelClose = false; //Pips表示削除で決済する

1	bool DelClose = false; //Pips表示削除で決済する

あとは、イベント処理に一発判別処理を入れればできあがり!

void OnChartEvent(const int id, const long & lparam, const double & dparam,
                  const string & sparam)
  {
   AppWindow.ChartEvent(id, lparam, dparam, sparam);
   Event.OnEvent(id, lparam, dparam, sparam);   // --- コレだけ追加
   
   if((id == CHARTEVENT_OBJECT_DELETE)             // オブジェクトが削除された
   &&(DelClose))  //PIP表示削除で決済
     {

      if(StringFind(sparam, Str_dsppip) == 0)