共通関数

void  Alert(
argument,     // 初めの値
  …          // 他の値
);

ENUM_POINTER_TYPE  CheckPointer(
object* anyobject      // オブジェクトポインタ
);

//+——————————————————————+
//| 要素の削除によってリストを削除する                                         |
//+——————————————————————+
void CMyList::Destroy()
{
//— ループの中で作業するためのサービスポインタ
CItem* item;
//— ループを通過し、動的なポインタの削除を試みる
while(CheckPointer(m_items)!=POINTER_INVALID)
{
item=m_items;
m_items=m_items.Next();
if(CheckPointer(item)==POINTER_DYNAMIC)
{
Print(“Dynamic object “,item.Identifier(),” to be deleted”);
delete (item);
}
else Print(“Non-dynamic object “,item.Identifier(),” cannot be deleted”);
}
//—
}

void  Comment(
argument,     // 初めの値
  …          // 次の値
);

void OnTick()
{
//—
double Ask,Bid;
int Spread;
Ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);
Bid=SymbolInfoDouble(Symbol(),SYMBOL_BID);
Spread=SymbolInfoInteger(Symbol(),SYMBOL_SPREAD);
//— 値を 3 行に出力する
Comment(StringFormat(“Show prices\nAsk = %G\nBid = %G\nSpread = %d”,Ask,Bid,Spread));
}

int  CryptEncode(
ENUM_CRYPT_METHOD   method,        // 方法
const uchar&        data[],        // ソース配列
const uchar&        key[],        // キー
uchar&              result[]       // ターゲットの配列
);

