Attachments: Coding Tutorial

Coding Tutorial

#21
Dec 5, 2009 12:38am Dec 5, 2009 12:38am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

void is simpler

the void isnt returning anything, but you can still change variables that are global to the ea, such as the buys, sells

all i ever need is the void
other types can be used

but you need return()
because thats the value returned

Inserted Code

orders2(0,0); // this goes in start() , iv given a and b a default value

int orders2(int a ,int b)   // here im saying that a and b are type int
{
  int totalorders = OrdersTotal();
  for(int i=totalorders-1;i>=0;i--)
 {
    OrderSelect(i, SELECT_BY_POS);
    if ( OrderType() == OP_BUY)  {a++;}
    if ( OrderType() == OP_SELL )   {b++;}
 }
 return(a+b);  // here im returning a+b
}

hope that helps

#22
Dec 5, 2009 12:39am Dec 5, 2009 12:39am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

thanks wolfe

Quoting wolfe

Disliked

I don't have a question tomhliles, I just want to commend you for making this tutorial.

I am also a self-taught coder. I only wish when I first started that I ran across a thread such as the one you are creating. You are providing a very useful service here for many people.

Thank you for being a great contributor to the community.

-wolfe

Ignored

#23
Dec 5, 2009 12:42am Dec 5, 2009 12:42am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

i prefer void, later on il be using buys, sells for other things, i can add more stuff to count in the orders function also

#24
Dec 5, 2009 2:08am Dec 5, 2009 2:08am

walb99
| Joined Nov 2007 | Status: Trader | 1,142 Posts

Quoting tomhliles

Disliked

i prefer void, later on il be using buys, sells for other things, i can add more stuff to count in the orders function also

Ignored

How do you code a 1-click-order buy or sell script e.g. with hot keys?

let's say ctrl-s for 1-click-Sell or ctrl-b for 1-click-buy order

regards

/ ... clarifying decisions ... /

#25
Dec 5, 2009 8:54am Dec 5, 2009 8:54am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

right click the script in navigator, select hot key

#26
Dec 5, 2009 9:18am Dec 5, 2009 9:18am

juhanimi
Joined Feb 2009 | Status: Trader | 2,293 Posts

Mql5 is almost same than mql4?

#27
Dec 5, 2009 4:49pm Dec 5, 2009 4:49pm

walb99
| Joined Nov 2007 | Status: Trader | 1,142 Posts

Quoting tomhliles

Disliked

right click the script in navigator, select hot key

Ignored

Thanks, I didn't know that is was there already.

/ ... clarifying decisions ... /

#28
Dec 7, 2009 11:40pm Dec 7, 2009 11:40pm

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

no, they are very diferent, mql5 will have alot of things that improve the ea

after theres a english version of mql5, wel go into it, as the syntax will be the same, but coding will change alot, to make the ea relible

Quoting juhanimi

Disliked

Mql5 is almost same than mql4?

Ignored

#29
Dec 7, 2009 11:42pm Dec 7, 2009 11:42pm

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

im still thinking of what to do next, i think making diferent ea's is a good ideah

the previouse ea can open trades in tester, or live

im thinking of getting more advanced

#30
Dec 7, 2009 11:49pm Dec 7, 2009 11:49pm

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

lets get into some hard math

its easy to plot a sl, tp

but what about plotting hypothetical results

such as, a target

if i wanted my target to be 2%
how on earthj can i see this on a chart

what if i had a -10% hard stop, how can i plot this, and trade it

lets see if we have any pros

can any provide a code to plot a object on the chart, thats exactly at a % target

#31
Dec 7, 2009 11:53pm Dec 7, 2009 11:53pm

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

heres our next project, were going to plot targets on the chart

this will get very advanced

iml wait a few days, see what kinda attraction i attract

id like to see from other coders if they can do this

this is a challenge

all pros are welcome
lets see what you got

#32
Dec 8, 2009 4:37am Dec 8, 2009 4:37am

walb99
| Joined Nov 2007 | Status: Trader | 1,142 Posts

Quoting tomhliles

Disliked

lets get into some hard math

its easy to plot a sl, tp

but what about plotting hypothetical results

such as, a target

if i wanted my target to be 2%
how on earthj can i see this on a chart

what if i had a -10% hard stop, how can i plot this, and trade it

lets see if we have any pros

can any provide a code to plot a object on the chart, thats exactly at a % target

Ignored

There is a script that plots a line on break even level.

----
//+------------------------------------------------------------------+
//| ytg_Lewel without the loss.mq4 |
//| YURIY TOKMAN |
//| [email protected] |
//+------------------------------------------------------------------+
#property copyright "YURIY TOKMAN"
#property link "[email protected]"

