Alles um Metatrader 4.0 - Handelsmethoden und Indikatoren

      Was soll der Geiz, ich stell den Code mal hier rein, war eh nur ne Übung.

      Brainfuck-Quellcode

      1. //+------------------------------------------------------------------+
      2. //| _vikke @ www.candletalk.de Pips_Calculator.mq4 |
      3. //| |
      4. //+------------------------------------------------------------------+
      5. #property copyright "_vikke @ www.candletalk.de"
      6. #property indicator_chart_window
      8. extern int Balance = 10000;
      9. extern double Risk = 3.0;
      10. extern color Color1 = Aqua;
      11. extern color Color2 = Yellow;
      12. extern int Font_Size = 13;
      13. extern string Font = "Courier";
      15. string x_per_str[] = {" PIPS","EURUSD","EURJPY","EURGBP","USDCHF","USDCAD","GBPUSD","AUDUSD"};
      16. string pip_array[] = {" 12"," 15"," 20", " 25", " 30", " 35", " 40", " 45", " 50"};
      17. double pip_a[] = {12,15,20,25,30,35,40,45,50};
      18. //---------------------------------------------------------------------
      19. int init(){
      20. return(0);
      21. }
      22. //---------------------------------------------------------------------
      23. int deinit(){
      24. ObjectsDeleteAll(0, OBJ_LABEL);
      25. return(0);
      26. }
      27. //----------------------------------------------------------------------
      28. int start(){
      30. double maxriskeuro = Balance*Risk/100;
      32. double multi;
      33. double eurusd = iClose("EURUSD",0,0);
      34. double euraud = iClose("EURAUD",0,0);
      35. double eurcad = iClose("EURCAD",0,0);
      36. double eurgbp = iClose("EURGBP",0,0);
      37. if(Symbol() == "EURUSD")multi=1;
      38. if(Symbol() == "EURJPY")multi=1;
      39. if(Symbol() == "EURGBP")multi=1;
      40. if(Symbol() == "USDCHF")multi=eurusd;
      41. if(Symbol() == "AUDUSD")multi=euraud;
      42. if(Symbol() == "USDCAD")multi=eurusd;
      43. if(Symbol() == "GBPUSD")multi=eurgbp;
      46. int x,y;
      47. for(x=0;x<1;x++)
      48. for( y=0;y<9;y++)
      49. {
      50. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr((maxriskeuro/(10/(iClose("EURUSD",0,y))*pip_a[y]))*100,1), Font_Size, Font, Color1);
      51. }
      52. for(x=1;x<2;x++)
      53. for( y=0;y<9;y++)
      54. {
      55. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr((maxriskeuro/(10/(iClose("EURJPY",0,y))*pip_a[y]))*1,1), Font_Size, Font, Color1);
      56. }
      57. for(x=2;x<3;x++)
      58. for( y=0;y<9;y++)
      59. {
      60. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr((maxriskeuro/(10/(iClose("EURGBP",0,y))*pip_a[y]))*100,1), Font_Size, Font, Color1);
      61. }
      62. for(x=3;x<4;x++)
      63. for( y=0;y<9;y++)
      64. {
      65. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr(((maxriskeuro/(10/(iClose("USDCHF",0,y))*pip_a[y]))*100)*multi,1), Font_Size, Font, Color1);
      66. }
      67. for(x=4;x<5;x++)
      68. for( y=0;y<9;y++)
      69. {
      70. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr(((maxriskeuro/(10/(iClose("USDCAD",0,y))*pip_a[y]))*100)*multi,1), Font_Size, Font, Color1);
      71. }
      72. for(x=5;x<6;x++)
      73. for( y=0;y<9;y++)
      74. {
      75. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr(((maxriskeuro/(10/(iClose("GBPUSD",0,y))*pip_a[y]))*100)*multi,1), Font_Size, Font, Color1);
      76. }
      77. for(x=6;x<7;x++)
      78. for( y=0;y<9;y++)
      79. {
      80. create_obj("ss"+x+y, x*80+80, y*20+40, DoubleToStr(((maxriskeuro/(10/(iClose("AUDUSD",0,y))*pip_a[y]))*100)*multi,1), Font_Size, Font, Color1);
      81. }
      82. //------------------------------------
      83. for(y=0;y<9;y++)
      84. {
      85. create_obj("pip"+y, x, y*20+40, pip_array[y], Font_Size, Font, Color2);
      86. }
      87. for(x=0;x<8;x++)
      88. {
      89. create_obj("perString"+x, x*80, y+10, x_per_str[x], Font_Size, Font, Color2);
      90. }
      92. return(0);
      93. }
      94. //-------------------------------------------------------------------------------------------------------------------------------------
      95. void create_obj(string obj_name, int x_dist, int y_dist, string dbl_var, int font_size, string font, color color_)
      96. {
      97. ObjectCreate(obj_name,OBJ_LABEL,0,0,0,0,0);
      98. ObjectSet(obj_name,OBJPROP_XDISTANCE,x_dist);
      99. ObjectSet(obj_name,OBJPROP_YDISTANCE,y_dist);
      100. ObjectSetText(obj_name,dbl_var, font_size, font, color_);
      101. }

      Das Script wird einmal ausgeführt, es plottet eine horizontale Linie und stellt den Abstand vom Bid zu der Linie dar, auch wird der Preis der Horizontalen angezeigt. Die Linie kann man nach einem Doppelklick darauf verschieben, die Pips variieren dann natürlich. Das Script lässt sich somit gut für manuelle Sizebestimmung nutzen.
      Man könnte jetzt natürlich noch PosSize anhand prozentualer AccountSize mit einbauen, somit hätte man immer die passende Size parat.

      Wer 5 Digits haben will einfach bei folgenden Zeilen ersetzen:

      CreateText("Pips",Time[0],price,_textColor,DoubleToStr(MathAbs((Bid-price)/Point),0));
      CreateText2("Price",Time[0],price2,_textColor,DoubleToStr(MathAbs((Bid-price2)-Bid),5));

      Brainfuck-Quellcode

      1. // _vikke @ www.candletalk.de
      4. extern color _textColor=Lime;
      5. extern int _sleepTimeMS=50;
      7. bool _isRunning=false;
      8. string _fullName;
      9. string _objPips="Pips";
      10. string _objPrice="Price";
      13. int start()
      14. {
      16. ObjectDelete("x");
      17. ObjectCreate("x",OBJ_HLINE,0,0,Bid);
      18. ObjectSet("x",OBJPROP_BACK,true);
      19. ObjectSet("x",OBJPROP_COLOR,Red);
      20. //-------------------------------
      22. if(!_isRunning){
      23. Iterate();
      24. }
      25. DeleteLabels(_objPips);
      26. DeleteLabels(_objPrice);
      27. return (0);
      28. }
      31. void DoJob(){
      32. int obj_total=ObjectsTotal();
      33. string name;
      34. DeleteLabels(_objPips);
      35. DeleteLabels(_objPrice);
      36. for(int i=0;i<obj_total;i++)
      37. {
      38. name=ObjectName(i);
      39. if(ObjectType(name)==OBJ_HLINE){
      40. double price = ObjectGet(name, OBJPROP_PRICE1) ;
      41. double price2 = ObjectGet(name, OBJPROP_PRICE1) ;
      42. CreateText("Pips",Time[0],price,_textColor,DoubleToStr(MathAbs((Bid-price)/Point/10),0));
      43. CreateText2("Price",Time[0],price2,_textColor,DoubleToStr(MathAbs((Bid-price2)-Bid),4));
      44. }
      45. }
      46. }
      49. void Iterate() {
      50. _isRunning=true;
      51. while(!IsStopped())
      52. {
      53. RefreshRates();
      54. DoJob();
      55. Sleep(_sleepTimeMS);
      56. }
      57. }
      59. void CreateText(string name, datetime time1, double price,color boxcolor, string text){
      60. ObjectDelete(name);
      61. if(!ObjectCreate(name, OBJ_TEXT,0, time1, price))
      62. {
      63. Print("error: cant create OBJ_TEXT! code #",GetLastError());
      64. return(0);
      65. }
      66. ObjectSetText(name, text, 10, "Verdana", boxcolor);
      67. }
      68. void CreateText2(string name, datetime time1, double price,color boxcolor, string text){
      69. ObjectDelete(name);
      70. if(!ObjectCreate(name, OBJ_TEXT,0, time1, price))
      71. {
      72. Print("error: cant create OBJ_TEXT! code #",GetLastError());
      73. return(0);
      74. }
      75. ObjectSetText(name, " "+text, 10, "Verdana", boxcolor);
      76. }
      77. void DeleteLabels(string objPref){
      78. int obj_total=ObjectsTotal();
      79. string name;
      80. for(int i=0;i<obj_total;i++)
      81. {
      82. name=ObjectName(i);
      83. if(StringFind(name, objPref,0)>-1){
      84. ObjectDelete(name);
      85. i--;
      86. }
      87. }
      88. }
      89. //+------------------------------------------------------------------+
      Bilder

      • 2012-09-14_191550.png

        6,28 kB, 784×472, 234 mal angesehen

      @PT

      Das mit der Sicherheit von fremden DLLs macht mir auch sorgen, habe zwar Scanner drüberlaufen lassen, jedoch sagt das nichts aus, da auch einfach nur die Trades oder ähnliches versendet werden könnten.

      Wo Du nun schon recht erfahren bist in der Programmierung, könntest Du dieses Paket doch für ein paar Euro anbieten, ggf. auch über Introducing Broker, die alle irgendwas Schönes brauchen, um sich abzuheben, so ähnlich wie das TT mit seinem Once-Klick-Trader bei QTrade macht.


      Hier überschätzt du meine Fähigkeiten bei weitem, ich habe beide C Büchlein nur zur Hälfte gelesen, da ist noch viel was Faulheit mir vorenthält. Auch hätte ich gar keine Interesse am kommerziellen Programmieren, da ich ausschließlich handeln will, nur eben fehlen oft die passenden Tools.

      Trade_Buttons

      Hab mal ne kleine EA gemacht, die aber zur Zeit nur mit EURUSD und GBPUSD geht, da ich momentan für einzelnen Berechnungen keine Lust habe. Ob die Close_All korrekt läuft muss sich auch erst am Sonntagabend zeigen. Naja, die Trades gehen zumindest, viel Spaß;-)

      C-Quellcode

      1. //+------------------------------------------------------------------+
      2. //| TradeButtons |
      3. //| Copyright © 2012, _vikke |
      4. //| http://www.candletalk.de |
      5. //+------------------------------------------------------------------+
      6. #include <stdlib.mqh>
      7. #import "mt4gui.dll"
      8. string tbVersion();
      10. // objects "button","checkbox","list","label","text"
      11. int tbPutObject(int,string,int,int,int,int,string); // hwnd,type,x,y,w,h,label
      13. // colors
      14. int tbSetBgColor(int,int,int); // hwnd,object,bgcolor
      15. int tbSetTextColor(int,int,int); // hwnd,object,color
      17. // removing objects
      18. int tbRemove(int,int); // hwnd,handle
      19. int tbRemoveAll(int); // hwnd
      21. // events
      22. bool tbIsClicked( int,int ); // hwnd,object
      23. bool tbIsChecked(int,int); // hwnd,object
      24. // properties
      25. int tbSetText(int,int,string,int,string); // hwnd,object,text,fontsize,fontname
      26. string tbGetText(int,int); // hwnd,object
      27. int tbSetChecked(int,int,int); // hwnd,object,0|1
      28. int tbEnable(int,int,int); // hwnd, object, 0|1
      30. // listbox
      31. int tbAddListItem(int,int,string); // hwnd,object,item
      32. int tbGetListSel(int,int); // hwnd,object
      33. int tbSetListSel(int,int,int); // hwnd,object,index
      35. #import
      37. int L10_btn,L15_btn,L20_btn,L25_btn,L30_btn,L35_btn,L40_btn,S10_btn,S15_btn,S20_btn,S25_btn,S30_btn,S35_btn,S40_btn,Close_All_btn;
      38. int hwnd = 0;
      40. double Lots, TP, SL, acc_balance, max_risk;
      41. int ticket=0, ticket2=0, error=0, x=-110;
      43. //--------------------------------------------------------------------------------------------
      44. int init()
      45. {
      46. hwnd=WindowHandle(Symbol(),Period());
      48. tbRemoveAll(hwnd);
      50. Close_All_btn= tbPutObject(hwnd,"button",-205,134+x,160,50,"Close All");
      52. L10_btn= tbPutObject(hwnd,"button",-205,188+x,77,30,"10");
      53. S10_btn= tbPutObject(hwnd,"button",-123,188+x,77,30,"10");
      54. L15_btn= tbPutObject(hwnd,"button",-205,222+x,77,30,"15");
      55. S15_btn= tbPutObject(hwnd,"button",-123,222+x,77,30,"15");
      56. L20_btn= tbPutObject(hwnd,"button",-205,256+x,77,30,"20");
      57. S20_btn= tbPutObject(hwnd,"button",-123,256+x,77,30,"20");
      58. L25_btn= tbPutObject(hwnd,"button",-205,290+x,77,30,"25");
      59. S25_btn= tbPutObject(hwnd,"button",-123,290+x,77,30,"25");
      60. L30_btn= tbPutObject(hwnd,"button",-205,324+x,77,30,"30");
      61. S30_btn= tbPutObject(hwnd,"button",-123,324+x,77,30,"30");
      62. L35_btn= tbPutObject(hwnd,"button",-205,358+x,77,30,"35");
      63. S35_btn= tbPutObject(hwnd,"button",-123,358+x,77,30,"35");
      64. L40_btn= tbPutObject(hwnd,"button",-205,392+x,77,30,"40");
      65. S40_btn= tbPutObject(hwnd,"button",-123,392+x,77,30,"40");
      68. tbSetBgColor(hwnd,Close_All_btn,Silver); tbSetTextColor(hwnd,Close_All_btn,Black);
      70. tbSetBgColor(hwnd,L10_btn,Green); tbSetTextColor(hwnd,L10_btn,White);
      71. tbSetBgColor(hwnd,L15_btn,Green); tbSetTextColor(hwnd,L15_btn,White);
      72. tbSetBgColor(hwnd,L20_btn,Green); tbSetTextColor(hwnd,L20_btn,White);
      73. tbSetBgColor(hwnd,L25_btn,Green); tbSetTextColor(hwnd,L25_btn,White);
      74. tbSetBgColor(hwnd,L30_btn,Green); tbSetTextColor(hwnd,L30_btn,White);
      75. tbSetBgColor(hwnd,L35_btn,Green); tbSetTextColor(hwnd,L35_btn,White);
      76. tbSetBgColor(hwnd,L40_btn,Green); tbSetTextColor(hwnd,L40_btn,White);
      78. tbSetBgColor(hwnd,S10_btn,Red); tbSetTextColor(hwnd,S10_btn,White);
      79. tbSetBgColor(hwnd,S15_btn,Red); tbSetTextColor(hwnd,S15_btn,White);
      80. tbSetBgColor(hwnd,S20_btn,Red); tbSetTextColor(hwnd,S20_btn,White);
      81. tbSetBgColor(hwnd,S25_btn,Red); tbSetTextColor(hwnd,S25_btn,White);
      82. tbSetBgColor(hwnd,S30_btn,Red); tbSetTextColor(hwnd,S30_btn,White);
      83. tbSetBgColor(hwnd,S35_btn,Red); tbSetTextColor(hwnd,S35_btn,White);
      84. tbSetBgColor(hwnd,S40_btn,Red); tbSetTextColor(hwnd,S40_btn,White);
      88. return(0);
      89. }
      91. int deinit()
      92. {
      93. tbRemoveAll(WindowHandle(Symbol(),Period()));
      94. Print ("DEINIT COMPLETED");
      95. return(0);
      96. }
      98. int start()
      99. {
      100. int trade_modus, trade_side, trade_side2;
      101. int pips=0;
      102. if (tbIsClicked(hwnd,L10_btn)) {ticket =1; pips = 10; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      103. if (tbIsClicked(hwnd,L15_btn)) {ticket =1; pips = 15; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      104. if (tbIsClicked(hwnd,L20_btn)) {ticket =1; pips = 20; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      105. if (tbIsClicked(hwnd,L25_btn)) {ticket =1; pips = 25; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      106. if (tbIsClicked(hwnd,L30_btn)) {ticket =1; pips = 30; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      107. if (tbIsClicked(hwnd,L35_btn)) {ticket =1; pips = 35; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      108. if (tbIsClicked(hwnd,L40_btn)) {ticket =1; pips = 40; trade_modus=OP_BUY;trade_side=Ask;trade_side2=Bid;}
      109. if (tbIsClicked(hwnd,S10_btn)) {ticket =1; pips = 10; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      110. if (tbIsClicked(hwnd,S15_btn)) {ticket =1; pips = 15; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      111. if (tbIsClicked(hwnd,S20_btn)) {ticket =1; pips = 20; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      112. if (tbIsClicked(hwnd,S25_btn)) {ticket =1; pips = 25; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      113. if (tbIsClicked(hwnd,S30_btn)) {ticket =1; pips = 30; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      114. if (tbIsClicked(hwnd,S35_btn)) {ticket =1; pips = 35; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      115. if (tbIsClicked(hwnd,S40_btn)) {ticket =1; pips = 40; trade_modus=OP_SELL;trade_side=Bid;trade_side2=Ask;}
      118. acc_balance = AccountBalance();
      119. max_risk = 3;
      122. double Pipwert=10/Close[0];
      123. double Maxriskeuro =acc_balance*max_risk/1000;
      125. Lots = (Maxriskeuro/Pipwert/pips)*10;
      126. TP = 500;
      127. SL = (pips/10000);
      129. ticket=OrderSend(Symbol(),trade_modus,Lots,trade_side,5,0,0,0,0,0,CLR_NONE);
      130. if(ticket<1)
      131. {
      132. error=GetLastError();
      133. Print("Error = ",ErrorDescription(error));
      134. }
      135. else
      136. {
      137. OrderSelect(ticket,SELECT_BY_TICKET);
      138. OrderModify(ticket,OrderOpenPrice(),trade_side2 - SL, 0,0);
      139. OrderPrint();
      140. }
      141. //------------------------------------------------------------------------------------------------
      143. //bool result = false;
      144. if(tbIsClicked(hwnd,Close_All_btn)) {
      147. int type = OrderType();
      149. bool result = false;
      151. switch(type)
      152. {
      153. //Close opened long positions
      154. case OP_BUY : result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), 5, Red );
      155. break;
      157. //Close opened short positions
      158. case OP_SELL : result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), 5, Red );
      159. break;
      161. //Close pending orders
      162. case OP_BUYLIMIT :
      163. case OP_BUYSTOP :
      164. case OP_SELLLIMIT :
      165. case OP_SELLSTOP : result = OrderDelete( OrderTicket() );
      166. }
      168. if(result == false)
      169. {
      170. Alert("Order " , OrderTicket() , " failed to close. Error:" , GetLastError() );
      171. Sleep(3000);
      172. }
      173. }
      175. //----------------------------------------------------------------------------------------------
      177. return(0);
      178. }
      179. //+------------------------------------------------------------------+
      Bilder

      • 2012-09-09_140141.png

        7,18 kB, 914×349, 227 mal angesehen

      fx1.net/wiki/pmwiki.php/MT4GUI/MT4GUI

      Mit diesen DLLs lassen sich Buttons auf einen MT4 Chart legen, so könnte man das lästige Scriptfenster umgehen und aus dem Chart heraus die Orders tätigen. Mache das momentan noch über Scripts, jedoch ist dies Möglichkeit sehr verführend^^
      Dateien

      Abdocken von Charts und diese außerhalb des Metatraders platzieren

      Von IBFX hat es ein Script, um Charts außerhalb des Metatraders platzieren zu können.

      1) 'IBFX – Undock chart.ex4' in den MT4/experts/scripts Ordner kopieren
      2) 'MT4iConnect.dll' in MT4/experts/libraries Ordner kopieren
      3) Das Skript auf den Chart anwenden und Chart nach Belieben platzieren
      Dateien

      • IBFX Tools.zip

        (118,03 kB, 226 mal heruntergeladen, zuletzt: )

      Die Datenqualität ist mit Sicherheit nicht mehr top notch. Nach der Übernahme durch Optionsxpress 2008 gings etwas bergab und man merkt, dass nicht mehr jedes Tick ankommt.
      If you don't bet, you can't win.
      If you lose all your chips, you can't bet.

      - Larry Hite -

      --------------------

      The Trend is your only Friend :D

      - einer, der Bescheid weiß -