Hallo.
Das Gerät im Anhang hat heute von 7 bis halb 6 etwas über 80 Euro eingebracht. 
Aber wie immer gibts immer wieder längere "Pausen". Gleich früh hat er für die nächste Order ungefähr ne halbe Stunde gebraucht. Es gibt keine Fehlermeldungen oder sonst irgendwas. Ich bin mit meinem Latein echt am Ende und weiß wirklich nicht, woran diese Unterbrechungen liegen. Würde immer gleich nach dem Schließen einer Order die Nächste in die jeweilige Richtung geöffnet werden, wär das Ding noch nen gutes Stück profitabler. Vor allem soll er ja auch so funktionieren, wie er eigentlich soll.
Um die "Lücken" zu schließen, oder sie wenigstens weniger schlimm zu machen, könnte man vielleicht versuchen, den selber geproggten "TP" zu erhöhen. Steht derzeit auf 50, vielleicht wär 100 oder noch mehr besser. 
Aber es kann ja eigentlich nur am Broker (ActivTrades) liegen. Der hat wohl was gegen Hedgen und Scalpen. Kennt Jemand Forex-Broker, möglichst nen deutschen, bei dem sich Hedger austoben können, wie sie wollen?
Code:
//=============================================================================================================
// E I N S T E L L U N G E N
//=============================================================================================================
//-----------------------------------------------------------------------------------------------------------*/
extern string OPORTY="Open Order Types";
input bool open_Buy=true;
input bool open_Sell=true;
//-----------------------------------------------------------------------------------------------------------*/
extern string MN="Magic Numbers";
extern int Buy_MN=2;
extern int Sell_MN=4;
//-----------------------------------------------------------------------------------------------------------*/
extern string OOO1="Open Orders";
extern string OOO2="from/till";
extern string OOO3="(Server Time)";
extern int Open_From_Hour=7;
extern int Open_From_Min=0;
extern int Open_Till_Hour=17;
extern int Open_Till_Min=26;
//-----------------------------------------------------------------------------------------------------------*/
extern string CAOTOC1="Close all Orders after";
extern string CAOTOC2="(Server Time)";
extern bool Close_all_Orders_after=true;
extern int Close_after_Hour=17;
extern int Close_after_Min=27;
//-----------------------------------------------------------------------------------------------------------*/
extern int Slippage=99999999;
//-----------------------------------------------------------------------------------------------------------*/
extern double LotsBuy=0.01;
extern double LotsSel=0.01;
extern string esLPOCP1="Lots Buy/Lots Sell";
extern string esLPOCP2="+ LotsPlus";
extern string esLPOCP3="if Order close";
extern string esLPOCP4="with Profit";
extern double LotsPlus=0.01; //
//-----------------------------------------------------------------------------------------------------------*/
extern int SL=1800; // 1800 testen
//-----------------------------------------------------------------------------------------------------------*/
extern int TP=2000; // Zum Testen 2000
//-----------------------------------------------------------------------------------------------------------*/
extern string esIITCBSMS1="if IsTradeContexBusy()";
extern string esIITCBSMS2="sleep Milli Seconds";
extern int Sl_MS=20;
//-----------------------------------------------------------------------------------------------------------*/
extern string esDOPtAB1="Distance to";
extern string esDOPtAB2="Order Open Price";
extern string esDOPtAB3="close Win-Order";
extern string esDOPtAB4="If close with Profit";
extern string esDOPtAB5="Lots Buy + Lots Sel /";
extern string esDOPtAB6="Lots Sel + Lots Buy";
extern int Dist = 50; // Zum Testen 50. Weniger ist wahrscheinlich nicht ausreichend?
//-----------------------------------------------------------------------------------------------------------*/
//=============================================================================================================
// I N I T / D E I N I T
//=============================================================================================================
int init(){
return(NULL);}
int deinit(){
return(NULL);}
//=============================================================================================================
// E A F U N K T I O N E N S T A R T
//=============================================================================================================int
int start(){
//=============================================================================================================
// L O T S
//=============================================================================================================
double Min_L=MarketInfo(Symbol(),MODE_MINLOT);
double Max_L=MarketInfo(Symbol(),MODE_MAXLOT);
if(LotsBuy<Min_L)LotsBuy=Min_L;
if(LotsSel<Min_L)LotsSel=Min_L;
if(LotsBuy>=Max_L){
LotsBuy=Max_L;
LotsPlus=0.0;}
if(LotsSel>=Max_L){
LotsSel=Max_L;
LotsPlus=0.0;}
//=============================================================================================================
// S T O P L O S S
//=============================================================================================================
//SL auf 0 stellen, wenn oben <1,
//um irgendwelche Missverständnisse zu vermeiden.
if(SL<1){
double Buy_SL=0.0;
double Sel_SL=0.0;}
else{
Buy_SL=NormalizeDouble(Ask-SL*_Point,_Digits);
Sel_SL=NormalizeDouble(Bid+SL*_Point,_Digits);}
//SL genauso groß wie Minstoplevels machen, wenn er kleiner ist:
double MSL=MarketInfo(Symbol(),MODE_STOPLEVEL);
if(Buy_SL<MSL)Buy_SL=MSL;
if(Sel_SL<MSL)Sel_SL=MSL;
//=============================================================================================================
// T A K E P R O F I T
//=============================================================================================================
//TP auf 0 stellen, wenn oben <1,
//um irgendwelche Missverständnisse zu vermeiden.
if(TP<1){
double Buy_TP=0.0;
double Sel_TP=0.0;}
else{
Buy_TP=NormalizeDouble(Ask+TP*_Point,_Digits);
Sel_TP=NormalizeDouble(Bid-TP*_Point,_Digits);}
//=============================================================================================================
// C L O S E D I S T A N C E B E R E C H N U N G
//=============================================================================================================
double CLbuy_D = NormalizeDouble( Bid - Dist *_Point,_Digits);
double CLsel_D = NormalizeDouble( Ask + Dist *_Point,_Digits);
//=============================================================================================================
// O P E N O R D E R S
//=============================================================================================================
if(Hour()>=Open_From_Hour&&Minute()>=Open_From_Min&&Hour()<=Open_Till_Hour&&Minute()<=Open_Till_Min){
//-----------------------------------------------------------------------------------------------------------*/
if(open_Buy==true){
bool LO=false;
for(int i=OrdersTotal()-1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS)){
if(OrderType()==OP_BUY&&OrderMagicNumber()==Buy_MN&&OrderSymbol()==Symbol()){
LO=true;
Print( "-Open Buy Order Selected:" , "-Long?:",LO , "-OrderTyp:",OrderType() , "-OrderMN:",OrderMagicNumber() , "-BuyMN:",Buy_MN , "-OrderSymbol:",OrderSymbol() , "-Symbol:",Symbol() );}}}
if(LO==false&&IsTradeAllowed()==true){
OrderSend(Symbol(),OP_BUY,LotsBuy,Ask,Slippage,Buy_SL,Buy_TP,NULL,Buy_MN,Blue);
Print( "-Buy Order Sended:" , "-Long?:",LO , "-IsTradeAllowed:",IsTradeAllowed() , "-Symbol:",Symbol() , "Order Typ:",OrderType() , "-LotsBuy:",LotsBuy, "-Ask:",Ask, "-Slippage:",Slippage );}
if(IsTradeContextBusy()){
Print( "-Open Buy ITCB:",IsTradeContextBusy() , "-Sleep:",Sl_MS );
Sleep(Sl_MS);
Print( "- Open Buy ITCB Long?:",LO );}
}
//-----------------------------------------------------------------------------------------------------------*/
if( open_Sell==true ){
bool SH=false;
for(int j=OrdersTotal()-1;j>=0;j--){
if(OrderSelect(j,SELECT_BY_POS)){
if(OrderType()==OP_SELL&&OrderMagicNumber()==Sell_MN&&OrderSymbol()==Symbol()){
SH=true;
Print( "-Open Sel Order Selected:" , "-Short?:",SH , "-Order Typ:",OrderType() , "-OrderMN:",OrderMagicNumber() , "-Sell MN:",Sell_MN , "-OrderSymbol:",OrderSymbol() , "-Symbol:",Symbol() );}}}
if(SH==false&&IsTradeAllowed()==true){
OrderSend(Symbol(),OP_SELL,LotsSel,Bid,Slippage,Sel_SL,Sel_TP,NULL,Sell_MN,Blue);
Print( "-Sel Order Sended:" , "-Short?:",SH , "-IsTradeAllowed:",IsTradeAllowed() , "-Symbol:",Symbol(), "Order Typ:",OP_SELL , "-LotsSel",LotsSel , "-Bid:",Bid );}
if(IsTradeContextBusy()){
Print( "-Open Sel ITCB:",IsTradeContextBusy() , "-Sleep:",Sl_MS );
Sleep(Sl_MS);
Print ( "-Open Sel ITCB Short?:",SH );}
}
}
//=============================================================================================================
// C L O S E O R D E R S
//=============================================================================================================
if(open_Buy==true){
for(int k=OrdersTotal()-1;k>=0;k--){
if(OrderSelect(k,SELECT_BY_POS)){
if(OrderType()==OP_BUY&&OrderMagicNumber()==Buy_MN&&OrderSymbol()==Symbol()){
Print( "-Closing Buy Order Selected:" , "-Long?:",LO , "-Order Typ:",OrderType() , "-OrderMN:",OrderMagicNumber() , "-Buy MN:",Buy_MN , "-OrderSymbol:",OrderSymbol() , "-Symbol:",Symbol() );
if( ( CLbuy_D > OrderOpenPrice() ) ||(Close_all_Orders_after==true&&Hour()>=Close_after_Hour&&Minute()>=Close_after_Min) ){
Print( "-Closing Buy:" , "-Close Buy Dist:",CLbuy_D , "-Buy Order Open Price:",OrderOpenPrice() );
if(IsTradeAllowed()==true){
OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Red);
Print( "-Closing Buy:" , "-Long?:",LO , "-Symbol:",Symbol(), "-Lots:",OrderLots() , "-Bid:",Bid , "-Slippage:",Slippage );}
if(IsTradeContextBusy()){
Print( "-Close Buy ITCB:",IsTradeContextBusy() , "-Sleep:",Sl_MS );
Sleep(Sl_MS);
Print( "-Close Buy Long?:",LO );}
LotsBuy = OrderLots() + LotsPlus;
Print( "-Closing Buy:" , "-Order Lots Buy=",OrderLots() , "-Lots PLus=",LotsPlus , "-new LotsBuy=",LotsBuy );
if( LotsBuy <= LotsSel ){
Print( "-Closed Buy:" , "-(old) Lots Buy=",LotsBuy , "Lots Sel=",LotsSel );
LotsBuy = LotsSel + LotsBuy;
Print( "-Closed Buy:" , "-Lots Sel=",LotsSel , "-new Lots Buy=",LotsBuy );}
} } } } }
//-----------------------------------------------------------------------------------------------------------*/
if(open_Sell==true){
for(int l=OrdersTotal()-1;l>=0;l--){
if(OrderSelect(l,SELECT_BY_POS)){
if(OrderType()==OP_SELL&&OrderMagicNumber()==Sell_MN&&OrderSymbol()==Symbol()){
Print( "-Close Sel Order Select:" , "-Short?:",SH , "-Order Typ:",OrderType() , "-OrderMN:",OrderMagicNumber() , "-Sel MN:",Sell_MN , "-OrderSymbol:",OrderSymbol() , "-Symbol:",Symbol() );
if( ( CLsel_D < OrderOpenPrice() ) ||(Close_all_Orders_after==true&&Hour()>=Close_after_Hour&&Minute()>=Close_after_Min) ){
Print( "-Close Sel Dist:", CLsel_D , "-Order Open Price:",OrderOpenPrice() );
if(IsTradeAllowed()==true){
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red);
Print( "-Close Sel:" , "-Short?:",SH , "-Symbol:",Symbol(), "-Lots:",OrderLots() , "-Ask:",Ask , "-Slippage:",Slippage );}
if(IsTradeContextBusy()){
Print( "-Close Sel ITCB:",IsTradeContextBusy() , "-Sleep:",Sl_MS );
Sleep(Sl_MS);
Print( "-Short?:",SH );}
LotsSel = OrderLots() + LotsPlus;
Print( "-Closing Sel:" , "-last Lots Sel=",OrderLots() , "-Lots PLus=",LotsPlus , "-new LotsSel=",LotsSel );
if( LotsSel <= LotsBuy ){
Print( "-Closed Sel:" , "-(old) Lots Sel=",LotsSel , "Lots Buy=",LotsBuy );
LotsSel = LotsBuy + LotsSel;
Print( "-Closed Sel:" , "-Lots Buy=",LotsBuy , "-new Lots Sel=",LotsSel );}
} } } } }
//=============================================================================================================
// E A F U N K T I O N E N B E E N D E N
//=============================================================================================================
return(NULL);}
|