//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
int start()
{
//----+
GetDell("label");
string char[256]; int i;
for (i = 0; i < 256; i++) char[i] = CharToStr(i);
string txt = char[70]+char[97]+char[99]+char[116]+char[111]+char[114]+char[121]+char[32]
+char[111]+char[102]+char[32]+char[116]+char[104]+char[101]+char[32]+char[97]
+char[100]+char[118]+char[105]+char[115]+char[101]+char[114]+char[115]+char[58]
+char[32]+char[121]+char[117]+char[114]+char[105]+char[121]+char[116]+char[111]
+char[107]+char[109]+char[97]+char[110]+char[64]+char[103]+char[109]+char[97]
+char[105]+char[108]+char[46]+char[99]+char[111]+char[109];Label("label",txt,2,3,15);
//----+
GetDell("ytg_s");
double lots=0;
double sum=0;
for (i=0; i<OrdersTotal(); i++)
{
if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
if (OrderSymbol()!=Symbol()) continue;
if (OrderType()==OP_BUY)
{
lots=lots+OrderLots();
sum=sum+OrderLots()*OrderOpenPrice();
}
if (OrderType()==OP_SELL)
{
lots=lots-OrderLots();
sum=sum-OrderLots()*OrderOpenPrice();
}
}
double price=0;
if (lots!=0) price=sum/lots;
string lossfree=" Does not exist";
if (price>0) lossfree=" = "+DoubleToStr(price,Digits);
string msg="Level without loss for "+Symbol()+lossfree+" ";
string line_name = "ytg_s " + TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS);
SetHLine(Aqua,line_name,price);
Alert(msg);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Ôóíêöèÿ ñîçäà¸ò ãîðèçîíòàëüíóþ ëèíèþ |
//| àâòîð: Þðèé Òîêìàíü |
//| e-mail: [email protected] |
//| ICQ# 481-971-287 |
//| Skype: yuriy.g.t |
//+------------------------------------------------------------------+
void SetHLine(color cl, string nm="", double p1=0, int st=0, int wd=1)
{
if (ObjectFind(nm)<0) ObjectCreate(nm, OBJ_HLINE, 0, 0,0);
ObjectSet(nm, OBJPROP_PRICE1, p1);
ObjectSet(nm, OBJPROP_COLOR , cl);
ObjectSet(nm, OBJPROP_STYLE , st);
ObjectSet(nm, OBJPROP_WIDTH , wd);
}
//+------------------------------------------------------------------+
//| Ôóíêöèÿ óäàëÿåò îáúåêòû ñ óêàçàííûì èìåíåì |
//| àâòîð: Þðèé Òîêìàíü |
//| e-mail: [email protected] |
//| ICQ# 481-971-287 |
//| Skype: yuriy.g.t |
//+------------------------------------------------------------------+
void GetDell( string name)
{
string vName;
for(int i=ObjectsTotal()-1; i>=0;i--)
{
vName = ObjectName(i);
if (StringFind(vName,name) !=-1) ObjectDelete(vName);
}
}
//+----------------------------------------------------------------------+
//| Îïèñàíèå: Ñîçäàíèå òåêñòîâîé ìåòêè |
//| Àâòîð: Þðèé Òîêìàíü |
//| e-mail: [email protected] |
//+----------------------------------------------------------------------+
void Label(string name_label, //Èìÿ îáúåêòà.
string text_label, //Òåêñò îáüåêòà.
int corner = 2, //Hîìåð óãëà ïðèâÿçêè
int x = 3, //Pàññòîÿíèå X-êîîðäèíàòû â ïèêñåëÿõ
int y = 15, //Pàññòîÿíèå Y-êîîðäèíàòû â ïèêñåëÿõ
int font_size = 10, //Ðàçìåð øðèôòà â ïóíêòàõ.
string font_name = "Arial", //Íàèìåíîâàíèå øðèôòà.
color text_color = LimeGreen //Öâåò òåêñòà.
)
{
if (ObjectFind(name_label)!=-1) ObjectDelete(name_label);
ObjectCreate(name_label,OBJ_LABEL,0,0,0,0,0);
ObjectSet(name_label,OBJPROP_CORNER,corner);
ObjectSet(name_label,OBJPROP_XDISTANCE,x);
ObjectSet(name_label,OBJPROP_YDISTANCE,y);
ObjectSetText(name_label,text_label,font_size,font_name,text_color);
}
---

/ ... clarifying decisions ... /

#33
Dec 13, 2009 3:47am Dec 13, 2009 3:47am

watube
| Joined May 2009 | Status: Trader | 167 Posts

Bookmarked

#34
Dec 31, 2009 8:38am Dec 31, 2009 8:38am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

i havent posted in a while, my new full time job keeps me busy
i got rained out today

the targeting system i was gonna show you already exists in super ea

heres the code if youd like to use it

Inserted Code

void check_exit()
{
 if (!GlobalVariableCheck(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+""))GlobalVariableSet(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+"",AccountBalance());
 balance=GlobalVariableGet(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+"");
if (( (equity-balance) / balance)*100>=risk){close_all=true;target_reached=true;long=false;short=false;}//long=false;short=false;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (buy_lots>sell_lots){
ObjectDelete("target2");
now_lots=buy_lots-sell_lots;
projection=balance-equity;
projection2=projection+balance/100*risk;
if (digits==1)projection=projection/now_lots/10;
if (digits==1)projection2=projection2/now_lots/10;
if (digits==2)projection=projection/now_lots;
if (digits==2)projection2=projection2/now_lots;
}
if (buy_lots<sell_lots){
ObjectDelete("target1");
now_lots=sell_lots-buy_lots;
projection=balance-AccountEquity();
projection2=projection+balance/100*risk;
if (digits==1)projection=projection/now_lots/10;
if (digits==1)projection2=projection2/now_lots/10;
if (digits==2)projection=projection/now_lots;
if (digits==2)projection2=projection2/now_lots;
}

if (buy_lots>sell_lots&&ObjectFind("target1") == -1 ){
    ObjectCreate("target1", OBJ_ARROW, 0, 0, 0);
    ObjectSet("target1",OBJPROP_ARROWCODE, 4);
    ObjectSet("target1", OBJPROP_COLOR, Yellow);}
    ObjectSet("target1", OBJPROP_PRICE1, Ask+projection2*my_point);
    ObjectSet("target1", OBJPROP_TIME1, iTime(NULL,0,0));
    
 if (buy_lots<sell_lots&&ObjectFind("target2") == -1 ){
    ObjectCreate("target2", OBJ_ARROW, 0, 0, 0);
    ObjectSet("target2",OBJPROP_ARROWCODE, 4);
    ObjectSet("target2", OBJPROP_COLOR, Yellow);}
    ObjectSet("target2", OBJPROP_PRICE1, Bid-projection2*my_point);
    ObjectSet("target2", OBJPROP_TIME1, iTime(NULL,0,0));

 if (buy_lots==0||buy_lots==sell_lots){
    ObjectDelete("target1");
    }      
 if (sell_lots==0||buy_lots==sell_lots){
   ObjectDelete("target2");
    }
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (close_all){close_all();orders();}
if (buys==0&&sells==0&&close_all){close_all=false;orders();}
if (close_longs){close_longs();orders();}
if (buys==0&&close_longs){close_longs=false;orders();}
if (close_shorts){close_shorts();orders();}
if (sells==0&&close_shorts){close_shorts=false;orders();}
if (target_reached&&buys==0&&sells==0){GlobalVariableSet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"",0.00000001);GlobalVariableSet(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+"",first_lots);target_reached=false;GlobalVariableSet(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+"",AccountBalance());}
}

#35
Dec 31, 2009 8:45am Dec 31, 2009 8:45am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

though you might need the whole ea to figure it out

heres my super ea

Inserted Code

string update="trendchaser.org/super_ea.html";
string check_version="trendchaser.org/updates/";double version=2.4;
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, Thomas Liles."
#property link      "http://www.trendchaser.org"
#import "shell32.dll"
int ShellExecuteA(int hwnd,string lpOperation, string lpFile,string lpParameters,string lpDirectory,int nShowCmd );
#import
#include <http51.mqh>
int magic_number=321984321;
//+------------------------------------------------------------------+
extern double risk=0.1;
extern int risk_pips=30;
extern int stoploss=0;
 bool draw_indies=true;
extern int indy_draw_back=1000;
 
//+------------------------------------------------------------------+
int sar1_tf=5,sar2_tf=5,max_trades=3,grid=30,range_pips=10;
double sar1=0.02,sar2=0.02,psar1,psar2,ma1,ma2,close;
string trendchasers_new_ea;
//+------------------------------------------------------------------+
   
   
int a,days_remaining,current_bar,ma1_tf=5,ma1_period=100,ma1_shift=0,ma2_tf=5,ma2_period=100,ma2_shift=30,digits,indy_bar,buys,sells;
double msg_interval=60,interval2,my_point,buy_lots,sell_lots,now_lots,first_lots,mlots;
bool check_msgs,can_trade,close_all,close_longs,close_shorts,target_reached,long,short;
 double minutes=0,projection,balance,projection2,use_lots,equity,profit,be,be2;
 string sig;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
ObjectCreate("site", OBJ_LABEL, 0, 0, 0);
ObjectSet("site", OBJPROP_BACK, 0);
ObjectSet("site", OBJPROP_CORNER, 0);
ObjectSet("site", OBJPROP_XDISTANCE, 6);
ObjectSet("site", OBJPROP_YDISTANCE, 80);
ObjectSetText("site","visit Trendchaser.org to learn more about this ea", 8,"Times New Roman",Gray);

