« 為替ロボットの作り方(FXCM用)　設定の確認 | メイン | 為替ロボットの作り方(FXCM用)　出来上がり »

為替ロボットの作り方(FXCM用)　仕上げ

　[プログラム最終版]
最後に、
シグナル発生時にSBFXがオーダーを（メールに見せかけて）書き出すよう、コードに追加します。

MAPreGCDCを以下のように書き換えます(最終バージョン)
(売買ルールは、

• GC前になったら買い、DC前は売り
• 短期移動平均の傾きが反転したらポジションを閉じる
• ストップロスは150pips
  

)
/*[[ Name := MAPreGCDC Author := kawarobo Lots := 1.00 Stop Loss := 150 Take Profit := 0 Trailing Stop := 0 ]]*/ defines: MaLongPeriod(21),MaShortPeriod(5); vars: MaLongCurrent(0),MaLongPrevious(0); vars: MaShortCurrent(0),MaShortPrevious(0); vars: Current(0),Previous(0); vars: Trades(0),TradeType(0),PositionNum(0); vars: cnt(0),openbar(0); if openbar==bars then Exit; MaLongCurrent=iMA(MaLongPeriod,MODE_SMA,1); MaLongPrevious=iMA(MaLongPeriod,MODE_SMA,2); MaShortCurrent=iMA(MaShortPeriod,MODE_SMA,1); MaShortPrevious=iMA(MaShortPeriod,MODE_SMA,2); Current=close[1]; Previous=close[2]; /* print("symbol=",symbol); print("time=",TimeToStr(time[0])); print("Current=",Current,"Previous=",Previous); print("MaLongCurrent=",MaLongCurrent,"MaLongPrevious=",MaLongPrevious); print("MaShortCurrent=",MaShortCurrent,"MaShortPrevious=",MaShortPrevious); */ Trades=0; if TotalTrades>0 then{ for cnt=1 to TotalTrades { if OrderValue(cnt,VAL_SYMBOL)==Symbol then { Trades++; //Trades=Trades+1; TradeType=OrderValue(cnt,VAL_TYPE); PositionNum=cnt; }; }; }; if Trades<1 then { if Previous< MaShortPrevious and MaShortPrevious < MaLongPrevious & MaShortCurrent < Current and MaShortCurrent < MaLongCurrent then { //BUY SetOrder(OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,0,Blue); if ! UserFunction("mailorder",OP_BUY,Lots,Ask-StopLoss*Point,0) then //*a print("buy order mail error") ; openbar=bars; Exit; }; if Previous> MaShortPrevious and MaShortPrevious > MaLongPrevious & MaShortCurrent > Current and MaShortCurrent > MaLongCurrent then { //SELL SetOrder(OP_SELL,Lots,Bid,3,Bid+StopLoss*Point,0,Red); if ! UserFunction("mailorder",OP_SELL,Lots,Bid+StopLoss*Point,0) then print("sell order mail error") ; openbar=bars; Exit; }; } // Trades >= 1 else{ if TradeType==OP_BUY and MaShortCurrent < MaShortPrevious then { //close CloseOrder(OrderValue(PositionNum,VAL_TICKET),OrderValue(PositionNum,VAL_LOTS),Bid,3,Violet); //*11 if ! UserFunction("mailorder",9,0,0,0) then print("close order mail error") ; Exit; }; if TradeType==OP_SELL and MaShortCurrent > MaShortPrevious then { CloseOrder(OrderValue(PositionNum,VAL_TICKET),OrderValue(PositionNum,VAL_LOTS),Ask,3,Violet); if ! UserFunction("mailorder",9,0,0,0) then print("close order mail error") ; Exit; }; }; //the end 　*a メールオーダー用のユーザーファンクションを呼び出します
　　 参考：UserFunction()


さらに一つ、mailorderというユーザーファンクションを追加します。

*ユーザーファンクションは、Expertプログラム中から呼び出すことのできる外部ファイルです。繰り返し行なう処理や、他のExpertプログラムでも使用したいものをユーザーファンクションにしておくと、あとから修正や拡張したい時に便利です。
今回は、BJDのメール保存フォルダにオーダーを書き出す処理をユーザーファンクションにしました。これは他のExpertプログラムからも呼び出して使うことができます。

MetaEditorの
File＞new　から、「User Function」を選びます。
Nameをmailorderと入力して、OK。
新規ウィンドウが表示されます。

以下のコードを記入して、*3のfilenameとpassの部分を書き換えます。
　filenemaはBJDで設定したメールのアカウント名(.csv付き)
　passはHOで設定した、オーダー用のパスワードです。
　例：アカウント名kawarobo.csv、パスワードorderpassの場合、
　　vars: filename("kawarobo.csv"),pass("orderpass");
/*[[ Name := mailorder Author := kawarobo Notes := Input your filename and pass into filename("") and pass(""). Notes := Notes := filename=output file name without ".csv" Notes := pass = HyperOrder password to process email commands Notes := Notes := usage: Notes := UserFunction(mailorder,command,lot,stoploss,takeprofit); Notes := Notes := command=OP_BUY,OP_SELL,9(CLOSE) Notes := lot,stoploss,takeprofit= if not need, input 0 ]]*/ inputs: command(0),lot(0),sl(0),tp(0);//*1 vars: fh(0),mailtext(""),lotmultiple(100);//*2 vars: mail_symbol(""),mail_cuurency(""),mail_cmnd(""); vars: filename("kawarobo.csv"),pass("orderpass");//*3 Switch Symbol //*4 { Case "USDCHF": mail_symbol="USD/CHF"; mail_cuurency="USD"; Case "GBPUSD": mail_symbol="GBP/USD"; mail_cuurency="GBP"; Case "USDJPY": mail_symbol="USD/JPY"; mail_cuurency="USD"; Case "EURUSD": mail_symbol="EUR/USD"; mail_cuurency="EUR"; Default: Return(False); Exit; }; Switch command { Case 9: mailtext="$HOCOMMAND$,"+pass+",CP,"+mail_symbol+",Forex,Cash,,,,"+mail_cuurency+",,,,"; break; Case OP_BUY: mail_cmnd="BM"; lot *=lotmultiple; //lot=lot*10; mailtext="$HOCOMMAND$,"+pass+","+mail_cmnd+","+mail_symbol+",Forex,Cash,,,,"+mail_cuurency+","+lot+","+tp+","+sl; break; Case OP_SELL: mail_cmnd="SM"; lot *=lotmultiple; //lot=lot*10; mailtext="$HOCOMMAND$,"+pass+","+mail_cmnd+","+mail_symbol+",Forex,Cash,,,,"+mail_cuurency+","+lot+","+tp+","+sl; break; Default: Return(False); Exit; }; fh=FileOpen(filename,";");//*5 FileSeek(fh,0,SEEK_END);//*6 FileWrite(fh,"From "+filename+"@localhost "+filename +"@localhost Mon Jun 27 17:22:04 2005"); FileWrite(fh,""); FileWrite(fh,mailtext); FileClose(fh); return(True);//*7
あとは、Verifyボタンで保存、コンパイルして出来上がりです。
（ファイル名はmailorder.mql）

　*1 inputsでファンクションの引数を宣言。宣言した順に、UserFunction()からの引数が渡される。参考：UserFunction()
　*2 lotmultipleはロット数の単位を調整するための変数。一万通貨はSBFX上では0.1なのに対し、FXCMでは10なので、100倍する。
　*3 アカウント名,オーダー用パスワード。環境に合わせて書き換えが必要
　*4 SwitchでSymbolごとに処理を振り分ける。SBFXではEURUSDのような記述であるのに対し、HOではEUR/USDのように間に「/」が必要。
　*5 ここから、ファイルの読み書き。FileOpen()でcsvファイルを開く。";"は列の区切り文字。今回は「列」を使用しないので関係ない。FileWrite()で一行ずつ書き込み、FileClose()でファイルを閉じる。
　*6 ファイルの最後に読み書きポイントを移動。他の通貨との同時運用の場合を考慮して、オーダーを上書きではなく追記するため。

---

« 為替ロボットの作り方(FXCM用)　設定の確認 | メイン | 為替ロボットの作り方(FXCM用)　出来上がり »

トラックバック

このエントリーのトラックバックURL:
http://kawarobo.com/motp/mt-tb.cgi/298

コメント

コメントしてください

名前:

メールアドレス:

URL:
保存しますか? はいいいえ

コメント: