Metatrader Forum | Forex Expert-Advisor | Broker & Forex Tools
Zurück   Metatrader Forum | Forex Expert-Advisor | Broker & Forex Tools > Metatrader 4 > Expert-Advisors

Expert-Advisors Expert-Advisors für Metatrader 4.

Login
Benutzername:
Kennwort:


Statistik
Themen: 4973
Beiträge: 43248
Benutzer: 7.220
Aktive Benutzer: 81
Links: 84
Wir begrüßen unseren neuesten Benutzer: JosephTK
Mit 2.475 Benutzern waren die meisten Benutzer gleichzeitig online (16.01.20 um 22:38).
Neue Benutzer:
vor 9 Stunden
- JosephTK
vor 2 Tagen
- Hopfen&Mal...
vor 3 Tagen
- frankmicha...
vor einer Woche
- DFeck
vor einer Woche
- bb1107

Onlineuser
'Wer ist online' anzeigen Benutzer: 1
Gäste: 443
Gesamt: 444
Team: 0
Team:  
Benutzer:  murkel
Freunde anzeigen

Empfehlungen

Like Tree1Likes
  • 1 Post By traderdoc
Thema geschlossen
 
Themen-Optionen Thema durchsuchen Ansicht
  #1 (permalink)  
Alt 04.11.15
Neues Mitglied
 
Registriert seit: Apr 2014
Beiträge: 3
pratwa befindet sich auf einem aufstrebenden Ast
Standard Expert advisor handelt nicht - out of memory?

Hallo,

ich habe einen EA auf einem VPC Server (Amazon web Service) laufen. Dieser handelt trotz eindeutiger Signale nicht. Nach Aktivierung des Ea´s kommt nach ca. 15 min. die Meldung unter dem Reiter Expert "out of memory".

Wenn ich den EA backteste läuft alles einwandfrei.
Ich habe bereits die Anzahl der Kerzen die gespeichert und angezeigt werden auf das Minimum geändert.


Kann mir jemand helfen?
  #2 (permalink)  
Alt 04.11.15
Neues Mitglied
 
Registriert seit: Jun 2013
Beiträge: 22
Pago2013 befindet sich auf einem aufstrebenden Ast
Standard

Das liegt nicht am Metatrader, da ist der EA dran schuld.
Evtl. gibt es ein Array in Code welches sich so voll saugt, dass es den verfügbaren Metatrader Memory übersteigt (hatte das Problem auch schon oft).
So blind kann man da wenig zu sagen. Wenn du die MQL4 Datei hast dann können wir uns die mal ansehen.
  #3 (permalink)  
Alt 04.11.15
Neues Mitglied
 
Registriert seit: Apr 2014
Beiträge: 3
pratwa befindet sich auf einem aufstrebenden Ast
Standard

Gern

PHP-Code:

#define SIGNAL_NONE 0
#define SIGNAL_BUY   1
#define SIGNAL_SELL  2
#define SIGNAL_CLOSEBUY 3
#define SIGNAL_CLOSESELL 4

#property copyright "Ronald Raygun"
#property link      "http://www.RonaldRaygunForex.com/Support/"


#import "wininet.dll"

#define INTERNET_FLAG_PRAGMA_NOCACHE    0x00000100 // Forces the request to be resolved by the origin server, even if a cached copy exists on the proxy.
#define INTERNET_FLAG_NO_CACHE_WRITE    0x04000000 // Does not add the returned entity to the cache. 
#define INTERNET_FLAG_RELOAD            0x80000000 // Forces a download of the requested file, object, or directory listing from the origin server, not from the cache.
#define INTERNET_FLAG_NO_COOKIES        0x00080000 // Does not automatically add cookie headers to requests, and does not automatically add returned cookies to the cookie database. This flag can be used by 


int InternetOpenA(
    
string     sAgent,
    
int        lAccessType,
    
string     sProxyName="",
    
string     sProxyBypass="",
    
int     lFlags=0
);

int InternetOpenUrlA(
    
int     hInternetSession,
    
string     sUrl
    
string     sHeaders="",
    
int     lHeadersLength=0,
    
int     lFlags=0,
    
int     lContext=
);

int InternetReadFile(
    
int     hFile,
    
string     sBuffer,
    
int     lNumBytesToRead,
    
int&     lNumberOfBytesRead[]
);

int InternetCloseHandle(
    
int     hInet
);
#import


extern string Remark1 "== Main Settings ==";
extern int MagicNumber 0;
extern bool SignalsOnly False;
extern bool Alerts False;
extern bool SignalMail False;
extern bool PlaySounds False;
extern bool ECNBroker False;
extern bool TickDatabase True;
extern bool UseTradingTimes False;
extern int StartHour 0;
extern int StartMinute 0;
extern int StopHour 0;
extern int StopMinute 0;
extern bool CloseOnOppositeSignal True;
extern bool AutoDetect5DigitBroker False;
extern bool EachTickMode True;
extern double Lots 0;
extern bool MoneyManagement False;
extern int Risk 0;
extern int Slippage 5;
extern  bool UseStopLoss True;
extern int StopLoss 100;
extern double SLMultiplier 0.0;
extern int SLMultiplierBuffer 0;
extern bool UseTakeProfit False;
extern int TakeProfit 60;
extern double TPMultiplier 0.0;
extern int TPMultiplierBuffer 0;
extern bool UseTrailingStop False;
extern int TrailingStop 30;
extern bool UseMultipleTrailingStop False;
extern double TSMultiple 1.0;
extern int TSMultipleBuffer 1.0;
extern bool MoveStopOnce False;
extern int MoveStopWhenPrice 50;
extern int MoveStopTo 1;
extern bool UseMultipleMoveStopOnce False;
extern double MoveStopWhenRangeMultiple 1.0;
extern int MoveStopWhenRangeMultipleBuffer 0;
extern double MoveStopToMultiple 0.0;
extern int MoveStopToMultipleBuffer 1;
extern string Remark2 "";
extern string Remark3 "== Breakout Settings ==";
extern int RangeStartHour 0;
extern int RangeStartMinute 0;
extern int RangeStopHour 0;
extern int RangeStopMinute 0;
extern string TSDescription "Trading Style: 1 - Breakout | 2 - Counter Trend";
extern int TradingStyle 0;
extern double EntryMultiplier 0.0;
extern int EntryBuffer 0;
extern int MaxRangePips 0;
extern int MinRangePips 0;
extern int MaxTrades 0;
extern int MaxLongTrades 0;
extern int MaxShortTrades 0;
extern int MaxProfitTrades 0;
extern bool CountOpenTrades True;
extern int MaxLossTrades 0;
extern int MaxSimultaneousTrades 1;
extern int MaxSimultaneousLongTrades 0;
extern int MaxSimultaneousShortTrades 0;

string SymbolUsed;
int TickCount 0;
int RecordDay = -1;
string UserName "";
bool ShowDiagnostics False;

int Internet_Open_Type_Direct 1;


   
string URL;
   
int URLHandle 0;                                                              
   
int SessionHandle 0;
   
int MaxTries 0;

   
   
string FinalStr ;
   
int bytesreturned[1];
   
int readresult;

   
int GMTBar;
   
string GMTTime;
   
string BrokerTime;
   
int GMTShift;

   
datetime CurGMTTime;
   
datetime CurBrokerTime;
   
datetime CurrentGMTTime;



 
   
string TempStr ="000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000";
#define  maxreadlen 200



int TradeBar;
int TradesThisBar;

int OpenBarCount;
int CloseBarCount;

int LongMailSignalBarCount;
int ShortMailSignalBarCount;

int LongAlertSignalBarCount;
int ShortAlertSignalBarCount;

int LongSoundSignalBarCount;
int ShortSoundSignalBarCount;

string BrokerType "4-Digit Broker";
double BrokerMultiplier 1;

int Current;
bool TickCheck False;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init() {
   
OpenBarCount Bars;
   
CloseBarCount Bars;
   
   
LongMailSignalBarCount Bars;
   
ShortMailSignalBarCount Bars;
   
   
LongAlertSignalBarCount Bars;
   
ShortAlertSignalBarCount Bars;
   
   
LongAlertSignalBarCount Bars;
   
ShortAlertSignalBarCount Bars;
   
   if(
TickDatabase && !IsDllsAllowed())
      {
      
Alert("Please enable DLLs");
      return(
0);
      }
      
   
   if(
Digits == || Digits == 5)
      {
      
BrokerType "5-Digit Broker";
      
BrokerMultiplier 10;
      }

   if(
AutoDetect5DigitBroker)
      {
      
Slippage *= BrokerMultiplier;
      
StopLoss *= BrokerMultiplier;
      
SLMultiplierBuffer *= BrokerMultiplier;
      
TakeProfit *= BrokerMultiplier;
      
TPMultiplierBuffer *= BrokerMultiplier;
      
TrailingStop *= BrokerMultiplier;
      
TSMultipleBuffer *= BrokerMultiplier;
      
MoveStopWhenPrice *= BrokerMultiplier;
      
MoveStopTo *= BrokerMultiplier;
      
MoveStopWhenRangeMultipleBuffer *= BrokerMultiplier;
      
MoveStopToMultipleBuffer *= BrokerMultiplier;
      
EntryBuffer *= BrokerMultiplier;
      }
   
   if (
EachTickModeCurrent 0; else Current 1;

   return(
0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit() {

   for(
int OT ObjectsTotal(); OT >= 0OT--)
      {
      if(
StringFind(ObjectName(OT), WindowExpertName(), 0) == 0)
         {
         
ObjectDelete(ObjectName(OT));
         }
      }
      
      
   return(
0);
}
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start() 


{

if(
TradingStyle == 0)
      {
      
Alert("Please set the trading style to something other than 0.");
      return(
0);
      }

   
int Order SIGNAL_NONE;
   
int TotalTicket;
   
double StopLossLevelTakeProfitLevel;
   
double PotentialStopLoss;
   
double BEven
   
double BEven1;
   
double TrailStop;
   
double TrailStop1;



   if (
EachTickMode && Bars != CloseBarCountTickCheck False;
   
Total OrdersTotal();
   
Order SIGNAL_NONE;

//Limit Trades Per Bar
if(TradeBar != Bars)
   {
   
TradeBar Bars;
   
TradesThisBar 0;
   }


//Money Management sequence
 
if (MoneyManagement)
   {
      if (
Risk<|| Risk>100)
      {
         
Comment("Invalid Risk Value.");
         return(
0);
      }
      else
      {
         
Lots=MathFloor((AccountFreeMargin()*AccountLeverage()*Risk*Point*BrokerMultiplier*100)/(Ask*MarketInfo(Symbol(),MODE_LOTSIZE)*MarketInfo(Symbol(),MODE_MINLOT)))*MarketInfo(Symbol(),MODE_MINLOT);
      }
   }

   
//+------------------------------------------------------------------+
   //| Variable Begin                                                   |
   //+------------------------------------------------------------------+
   
   
static double PreviousTick;
   static 
double CurrentTick;
   
   
PreviousTick CurrentTick;
   
CurrentTick iClose(NULL0Current 0);
   
   
string TradingTimes "Outside Trading Times";
   
datetime StartTime StrToTime(TimeYear(TimeCurrent())+"."+TimeMonth(TimeCurrent())+"."+TimeDay(TimeCurrent())+" "+StartHour+":"+StartMinute);
   
datetime StopTime StrToTime(TimeYear(TimeCurrent())+"."+TimeMonth(TimeCurrent())+"."+TimeDay(TimeCurrent())+" "+StopHour+":"+StopMinute);
   if(
UseTradingTimes)
      {
      if(
StopTime StartTime && TimeCurrent() >= StartTime && TimeCurrent() < StopTimeTradingTimes "Inside Trading Times";
      if(
StopTime StartTime && (TimeCurrent() >= StartTime || TimeCurrent() < StopTime)) TradingTimes "Inside Trading Times";
      }
   if(!
UseTradingTimesTradingTimes "Not Used";

   
//Calculate the Day's Range
   
datetime RangeStartTime StrToTime(TimeYear(TimeCurrent())+"."+TimeMonth(TimeCurrent())+"."+TimeDay(TimeCurrent())+" "+RangeStartHour+":"+RangeStartMinute);
   
datetime RangeStopTime StrToTime(TimeYear(TimeCurrent())+"."+TimeMonth(TimeCurrent())+"."+TimeDay(TimeCurrent())+" "+RangeStopHour+":"+RangeStopMinute);
   
   if(
RangeStopTime >= TimeCurrent()) 
      {
      
RangeStartTime RangeStartTime 86400;
      
RangeStopTime RangeStopTime 86400;
      }
   if(
RangeStartTime RangeStopTime)
      {
      
RangeStartTime RangeStartTime 86400;
      }
   
int RangeStartShift iBarShift(NULL0RangeStartTimeFalse);
   
int RangeStopShift iBarShift(NULL0RangeStopTimeFalse);   
   
   
double HighPrice iHigh(NULL0iHighest(NULL0MODE_HIGHRangeStartShift RangeStopShiftRangeStopShift));
   
double LowPrice iLow(NULL0iLowest(NULL0MODE_LOWRangeStartShift RangeStopShiftRangeStopShift));
   
   
double Range HighPrice LowPrice;
   
   
double Buffer = (Range EntryMultiplier) + (EntryBuffer Point);
   
   
double LongEntry 0.0;
   
double ShortEntry 0.0;
   switch (
TradingStyle)
      {
      case 
1:
         
LongEntry HighPrice Buffer;
         
ShortEntry LowPrice Buffer;
         break;
      case 
2:
         
LongEntry LowPrice Buffer;
         
ShortEntry HighPrice Buffer;
         break;
      }
   
   
string RangeFilter "No Trade";
   
string MaxRangeFilter "No Trade";
   
string MinRangeFilter "No Trade";
   if(
MaxRangePips Point >= RangeMaxRangeFilter "Can Trade";
   if(
MinRangePips Point <= RangeMinRangeFilter "Can Trade";
   if(
MaxRangePips == 0MaxRangeFilter "Not Used";
   if(
MinRangePips == 0MinRangeFilter "Not Used";
   if(
MaxRangeFilter == "Can Trade" && MinRangeFilter == "Can Trade"RangeFilter "Between Min and Max Range";
   if(
MaxRangeFilter == "Can Trade" && MinRangeFilter == "Not Used"RangeFilter "Inside Max Range";
   if(
MaxRangeFilter == "Not Used" && MinRangeFilter == "Can Trade"RangeFilter "Outside Min Range";
   if(
MaxRangeFilter == "Not Used" && MinRangeFilter == "Not Used"RangeFilter "Not Used";
   
   
//Count Trades Taken
   
int TotalTrades 0;
   
int LongTrades 0;
   
int ShortTrades 0;
   
int ProfitTrades 0;
   
int LossTrades 0;
   
int SimultaneousTrades 0;
   
int SimultaneousLongTrades 0;
   
int SimultaneousShortTrades 0;
   
   for(
int OC OrdersTotal(); OC >= 0OC--)
      {
      
OrderSelect(OCSELECT_BY_POSMODE_TRADES);
      if(
OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && (OrderType() == OP_BUY || OrderType() == OP_SELL) && OrderOpenTime() >= RangeStopTime)
         {
         
TotalTrades++;
         
SimultaneousTrades++;
         if(
OrderType() == OP_BUY)
            {
            
LongTrades++;
            
SimultaneousLongTrades++;
            }
         if(
OrderType() == OP_SELL
            {
            
ShortTrades++;
            
SimultaneousShortTrades++;
            }
         if(
CountOpenTrades)
            {
            if(
OrderProfit() > 0.0ProfitTrades++;
            if(
OrderProfit() < 0.0LossTrades++;
            }
         }
      }
   for(
OC OrdersHistoryTotal(); OC >= 0OC--)
      {
      
OrderSelect(OCSELECT_BY_POSMODE_HISTORY);
      if(
OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && (OrderType() == OP_BUY || OrderType() == OP_SELL) && OrderOpenTime() >= RangeStopTime)
         {
         
TotalTrades++;
         if(
OrderType() == OP_BUYLongTrades++;
         if(
OrderType() == OP_SELLShortTrades++;
         if(
OrderProfit() > 0.0ProfitTrades++;
         if(
OrderProfit() < 0.0LossTrades++;
         }
      }
   
   
string TradeCheck "Can Trade";
   if(
MaxSimultaneousTrades != && SimultaneousTrades >= MaxSimultaneousTradesTradeCheck "No Trade";
   if(
MaxTrades != && TotalTrades >= MaxTradesTradeCheck "No Trade";
   if(
MaxProfitTrades != && ProfitTrades >= MaxProfitTradesTradeCheck "No Trade";
   if(
MaxLossTrades != && LossTrades >= MaxLossTradesTradeCheck "No Trade";
      
   
   
string LongTradeCheck "Can Trade";
   if(
MaxSimultaneousLongTrades != && SimultaneousLongTrades >= MaxSimultaneousLongTradesLongTradeCheck "No Trade";
   if(
MaxLongTrades != && LongTrades >= MaxLongTradesLongTradeCheck "No Trade";
   
   
string ShortTradeCheck "Can Trade";
   if(
MaxSimultaneousShortTrades != && SimultaneousShortTrades >= MaxSimultaneousShortTradesShortTradeCheck "No Trade";
   if(
MaxShortTrades != && ShortTrades >= MaxShortTradesShortTradeCheck "No Trade";
   
   
string TradeTrigger "None";   
   if(
TradeCheck == "Can Trade" && RangeFilter != "No Trade" && TradingTimes != "Outside Trading Times")
      {
      if(
LongTradeCheck == "Can Trade" && CurrentTick >= LongEntry && PreviousTick LongEntry && iOpen(NULL0Current 0) < LongEntryTradeTrigger "Open Long";
      if(
ShortTradeCheck == "Can Trade" && CurrentTick <= ShortEntry && PreviousTick ShortEntry && iOpen(NULL0Current 0) > ShortEntryTradeTrigger "Open Short";
      }
   
   
Comment("Broker Type: "BrokerType"\n",
           
"Trading Times: "TradingTimes"\n",
           
"Range Filter: "RangeFilter"\n",
           
"Trade Check: "TradeCheck"\n",
           
"Long Trade Check: "LongTradeCheck"\n",
           
"Short Trade Check: "ShortTradeCheck"\n",
           
"Trade Trigger: "TradeTrigger);
           
   if(
RangeStartTime != RangeStopTime)
      {           
      
ObjectDelete(WindowExpertName()+" "+"RangeStart");
      
ObjectCreate(WindowExpertName()+" "+"RangeStart"OBJ_TREND0RangeStartTimeHighPriceRangeStartTimeLowPrice);
      
ObjectSet(WindowExpertName()+" "+"RangeStart"OBJPROP_RAYFalse);
      
ObjectSet(WindowExpertName()+" "+"RangeStart"OBJPROP_COLORYellow);
      
ObjectSet(WindowExpertName()+" "+"RangeStart"OBJPROP_STYLESTYLE_DASHDOTDOT);
      
ObjectSet(WindowExpertName()+" "+"RangeStart"OBJPROP_BACKTrue);
      
      
ObjectDelete(WindowExpertName()+" "+"RangeStop");
      
ObjectCreate(WindowExpertName()+" "+"RangeStop"OBJ_TREND0RangeStopTimeHighPriceRangeStopTimeLowPrice);
      
ObjectSet(WindowExpertName()+" "+"RangeStop"OBJPROP_RAYFalse);
      
ObjectSet(WindowExpertName()+" "+"RangeStop"OBJPROP_COLORYellow);
      
ObjectSet(WindowExpertName()+" "+"RangeStop"OBJPROP_STYLESTYLE_DASHDOTDOT);
      
ObjectSet(WindowExpertName()+" "+"RangeStop"OBJPROP_BACKTrue);
              
      
ObjectDelete(WindowExpertName()+" "+"RangeHigh");
      
ObjectCreate(WindowExpertName()+" "+"RangeHigh"OBJ_TREND0RangeStartTimeHighPriceRangeStopTimeHighPrice);
      
ObjectSet(WindowExpertName()+" "+"RangeHigh"OBJPROP_RAYFalse);
      
ObjectSet(WindowExpertName()+" "+"RangeHigh"OBJPROP_COLORYellow);
      
ObjectSet(WindowExpertName()+" "+"RangeHigh"OBJPROP_STYLESTYLE_DASHDOTDOT);
      
ObjectSet(WindowExpertName()+" "+"RangeHigh"OBJPROP_BACKTrue);
      
      
ObjectDelete(WindowExpertName()+" "+"RangeLow");
      
ObjectCreate(WindowExpertName()+" "+"RangeLow"OBJ_TREND0RangeStartTimeLowPriceRangeStopTimeLowPrice);
      
ObjectSet(WindowExpertName()+" "+"RangeLow"OBJPROP_RAYFalse);
      
ObjectSet(WindowExpertName()+" "+"RangeLow"OBJPROP_COLORYellow);
      
ObjectSet(WindowExpertName()+" "+"RangeLow"OBJPROP_STYLESTYLE_DASHDOTDOT);
      
ObjectSet(WindowExpertName()+" "+"RangeLow"OBJPROP_BACKTrue);
      
      
ObjectDelete(WindowExpertName()+" "+"LongEntry");
      
ObjectCreate(WindowExpertName()+" "+"LongEntry"OBJ_TREND0RangeStartTimeLongEntryRangeStopTimeLongEntry);
      
ObjectSet(WindowExpertName()+" "+"LongEntry"OBJPROP_RAYTrue);
      
ObjectSet(WindowExpertName()+" "+"LongEntry"OBJPROP_COLORLime);
      
ObjectSet(WindowExpertName()+" "+"LongEntry"OBJPROP_STYLESTYLE_DASHDOT);
      
ObjectSet(WindowExpertName()+" "+"LongEntry"OBJPROP_BACKTrue);
      
      
ObjectDelete(WindowExpertName()+" "+"ShortEntry");
      
ObjectCreate(WindowExpertName()+" "+"ShortEntry"OBJ_TREND0RangeStartTimeShortEntryRangeStopTimeShortEntry);
      
ObjectSet(WindowExpertName()+" "+"ShortEntry"OBJPROP_RAYTrue);
      
ObjectSet(WindowExpertName()+" "+"ShortEntry"OBJPROP_COLORRed);
      
ObjectSet(WindowExpertName()+" "+"ShortEntry"OBJPROP_STYLESTYLE_DASHDOT);
      
ObjectSet(WindowExpertName()+" "+"ShortEntry"OBJPROP_BACKTrue);
      }
      
   
//+------------------------------------------------------------------+
   //| Variable End                                                     |
   //+------------------------------------------------------------------+

   //Check position
   
bool IsTrade False;

   for (
int i 0Total++) {
      
OrderSelect(iSELECT_BY_POSMODE_TRADES);
      if(
OrderType() <= OP_SELL &&  OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
         
IsTrade True;
         if(
OrderType() == OP_BUY) {
         
            
            
//Close

            //+------------------------------------------------------------------+
            //| Signal Begin(Exit Buy)                                           |
            //+------------------------------------------------------------------+
            
            
if(CloseOnOppositeSignal && TradeTrigger == "Open Short"Order SIGNAL_CLOSEBUY;
            
            
//+------------------------------------------------------------------+
            //| Signal End(Exit Buy)                                             |
            //+------------------------------------------------------------------+

            
if (Order == SIGNAL_CLOSEBUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != CloseBarCount)))) {
               
OrderClose(OrderTicket(), OrderLots(), BidSlippageMediumSeaGreen);
               if (
SignalMailSendMail("[Signal Alert]""[" Symbol() + "] " DoubleToStr(BidDigits) + " Close Buy");
               if (!
EachTickModeCloseBarCount Bars;
               
IsTrade False;
               continue;
            }
            
            
PotentialStopLoss OrderStopLoss();
            
BEven BreakEvenValue(MoveStopOnceOrderTicket(), MoveStopToMoveStopWhenPrice);
            
BEven1 BreakEvenValue(UseMultipleMoveStopOnceOrderTicket(), (CalculateRange(OrderOpenTime()) * MoveStopToMultiple) / Point + (MoveStopToMultipleBuffer), (CalculateRange(OrderOpenTime()) * MoveStopWhenRangeMultiple) / Point + (MoveStopWhenRangeMultipleBuffer));
            
TrailStop TrailingStopValue(UseTrailingStopOrderTicket(), TrailingStop);
            
TrailStop1 TrailingStopValue(UseMultipleTrailingStopOrderTicket(), (CalculateRange(OrderOpenTime()) * TSMultiple) / Point + (TSMultipleBuffer));
            
            if(
BEven PotentialStopLoss && BEven != 0PotentialStopLoss BEven;
            if(
BEven1 PotentialStopLoss && BEven1 != 0PotentialStopLoss BEven1;
            if(
TrailStop PotentialStopLoss && TrailStop != 0PotentialStopLoss TrailStop;
            if(
TrailStop1 PotentialStopLoss && TrailStop1 != 0PotentialStopLoss TrailStop1;
             
            if(
PotentialStopLoss != OrderStopLoss()) OrderModify(OrderTicket(),OrderOpenPrice(), PotentialStopLossOrderTakeProfit(), 0MediumSeaGreen); 
         
         } else {
        
            
//Close

            //+------------------------------------------------------------------+
            //| Signal Begin(Exit Sell)                                          |
            //+------------------------------------------------------------------+

            
if(CloseOnOppositeSignal && TradeTrigger == "Open Long"Order SIGNAL_CLOSESELL;

            
//+------------------------------------------------------------------+
            //| Signal End(Exit Sell)                                            |
            //+------------------------------------------------------------------+

            
if (Order == SIGNAL_CLOSESELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != CloseBarCount)))) {
               
OrderClose(OrderTicket(), OrderLots(), AskSlippageDarkOrange);
               if (
SignalMailSendMail("[Signal Alert]""[" Symbol() + "] " DoubleToStr(AskDigits) + " Close Sell");
               if (!
EachTickModeCloseBarCount Bars;
               
IsTrade False;
               continue;
            }
            
            
PotentialStopLoss OrderStopLoss();
            
BEven BreakEvenValue(MoveStopOnceOrderTicket(), MoveStopToMoveStopWhenPrice);
            
BEven1 BreakEvenValue(UseMultipleMoveStopOnceOrderTicket(), (CalculateRange(OrderOpenTime()) * MoveStopToMultiple) / Point + (MoveStopToMultipleBuffer), (CalculateRange(OrderOpenTime()) * MoveStopWhenRangeMultiple) / Point + (MoveStopWhenRangeMultipleBuffer));
            
TrailStop TrailingStopValue(UseTrailingStopOrderTicket(), TrailingStop);
            
TrailStop1 TrailingStopValue(UseMultipleTrailingStopOrderTicket(), (CalculateRange(OrderOpenTime()) * TSMultiple) / Point + (TSMultipleBuffer));
            
            
            if((
BEven PotentialStopLoss && BEven != 0) || (PotentialStopLoss == 0)) PotentialStopLoss BEven;
            if((
BEven1 PotentialStopLoss && BEven1 != 0) || (PotentialStopLoss == 0)) PotentialStopLoss BEven1;
            if((
TrailStop PotentialStopLoss && TrailStop != 0) || (PotentialStopLoss == 0)) PotentialStopLoss TrailStop;
            if((
TrailStop1 PotentialStopLoss && TrailStop1 != 0) || (PotentialStopLoss == 0)) PotentialStopLoss TrailStop1;
            
            if(
PotentialStopLoss != OrderStopLoss() || OrderStopLoss() == 0OrderModify(OrderTicket(),OrderOpenPrice(), PotentialStopLossOrderTakeProfit(), 0DarkOrange);
              
         }
      }
   }

   
//+------------------------------------------------------------------+
   //| Signal Begin(Entry)                                              |
   //+------------------------------------------------------------------+

if(TradeTrigger == "Open Long"Order SIGNAL_BUY;
if(
TradeTrigger == "Open Short"Order SIGNAL_SELL;

   
//+------------------------------------------------------------------+
   //| Signal End                                                       |
   //+------------------------------------------------------------------+

   //Buy
   
if (Order == SIGNAL_BUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != OpenBarCount)))) {
      if(
SignalsOnly) {
         if (
SignalMail && LongMailSignalBarCount != Bars
            {
            
SendMail("[Signal Alert]""[" Symbol() + "] " DoubleToStr(AskDigits) + "Buy Signal");
            
LongMailSignalBarCount Bars;
            }
         if (
Alerts && LongAlertSignalBarCount != Bars)
            {
            
Alert("[" Symbol() + "] " DoubleToStr(AskDigits) + "Buy Signal");
            
LongAlertSignalBarCount Bars;
            }
         if (
PlaySounds && LongSoundSignalBarCount != Bars
            {
            
PlaySound("alert.wav");
            
LongSoundSignalBarCount Bars;
            }
      }
      
      if(!
IsTrade && !SignalsOnly && TradesThisBar 1) {
         
//Check free margin
         
if (AccountFreeMarginCheck(Symbol(), OP_BUYLots) < 0) {
            Print(
"We have no money. Free Margin = "AccountFreeMargin());
            return(
0);
         }
         
StopLossLevel 0.0;
         
TakeProfitLevel 0.0;
         if (
UseStopLoss
            {
            if(
StopLoss != && Ask StopLoss Point StopLossLevelStopLossLevel Ask StopLoss Point
            if(
SLMultiplier != 0.0 && Ask - (Range SLMultiplier) - (SLMultiplierBuffer Point) > StopLossLevelStopLossLevel Ask - (Range SLMultiplier) - (SLMultiplierBuffer Point);
            }
         if(!
UseStopLossStopLossLevel 0.0;
            
         if (
UseTakeProfit
            {
            if(
TakeProfit != && Ask TakeProfit Point >= TakeProfitLevelTakeProfitLevel Ask TakeProfit Point
            if(
TPMultiplier != 0.0 && Ask + (Range TPMultiplier) + (TPMultiplierBuffer Point) > TakeProfitLevelTakeProfitLevel Ask + (Range TPMultiplier) + (TPMultiplierBuffer Point);
            }
         
         if (!
UseTakeProfitTakeProfitLevel 0.0;
         if(
ECNBrokerTicket OrderModify(OrderSend(Symbol(), OP_BUYLotsAskSlippage00"Buy(#" MagicNumber ")"MagicNumber0DodgerBlue), OrderOpenPrice(), StopLossLevelTakeProfitLevel0CLR_NONE);
         if(!
ECNBrokerTicket OrderSend(Symbol(), OP_BUYLotsAskSlippageStopLossLevelTakeProfitLevel"Buy(#" MagicNumber ")"MagicNumber0DodgerBlue);
            if(
Ticket 0) {
               if (
OrderSelect(TicketSELECT_BY_TICKETMODE_TRADES)) {
                  Print(
"BUY order opened : "OrderOpenPrice());
                  if (
SignalMail && LongMailSignalBarCount != Bars
                     {
                     
SendMail("[Signal Alert]""[" Symbol() + "] " DoubleToStr(AskDigits) + "Buy Signal");
                     
LongMailSignalBarCount Bars;
                     }
                  if (
Alerts && LongAlertSignalBarCount != Bars)
                     {
                     
Alert("[" Symbol() + "] " DoubleToStr(AskDigits) + "Buy Signal");
                     
LongAlertSignalBarCount Bars;
                     }
                  if (
PlaySounds && LongSoundSignalBarCount != Bars
                     {
                     
PlaySound("alert.wav");
                     
LongSoundSignalBarCount Bars;
                     }
                  
TradesThisBar++;
               } else {
                   Print(
"Error opening BUY order : "GetLastError());
               }
            }
            
         if (
EachTickModeTickCheck True;
         if (!
EachTickModeOpenBarCount Bars;
         return(
0);
      }
   }

   
//Sell
   
if (Order == SIGNAL_SELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != OpenBarCount)))) {
      if(
SignalsOnly) {
          if (
SignalMail && ShortMailSignalBarCount != Bars
            {
            
SendMail("[Signal Alert]""[" Symbol() + "] " DoubleToStr(BidDigits) + "Sell Signal");
            
ShortMailSignalBarCount Bars;
            }
          if (
Alerts && ShortAlertSignalBarCount != Bars)
            {
            
Alert("[" Symbol() + "] " DoubleToStr(BidDigits) + "Sell Signal");
            
ShortAlertSignalBarCount Bars;
            }
          if (
PlaySounds && ShortSoundSignalBarCount != Bars
            {
            
PlaySound("alert.wav");
            
ShortSoundSignalBarCount Bars;
            }
         }
      if(!
IsTrade && !SignalsOnly && TradesThisBar 1) {
         
//Check free margin
         
if (AccountFreeMarginCheck(Symbol(), OP_SELLLots) < 0) {
            Print(
"We have no money. Free Margin = "AccountFreeMargin());
            return(
0);
         }
         
StopLossLevel 0.0;
         
TakeProfitLevel 0.0;
         if (
UseStopLoss
            {
            if(
StopLoss != && ((Bid StopLoss Point <= StopLossLevel) || StopLossLevel == 0.0)) StopLossLevel Bid StopLoss Point
            if(
SLMultiplier != && (((Bid + (SLMultiplier Range) + (SLMultiplierBuffer Point)) <= StopLossLevel) || StopLossLevel == 0.0)) StopLossLevel Bid + (SLMultiplier Range) + (SLMultiplierBuffer Point); 
            }
         
         if (!
UseStopLossStopLossLevel 0.0;
         
         
         if (
UseTakeProfit
            {
            if(
TakeProfit != && ((Bid TakeProfit Point <= TakeProfitLevel) || TakeProfitLevel == 0)) TakeProfitLevel Bid TakeProfit Point
            if(
TPMultiplier != 0.0 && (((Bid - (Range TPMultiplier) + (TPMultiplierBuffer Point)) < TakeProfitLevel) || TakeProfitLevel == 0)) TakeProfitLevel Bid - (Range TPMultiplier) + (TPMultiplierBuffer Point);
            }
         if (!
UseTakeProfitTakeProfitLevel 0.0;
         
         if(
ECNBrokerTicket OrderModify(OrderSend(Symbol(), OP_SELLLotsBidSlippage00"Sell(#" MagicNumber ")"MagicNumber0DeepPink), OrderOpenPrice(), StopLossLevelTakeProfitLevel0CLR_NONE);
         if(!
ECNBrokerTicket OrderSend(Symbol(), OP_SELLLotsBidSlippageStopLossLevelTakeProfitLevel"Sell(#" MagicNumber ")"MagicNumber0DeepPink);
         if(
Ticket 0) {
            if (
OrderSelect(TicketSELECT_BY_TICKETMODE_TRADES)) {
                Print(
"SELL order opened : "OrderOpenPrice());
                if (
SignalMail && ShortMailSignalBarCount != Bars
                  {
                  
SendMail("[Signal Alert]""[" Symbol() + "] " DoubleToStr(BidDigits) + "Sell Signal");
                  
ShortMailSignalBarCount Bars;
                  }
               if (
Alerts && ShortAlertSignalBarCount != Bars)
                  {
                  
Alert("[" Symbol() + "] " DoubleToStr(BidDigits) + "Sell Signal");
                  
ShortAlertSignalBarCount Bars;
                  }
               if (
PlaySounds && ShortSoundSignalBarCount != Bars
                  {
                  
PlaySound("alert.wav");
                  
ShortSoundSignalBarCount Bars;
                  }
                
TradesThisBar++;
            } else {
                Print(
"Error opening SELL order : "GetLastError());
            }
         }
         if (
EachTickModeTickCheck True;
         if (!
EachTickModeOpenBarCount Bars;
         return(
0);
      }
   }

   if (!
EachTickModeCloseBarCount Bars;
   if(
TickDatabase && !IsTesting() && !IsOptimization() && IsDllsAllowed()) TickData();
   return(
0);
}

void TickData ()
   {
   
UserName WindowExpertName();
   
SymbolUsed StringSubstr(Symbol(), 06);
   if(
GMTBar != Bars)
      {
      
GMTTime LoadURL("http://www.ronaldraygunforex.com/TickDB/Time.php");
      
GMTBar Bars;
      
GMTShift TimeCurrent() - StrToTime(GMTTime);
      } 

   if(
TimeDayOfYear(TimeCurrent()) != RecordDay)
      {
      
URL LoadURL("http://www.ronaldraygunforex.com/TickDB/UserLog.php?UN="+UserName+"&P="+SymbolUsed+"&TL="+TickCount);
   
      if(
StringFind(URL"1 record added") != -1)
         {
         
TickCount 0;
         
RecordDay TimeDayOfYear(TimeCurrent());
         }
      }
   
   
CurGMTTime StrToTime(GMTTime);
  
   
CurrentGMTTime TimeCurrent() - GMTShift;
   
//CurrentGMTTime = CurGMTTime + TimeCurrent - CurBrokerTime
   
   
URL LoadURL("http://www.ronaldraygunforex.com/TickDB/Load.php?TN="+SymbolUsed+"&GMT="+CurrentGMTTime+"&TT="+TimeCurrent()+"&B="+DoubleToStr(NormalizeDouble(Bid,Digits),Digits)+"&A="+DoubleToStr(NormalizeDouble(Ask,Digits),Digits)+"&BN="+AccountCompany()+"&UN="+UserName);
  
   if(
StringFind(URL"1 record added") != -1)
      {
      
TickCount++;
      }
      else
      {
      Print(
SymbolUsed+" Error: "+URL);
      
LoadURL("http://www.ronaldraygunforex.com/TickDB/Error.php?UN="+UserName+"&Error="+URL);
      }
   }
   
   
string LoadURL (string URLLoad)
   {
   
int Position StringFind(URLLoad" ");
   
   while (
Position != -1)
      {
      
string InitialURLA StringTrimLeft(StringTrimRight(StringSubstr(URLLoad0StringFind(URLLoad" "0))));
      
string InitialURLB StringTrimLeft(StringTrimRight(StringSubstr(URLLoadStringFind(URLLoad" "0))));
      
URLLoad InitialURLA+"%20"+InitialURLB;
      
Position StringFind(URLLoad" ");
      if(
ShowDiagnostics) Print("Processing URL: "+URLLoad);
      }
      
   
MaxTries =0
   
URLHandle=0;
   while (
MaxTries && URLHandle == 0)
      {
      if(
SessionHandle != 0)
         {
         
URLHandle InternetOpenUrlA(SessionHandleURLLoadNULL0INTERNET_FLAG_NO_CACHE_WRITE |
                                                                   
INTERNET_FLAG_PRAGMA_NOCACHE |
                                                                   
INTERNET_FLAG_RELOAD |
                                                                   
INTERNET_FLAG_NO_COOKIES0);
         }
      if(
URLHandle == 0)
         {
         
InternetCloseHandle(SessionHandle);
         if(
ShowDiagnostics) Print("Closing Handle");
         
SessionHandle InternetOpenA("mymt4InetSession"Internet_Open_Type_DirectNULLNULL0);
         }
         
      
MaxTries++;   
      }
      
   if(
ShowDiagnostics) Print("URL Handle: "URLHandle);   
      
   
//Parse file 
    
   
FinalStr "";
   
bytesreturned[0]=1;
   
   while (
bytesreturned[0] > 0)
      {

    
     
      
// get next chunk
      
InternetReadFile(URLHandleTempStr maxreadlenbytesreturned);
      if(
ShowDiagnostics) Print("bytes returned: "+bytesreturned[0]);
      
      

      if(
bytesreturned[0] > 0)
      
FinalStr FinalStr StringSubstr(TempStr0bytesreturned[0]);
            
      }

      if(
ShowDiagnostics) Print("FinalStr: "+FinalStr);

   
// now we are done with the URL we can close its handle 
   
InternetCloseHandle(URLHandle);
   
   return(
FinalStr);    
   }

double BreakEvenValue (bool Decisionint OrderTicketNumint MoveStopToint MoveStopwhenPrice)
   {
   
//Select the appropriate order ticket
   
OrderSelect(OrderTicketNumSELECT_BY_TICKETMODE_TRADES);
   
   
//If the Order is a BUY order...
   
if(OrderType() == OP_BUY)
      {
      
//Check if the user wants to use the MoveStopOnce function and did it correctly
      
if(Decision && MoveStopWhenPrice 0
         {
         
//Check if the trade is above the required profit threshold
         
if(Bid OrderOpenPrice() >= Point MoveStopWhenPrice
            {
            
//Return the value of the stoploss
            
return(OrderOpenPrice() + Point MoveStopTo);
            }
         }
      }
   
   
//If the Order is a SELL order...   
   
if(OrderType() == OP_SELL)
      {
      
//Check if the user wants to use the MoveStopOnce function and did it correctly
      
if(Decision && MoveStopWhenPrice 0
         {
         
//Check if the trade is above the required profit threshold
         
if(OrderOpenPrice() - Ask >= Point MoveStopWhenPrice
            {
            
//Return the value of the stoploss
            
return(OrderOpenPrice() - Point MoveStopTo);
            }
         }
      }   
      
   if(
OrderType() != OP_BUY || OrderType() != OP_SELL) return(0);
   }
   
double TrailingStopValue (bool Decisionint OrderTicketNumint FTrailingStop)
   {
   
//Select the appropriate order ticket
   
OrderSelect(OrderTicketNumSELECT_BY_TICKETMODE_TRADES);
   
   
//If the Order is a BUY order...
   
if(OrderType() == OP_BUY)
      {
      
//Check if the user wants to use teh Trailingstop function and did it correctly
      
if(Decision && FTrailingStop 0
         {                 
         
//Check to see that the profit threshold is met
         
if(Bid OrderOpenPrice() > Point FTrailingStop
            {
            
//Return the value of the potential stoploss
            
return(Bid Point FTrailingStop);
            }
         }
      }
   
//If the Order is a SELL order...
   
if(OrderType() == OP_SELL)
      {
      
//Check if the user wants to use teh Trailingstop function and did it correctly
      
if(Decision && FTrailingStop 0
         {                 
         
//Check to see that the profit threshold is met
         
if((OrderOpenPrice() - Ask) > (Point FTrailingStop)) 
            {
            
//Return the value of the potential stoploss
            
return(Ask Point FTrailingStop);
            }
         }
      }     
   
//If the trade is not the right order type, give a stoploss of 0   
   
if(OrderType() != OP_BUY || OrderType() != OP_SELL) return(0);
   }
   
double CalculateRange (datetime TimeReference)
   {
   
datetime RangeStartTime StrToTime(RangeStartHour+":"+RangeStartMinute);
   
datetime RangeStopTime StrToTime(RangeStopHour+":"+RangeStopMinute);
   
   while(
RangeStopTime >= TimeReference
      {
      
RangeStartTime RangeStartTime 86400;
      
RangeStopTime RangeStopTime 86400;
      }
   while(
RangeStartTime RangeStopTime)
      {
      
RangeStartTime RangeStartTime 86400;
      }
   
int RangeStartShift iBarShift(NULL0RangeStartTimeFalse);
   
int RangeStopShift iBarShift(NULL0RangeStopTimeFalse);   
   
   
double HighPrice iHigh(NULL0iHighest(NULL0PRICE_HIGHRangeStartShift RangeStopShiftRangeStopShift));
   
double LowPrice iLow(NULL0iLowest(NULL0PRICE_LOWRangeStartShift RangeStopShiftRangeStopShift));
   
   return(
HighPrice LowPrice);
   } 
Angehängte Dateien
Dateityp: mq4 Generic Breakout Version 7 [TD].mq4 (39,3 KB, 11x aufgerufen)
  #4 (permalink)  
Alt 04.11.15
Elite Mitglied
 
Registriert seit: Apr 2011
Beiträge: 2.733
traderdoc befindet sich auf einem aufstrebenden Ast
Standard

Außer einem Array mit der Size = 1 kann ich kein sich evtl. vollaufendes Array erkennen.
Aber ich kann erkennen, dass eine URL aufgerufen wird, in deren Anschluß mit while-Schleifen gearbeitet wird. Die sind insofern immer kritisch, da sie schnell und unkontrolliert zur Dauerschleife werden können.

traderdoc
Pago2013 likes this.
__________________
Ich erfülle Euch gern Eure EA-, Indikator- und Script-Programmierungswünsche auf Honorarbasis.
  #5 (permalink)  
Alt 04.11.15
Neues Mitglied
 
Registriert seit: Jun 2013
Beiträge: 22
Pago2013 befindet sich auf einem aufstrebenden Ast
Standard

Ja, ich denke es liegt an TickData() obwohl ich da jetzt keine Schleife gesehen hab.
Setz mal bitte TickDatabase auf False und schau was er dann macht...
Da ist mit hoher Wahrscheinlichkeit ein Bug drin da diese Funktion beim Backtest ausgeschaltet ist.
  #6 (permalink)  
Alt 04.11.15
Elite Mitglied
 
Registriert seit: Apr 2011
Beiträge: 2.733
traderdoc befindet sich auf einem aufstrebenden Ast
Standard

Zitat:
Zitat von Pago2013 Beitrag anzeigen
Ja, ich denke es liegt an TickData() obwohl ich da jetzt keine Schleife gesehen hab.
Setz mal bitte TickDatabase auf False und schau was er dann macht...
Da ist mit hoher Wahrscheinlichkeit ein Bug drin da diese Funktion beim Backtest ausgeschaltet ist.
Aber darunter u.a. in der Funktion:
string LoadURL (string URLLoad)

traderdoc
__________________
Ich erfülle Euch gern Eure EA-, Indikator- und Script-Programmierungswünsche auf Honorarbasis.
  #7 (permalink)  
Alt 05.11.15
Neues Mitglied
 
Registriert seit: Apr 2014
Beiträge: 3
pratwa befindet sich auf einem aufstrebenden Ast
Standard

Danke!!!

Es lag an der TickDatabase!
Thema geschlossen

Lesezeichen

Stichworte
ea, ea handelt nicht, expert advisor, out of memory, out of memory ea, out of memory expert advisor, speicherproblem

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are aus
Pingbacks are aus
Refbacks are aus




Alle Zeitangaben in WEZ +1. Es ist jetzt 07:35 Uhr.





Suchmaschine - Reisen - Wavesnode - Facebook Forum - Spam Firewall
-----------------------------------------------------------------------------------------------------------------------------
Powered by vBulletin® Version 3.8.5 (Deutsch)
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Powered by vBCMS® 2.7.0 ©2002 - 2024 vbdesigns.de
SEO by vBSEO 3.6.1
Copyright ©2009 - 2023 by Expert-Advisor.com - Das Metatrader Forum
MetaTrader bzw. MetaTrader 4 und MetaTrader 5 sind eingetragene Marken der MetaQuotes Software Corp.
-----------------------------------------------------------------------------------------------------------------------------