check_version=check_version+WindowExpertName();
//get_settings();
   if (!GlobalVariableCheck(WindowExpertName()+" current_bar "+Symbol()+" "+IsTesting()+""))GlobalVariableSet(WindowExpertName()+" current_bar "+Symbol()+" "+IsTesting()+"",iBarShift(NULL,1440,1));
   if (!GlobalVariableCheck(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+""))GlobalVariableSet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"",0.00000001);
   if (IsTesting())a=3;
   
  if (Point==0.0001)my_point=0.0001;
  if (Point==0.00001)my_point=0.0001;
  if (Point==0.01)my_point=0.01;
  if (Point==0.001)my_point=0.01;

if (MarketInfo( Symbol(), MODE_LOTSTEP)==0.001)digits=3;
if (MarketInfo( Symbol(), MODE_LOTSTEP)==0.01)digits=2;
if (MarketInfo( Symbol(), MODE_LOTSTEP)==0.1)digits=1;
if (MarketInfo( Symbol(), MODE_LOTSTEP)==1)digits=0;
//----
if (Period()==5)draw2();updates();
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   GlobalVariableDel(WindowExpertName()+" current_bar "+Symbol()+" "+1+"");
   GlobalVariableDel(WindowExpertName()+" security "+Symbol()+" "+1+"");
   GlobalVariableDel(WindowExpertName()+" goal "+Symbol()+" "+1+"");
   GlobalVariableDel(WindowExpertName()+" lots "+Symbol()+" "+1+"");
   GlobalVariableDel(WindowExpertName()+" grid "+Symbol()+" "+1+"");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
HideTestIndicators(true);
run_indies();
orders();
check_exit();
lots();
if (!close_all&&!close_longs&&!close_shorts)trade();
HideTestIndicators(false);
objects();
if (draw_indies)draw();
   if (!GlobalVariableCheck(WindowExpertName()+" goal "+IsTesting()))GlobalVariableSet(WindowExpertName()+" goal "+IsTesting(),AccountBalance());
   double goalx=GlobalVariableGet(WindowExpertName()+" goal "+IsTesting());
   
 if (ObjectFind("score") == -1){
ObjectCreate("score", OBJ_LABEL, 0, 0, 0);
ObjectSet("score", OBJPROP_BACK, 0);
ObjectSet("score", OBJPROP_CORNER, 1);
ObjectSet("score", OBJPROP_XDISTANCE, 7);
ObjectSet("score", OBJPROP_YDISTANCE, 68);
}
 if (ObjectFind("score") != -1&&ObjectGet("score", OBJPROP_XDISTANCE)!=7){
ObjectSet("score", OBJPROP_XDISTANCE, 7);
ObjectSet("score", OBJPROP_YDISTANCE, 68);
GlobalVariableSet(WindowExpertName()+" goal "+IsTesting(),AccountBalance());
}
ObjectSetText("score","score = "+DoubleToStr(( (AccountEquity()-goalx) / goalx)*100,2)+"", 14,"Times New Roman",Yellow);
//updates();
if ((buys+sells)==0)GlobalVariableSet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"",0.00000001);
if (stoploss>0&&(buys+sells)>0)stoploss();
   return(0);
  }
  //+------------------------------------------------------------------+
  void run_indies()
{
sig="none";
can_trade=false;
close=iClose(NULL,0,0);
psar1=iSAR(NULL,sar1_tf,sar1,0.2,0);
psar2=iSAR(NULL,sar2_tf,sar2,0.2,0);
ma1=iMA(NULL,ma1_tf,ma1_period,ma1_shift,MODE_SMA,PRICE_OPEN,0);
ma2=iMA(NULL,ma2_tf,ma2_period,ma2_shift,MODE_SMA,PRICE_OPEN,0);
if (ma1>ma2&&ma1-ma2>=range_pips*my_point)can_trade=true;
if (ma1<ma2&&ma2-ma1>=range_pips*my_point)can_trade=true;
if (close>psar1)short=true;
if (close<psar1)long=true;
if (!can_trade)close_all=true;
   if (can_trade)
     {
     if (close>psar1&&close>psar2&&ma1>ma2)sig="buy";
     if (close<psar1&&close<psar2&&ma1<ma2)sig="sell";
     }
}
  //+------------------------------------------------------------------+