//+——————————————————————+
//| ArrayToHex                                                       |
//+——————————————————————+
string ArrayToHex(uchar &arr[],int count=-1)
{
string res=“”;
//— チェック
if(count<0 || count>ArraySize(arr))
count=ArraySize(arr);
//— 16 進文字列に変換する
for(int i=0; i<count; i++)
res+=StringFormat(“%.2X”,arr[i]);
//—
return(res);
}
//+——————————————————————+
//| スクリプトプログラムを開始する関数                                          |
//+——————————————————————+
void OnStart()
{
string text=“The quick brown fox jumps over the lazy dog”;
string keystr=“ABCDEFG”;
uchar src[],dst[],key[];
//— キーを準備する
StringToCharArray(keystr,key);
//— テキストを元の配列 src[] に複製する
StringToCharArray(text,src);
//— 初期データをプリントする
PrintFormat(“Initial data: size=%d, string=’%s'”,ArraySize(src),CharArrayToString(src));
//— src[] を key[] のDES 56-ビットキーを使用して暗号化する
int res=CryptEncode(CRYPT_DES,src,key,dst);
//— エラーをチェックする
if(res>0)
{
//— 暗号化されたデータをプリントする
PrintFormat(“Encoded data: size=%d %s”,res,ArrayToHex(dst));
//— dst[] を src[] にデコードする
res=CryptDecode(CRYPT_DES,dst,key,src);
//— エラーをチェックする   
if(res>0)
{
//— デコードされたデータをプリントする
PrintFormat(“Decoded data: size=%d, string=’%s'”,ArraySize(src),CharArrayToString(src));
}
else
Print(“Error in CryptDecode. Error code=”,GetLastError());
}
else
Print(“Error in CryptEncode. Error code=”,GetLastError());
}

int  CryptEncode(
ENUM_CRYPT_METHOD   method,        // 方法
const uchar&        data[],        // ソース配列
const uchar&        key[],        // キー
uchar&              result[]       // ターゲットの配列
);

void  DebugBreak();

void  ExpertRemove();

//+——————————————————————+
//|                                            Test_ExpertRemove.mq5 |
//|                        Copyright 2009, MetaQuotes Software Corp. |
//|                                             https://www.MQL5.com |
//+——————————————————————+
#property copyright “2009, MetaQuotes Software Corp.”
#property link     “https://www.mql5.com”
#property version   “1.00”
input int ticks_to_close=20;// EA アンロードまでのティック
//+——————————————————————+
//| エキスパート初期化解除に使用される関数                                    |
//+——————————————————————+
void OnDeinit(const int reason)
{
//—
Print(TimeCurrent(),“: “ ,__FUNCTION__,” reason code = “,reason);
//— コメントをクリアする
Comment(“”);
//—
}
//+——————————————————————+
//| エキスパートティック関数                                                 |
//+——————————————————————+
void OnTick()
{
static int tick_counter=0;
//—
tick_counter++;
Comment(“\nBefore unloading expert advisor “,__FILE__,” left”,
(ticks_to_close-tick_counter),” ticks”);
//— 前
if(tick_counter>=ticks_to_close)
{
ExpertRemove();
Print(TimeCurrent(),“: “,__FUNCTION__,” expert advisor will be unloaded”);
}
Print(“tick_counter =”,tick_counter);
//—
}
//+——————————————————————+

void*  GetPointer(
any_class anyobject      // 任意のクラスオブジェクト
);

//+——————————————————————+
//|                                             Check_GetPointer.mq5 |
//|                        Copyright 2009, MetaQuotes Software Corp. |
//|                                             https://www.MQL5.com |
//+——————————————————————+
#property copyright “2009, MetaQuotes Software Corp.”
#property link     “https://www.mql5.com”
#property version   “1.00”

//+——————————————————————+
//| リスト要素を実装するクラス                                               |
//+——————————————————————+
class CItem
{
int               m_id;
string            m_comment;
CItem*            m_next;
public:
CItem() { m_id=0; m_comment=NULL; m_next=NULL; }
~CItem() { Print(“Destructor of “,m_id,
(CheckPointer(GetPointer(this))==POINTER_DYNAMIC)?
“dynamic”:“non-dynamic”); }
void              Initialize(int id,string comm) { m_id=id; m_comment=comm; }
void              PrintMe() { Print(__FUNCTION__,“:”,m_id,m_comment); }
int               Identifier() { return(m_id); }
CItem*            Next() {return(m_next); }
void              Next(CItem *item) { m_next=item; }
};
//+——————————————————————+
//| リストの最も単純なクラス                                                 |
//+——————————————————————+
class CMyList
{
CItem*            m_items;
public:
CMyList() { m_items=NULL; }
~CMyList() { Destroy(); }
bool             InsertToBegin(CItem* item);
void             Destroy();
};
//+——————————————————————+
//| 先頭にリスト要素を挿入する                                              |
//+——————————————————————+
bool CMyList::InsertToBegin(CItem* item)
{
if(CheckPointer(item)==POINTER_INVALID) return(false);
//—
item.Next(m_items);
m_items=item;
//—
return(true);
}
//+——————————————————————+
//| 要素の削除によってリストを削除する                                         |
//+——————————————————————+
void CMyList::Destroy()
{
//— ループの中で作業するためのサービスポインタ
CItem* item;
//— ループを通過し、動的なポインタの削除を試みる
while(CheckPointer(m_items)!=POINTER_INVALID)
{
item=m_items;
m_items=m_items.Next();
if(CheckPointer(item)==POINTER_DYNAMIC)
{
Print(“Dynamyc object “,item.Identifier(),” to be deleted”);
delete (item);
}
else Print(“Non-dynamic object “,item.Identifier(),” cannot be deleted”);
}
//—
}
//+——————————————————————+
//| スクリプトプログラムを開始する関数                                          |
//+——————————————————————+
void OnStart()
{
CMyList list;
CItem   items[10];
CItem*  item;
//— 作成し、リスト動的オブジェクトのポインタに追加
item=new CItem;
if(item!=NULL)
{
item.Initialize(100,“dynamic”);
item.PrintMe();
list.InsertToBegin(item);
}
//— 自動ポインタをリストに追加する
for(int i=0; i<10; i++)
{
items[i].Initialize(i,“automatic”);
items[i].PrintMe();
item=GetPointer(items[i]);
if(CheckPointer(item)!=POINTER_INVALID)
list.InsertToBegin(item);
}
//— リスト先頭に動的なオブジェクトポインタをあと 1 つ追加する
item=new CItem;
if(item!=NULL)
{
item.Initialize(200,“dynamic”);
item.PrintMe();
list.InsertToBegin(item);
}
//— リスト要素を全て削除する
list.Destroy();
//— スクリプト終了後、全てのリスト要素が削除される
//— 端末内の「エキスパート」タブを参照する
}

uint  GetTickCount();

#define MAX_SIZE 40
//+——————————————————————+
//| 40フィボナッチ数の計算時間を測定するためのスクリプト　　　                    　    |
//+——————————————————————+
void OnStart()
{
//— 初期値を記録する
uint start=GetTickCount();
//— フィボナッチ数列の次の番号を取得するための変数
long fib=0;
//— フィボナッチ数列から番号の指定された量をループで計算する
for(int i=0;i<MAX_SIZE;i++) fib=TestFibo(i);
//— かかった時間をミリ秒単位で取得する
uint time=GetTickCount()-start;
//— メッセージをエキスパート操作ログへ出力する
PrintFormat(“Calculating %d first Fibonacci numbers took %d ms”,MAX_SIZE,time);
//— スクリプトが完了した
return;
}
//+——————————————————————+
//| フィボナッチ数をシリアル番号で取得するための関数                               |
//+——————————————————————+
long TestFibo(long n)
{
//— フィボナッチ数列の最初のメンバ
if(n<2) return(1);
//— 他の全てのメンバは、以下の式で計算される
return(TestFibo(n-2)+TestFibo(n-1));
}

ulong  GetMicrosecondCount();

//+——————————————————————+
//| テスト関数　                                                         |
//+——————————————————————+
void Test()
{
int    res_int=0;
double res_double=0;
//—  
for(int i=0;i<10000;i++)
{
res_int+=i*i;
res_int++;
res_double+=i*i;
res_double++;
}
}
//+——————————————————————+
//| スクリプトプログラムを開始する関数                                          |
//+——————————————————————+
void OnStart()
{
uint   ui=0,ui_max=0,ui_min=INT_MAX;
ulong  ul=0,ul_max=0,ul_min=INT_MAX;
//— 測定値の数
for(int count=0;count<1000;count++)
{
uint  ui_res=0;
ulong ul_res=0;
//—
for(int n=0;n<2;n++)
{
//— 測定の種類を選ぶ
if(n==0) ui=GetTickCount();
else     ul=GetMicrosecondCount();
//— コードを実行する
Test();
//— 測定結果を追加する（種類に応じて）
if(n==0) ui_res+=GetTickCount()-ui;
else     ul_res+=GetMicrosecondCount()-ul;
}
//— 測定値の最小時間と最大時間を計算する
if(ui_min>ui_res) ui_min=ui_res;
if(ui_max<ui_res) ui_max=ui_res;
if(ul_min>ul_res) ul_min=ul_res;
if(ul_max<ul_res) ul_max=ul_res;
}
//—
Print(“GetTickCount error(msec): “,ui_max-ui_min);
Print(“GetMicrosecondCount error(msec): “,DoubleToString((ul_max-ul_min)/1000.0,2));
}

int  MessageBox(
string  text,            // メッセージテキスト
string  caption=NULL,    // ボックスヘッダ
int    flags=0          // ボックスにボタンのセットを定義する
);

int  PeriodSeconds(
ENUM_TIMEFRAMES  period=PERIOD_CURRENT      // チャート期間
);

bool  PlaySound(
string  filename      // ファイル名
);

void  Print(
argument,     // 初めの値
  …          // 次の値
);

void OnStart()
{
//— DBL_MAX を Print() を使用して出力する。これは PrintFormat(%%.16G,DBL_MAX) と同等
Print(“—- how DBL_MAX looks like —–“);
Print(“Print(DBL_MAX)=”,DBL_MAX);
//— DBL_MAX 数を PrintFormat() を使用して出力する
PrintFormat(“PrintFormat(%%.16G,DBL_MAX)=%.16G”,DBL_MAX);
//— エキスパート操作ログへ出力する
// Print(DBL_MAX)=1.797693134862316e+308
// PrintFormat(%.16G,DBL_MAX)=1.797693134862316E+308
 
//— float の出力され方を参照する
float c=(float)M_PI; // 明示的にターゲット型にキャストする必要がある
Print(“c=”,c, ”    Pi=”,M_PI, ”    (float)M_PI=”,(float)M_PI);
// c=3.14159    Pi=3.141592653589793    (float)M_PI=3.14159

//— 実数型の算術演算で何が起こるかを表示する
double a=7,b=200;
Print(“—- Before arithmetic operations”);
Print(“a=”,a,”   b=”,b);
Print(“Print(DoubleToString(b,16))=”,DoubleToString(b,16));
//— a を b で割る( 7 / 200 )
a=a/b;
//— B変数にて値を復元するエミュレートをする
b=7.0/a; // b=7.0/(7.0/200.0)=>7.0/7.0*200.0=200 が期待されるが、異なる
//— b の新たに計算された値を出力する
Print(“—– After arithmetic operations”);
Print(“Print(b)=”,b);
Print(“Print(DoubleToString(b,16))=”,DoubleToString(b,16));
//— エキスパート操作ログへ出力する
// Print(b)=200.0
// Print(DoubleToString(b,16))=199.9999999999999716 (b はすでに 200.0 と等しくない)  
 
//— 常に小さな値を作成 epsilon=1E-013
double epsilon=1e-13;
Print(“—- Create a very small value”);
Print(“epsilon=”,epsilon); // epsilon=1E-013 を取得
//— b から epsilon を引き、値を再びエキスパート操作ログへ出力する
b=b-epsilon;
//— 2 つの方法を使用する
Print(“—- After subtracting epsilon from the b variable”);
Print(“Print(b)=”,b);
Print(“Print(DoubleToString(b,16))=”,DoubleToString(b,16));
//— エキスパート操作ログへ出力する
// Print(b)=199.9999999999999  （ epsilon を差し引いた後の b の値は 200 に丸めることが出来ない）
// Print(DoubleToString(b,16))=199.9999999999998578
//    （ epsilon を差し引いた後の b の値は 200 に丸めることが出来ない）
}

void  PrintFormat(
string format_string,   // フォーマットされる文字列
  …                    // 基本データ型の値
);

void OnStart()
{
//— 取引サーバ名
  string server=AccountInfoString(ACCOUNT_SERVER);
//— 口座番号
  int login=(int)AccountInfoInteger(ACCOUNT_LOGIN);
//— long 値の出力
  long leverage=AccountInfoInteger(ACCOUNT_LEVERAGE);
  PrintFormat(“%s %d: leverage = 1:%I64d”,
              server,login,leverage);
//— 口座通貨
  string currency=AccountInfoString(ACCOUNT_CURRENCY);
//— 小数点以下 2 桁の double 値の出力
  double equity=AccountInfoDouble(ACCOUNT_EQUITY);
  PrintFormat(“%s %d: account equity = %.2f %s”,
              server,login,equity,currency);
//— +/- 符号の出力を必須とした double 値の出力
  double profit=AccountInfoDouble(ACCOUNT_PROFIT);
  PrintFormat(“%s %d: current result for open positions = %+.2f %s”,
              server,login,profit,currency);
//— 小数点以下の桁数が可変の double 値の出力
  double point_value=SymbolInfoDouble(_Symbol,SYMBOL_POINT);
  string format_string=StringFormat(“%%s: point value  = %%.%df”,_Digits);
  PrintFormat(format_string,_Symbol,point_value);
//— 整数値の出力
  int spread=(int)SymbolInfoInteger(_Symbol,SYMBOL_SPREAD);
  PrintFormat(“%s: current spread in points = %d “,
              _Symbol,spread);
//— 小数点以下 17 桁の科学（浮動小数点）形式の double 値の出力
  PrintFormat(“DBL_MAX = %.17e”,DBL_MAX);
//— 小数点以下 17 桁の科学（浮動小数点）形式の double 値の出力
  PrintFormat(“EMPTY_VALUE = %.17e”,EMPTY_VALUE);
//— デフォルトの精度で PrintFormat() を使用して出力
  PrintFormat(“PrintFormat(EMPTY_VALUE) = %e”,EMPTY_VALUE);
//— Print() を使用した簡単な出力
  Print(“Print(EMPTY_VALUE) = “,EMPTY_VALUE);
/* execution result
  MetaQuotes-Demo 1889998: leverage = 1:100
  MetaQuotes-Demo 1889998: account equity = 22139.86 USD
  MetaQuotes-Demo 1889998: current result for open positions = +174.00 USD
  EURUSD: point value  = 0.00001
  EURUSD: current spread in points = 12
  DBL_MAX = 1.79769313486231570e+308
  EMPTY_VALUE = 1.79769313486231570e+308
  PrintFormat(EMPTY_VALUE) = 1.797693e+308
  Print(EMPTY_VALUE) = 1.797693134862316e+308
*/
}

void  ResetLastError();

bool  ResourceCreate(
const string      resource_name,       // リソース名
const string      path               // ファイルへの相対パス
);

bool  ResourceCreate(
const string      resource_name,      // リソース名
const uint&       data[],              // 配列としてのデータセット
uint             img_width,         // 画像リソースの幅
uint             img_height,         // 画像リソースの高さ
uint             data_xoffset,       // 画像の左上隅の水平右方向オフセット
uint             data_yoffset,       // 画像の左上隅の鉛直オフセット
uint             data_width,         // データセットに基づいた画像の全体の幅
ENUM_COLOR_FORMAT color_format         // 色処理方法
);

bool  ResourceFree(
const string  resource_name      // リソース名
);

bool  ResourceReadImage(
const string      resource_name,       // 読まれるグラフィックリソース名
uint&             data[],             // リソースからデータを受け取るための配列
uint&             width,             // リソースの画像幅を受け取る
uint&             height,             // リソースの画像の高さを受け取る
);

bool  ResourceSave(
const string  resource_name      // リソース名
const string  file_name          // ファイル名
);

void  SetReturnError(
int ret_code      // クライアント端末完了コード
);

void  SetUserError(
ushort user_error,   // エラー番号
);

void OnStart()
{
//— エラー番号 65537=(ERR_USER_ERROR_FIRST +1) を設定
SetUserError(1);
//— 最後のエラーコードを取得する
Print(“GetLastError = “,GetLastError());
/*
結果
GetLastError = 65537
*/
}

void  Sleep(
int  milliseconds      // 間隔
);

bool  TerminalClose(
int ret_code      // クライアント端末のコードを終了する
);

//— 入力パラメータ
input int  tiks_before=500; // 終了までのティック数
input int  pips_to_go=15;   // ピップス（為替差益）
input int  seconds_st=50;   // エキスパートアドバイザーに与えられた秒数
//— グローバル
datetime   launch_time;
int        tick_counter=0;
//+——————————————————————+
//| エキスパート初期化解除に使用される関数                                    |
//+——————————————————————+
void OnDeinit(const int reason)
{
//—
Print(__FUNCTION__,” reason code = “,reason);
Comment(“”);
}
//+——————————————————————+
//| エキスパートティック関数                                                 |
//+——————————————————————+
void OnTick()
{
static double first_bid=0.0;
MqlTick       tick;
double        distance;
//—
SymbolInfoTick(_Symbol,tick);
tick_counter++;
if(first_bid==0.0)
{
launch_time=tick.time;
first_bid=tick.bid;
Print(“first_bid =”,first_bid);
return;
}
//— 価格距離（ピップス単位）
distance=(tick.bid-first_bid)/_Point;
//— EA 動作を追跡するための通知を表示する
string comm=“From the moment of start:\r\n\x25CF elapsed seconds: “+
IntegerToString(tick.time-launch_time)+” ;”+
“\r\n\x25CF ticks received: “+(string)tick_counter+” ;”+
“\r\n\x25CF price went in points: “+StringFormat(“%G”,distance);
Comment(comm);
//— 端末を閉じる状態を確認するためのセクション
if(tick_counter>=tiks_before)
TerminalClose(0);   // ティックカウンタによる終了
if(distance>pips_to_go)
TerminalClose(1);   // pips_to_go に等しいピップスの数で上がる
if(distance<-pips_to_go)
TerminalClose(-1);   // pips_to_go に等しいピップスの数で下げる
if(tick.time-launch_time>seconds_st)
TerminalClose(100); // 時間切れによる終了
//—
}

void  TesterHideIndicators(
bool      hide     // フラグ
);

bool CSampleExpert::InitIndicators(void)
{
TesterHideIndicators(true);
//— MACD指標を作成する
if(m_handle_macd==INVALID_HANDLE)
if((m_handle_macd=iMACD(NULL,0,12,26,9,PRICE_CLOSE))==INVALID_HANDLE)
{
printf(“Error creating MACD indicator”);
return(false);
}
TesterHideIndicators(false);
//— EMA指標を作成してコレクションに追加する
if(m_handle_ema==INVALID_HANDLE)
if((m_handle_ema=iMA(NULL,0,InpMATrendPeriod,0,MODE_EMA,PRICE_CLOSE))==INVALID_HANDLE)
{
printf(“Error creating EMA indicator”);
return(false);
}
//— 成功した
return(true);
}

double  TesterStatistics(
ENUM_STATISTICS statistic_id      // ID
);

void  TesterStop();

bool  TesterDeposit(
double money      // 入金額
);

bool  TesterWithdrawal(
double money      // 出金の合計額
);

short  TranslateKey(
int  key_code      // Unicode文字を受け取るキーコ—ド
);

void OnChartEvent(const int id,const long& lparam,const double& dparam,const string& sparam)
{
if(id==CHARTEVENT_KEYDOWN)
{
short sym=TranslateKey((int)lparam);
//— 入力された文字が最上にUnicodeに変換された場合
if(sym>0)
Print(sym,“‘”,ShortToString(sym),“‘”);
else
Print(“Error in TranslateKey for key=”,lparam);
}
}

void  ZeroMemory(
void & variable      // 変数をリセットする
);