本帖最后由 tpy 于 2009-10-22 20:53 编辑 [T`}yb@ Q.k
:\m*h 这一小程序，是初步框架，供探讨。
Close_Open.mq5 (20 K) 下载次数:28 \&a.}t cS|VJWgTZ 2yKz-"E //+------------------------------------------------------------------+
@ u)
'yS //| Close_Open.mq5 |
Ftv8@l //| Copyright |
Z0R eWrl;` //| |
|NrrTN?> //+------------------------------------------------------------------+
0 mexF@ #property copyright ""
A+
0,i #property link ""
l#bAl/c` #property version "1.00"
lIf(6nm@ int TakeProfit=50;
"Xn%at4 int StopLoss=30;
&ZJgQ-Pc(m double Lots=0.1;
?Zz'|.l@ //+------------------------------------------------------------------+
*P2[qhP2 //| Expert initialization function |
D59T?B|BdD //+------------------------------------------------------------------+
'Qn~H[$/p int OnInit()
A^Cj 1:, {
RL}K AGK if(Digits()==5)
P7GRSjG {
P $ >` TakeProfit=500;
1BTIJ G w StopLoss=300;
R+=a`0_S }
RiFw?Q+ else if(Digits()==4)
Q9>U1]\ {
~&VN_;j_ TakeProfit=50;
Utt>H@t[ StopLoss=30;
_ PWj(}); }
U;^ [$Aq t#~?{i@m CreateTradeObject();
d53 L65[ //InitEA();
lZ+!H=` ChartRedraw();
iI?{"}BZ return(0);
) pgrl }
WS 0JS' //+------------------------------------------------------------------+
jX
*/piSq //| Expert deinitialization function |
zQ8!rCkg4 //+------------------------------------------------------------------+
`rFAZcEj% void OnDeinit(const int reason)
=x l~][ {
B@K[3 //---
; st\I ObjectDelete(0,"CloseAll");
X;GfPw.m ObjectDelete(0,"CloseProfit");
#@//7Bf% ObjectDelete(0,"CloseLoss");
Fr:5$,At7- ObjectDelete(0,"OpenBuy");
i$Z#9M9 ObjectDelete(0,"OpenSell");
Re[ :qLa] :c 8^db`" ObjectDelete(0,"LotsLabel");
8jnz}aBd ObjectDelete(0,"Lots");
F[E? A95W ObjectDelete(0,"LotsIncrease");
@.$MzPQQI ObjectDelete(0,"LotsDecrease");
;VzMU ;j &RY )o^g[4 ObjectDelete(0,"TPLabel");
2$0)?ZC?= ObjectDelete(0,"TP");
9([6d.`~ ObjectDelete(0,"TPIncrease");
O%JSViPw ObjectDelete(0,"TPDecrease");
] b1Li} %$9bce-fcG ObjectDelete(0,"SLLabel");
<GZhH: ObjectDelete(0,"SL");
Bc
^4 T1 ObjectDelete(0,"SLIncrease");
buY D l ObjectDelete(0,"SLDecrease");
qgexb\x\4 fusPMf *[ ChartRedraw();
ya zZw}}; }
0k1MKzi Q //+------------------------------------------------------------------+
!: |nI77| //| Expert tick function |
Oz>io \P94 //+------------------------------------------------------------------+
v"
F O void OnTick()
m+T2vi {
8IOj[&% 0 //OpenCloseEA();
<2)v9c }
ca}S{" //+------------------------------------------------------------------+
mxhW|}_-j void OnChartEvent(const int id,const long& lparam,const double& dparam,const string& sparam)
h@Dw'w {
=U_ @zDD@V if(id==CHARTEVENT_OBJECT_ENDEDIT)
5 j1 IH,yW {
w6v1 q:20 OnEndEdit(sparam);
cuNq9y;[ }
'%$-]~ else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="CloseAll")
cWc$ yE' {
DW 4MA<UQ OnCloseAll();
2nYiG)tg ObjectSetInteger(0,"CloseAll",OBJPROP_STATE,0);
{AtfK>D }
eb(m8vLR else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="CloseProfit")
bsD'\ {
%PSz o8.l OnCloseProfit();
WMRYT"J?N] ObjectSetInteger(0,"CloseProfit",OBJPROP_STATE,0);
i"ck`6v"8 }
1h& )I%`? else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="CloseLoss")
t >m8iS> {
o&*1U"6D OnCloseLoss();
Y+}OClS ObjectSetInteger(0,"CloseLoss",OBJPROP_STATE,0);
MM/BJ }
a-SB1-5j f else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="OpenBuy")
v GulM<YY {
x)%% 5 OnOpenBuy();
0 Ax>gj-` ObjectSetInteger(0,"OpenBuy",OBJPROP_STATE,0);
&h_d|8 }
Oi+Qy[y2 else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="OpenSell")
\xa36~hh40 {
}0(vR_x OnOpenSell();
=rs=8Ty?S ObjectSetInteger(0,"OpenSell",OBJPROP_STATE,0);
2J>A;x_? }//
Yg]FF`{p= else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="LotsIncrease")
*$*nY [/5 {
JXRmu~ W~l OnLotsIncrease();
uBd = x<c\ ObjectSetInteger(0,"LotsIncrease",OBJPROP_STATE,0);
@EH4N%fH }
cZ7F1H~ else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="LotsDecrease")
;Wp`th!F {
b;t}7.V'% OnLotsDecrease();
7\|NYT4 ObjectSetInteger(0,"LotsDecrease",OBJPROP_STATE,0);
[W7\c;Do }
J6?_?XzToT else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="TPIncrease")
J{'zkR?Lr {
75BOiX OnTPIncrease();
bI6 V &Dd ObjectSetInteger(0,"TPIncrease",OBJPROP_STATE,0);
+~v3D^L1 5 }
+' 6ea+$ else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="TPDecrease")
e]y=]}A3{ {
&4$43\(D OnTPDecrease();
k-Hfip[ro ObjectSetInteger(0,"TPDecrease",OBJPROP_STATE,0);
W0 ,"V'C }
zdQu%q else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="SLIncrease")
yl;$#aZB {
BtBt>r(* OnSLIncrease();
rgY?X$1q_ ObjectSetInteger(0,"SLIncrease",OBJPROP_STATE,0);
UC2 OY Zb }
d4=u`2w else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="SLDecrease")
/r 2.j3:l {
KVe'2Q< OnSLDecrease();
\YF !< 2|[ ObjectSetInteger(0,"SLDecrease",OBJPROP_STATE,0);
Fm+)mmJP }
s*U& [7P ChartRedraw();
kFs kn55 }
K`83C`w. //+------------------------------------------------------------------+
lcJumV=%> bool OnCloseAll()
&!aLOx*3` {
<(lSNGv5N MqlTradeRequest request;
S#z8H+' MqlTradeResult result;
q`K-T _< string sSymbol;
HWAqJb [ int PosTotals=PositionsTotal();
bo/!u
s# for(int ip=0;ip<=PosTotals;ip++)
eBKIdR% k {
@z RB4d$ sSymbol=PositionGetSymbol(ip);
&;3z 1s/ if(PositionSelect(sSymbol)==true)
pU'sAD C {
HwK "qq- request.action=TRADE_ACTION_DEAL;
1"6k5wrIA request.symbol=sSymbol;
B)`X 7uG request.volume=PositionGetDouble(POSITION_VOLUME);
R/YL1s request.tp=0;
@S92D 6 request.sl=0;
P9^h >sV request.deviation=(ulong)((SymbolInfoDouble(sSymbol,SYMBOL_ASK)-SymbolInfoDouble(sSymbol,SYMBOL_BID))/SymbolInfoDouble(sSymbol,SYMBOL_POINT));
%%[TM(z request.type_filling=ORDER_FILLING_CANCEL;
Bb `^ ,?m if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY)
TZ2f-KI {
T I request.type=ORDER_TYPE_SELL;
!:e
qPpz request.price=SymbolInfoDouble(sSymbol,SYMBOL_BID);
4UkLvL 1x }
{jI/9 if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL)
0=DawJ9 {
Oa
.%n9ec request.type=ORDER_TYPE_BUY;
78-:hk request.price=SymbolInfoDouble(sSymbol,SYMBOL_ASK);
b1 cd5 }
ENz eVtw0 OrderSend(request,result);
;4IP7 $3G }
enj2xye%Y }
~k 3r $e@ return (true);
(I5ra_FVs }
ceCshxTU //+------------------------------------------------------------------+
z6qC6Ck| bool OnCloseProfit()
L%"Mp (gZ {
Mi/_hzZ\ MqlTradeRequest request;
e| LXH/H MqlTradeResult result;
x@~V975Y string sSymbol;
9maw+ c!~ double profit;
hmo?gD< int PosTotals=PositionsTotal();
dXj.e4,m for(int ip=0;ip<=PosTotals;ip++)
C *9m `xh {
;,1i,? sSymbol=PositionGetSymbol(ip);
l;2bBx7vW if(PositionSelect(sSymbol)==true && PositionGetDouble(POSITION_PROFIT)>0.0)
d2Y5'A0X {
,y.0 Cb0 request.action=TRADE_ACTION_DEAL;
y^
:x2P request.symbol=sSymbol;
;@L#0 request.volume=PositionGetDouble(POSITION_VOLUME);
cZYX[.oIB request.tp=0;
^c5(MR 7LD request.sl=0;
h^s}8y request.deviation=(ulong)((SymbolInfoDouble(sSymbol,SYMBOL_ASK)-SymbolInfoDouble(sSymbol,SYMBOL_BID))/SymbolInfoDouble(sSymbol,SYMBOL_POINT));
s0 :1G
-I request.type_filling=ORDER_FILLING_CANCEL;
vV|egmw01 if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY)
g41LpplX {
i8{jMe!Sa request.type=ORDER_TYPE_SELL;
GgtL./m request.price=SymbolInfoDouble(sSymbol,SYMBOL_BID);
1.!(#I3 }
p.%$ if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL)
TnG"_VK9R {
uODsXi{z request.type=ORDER_TYPE_BUY;
&5a>5ZG} request.price=SymbolInfoDouble(sSymbol,SYMBOL_ASK);
l YhwV\3 }
N> ~*Jp2; OrderSend(request,result);
i et|\4A }
9\xw}ph }
Ue% 0.G|<W return (true);
brFOQU? }
F 6Ol5 //+------------------------------------------------------------------+
52 ~k:"c bool OnCloseLoss()
+]{X-R {
t_N
`e(V MqlTradeRequest request;
qq/Cn4f N8 MqlTradeResult result;
vxgm0ZOMN string sSymbol;
5x: XXj" double profit;
upJishy&I int PosTotals=PositionsTotal();
3S9~rLrn? for(int ip=0;ip<=PosTotals;ip++)
#Z.JOwi {
qvscf_%FM sSymbol=PositionGetSymbol(ip);
cnsGP*w if(PositionSelect(sSymbol)==true && PositionGetDouble(POSITION_PROFIT)<0.0)
?( '%QfT {
l ghzd6 request.action=TRADE_ACTION_DEAL;
&qC> *X. request.symbol=sSymbol;
/?GBp[(0 request.volume=PositionGetDouble(POSITION_VOLUME);
-bE|FFU request.tp=0;
. .t= Y# request.sl=0;
<ZiO[dEV request.deviation=(ulong)((SymbolInfoDouble(sSymbol,SYMBOL_ASK)-SymbolInfoDouble(sSymbol,SYMBOL_BID))/SymbolInfoDouble(sSymbol,SYMBOL_POINT));
PEWzqZ|!; request.type_filling=ORDER_FILLING_CANCEL;
G$j8I~E@ if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY)
`et< Z {
j;3o9!.s: request.type=ORDER_TYPE_SELL;
fCfY.vd5 request.price=SymbolInfoDouble(sSymbol,SYMBOL_BID);
,&-[$, }
G!\x c if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL)
CmTJa5: {
lg1D>=(mY request.type=ORDER_TYPE_BUY;
`9-Zg??8r request.price=SymbolInfoDouble(sSymbol,SYMBOL_ASK);
To`?<]8 }
2. _cEY34 OrderSend(request,result);
ooQ( bF }
e ?>suIB }
bed+Ur& return (true);
,)1e+EnV& }
|xm|Q(PG //+------------------------------------------------------------------+
c29Z1Zs2) bool OnOpenBuy()
5ov%(QI {
x(=x;X$[^ MqlTradeRequest request;
@g~sgE}# MqlTradeResult result;
e% 6{P request.action=TRADE_ACTION_DEAL;
q;.]e#wvh request.symbol=Symbol();
g/p
}r. request.volume=Lots;
DT4RodE$ request.price=SymbolInfoDouble(Symbol(),SYMBOL_ASK);
}8 _9V|E request.type=ORDER_TYPE_BUY;
rrYp^xLa` request.sl=SymbolInfoDouble(Symbol(),SYMBOL_ASK)-StopLoss*_Point;
nX%'o`f request.tp=SymbolInfoDouble(Symbol(),SYMBOL_ASK)+TakeProfit*_Point;
/g'- *:a OrderSend(request,result);
30+l0\1 return (true);
}TJ|d= }
5l0rw)
//+------------------------------------------------------------------+
L^1q/4${ bool OnOpenSell()
2Q|*xd4B^ {
x9A
ZS#e)[ MqlTradeRequest request;
<<5 :zlb MqlTradeResult result;
(Zg' pSs) request.action=TRADE_ACTION_DEAL;
I@Z*Nu 1L request.symbol=Symbol();
H9Q7( {v request.volume=Lots;
" IkF/ request.price=SymbolInfoDouble(Symbol(),SYMBOL_BID);
.4re0:V request.type=ORDER_TYPE_SELL;
[S&O-b8A request.sl=SymbolInfoDouble(Symbol(),SYMBOL_BID)+StopLoss*_Point;
*8X9lv.Z request.tp=SymbolInfoDouble(Symbol(),SYMBOL_BID)-TakeProfit*_Point;
GH C?Tp OrderSend(request,result);
&Dg)"Xji return (true);
1;:t~Y }
J lDDM
% //+------------------------------------------------------------------+
CpRu*w{ bool OnEndEdit(string edit)
k CW!m {
/=YqjZTCq if(edit=="Lots")
~r>EF!U`h {
w{e3U7; Lots=StringToDouble(ObjectGetString(0,"Lots",OBJPROP_TEXT));
`mKlv~$1^ if(Lots>20.0)
`b.o&t$L Lots=20.0;
tFvgvx\: ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
N(_
.N6 }
qb-2QPEB else if(edit=="TP")
,a9D~i 9R {
$(KIB82& TakeProfit=StringToInteger(ObjectGetString(0,"TP",OBJPROP_TEXT));
q?;*g@t if(TakeProfit>1000)
Z{a{H X[Jx TakeProfit=1000;
b(|%Gbg@c ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
'0R/6Z|/Y }
H5AK n*'7 else if(edit=="SL")
?jNF6z*M6 {
I;kf
#nvao StopLoss=StringToInteger(ObjectGetString(0,"SL",OBJPROP_TEXT));
k_*XJ <S!Y if(StopLoss>1000)
0NL :z1N-h StopLoss=1000;
|u^)RB ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
Y w~;g: = }
}iPo8Ra return(true);
S}zC3 }
b :fxkQm //+------------------------------------------------------------------+
`j"4 : bool OnLotsIncrease()
<WM -@J(1 {
*4|9&PNLE Lots=StringToDouble(ObjectGetString(0,"Lots",OBJPROP_TEXT));
m3U+ du Lots+=0.10;
>:.w7LQy/ if(Lots>20.0)
N1YgYL Lots=20.0;
(YAI,Xnw ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
3 sS=?q return (true);
BD hL z }
vAi"$e //+------------------------------------------------------------------+
lxm*;?j`W bool OnLotsDecrease()
A)OdQFet( {
$RpF xi
Lots=StringToDouble(ObjectGetString(0,"Lots",OBJPROP_TEXT));
+:}kZDl@ X Lots-=0.10;
y^9bfMA if(Lots<0.1)
yU * u Lots=0.1;
7kdeYr~<1 ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
HHZ`% return (true);
u',b1 3g( }
3b e6p //+------------------------------------------------------------------+
:RHm*vt bool OnTPIncrease()
B4@f Y {
b)d^ `J TakeProfit=StringToInteger(ObjectGetString(0,"TP",OBJPROP_TEXT));
WX LK89ev\ TakeProfit+=1;
Vu=] O/ =P if(TakeProfit>1000)
|4 Qx=x> TakeProfit=1000;
D '<$ g ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
r|<6Aae& return (true);
]Y{,N x }
7 I@";d8~ //+------------------------------------------------------------------+
f\ 'T _ bool OnTPDecrease()
bi.wYp(*6L {
w763 z i{ TakeProfit=StringToInteger(ObjectGetString(0,"TP",OBJPROP_TEXT));
M1EOnq4- TakeProfit-=1;
ctHEEFWm if(TakeProfit<0)
tvGlp)?. TakeProfit=0;
6A?8tm/0 ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
ke\[wa_!6b return (true);
o<rsAe }
T
pD; //+------------------------------------------------------------------+
xCq' [9oU bool OnSLIncrease()
7&foEJ3q {
K{2h9 ]VF StopLoss=StringToInteger(ObjectGetString(0,"SL",OBJPROP_TEXT));
l `R KqT+ StopLoss+=1;
(;ADW+.`J if(StopLoss>1000)
9@'4P StopLoss=1000;
)i-gs4[(QN ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
RB;BQoGX return (true);
,H{= {aln }
w
&
P&7 //+------------------------------------------------------------------+
M1{(OY(G bool OnSLDecrease()
:)4*^a/lC {
QN g\4 % StopLoss=StringToInteger(ObjectGetString(0,"SL",OBJPROP_TEXT));
K<RqBecB StopLoss-=1;
[K:2 9N9~4 if(StopLoss<0)
1Es qQz*$u StopLoss=0;
B^q<2S; ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
%{'4.
, return (true);
wW5Yw
i }
'[ 0YIn //+------------------------------------------------------------------+
0( //D;j /*
zP nC=h|g void InitEA()
9@y3IiZ"} {
X| <yq } 0{ B }
e{!vNJ0` //+------------------------------------------------------------------+
:-Wv>V\t void OpenCloseEA()
.'l N4x {
y x ;h #U@| J}a }
qjL o&2) */
#T"64%dX //+------------------------------------------------------------------+
9L HuS V(..8}LlD void CreateTradeObject()
CQ> ]jQ,2 {
v#U pw\! //---Close All
$1e pf ObjectCreate(0,"CloseAll",OBJ_BUTTON,0,0,0,0,0);
f_'"KF[% ObjectSetInteger(0,"CloseAll",OBJPROP_XDISTANCE,10);
[YE?OQ7# ObjectSetInteger(0,"CloseAll",OBJPROP_YDISTANCE,10);
oHsP?%U ObjectSetInteger(0,"CloseAll",OBJPROP_XSIZE,80);
4J}3,+ ObjectSetInteger(0,"CloseAll",OBJPROP_YSIZE,20);
[*HiI = ObjectSetString(0,"CloseAll",OBJPROP_TEXT,"CloseAll");
PbN3;c3 ObjectSetInteger(0,"CloseAll",OBJPROP_STATE,0);
5!h<b3u>] //---Close Profit
eJaUmK: ObjectCreate(0,"CloseProfit",OBJ_BUTTON,0,0,0,0,0);
d?}hCo=/Xq ObjectSetInteger(0,"CloseProfit",OBJPROP_XDISTANCE,10);
-XW8 LaQB ObjectSetInteger(0,"CloseProfit",OBJPROP_YDISTANCE,35);
J Zw^ W { ObjectSetInteger(0,"CloseProfit",OBJPROP_XSIZE,80);
Ays L-sqR ObjectSetInteger(0,"CloseProfit",OBJPROP_YSIZE,20);
)Y8qWJU ObjectSetString(0,"CloseProfit",OBJPROP_TEXT,"CloseProfit");
vX 1W@s ObjectSetInteger(0,"CloseProfit",OBJPROP_STATE,0);
Y{j7Q4{ //---Close Loss
E4Z xv* ObjectCreate(0,"CloseLoss",OBJ_BUTTON,0,0,0,0,0);
SctJxY(}! ObjectSetInteger(0,"CloseLoss",OBJPROP_XDISTANCE,10);
G g(NGT ObjectSetInteger(0,"CloseLoss",OBJPROP_YDISTANCE,60);
bw0 20@O* ObjectSetInteger(0,"CloseLoss",OBJPROP_XSIZE,80);
iel-<(~ ObjectSetInteger(0,"CloseLoss",OBJPROP_YSIZE,20);
-EVs@:3]j ObjectSetString(0,"CloseLoss",OBJPROP_TEXT,"CloseLoss");
@w MQC\Z ObjectSetInteger(0,"CloseLoss",OBJPROP_STATE,0);
'H!V54
\j //---Open Buy
}\DAg'e) ObjectCreate(0,"OpenBuy",OBJ_BUTTON,0,0,0,0,0);
B_!wutV@ ObjectSetInteger(0,"OpenBuy",OBJPROP_XDISTANCE,10);
O%52V|m}{ ObjectSetInteger(0,"OpenBuy",OBJPROP_YDISTANCE,90);
@K7ebYr? ObjectSetInteger(0,"OpenBuy",OBJPROP_XSIZE,80);
*q}FV 2 ObjectSetInteger(0,"OpenBuy",OBJPROP_YSIZE,20);
KM 5jl9Vv ObjectSetString(0,"OpenBuy",OBJPROP_TEXT,"OpenBuy");
7&h\l6}Yh ObjectSetInteger(0,"OpenBuy",OBJPROP_STATE,0);
8~;{xYN ) //---Open Sell
JaA&e T| ObjectCreate(0,"OpenSell",OBJ_BUTTON,0,0,0,0,0);
:-(U%`a[ ObjectSetInteger(0,"OpenSell",OBJPROP_XDISTANCE,10);
cW=Qh-`jU; ObjectSetInteger(0,"OpenSell",OBJPROP_YDISTANCE,115);
:D DO= ObjectSetInteger(0,"OpenSell",OBJPROP_XSIZE,80);
I; ^xAd3G ObjectSetInteger(0,"OpenSell",OBJPROP_YSIZE,20);
0K&_D) ObjectSetString(0,"OpenSell",OBJPROP_TEXT,"OpenSell");
Yd[U ObjectSetInteger(0,"OpenSell",OBJPROP_STATE,0);
3 xRM
1GgO XAw2 X;F% //---Lots-Label
f KFnCng ObjectCreate(0,"LotsLabel",OBJ_LABEL,0,0,0,0,0);
cR,'o'V/ ObjectSetInteger(0,"LotsLabel",OBJPROP_COLOR,Yellow);
F(J\ctha ObjectSetInteger(0,"LotsLabel",OBJPROP_XDISTANCE,100);
k}- "0> ObjectSetInteger(0,"LotsLabel",OBJPROP_YDISTANCE,10);
=n> iQS ObjectSetInteger(0,"LotsLabel",OBJPROP_XSIZE,30);
F~tm`n8Z ObjectSetInteger(0,"LotsLabel",OBJPROP_YSIZE,20);
oxUE79 ObjectSetString(0,"LotsLabel",OBJPROP_TEXT,"Lots");
K%98;e9 ObjectSetInteger(0,"LotsLabel",OBJPROP_FONTSIZE,11);
GwTT+ //---Lots-Edit
6XQ*:N/4al ObjectCreate(0,"Lots",OBJ_EDIT,0,0,0,0,0);
k\sc }z8X ObjectSetInteger(0,"Lots",OBJPROP_COLOR,Yellow);
&?P=arU ObjectSetInteger(0,"Lots",OBJPROP_XDISTANCE,130);
&{X{3 6 ObjectSetInteger(0,"Lots",OBJPROP_YDISTANCE,10);
hB |H9+ ObjectSetInteger(0,"Lots",OBJPROP_XSIZE,40);
{Q{lb(6Ba ObjectSetInteger(0,"Lots",OBJPROP_YSIZE,20);
y0/WA4, ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
y #hga5 ObjectSetInteger(0,"Lots",OBJPROP_FONTSIZE,10);
4M;sD;3 ObjectSetInteger(0,"Lots",OBJPROP_SELECTABLE,0);
A[sM{i~Z //---Lots-+
CL)1Q ObjectCreate(0,"LotsIncrease",OBJ_BUTTON,0,0,0,0,0);
V_)5Af3wY ObjectSetInteger(0,"LotsIncrease",OBJPROP_COLOR,White);
?noE TH z) ObjectSetInteger(0,"LotsIncrease",OBJPROP_BGCOLOR,Green);
37j\D1Y ObjectSetInteger(0,"LotsIncrease",OBJPROP_XDISTANCE,170);
;n( #b8r9 ObjectSetInteger(0,"LotsIncrease",OBJPROP_YDISTANCE,10);
@ A~B
, ObjectSetInteger(0,"LotsIncrease",OBJPROP_XSIZE,20);
c,v^A+s Zu ObjectSetInteger(0,"LotsIncrease",OBJPROP_YSIZE,10);
KuIt[oM ObjectSetString(0,"LotsIncrease",OBJPROP_TEXT,"+");
?$"x^=te7 ObjectSetInteger(0,"LotsIncrease",OBJPROP_STATE,0);
>< <$ //---Lots--
[?|l X$< ObjectCreate(0,"LotsDecrease",OBJ_BUTTON,0,0,0,0,0);
ZI2K- z'e ObjectSetInteger(0,"LotsDecrease",OBJPROP_COLOR,White);
{#dp-5V ObjectSetInteger(0,"LotsDecrease",OBJPROP_BGCOLOR,Red);
1=9qAp;?o ObjectSetInteger(0,"LotsDecrease",OBJPROP_XDISTANCE,170);
zer& `Vr ObjectSetInteger(0,"LotsDecrease",OBJPROP_YDISTANCE,20);
yi v RpSL ObjectSetInteger(0,"LotsDecrease",OBJPROP_XSIZE,20);
Y0P}KPD ObjectSetInteger(0,"LotsDecrease",OBJPROP_YSIZE,10);
/I`cS%U ObjectSetString(0,"LotsDecrease",OBJPROP_TEXT,"-");
X <ba| ( ObjectSetInteger(0,"LotsDecrease",OBJPROP_STATE,0);
3<KZ.h r C1#o<pv //---TP-Label
P\*2c*,W; ObjectCreate(0,"TPLabel",OBJ_LABEL,0,0,0,0,0);
4AJu2Hp ObjectSetInteger(0,"TPLabel",OBJPROP_COLOR,Yellow);
#whO2Mv ObjectSetInteger(0,"TPLabel",OBJPROP_XDISTANCE,100);
OVQxZ~uQ ObjectSetInteger(0,"TPLabel",OBJPROP_YDISTANCE,35);
^V XXq ObjectSetInteger(0,"TPLabel",OBJPROP_XSIZE,30);
PoBu kOv ObjectSetInteger(0,"TPLabel",OBJPROP_YSIZE,20);
Fu1|b2B-x ObjectSetString(0,"TPLabel",OBJPROP_TEXT,"TP");
bY"eC i{K ObjectSetInteger(0,"TPLabel",OBJPROP_FONTSIZE,11);
2t]! {L //---TP-Edit
RBv= ObjectCreate(0,"TP",OBJ_EDIT,0,0,0,0,0);
eHnei F ObjectSetInteger(0,"TP",OBJPROP_COLOR,Yellow);
m ISu o ObjectSetInteger(0,"TP",OBJPROP_XDISTANCE,130);
x
w?9W4< ObjectSetInteger(0,"TP",OBJPROP_YDISTANCE,35);
qG2\` +v ObjectSetInteger(0,"TP",OBJPROP_XSIZE,40);
*\~kjZ 3 ObjectSetInteger(0,"TP",OBJPROP_YSIZE,20);
D)/XP ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
`>K k;` ObjectSetInteger(0,"TP",OBJPROP_FONTSIZE,10);
;ijfI ObjectSetInteger(0,"TP",OBJPROP_SELECTABLE,0);
`aWwF}
+Y //---TP-+
}Bod#|`
ObjectCreate(0,"TPIncrease",OBJ_BUTTON,0,0,0,0,0);
! ,(bXa\^ ObjectSetInteger(0,"TPIncrease",OBJPROP_COLOR,White);
E6 ^S2J2 ObjectSetInteger(0,"TPIncrease",OBJPROP_BGCOLOR,Green);
C; :1CK ObjectSetInteger(0,"TPIncrease",OBJPROP_XDISTANCE,170);
&40JN} ObjectSetInteger(0,"TPIncrease",OBJPROP_YDISTANCE,35);
2DBFXhP ObjectSetInteger(0,"TPIncrease",OBJPROP_XSIZE,20);
j
BQqpFH9 ObjectSetInteger(0,"TPIncrease",OBJPROP_YSIZE,10);
7Hkf7\JY ObjectSetString(0,"TPIncrease",OBJPROP_TEXT,"+");
v=Bh
A9[ ObjectSetInteger(0,"TPIncrease",OBJPROP_STATE,0);
)
ImIPSL //---TP--
0@/E% T1c" ObjectCreate(0,"TPDecrease",OBJ_BUTTON,0,0,0,0,0);
#1!BD!u ObjectSetInteger(0,"TPDecrease",OBJPROP_COLOR,White);
FCB/FtI0 ObjectSetInteger(0,"TPDecrease",OBJPROP_BGCOLOR,Red);
+n~rM'^4/ ObjectSetInteger(0,"TPDecrease",OBJPROP_XDISTANCE,170);
/g- X=|?F ObjectSetInteger(0,"TPDecrease",OBJPROP_YDISTANCE,45);
A)a+LW'=u ObjectSetInteger(0,"TPDecrease",OBJPROP_XSIZE,20);
J3S byI!T ObjectSetInteger(0,"TPDecrease",OBJPROP_YSIZE,10);
` e;Sjf < ObjectSetString(0,"TPDecrease",OBJPROP_TEXT,"-");
QS?9&+JM | ObjectSetInteger(0,"TPDecrease",OBJPROP_STATE,0);
\yizIo.Y` xfQ;5n //---SL-Label
(=B7_j rl ObjectCreate(0,"SLLabel",OBJ_LABEL,0,0,0,0,0);
aZ3 #g ObjectSetInteger(0,"SLLabel",OBJPROP_COLOR,Yellow);
6C}Z1lZl ObjectSetInteger(0,"SLLabel",OBJPROP_XDISTANCE,100);
dOgM9P ObjectSetInteger(0,"SLLabel",OBJPROP_YDISTANCE,60);
*"L:"i `*$ ObjectSetInteger(0,"SLLabel",OBJPROP_XSIZE,30);
qiJ;v1 ObjectSetInteger(0,"SLLabel",OBJPROP_YSIZE,20);
R.$Y1= U6 ObjectSetString(0,"SLLabel",OBJPROP_TEXT,"SL");
XYVeHP! ObjectSetInteger(0,"SLLabel",OBJPROP_FONTSIZE,11);
O@&I.d$ //---SL-Edit
KywT Oq ObjectCreate(0,"SL",OBJ_EDIT,0,0,0,0,0);
ZI]K+jza ObjectSetInteger(0,"SL",OBJPROP_COLOR,Yellow);
d u )G)~ ObjectSetInteger(0,"SL",OBJPROP_XDISTANCE,130);
skArocs ObjectSetInteger(0,"SL",OBJPROP_YDISTANCE,60);
ee\z U~ ObjectSetInteger(0,"SL",OBJPROP_XSIZE,40);
DzOJ{dF ObjectSetInteger(0,"SL",OBJPROP_YSIZE,20);
Z)~4)71Y: ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
#r}c<?>Vw ObjectSetInteger(0,"SL",OBJPROP_FONTSIZE,10);
} k~0R-m ObjectSetInteger(0,"SL",OBJPROP_SELECTABLE,0);
I<#kw)W! //---SL-+
69L&H!<i: ObjectCreate(0,"SLIncrease",OBJ_BUTTON,0,0,0,0,0);
evP`&23tP ObjectSetInteger(0,"SLIncrease",OBJPROP_COLOR,White);
IHfqW? ObjectSetInteger(0,"SLIncrease",OBJPROP_BGCOLOR,Green);
{[dqXG$v ` ObjectSetInteger(0,"SLIncrease",OBJPROP_XDISTANCE,170);
O%{>Zo_< ObjectSetInteger(0,"SLIncrease",OBJPROP_YDISTANCE,60);
7dIDKx ObjectSetInteger(0,"SLIncrease",OBJPROP_XSIZE,20);
w VB8PO8 ObjectSetInteger(0,"SLIncrease",OBJPROP_YSIZE,10);
V00zk` PH ObjectSetString(0,"SLIncrease",OBJPROP_TEXT,"+");
z'*>Tk8h ObjectSetInteger(0,"SLIncrease",OBJPROP_STATE,0);
1OKJE(T //---SL--
7t QiKrhp ObjectCreate(0,"SLDecrease",OBJ_BUTTON,0,0,0,0,0);
$6[]c) ( ObjectSetInteger(0,"SLDecrease",OBJPROP_COLOR,White);
BH1To&ol ObjectSetInteger(0,"SLDecrease",OBJPROP_BGCOLOR,Red);
BN67o]*]< ObjectSetInteger(0,"SLDecrease",OBJPROP_XDISTANCE,170);
*9PQJeyR ObjectSetInteger(0,"SLDecrease",OBJPROP_YDISTANCE,70);
H+Wd#7l, ObjectSetInteger(0,"SLDecrease",OBJPROP_XSIZE,20);
3`y:W9!u ObjectSetInteger(0,"SLDecrease",OBJPROP_YSIZE,10);
zq#o8))4X ObjectSetString(0,"SLDecrease",OBJPROP_TEXT,"-");
Q] HRg4r ObjectSetInteger(0,"SLDecrease",OBJPROP_STATE,0);
-llujB%;,e }
w K+2;*bI //+------------------------------------------------------------------+