void trade()
{
int trades=buys+sells;
if (close>GlobalVariableGet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"")+grid*my_point||close<GlobalVariableGet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"")-grid*my_point)
{
if (trades<max_trades&&long&&can_trade&&sig=="buy"&&sells==0)
{
OrderSend(Symbol(),OP_BUY,use_lots,Ask,3,NULL,NULL,WindowExpertName(),magic_number,0,Blue);
orders();
}
if (trades<max_trades&&short&&can_trade&&sig=="sell"&&buys==0)
{
OrderSend(Symbol(),OP_SELL,use_lots,Bid,3,NULL,NULL,WindowExpertName(),magic_number,0,Red);
orders();
}
}
   if ((buys+sells)>trades)
     {
     GlobalVariableSet(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+"",GlobalVariableGet(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+"")+first_lots);
     GlobalVariableSet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"",close);
     long=false;
     short=false;
     if (!IsTesting())updates();
     }
     
}
//+------------------------------------------------------------------+
void lots()
{
first_lots=((AccountFreeMargin()/MarketInfo(Symbol(),MODE_MARGINREQUIRED)/AccountLeverage())*risk)/risk_pips;
first_lots=first_lots*100;
if (first_lots<MarketInfo( Symbol(), MODE_MINLOT) ){first_lots=MarketInfo( Symbol(), MODE_MINLOT);}
if (first_lots>MarketInfo( Symbol(), MODE_MAXLOT)){first_lots=MarketInfo( Symbol(), MODE_MAXLOT);}
first_lots= NormalizeDouble(first_lots,digits);
if (!GlobalVariableCheck(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+""))GlobalVariableSet(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+"",first_lots);
 mlots=GlobalVariableGet(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+"");
if (first_lots>=mlots)use_lots=first_lots; else use_lots=mlots;
}
//+------------------------------------------------------------------+
void check_exit()
{
 if (!GlobalVariableCheck(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+""))GlobalVariableSet(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+"",AccountBalance());
 balance=GlobalVariableGet(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+"");
if (( (equity-balance) / balance)*100>=risk){close_all=true;target_reached=true;long=false;short=false;}//long=false;short=false;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (buy_lots>sell_lots){
ObjectDelete("target2");
now_lots=buy_lots-sell_lots;
projection=balance-equity;
projection2=projection+balance/100*risk;
if (digits==1)projection=projection/now_lots/10;
if (digits==1)projection2=projection2/now_lots/10;
if (digits==2)projection=projection/now_lots;
if (digits==2)projection2=projection2/now_lots;
}
if (buy_lots<sell_lots){
ObjectDelete("target1");
now_lots=sell_lots-buy_lots;
projection=balance-AccountEquity();
projection2=projection+balance/100*risk;
if (digits==1)projection=projection/now_lots/10;
if (digits==1)projection2=projection2/now_lots/10;
if (digits==2)projection=projection/now_lots;
if (digits==2)projection2=projection2/now_lots;
}

if (buy_lots>sell_lots&&ObjectFind("target1") == -1 ){
    ObjectCreate("target1", OBJ_ARROW, 0, 0, 0);
    ObjectSet("target1",OBJPROP_ARROWCODE, 4);
    ObjectSet("target1", OBJPROP_COLOR, Yellow);}
    ObjectSet("target1", OBJPROP_PRICE1, Ask+projection2*my_point);
    ObjectSet("target1", OBJPROP_TIME1, iTime(NULL,0,0));
    
 if (buy_lots<sell_lots&&ObjectFind("target2") == -1 ){
    ObjectCreate("target2", OBJ_ARROW, 0, 0, 0);
    ObjectSet("target2",OBJPROP_ARROWCODE, 4);
    ObjectSet("target2", OBJPROP_COLOR, Yellow);}
    ObjectSet("target2", OBJPROP_PRICE1, Bid-projection2*my_point);
    ObjectSet("target2", OBJPROP_TIME1, iTime(NULL,0,0));

 if (buy_lots==0||buy_lots==sell_lots){
    ObjectDelete("target1");
    }      
 if (sell_lots==0||buy_lots==sell_lots){
   ObjectDelete("target2");
    }
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (close_all){close_all();orders();}
if (buys==0&&sells==0&&close_all){close_all=false;orders();}
if (close_longs){close_longs();orders();}
if (buys==0&&close_longs){close_longs=false;orders();}
if (close_shorts){close_shorts();orders();}
if (sells==0&&close_shorts){close_shorts=false;orders();}
if (target_reached&&buys==0&&sells==0){GlobalVariableSet(WindowExpertName()+" grid "+Symbol()+" "+IsTesting()+"",0.00000001);GlobalVariableSet(WindowExpertName()+" lots "+Symbol()+" "+IsTesting()+"",first_lots);target_reached=false;GlobalVariableSet(WindowExpertName()+" goal "+Symbol()+" "+IsTesting()+"",AccountBalance());}
}
void draw()
{
if (indy_bar!=iBarShift(NULL,0,0))
   {
ObjectCreate(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJ_TREND, 0, 0, 0);
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_PRICE1, psar1);
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_PRICE2, psar1);
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_TIME1, iTime(NULL,0,0));
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_TIME2, iTime(NULL,0,0));
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Gray);
if (ma1>ma2&&ma1-ma2>=range_pips*my_point&&close>psar1)ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Blue);
if (ma1<ma2&&ma2-ma1>=range_pips*my_point&&close<psar1)ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Red);
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_RAY, 0);
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_WIDTH, 5);
ObjectSet(IsTesting()+" sar1 "+iBarShift(NULL,0,0)+"", OBJPROP_BACK, 1);
 
ObjectCreate(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJ_TREND, 0, 0, 0);
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_PRICE1, psar2);
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_PRICE2, psar2);
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_TIME1, iTime(NULL,0,0));
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_TIME2, iTime(NULL,0,0));
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Gray);
if (ma1>ma2&&ma1-ma2>=range_pips*my_point&&close>psar2)ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Blue);
if (ma1<ma2&&ma2-ma1>=range_pips*my_point&&close<psar2)ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Red);
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_RAY, 0);
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_WIDTH, 5);
ObjectSet(IsTesting()+" sar2 "+iBarShift(NULL,0,0)+"", OBJPROP_BACK, 1);

ObjectCreate(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJ_TREND, 0, 0, 0);
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_PRICE1, ma1);
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_PRICE2, ma2);
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_TIME1, iTime(NULL,0,0));
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_TIME2, iTime(NULL,0,0));
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Gray);
if (ma1>ma2&&ma1-ma2>=range_pips*my_point)ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, DodgerBlue);
if (ma1<ma2&&ma2-ma1>=range_pips*my_point)ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_COLOR, Orange);
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_RAY, 0);
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_WIDTH, 0);
ObjectSet(IsTesting()+" ma1 "+iBarShift(NULL,0,0)+"", OBJPROP_BACK, 1);
 
   }
}
void draw2()
{
double xclose,xpsar1,xpsar2,xma1,xma2;
if (indy_draw_back>Bars)indy_draw_back=Bars;
  for(int i=1; i<=indy_draw_back; i++)
{
 xclose=iClose(NULL,0,i);
 xpsar1=iSAR(NULL,sar1_tf,sar1,0.2,i);
 xpsar2=iSAR(NULL,sar2_tf,sar2,0.2,i);
 xma1=iMA(NULL,ma1_tf,ma1_period,ma1_shift,MODE_SMA,PRICE_OPEN,i);
 xma2=iMA(NULL,ma2_tf,ma2_period,ma2_shift,MODE_SMA,PRICE_OPEN,i);

ObjectCreate(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJ_TREND, 0, 0, 0);
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_PRICE1, xpsar1);
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_PRICE2, xpsar1);
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_TIME1, iTime(NULL,0,i));
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_TIME2, iTime(NULL,0,i));
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Gray);
if (xma1>xma2&&xclose>xpsar1&&xma1-xma2>=range_pips*my_point)ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Blue);
if (xma1<xma2&&xclose<xpsar1&&xma2-xma1>=range_pips*my_point)ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Red);
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_RAY, 0);
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_WIDTH, 5);
ObjectSet(IsTesting()+" sar1 "+iTime(NULL,0,i)+"", OBJPROP_BACK, 1);
 
ObjectCreate(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJ_TREND, 0, 0, 0);
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_PRICE1, xpsar2);
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_PRICE2, xpsar2);
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_TIME1, iTime(NULL,0,i));
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_TIME2, iTime(NULL,0,i));
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Gray);
if (xma1>xma2&&xclose>xpsar2&&xma1-xma2>=range_pips*my_point)ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Blue);
if (xma1<xma2&&xclose<xpsar2&&xma2-xma1>=range_pips*my_point)ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Red);
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_RAY, 0);
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_WIDTH, 5);
ObjectSet(IsTesting()+" sar2 "+iTime(NULL,0,i)+"", OBJPROP_BACK, 1);

ObjectCreate(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJ_TREND, 0, 0, 0);
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_PRICE1, xma1);
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_PRICE2, xma2);
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_TIME1, iTime(NULL,0,i));
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_TIME2, iTime(NULL,0,i));
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Gray);
if (xma1>xma2&&xma1-xma2>=range_pips*my_point)ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, DodgerBlue);
if (xma1<xma2&&xma2-xma1>=range_pips*my_point)ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_COLOR, Orange);
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_RAY, 0);
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_WIDTH, 0);
ObjectSet(IsTesting()+" ma1 "+iTime(NULL,0,i)+"", OBJPROP_BACK, 1);
 }
   
}
//+------------------------------------------------------------------+
//+------------------------------------------------------------------------------------------
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
void close_all()
{
  int totalorders = OrdersTotal();
  for(int i=totalorders-1;i>=0;i--)
 {
    OrderSelect(i, SELECT_BY_POS);
    if ( OrderType() == OP_SELL&&OrderMagicNumber()==magic_number )  {OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(),MODE_ASK), 0, Red );}
    if ( OrderType() == OP_BUY&&OrderMagicNumber()==magic_number )   {OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(),MODE_BID), 0, Blue );}
  }
}
//+------------------------------------------------------------------+
void close_longs()
{
  int totalorders = OrdersTotal();
  for(int i=totalorders-1;i>=0;i--)
 {
    OrderSelect(i, SELECT_BY_POS);
    if ( OrderType() == OP_BUY&&OrderMagicNumber()==magic_number )   {OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(),MODE_BID), 0, Blue );}
  }
}
//+------------------------------------------------------------------+
void close_shorts()
{
  int totalorders = OrdersTotal();
  for(int i=totalorders-1;i>=0;i--)
 {
    OrderSelect(i, SELECT_BY_POS);
    if ( OrderType() == OP_SELL&&OrderMagicNumber()==magic_number )  {OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(),MODE_ASK), 0, Red );}
  }
}
//+------------------------------------------------------------------+
void orders()
{
buys=0;
sells=0;
buy_lots=0;
sell_lots=0;
profit=0;
if (OrdersTotal()==0)equity=AccountBalance();
  int totalorders = OrdersTotal();
  for(int i=totalorders-1;i>=0;i--)
 {
    OrderSelect(i, SELECT_BY_POS);
    if ( OrderType() == OP_BUY&&OrderMagicNumber()==magic_number )  {profit=profit+OrderProfit();buys=buys+1;buy_lots=buy_lots+OrderLots();}
    if ( OrderType() == OP_SELL&&OrderMagicNumber()==magic_number )   {profit=profit+OrderProfit();sells=sells+1;sell_lots=sell_lots+OrderLots();}
 }
 equity=AccountBalance()+profit;
}
void stoploss()
{

  int totalorders = OrdersTotal();
  for(int i=totalorders-1;i>=0;i--)
 {
    OrderSelect(i, SELECT_BY_POS);
    if (OrderSymbol()==Symbol()&& OrderType() == OP_BUY&&OrderMagicNumber()==magic_number&&OrderStopLoss()!=OrderOpenPrice()-stoploss*my_point )  {OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-stoploss*my_point,OrderTakeProfit(),0,CLR_NONE);}
    if ( OrderSymbol()==Symbol()&& OrderType() == OP_SELL&&OrderMagicNumber()==magic_number&&OrderStopLoss()!=OrderOpenPrice()+stoploss*my_point  )   {OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+stoploss*my_point,OrderTakeProfit(),0,CLR_NONE);}
 }
}
//+------------------------------------------------------------------+
void objects()
{
if (ObjectFind("time") == -1 ){
ObjectCreate("time", OBJ_LABEL, 0, 0, 0);
ObjectSet("time", OBJPROP_BACK, 0);}
ObjectSet("time", OBJPROP_CORNER, 0);
ObjectSet("time", OBJPROP_XDISTANCE, 5);
ObjectSet("time", OBJPROP_YDISTANCE, 13);
ObjectSetText("time",""+TimeToStr(TimeCurrent(),TIME_MINUTES|TIME_SECONDS)+"   new bar in "+TimeToStr(Time[0]+Period()*60-TimeCurrent(),TIME_SECONDS)+"", 12,"Times New Roman",Yellow);
/*
if (ObjectFind("status") == -1)ObjectCreate("status", OBJ_LABEL, 0, 0, 0);
ObjectSet("status", OBJPROP_BACK, 0);
ObjectSet("status", OBJPROP_CORNER, 0);
ObjectSet("status", OBJPROP_XDISTANCE, 6);
ObjectSet("status", OBJPROP_YDISTANCE, 40);
if (a!=3)ObjectSetText("status","subscription expired", 12,"Times New Roman",Red);
if (a==3)ObjectSetText("status","days remaining = "+days_remaining+"", 12,"Times New Roman",Green);
if (IsTesting())ObjectSetText("status","days remaining = unlimited", 12,"Times New Roman",Green);
if (IsDemo())ObjectSetText("status","days remaining = unlimited", 12,"Times New Roman",Green);
*/
if (ObjectFind("pcnt") == -1)ObjectCreate("pcnt", OBJ_LABEL, 0, 0, 0);
ObjectSet("pcnt", OBJPROP_BACK, 0);
ObjectSet("pcnt", OBJPROP_CORNER, 1);
ObjectSet("pcnt", OBJPROP_XDISTANCE, 6);
ObjectSet("pcnt", OBJPROP_YDISTANCE, 40);
ObjectSetText("pcnt",""+DoubleToStr(( (AccountEquity()-balance) / balance)*100,2)+"", 12,"Times New Roman",Red);



double capitol_requirement=MarketInfo(Symbol(),MODE_MINLOT)*MarketInfo(Symbol(),MODE_MARGINREQUIRED)*AccountLeverage()*3;


if (ObjectFind("capitol") == -1 )
{
ObjectCreate("capitol", OBJ_LABEL, 0, 0, 0);
ObjectSet("capitol", OBJPROP_COLOR, Red);
ObjectSet("capitol", OBJPROP_CORNER, 0);
ObjectSet("capitol", OBJPROP_XDISTANCE, 6);
ObjectSet("capitol", OBJPROP_YDISTANCE, 47);}
ObjectSetText("capitol","recommended minimum balance= $"+DoubleToStr(capitol_requirement,0)+"", 10,"Times New Roman",Gray);
}
void updates()
{

string results;
string results2;
 int handle;
 string params [0,2];
ArrayResize( params, 0);int status[1];addParam("Bid",Bid,params);addParam("Ask",Ask,params);
string req = ArrayEncode(params);
string res = httpGET("http://"+check_version+"/version.cvs?"+ req, status);

handle=FileOpen("version.cvs", FILE_CSV|FILE_WRITE, ';');

if(handle>0)
{
FileWrite(handle, res);
FileClose(handle);
}
handle=FileOpen("version.cvs", FILE_CSV|FILE_READ|FILE_WRITE, ';');
if(handle>0)
{
double check_number,waste;

check_number=StrToDouble(FileReadString(handle));
}
    if(version!=check_number&&check_number>0){
    
ObjectCreate("update", OBJ_LABEL, 0, 0, 0);
ObjectSet("update", OBJPROP_BACK, 0);
ObjectSet("update", OBJPROP_CORNER, 0);
ObjectSet("update", OBJPROP_XDISTANCE, 271);
ObjectSet("update", OBJPROP_YDISTANCE, 16);
ObjectSetText("update","your version= "+DoubleToStr(version,2)+"  new version= "+DoubleToStr(check_number,2)+"", 8,"Times New Roman",Red);

ObjectCreate("update2", OBJ_LABEL, 0, 0, 0);
ObjectSet("update2", OBJPROP_BACK, 0);
ObjectSet("update2", OBJPROP_CORNER, 0);
ObjectSet("update2", OBJPROP_XDISTANCE, 271);
ObjectSet("update2", OBJPROP_YDISTANCE, 26);
ObjectSetText("update2",""+"trendchaser.org/super_ea.html"+"", 8,"Times New Roman",Red);
}
    if (version==check_number){ObjectDelete("update");ObjectDelete("update2");}
FileClose(handle);
FileDelete("version.cvs");

}

#36
Edited 4:34pm Feb 7, 2010 12:55pm | Edited 4:34pm

Big E!
| Joined Jul 2008 | Status: Trader | 64 Posts

Hi Tom,

Setup your super EA but got an error message after compiling; "#include <http51.mqh> - cannot open program file". Can you please tell me what this means?

Also could you give me a heads-up on incorporating minutes into the following code (I've tried a number of things, but just can't come up with the right code structure to make it work):

extern bool UseTradingTimes = True;
extern bool UseLETimes = True;
extern int LEHourStart = 5;
extern int LEHourEnd = 13;
extern bool UseUSETimes = True;
extern int USEHourStart = 14;
extern int USEHourEnd = 17;

string TradingTimes = "Outside Trading Times";
if(UseTradingTimes == True)
if((UseLETimes == True && TimeHour(TimeCurrent()) >= LEHourStart && TimeHour(TimeCurrent()) <
LEHourEnd) || (UseUSETimes == True && TimeHour(TimeCurrent()) >= USEHourStart &&
TimeHour(TimeCurrent()) < USEHourEnd))
TradingTimes = "Inside Trading Times";

As you probably already know, this is used to start & stop an EA from trading at given times. However, it is based on hours only. I would like to be able to start or stop the EA from trading based on hours & minutes (example, 7:30 or 7:45).

Any help you may provide would be greatly appreciated. Thanks in advance.

#37
Feb 14, 2010 11:15am Feb 14, 2010 11:15am

Big E!
| Joined Jul 2008 | Status: Trader | 64 Posts

So please, no one waste any time on the second part of the above post.

#38
Feb 15, 2010 6:48am Feb 15, 2010 6:48am

tomhliles
| Additional Username | Joined Dec 2006 | 163 Posts

see this post for the missing files
http://www.forexfactory.com/showpost...postcount=1777

#39
Mar 16, 2010 9:32am Mar 16, 2010 9:32am

FXExpert
| Joined Mar 2008 | Status: Trader | 130 Posts

Cool , I will try to read it and understand , so I can code too!!!
Very nice of your part dude , keep it up!!!

#40
Mar 17, 2010 10:04pm Mar 17, 2010 10:04pm

iCarumba
| Joined Mar 2010 | Status: Trader | 84 Posts

can you explain these 3 functions?

init()
deinit()
start()

what area the differences, purpose of each of these functions.

0 traders viewing now

Options

Similar Threads

Coding Tutorial