本帖最后由 tpy 于 2009-10-22 20:53 编辑 =v/x&,Uj@6 hdee]qLS 这一小程序，是初步框架，供探讨。
Close_Open.mq5 (20 K) 下载次数:28 6c&OR2HGqO >eaK@u-'0 bLyG3~P;0 //+------------------------------------------------------------------+
;= {Z Bx //| Close_Open.mq5 |
4WV)&50 //| Copyright |
k~b8=$ //| |
UQ 'U
4q //+------------------------------------------------------------------+
4Vi&Y ')f #property copyright ""
abM4G #property link ""
XS/5y(W #property version "1.00"
S+Yb sLf int TakeProfit=50;
#FV( a ~ int StopLoss=30;
lCyp&b#(L double Lots=0.1;
".SQ*'Oc //+------------------------------------------------------------------+
%l U$;c Y //| Expert initialization function |
vv,(ta@t2 //+------------------------------------------------------------------+
ynN[N(m# int OnInit()
: Y [r^=> {
T<0Bq"'% if(Digits()==5)
Bv |Z)G%RR {
C6eo n4Ut TakeProfit=500;
yXw xq(32 StopLoss=300;
kc8T@5+I0 }
8L 9;VY^Y else if(Digits()==4)
H2RNekck {
^ :Q |,oy TakeProfit=50;
Y^S0K'N StopLoss=30;
{\ziy4<II }
( L RX lLtC9: CreateTradeObject();
;Xgy 2'3 //InitEA();
8N-~ .p ChartRedraw();
&"C1XM return(0);
~` _nw5y }
#0Oqw =F //+------------------------------------------------------------------+
l/rhA6kEU //| Expert deinitialization function |
a/)TJv //+------------------------------------------------------------------+
EUna_ 4= void OnDeinit(const int reason)
XcfTE
m {
bR&hI9`%F //---
Fx3VQ'%J ObjectDelete(0,"CloseAll");
bh7 1Zu ObjectDelete(0,"CloseProfit");
5E!|-xD ObjectDelete(0,"CloseLoss");
3&?Tc|F+ ObjectDelete(0,"OpenBuy");
uqO51V ~ ObjectDelete(0,"OpenSell");
[#9ij3vxd r
2 ObjectDelete(0,"LotsLabel");
g3Xz- ObjectDelete(0,"Lots");
o" ]eAQ ObjectDelete(0,"LotsIncrease");
vSnb>z1 ObjectDelete(0,"LotsDecrease");
y1
}d (% Z?X$8o^Z ObjectDelete(0,"TPLabel");
- 5k4vx
N} ObjectDelete(0,"TP");
7K;dVB ObjectDelete(0,"TPIncrease");
rvmI
8 ObjectDelete(0,"TPDecrease");
-DuiK:mp fgp 7 |;Y ObjectDelete(0,"SLLabel");
G4{qWa/ ObjectDelete(0,"SL");
&=?`; K ObjectDelete(0,"SLIncrease");
\=@r1[d ObjectDelete(0,"SLDecrease");
/ SU V'J) kR6 t
. ChartRedraw();
R|CY4G
j }
y{{EC# //+------------------------------------------------------------------+
)PG,K 4z //| Expert tick function |
psZeu*/r //+------------------------------------------------------------------+
`es($7}P_W void OnTick()
FR}H$R7# {
VRX"
@uCD //OpenCloseEA();
L,
{rMLM% }
z/YMl3$l~ //+------------------------------------------------------------------+
>-w=7,?'?z void OnChartEvent(const int id,const long& lparam,const double& dparam,const string& sparam)
A(n=kx {
Z % ;4Ed if(id==CHARTEVENT_OBJECT_ENDEDIT)
8sIrG {
Ys$YI{ OnEndEdit(sparam);
\5P. C }
e(#IewKp else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="CloseAll")
|2@en=EYk {
cHL]y0 > OnCloseAll();
~u0xX fv# ObjectSetInteger(0,"CloseAll",OBJPROP_STATE,0);
QP%kL*=8 }
lKEX"KQ! else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="CloseProfit")
L"foL {
d;~ 3P
OnCloseProfit();
j`R <90~/ ObjectSetInteger(0,"CloseProfit",OBJPROP_STATE,0);
<jUrE[x }
#9`r XEz else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="CloseLoss")
=3|pHc hJ4 {
3Q"F(uE v^ OnCloseLoss();
%X4-a%512 ObjectSetInteger(0,"CloseLoss",OBJPROP_STATE,0);
> BNw }
x _==Ss else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="OpenBuy")
c^=R8y-N {
5vTv$ 2@ OnOpenBuy();
|2)Sd[ q ObjectSetInteger(0,"OpenBuy",OBJPROP_STATE,0);
( 0i'Nb" }
HG2GZ}~^1 else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="OpenSell")
X Orcygb2 {
$$JI Bf8 OnOpenSell();
1SW4Y ObjectSetInteger(0,"OpenSell",OBJPROP_STATE,0);
G0}Dq M Ti }//
E0QPE5 _ else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="LotsIncrease")
u4Y M^* S. {
3gp o
% OnLotsIncrease();
uPkb, :6~Z ObjectSetInteger(0,"LotsIncrease",OBJPROP_STATE,0);
ASW4,% cl }
e*:}$u8 a else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="LotsDecrease")
WSLy}@`Vx {
vX+.e1m OnLotsDecrease();
*69c-` o ObjectSetInteger(0,"LotsDecrease",OBJPROP_STATE,0);
>," sHm}l% }
)1 1W)G`w else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="TPIncrease")
)iU^&@[S {
+tt9R_S OnTPIncrease();
}>}1oUCi ObjectSetInteger(0,"TPIncrease",OBJPROP_STATE,0);
m'x;,xfY&F }
I@\+l6&#; else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="TPDecrease")
m`6VKp{YD {
r_U>VT^E: OnTPDecrease();
aV6#t*\J ObjectSetInteger(0,"TPDecrease",OBJPROP_STATE,0);
h*w6/ZL1 }
W7=V{}b+ else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="SLIncrease")
sx
9u V {
t6lE#<xZV; OnSLIncrease();
W5pb;74| ObjectSetInteger(0,"SLIncrease",OBJPROP_STATE,0);
vF4]ux&
}
C#Bz >2;# else if(id==CHARTEVENT_OBJECT_CLICK && sparam=="SLDecrease")
2oVV'9;B {
^,8R,S\} $ OnSLDecrease();
06 mlj6hV ObjectSetInteger(0,"SLDecrease",OBJPROP_STATE,0);
pz|'l:v^ }
d 8 o53a] ChartRedraw();
3Q By\1h. }
Vb|#MNf) //+------------------------------------------------------------------+
!#yq@2QX bool OnCloseAll()
8wZf ]_ {
^jE8+ h MqlTradeRequest request;
NH A 5e< MqlTradeResult result;
|N /G'>TS string sSymbol;
XXZaK gsq int PosTotals=PositionsTotal();
&53]sFZ
for(int ip=0;ip<=PosTotals;ip++)
`>C<}xO {
K>Fqf
+_ sSymbol=PositionGetSymbol(ip);
SLL3v,P(7 if(PositionSelect(sSymbol)==true)
op2Of<{h {
9m2, qr| request.action=TRADE_ACTION_DEAL;
HSUI${ < request.symbol=sSymbol;
hXI ro request.volume=PositionGetDouble(POSITION_VOLUME);
tc ;'oMUP request.tp=0;
^FmU_Q0 request.sl=0;
v4,h&JLt request.deviation=(ulong)((SymbolInfoDouble(sSymbol,SYMBOL_ASK)-SymbolInfoDouble(sSymbol,SYMBOL_BID))/SymbolInfoDouble(sSymbol,SYMBOL_POINT));
RcG0 8p.) request.type_filling=ORDER_FILLING_CANCEL;
bK"SKV if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY)
: JzI >/ {
{^ mNJ request.type=ORDER_TYPE_SELL;
l& 4,v request.price=SymbolInfoDouble(sSymbol,SYMBOL_BID);
[Aj Q#;#Q }
1wzqGmjmt if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL)
6R- &-4 {
/kL $4CA request.type=ORDER_TYPE_BUY;
=9oP owq request.price=SymbolInfoDouble(sSymbol,SYMBOL_ASK);
V@>r*7\ F }
+4[^!q*
H OrderSend(request,result);
(8v7|Pe8 }
f|^dD` }
JnHo 9K2. return (true);
VrZ>bma; }
x~.:64 //+------------------------------------------------------------------+
>zDF2Y[ bool OnCloseProfit()
'n<iU st {
jiF?fX@ MqlTradeRequest request;
LL|7rS|o MqlTradeResult result;
{R/C0-Q^^ string sSymbol;
?"z]A7 <Hj double profit;
Ou{v/'9z, int PosTotals=PositionsTotal();
^F:k3,_[ for(int ip=0;ip<=PosTotals;ip++)
VU I| .76g {
0i8LWX_M sSymbol=PositionGetSymbol(ip);
0rGSH*( if(PositionSelect(sSymbol)==true && PositionGetDouble(POSITION_PROFIT)>0.0)
5OoN!TEM {
_ Ro! "YVX request.action=TRADE_ACTION_DEAL;
V13 8d?Mm request.symbol=sSymbol;
rp5(pV 7* request.volume=PositionGetDouble(POSITION_VOLUME);
T97]P- }
request.tp=0;
p$ bnK ] request.sl=0;
N?X^O# [ request.deviation=(ulong)((SymbolInfoDouble(sSymbol,SYMBOL_ASK)-SymbolInfoDouble(sSymbol,SYMBOL_BID))/SymbolInfoDouble(sSymbol,SYMBOL_POINT));
3 =W!4 request.type_filling=ORDER_FILLING_CANCEL;
<L&m4O#| if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY)
KRjV}\} {
!45.puL0 request.type=ORDER_TYPE_SELL;
^[ 15&T5 request.price=SymbolInfoDouble(sSymbol,SYMBOL_BID);
;;A2!w{}[i }
jF[ 1za if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL)
V] Et wA {
r\;ut4 wy request.type=ORDER_TYPE_BUY;
H~ u[3LQz request.price=SymbolInfoDouble(sSymbol,SYMBOL_ASK);
ZIdA \_c }
; O< 9|? OrderSend(request,result);
WMMO5_M z }
-Z-IF#% }
+/D>|loRC return (true);
t tXjn }
yz2Ci0Dwy //+------------------------------------------------------------------+
+y 87~]] bool OnCloseLoss()
lWm' {
b|z g< MqlTradeRequest request;
7=]i~7uy MqlTradeResult result;
-*2Mf Mh string sSymbol;
6WoAs)ZF double profit;
A[WV'!A, int PosTotals=PositionsTotal();
a{Esw` for(int ip=0;ip<=PosTotals;ip++)
-G,^1AL> {
kX:tc sSymbol=PositionGetSymbol(ip);
C6_@\&OA if(PositionSelect(sSymbol)==true && PositionGetDouble(POSITION_PROFIT)<0.0)
_ .i3,-l) {
g/UaYCjM request.action=TRADE_ACTION_DEAL;
|_ u8 mV request.symbol=sSymbol;
hl&-\ dc+ request.volume=PositionGetDouble(POSITION_VOLUME);
)x#5Il
H request.tp=0;
6B$q,"%S@ request.sl=0;
t4Z request.deviation=(ulong)((SymbolInfoDouble(sSymbol,SYMBOL_ASK)-SymbolInfoDouble(sSymbol,SYMBOL_BID))/SymbolInfoDouble(sSymbol,SYMBOL_POINT));
zT~B 6 request.type_filling=ORDER_FILLING_CANCEL;
CGw--`#\ if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY)
2Ha5yaTL {
bt+,0\Vg5 request.type=ORDER_TYPE_SELL;
vAP{;Q0 i request.price=SymbolInfoDouble(sSymbol,SYMBOL_BID);
5H ,G - }
x2 |6 if(PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL)
@D`zKYwX1 {
E(<LvMiCa request.type=ORDER_TYPE_BUY;
BH0!6Oq request.price=SymbolInfoDouble(sSymbol,SYMBOL_ASK);
b'>8ZIY }
8dT'xuch OrderSend(request,result);
7x. %hRk }
a
ib}`l }
MQcE6) return (true);
[ET6(_=b }
$CtCOwKZ //+------------------------------------------------------------------+
{K aN,td9 bool OnOpenBuy()
Y4~vC[$ x' {
@vH2Vydu MqlTradeRequest request;
K _-MkY?+ MqlTradeResult result;
hN4VlNKu request.action=TRADE_ACTION_DEAL;
j8 H Oc( request.symbol=Symbol();
NM L|"R; request.volume=Lots;
G:+16XCra request.price=SymbolInfoDouble(Symbol(),SYMBOL_ASK);
N_vXYaY request.type=ORDER_TYPE_BUY;
F!CAi txd request.sl=SymbolInfoDouble(Symbol(),SYMBOL_ASK)-StopLoss*_Point;
,+-? Zv 2 request.tp=SymbolInfoDouble(Symbol(),SYMBOL_ASK)+TakeProfit*_Point;
3_J >y OrderSend(request,result);
rbh[j@s@ return (true);
3i(J on/p }
eUs-5
L //+------------------------------------------------------------------+
WD;)VsP bool OnOpenSell()
n!?r } n8 {
6h@+?{F. MqlTradeRequest request;
V Kf6|ae MqlTradeResult result;
\P@S"QO request.action=TRADE_ACTION_DEAL;
^?sSx!:bZ request.symbol=Symbol();
+{0=<2(EC request.volume=Lots;
7 ?"9J `* request.price=SymbolInfoDouble(Symbol(),SYMBOL_BID);
cE 2R r request.type=ORDER_TYPE_SELL;
'v +96b/; request.sl=SymbolInfoDouble(Symbol(),SYMBOL_BID)+StopLoss*_Point;
Q6|@N~UeZ request.tp=SymbolInfoDouble(Symbol(),SYMBOL_BID)-TakeProfit*_Point;
i2U/RXu OrderSend(request,result);
CL )%p"[x return (true);
6<+8}`@B>G }
MKe *f% //+------------------------------------------------------------------+
8m \;P bool OnEndEdit(string edit)
!Am
=v=> {
i'9e K O if(edit=="Lots")
={OC a1 {
cx<h_ Lots=StringToDouble(ObjectGetString(0,"Lots",OBJPROP_TEXT));
x [Hhj' if(Lots>20.0)
zab w!@] Lots=20.0;
w:n(p Lc< ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
tYF$#Nor#k }
EC0zH#N else if(edit=="TP")
]Pz|Oi+] {
`NTM%# w TakeProfit=StringToInteger(ObjectGetString(0,"TP",OBJPROP_TEXT));
ZE{aS4c if(TakeProfit>1000)
"K/[[wX\b TakeProfit=1000;
B!$V\Gs ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
0- 6:AHix }
gNG0k$nP else if(edit=="SL")
d<e+__ 2 {
BXagSenc StopLoss=StringToInteger(ObjectGetString(0,"SL",OBJPROP_TEXT));
u<BHf@AI if(StopLoss>1000)
"H
wVK StopLoss=1000;
O7Y
P_<,# ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
m^W*[ ^p }
5P5A,K return(true);
_stI?fz*4k }
,n
/SDEL //+------------------------------------------------------------------+
E7 d~# bool OnLotsIncrease()
SXT@& @E {
A1#4nkkc9 Lots=StringToDouble(ObjectGetString(0,"Lots",OBJPROP_TEXT));
kx;xO>dC Lots+=0.10;
e{q p!N1! if(Lots>20.0)
t(uB66(_F Lots=20.0;
!.tL"U~4 ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
nsr
_\F\ return (true);
^6N3 n kyZ }
N>F2
c)rm //+------------------------------------------------------------------+
dcrJ,>i} bool OnLotsDecrease()
i no 7!T` {
b& _i/n( Lots=StringToDouble(ObjectGetString(0,"Lots",OBJPROP_TEXT));
n'x`oI)- Lots-=0.10;
]
fwTi(4y if(Lots<0.1)
p[k9C$@e} Lots=0.1;
n )wpxR ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
NZw[.s>n
return (true);
E%J7jA4 }
WkU) I2oH //+------------------------------------------------------------------+
fi-&[llg bool OnTPIncrease()
5sV/N] ! {
aBA#\eV TakeProfit=StringToInteger(ObjectGetString(0,"TP",OBJPROP_TEXT));
N- ?|]4e/ TakeProfit+=1;
Y$`hudJ& if(TakeProfit>1000)
PB3!; TakeProfit=1000;
Ll E_{||h ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
tU~ H@' return (true);
r@@eC[' }
eJ)KE5% n# //+------------------------------------------------------------------+
(9[C0e S bool OnTPDecrease()
z?) RF[ {
>fzzrD}] TakeProfit=StringToInteger(ObjectGetString(0,"TP",OBJPROP_TEXT));
Z$=$ oJzB TakeProfit-=1;
&T/9y W[L if(TakeProfit<0)
Q_|S^hx Q TakeProfit=0;
VS@W. 0/ ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
7/$Z7J!k return (true);
IhKas4 }
~ 322dG //+------------------------------------------------------------------+
~9jP++& bool OnSLIncrease()
3:gO7Uv
{
.B-,GD} StopLoss=StringToInteger(ObjectGetString(0,"SL",OBJPROP_TEXT));
~=gH7V StopLoss+=1;
&XTd[_ VW! if(StopLoss>1000)
QL!+.y% StopLoss=1000;
wbKBwI5w ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
(j
Q6~1 return (true);
/'^>-!8_1 }
&= O1Qg=K //+------------------------------------------------------------------+
jmVy4* P_ bool OnSLDecrease()
&!fcL Jd {
@a3v[}c* StopLoss=StringToInteger(ObjectGetString(0,"SL",OBJPROP_TEXT));
J~`%Nj5> StopLoss-=1;
\`# 0,pLr if(StopLoss<0)
5 !p'n#_ StopLoss=0;
4'| :SyOm ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
1< e%)? G return (true);
sUMn
(@r }
wajhFBJ //+------------------------------------------------------------------+
vH8%a8V /*
, KaWP void InitEA()
?!-i m*~w {
o|C{ s Dw,f~D$+ic }
P://Zi6> //+------------------------------------------------------------------+
lNAHn<ht void OpenCloseEA()
T667&@ {
m,O !M t z& jDO ex }
~G:7*:[b */
YZ@-0_Z //+------------------------------------------------------------------+
3s2M$3r)6 O6]~5&8U. void CreateTradeObject()
(z7#KJ1+Aw {
p6'8l~W + //---Close All
g=Di2j{A ObjectCreate(0,"CloseAll",OBJ_BUTTON,0,0,0,0,0);
Q
# gHD ObjectSetInteger(0,"CloseAll",OBJPROP_XDISTANCE,10);
k7*q.2 0 ObjectSetInteger(0,"CloseAll",OBJPROP_YDISTANCE,10);
se[}; t: ObjectSetInteger(0,"CloseAll",OBJPROP_XSIZE,80);
/&yT2p ObjectSetInteger(0,"CloseAll",OBJPROP_YSIZE,20);
CggEA i~ ObjectSetString(0,"CloseAll",OBJPROP_TEXT,"CloseAll");
SCij5il% ObjectSetInteger(0,"CloseAll",OBJPROP_STATE,0);
tANG ] //---Close Profit
K@m^QioMj ObjectCreate(0,"CloseProfit",OBJ_BUTTON,0,0,0,0,0);
,tZwXP{ ObjectSetInteger(0,"CloseProfit",OBJPROP_XDISTANCE,10);
D_Y;N3E/rS ObjectSetInteger(0,"CloseProfit",OBJPROP_YDISTANCE,35);
9!LA AE` ObjectSetInteger(0,"CloseProfit",OBJPROP_XSIZE,80);
q`P:PRgM ObjectSetInteger(0,"CloseProfit",OBJPROP_YSIZE,20);
F}Au'D&n_ ObjectSetString(0,"CloseProfit",OBJPROP_TEXT,"CloseProfit");
'g#GUSXfj ObjectSetInteger(0,"CloseProfit",OBJPROP_STATE,0);
(k?OYz]c //---Close Loss
B !XT:.+ ObjectCreate(0,"CloseLoss",OBJ_BUTTON,0,0,0,0,0);
Ev%\YI!MaY ObjectSetInteger(0,"CloseLoss",OBJPROP_XDISTANCE,10);
o! 8X< o ObjectSetInteger(0,"CloseLoss",OBJPROP_YDISTANCE,60);
^N]*Zf~N? ObjectSetInteger(0,"CloseLoss",OBJPROP_XSIZE,80);
9cLKb ObjectSetInteger(0,"CloseLoss",OBJPROP_YSIZE,20);
MYjCxy-;A ObjectSetString(0,"CloseLoss",OBJPROP_TEXT,"CloseLoss");
B4kIcHA ObjectSetInteger(0,"CloseLoss",OBJPROP_STATE,0);
C
RNO4 //---Open Buy
8:f ( PN ObjectCreate(0,"OpenBuy",OBJ_BUTTON,0,0,0,0,0);
e. N#+ ObjectSetInteger(0,"OpenBuy",OBJPROP_XDISTANCE,10);
a a|xZ ObjectSetInteger(0,"OpenBuy",OBJPROP_YDISTANCE,90);
FGC[yz 1g: ObjectSetInteger(0,"OpenBuy",OBJPROP_XSIZE,80);
$3So`8Bm[$ ObjectSetInteger(0,"OpenBuy",OBJPROP_YSIZE,20);
qg_=5s ObjectSetString(0,"OpenBuy",OBJPROP_TEXT,"OpenBuy");
jN'zNOV~ ObjectSetInteger(0,"OpenBuy",OBJPROP_STATE,0);
Qk((H~I} //---Open Sell
\QVL%,.%M ObjectCreate(0,"OpenSell",OBJ_BUTTON,0,0,0,0,0);
~MOIrF ObjectSetInteger(0,"OpenSell",OBJPROP_XDISTANCE,10);
HJDM\j*5 ObjectSetInteger(0,"OpenSell",OBJPROP_YDISTANCE,115);
ct`89~" ObjectSetInteger(0,"OpenSell",OBJPROP_XSIZE,80);
{a(TT)d ObjectSetInteger(0,"OpenSell",OBJPROP_YSIZE,20);
F8q|$[nH ObjectSetString(0,"OpenSell",OBJPROP_TEXT,"OpenSell");
H?PaN)_6-+ ObjectSetInteger(0,"OpenSell",OBJPROP_STATE,0);
,#nyEE G#UO>i0jy //---Lots-Label
` j9 ;9 ^ ObjectCreate(0,"LotsLabel",OBJ_LABEL,0,0,0,0,0);
r3'0{Nn+ ObjectSetInteger(0,"LotsLabel",OBJPROP_COLOR,Yellow);
;tlvf?0! ObjectSetInteger(0,"LotsLabel",OBJPROP_XDISTANCE,100);
S/V%<<[>p] ObjectSetInteger(0,"LotsLabel",OBJPROP_YDISTANCE,10);
rytves%;C ObjectSetInteger(0,"LotsLabel",OBJPROP_XSIZE,30);
PY[nnoF"| ObjectSetInteger(0,"LotsLabel",OBJPROP_YSIZE,20);
G
.NGS%v ObjectSetString(0,"LotsLabel",OBJPROP_TEXT,"Lots");
n86LU Sj5 ObjectSetInteger(0,"LotsLabel",OBJPROP_FONTSIZE,11);
}Y:V&4DW //---Lots-Edit
zc K`hS ObjectCreate(0,"Lots",OBJ_EDIT,0,0,0,0,0);
WUrE1%u ObjectSetInteger(0,"Lots",OBJPROP_COLOR,Yellow);
IK1'" S| ObjectSetInteger(0,"Lots",OBJPROP_XDISTANCE,130);
@ Z.BYC ObjectSetInteger(0,"Lots",OBJPROP_YDISTANCE,10);
$O3.ex V ObjectSetInteger(0,"Lots",OBJPROP_XSIZE,40);
HA$X g
j ObjectSetInteger(0,"Lots",OBJPROP_YSIZE,20);
,R. rx oO ObjectSetString(0,"Lots",OBJPROP_TEXT,DoubleToString(Lots,2));
Fs"i fn0 ObjectSetInteger(0,"Lots",OBJPROP_FONTSIZE,10);
t'1g+g ObjectSetInteger(0,"Lots",OBJPROP_SELECTABLE,0);
9TX2h0U? //---Lots-+
JR8|!Of@B ObjectCreate(0,"LotsIncrease",OBJ_BUTTON,0,0,0,0,0);
^hXm=r4ozR ObjectSetInteger(0,"LotsIncrease",OBJPROP_COLOR,White);
& .0A% ObjectSetInteger(0,"LotsIncrease",OBJPROP_BGCOLOR,Green);
3\2%i 6W6 ObjectSetInteger(0,"LotsIncrease",OBJPROP_XDISTANCE,170);
"AU.Eh"-1 ObjectSetInteger(0,"LotsIncrease",OBJPROP_YDISTANCE,10);
^s6}[LDW>@ ObjectSetInteger(0,"LotsIncrease",OBJPROP_XSIZE,20);
!KMl'kswe: ObjectSetInteger(0,"LotsIncrease",OBJPROP_YSIZE,10);
q8_(P & ObjectSetString(0,"LotsIncrease",OBJPROP_TEXT,"+");
r1}^\ C ObjectSetInteger(0,"LotsIncrease",OBJPROP_STATE,0);
%cLS*=MO //---Lots--
HdN5zl,q ObjectCreate(0,"LotsDecrease",OBJ_BUTTON,0,0,0,0,0);
Q6 6 + ObjectSetInteger(0,"LotsDecrease",OBJPROP_COLOR,White);
Kf1J;*i|\ ObjectSetInteger(0,"LotsDecrease",OBJPROP_BGCOLOR,Red);
PJ iU2Y33 ObjectSetInteger(0,"LotsDecrease",OBJPROP_XDISTANCE,170);
XHekz 6_ ObjectSetInteger(0,"LotsDecrease",OBJPROP_YDISTANCE,20);
=B9- }]DDO ObjectSetInteger(0,"LotsDecrease",OBJPROP_XSIZE,20);
xRe`Duy : ObjectSetInteger(0,"LotsDecrease",OBJPROP_YSIZE,10);
Vf;&z$D{r ObjectSetString(0,"LotsDecrease",OBJPROP_TEXT,"-");
tGgxI D ObjectSetInteger(0,"LotsDecrease",OBJPROP_STATE,0);
|]4 !WBK iqvLu{ //---TP-Label
}:m /@LKB ObjectCreate(0,"TPLabel",OBJ_LABEL,0,0,0,0,0);
2
^m}5:0 ObjectSetInteger(0,"TPLabel",OBJPROP_COLOR,Yellow);
Z+&V > ObjectSetInteger(0,"TPLabel",OBJPROP_XDISTANCE,100);
#B;P4n 3 ObjectSetInteger(0,"TPLabel",OBJPROP_YDISTANCE,35);
u#,8bw?1 ObjectSetInteger(0,"TPLabel",OBJPROP_XSIZE,30);
5dm ~yQN/ ObjectSetInteger(0,"TPLabel",OBJPROP_YSIZE,20);
qD{1X 25O ObjectSetString(0,"TPLabel",OBJPROP_TEXT,"TP");
E`.xu>Yyj ObjectSetInteger(0,"TPLabel",OBJPROP_FONTSIZE,11);
/K#k_k //---TP-Edit
jVQy{8{G ObjectCreate(0,"TP",OBJ_EDIT,0,0,0,0,0);
e9o\qEm ObjectSetInteger(0,"TP",OBJPROP_COLOR,Yellow);
*%Rmdyn ObjectSetInteger(0,"TP",OBJPROP_XDISTANCE,130);
JT?u[p Q^ ObjectSetInteger(0,"TP",OBJPROP_YDISTANCE,35);
=SJ#6uFS ObjectSetInteger(0,"TP",OBJPROP_XSIZE,40);
B*T n@t W ObjectSetInteger(0,"TP",OBJPROP_YSIZE,20);
X' `n>1z ObjectSetString(0,"TP",OBJPROP_TEXT,IntegerToString(TakeProfit));
.nPOjwEx&Y ObjectSetInteger(0,"TP",OBJPROP_FONTSIZE,10);
.PB!1C.}@ ObjectSetInteger(0,"TP",OBJPROP_SELECTABLE,0);
L7$ f01* //---TP-+
"w:h ObjectCreate(0,"TPIncrease",OBJ_BUTTON,0,0,0,0,0);
TTXF
r ObjectSetInteger(0,"TPIncrease",OBJPROP_COLOR,White);
t#^Cem< ObjectSetInteger(0,"TPIncrease",OBJPROP_BGCOLOR,Green);
tgF ~5
o}? ObjectSetInteger(0,"TPIncrease",OBJPROP_XDISTANCE,170);
c,a8#Og ObjectSetInteger(0,"TPIncrease",OBJPROP_YDISTANCE,35);
/HdXJL9B ObjectSetInteger(0,"TPIncrease",OBJPROP_XSIZE,20);
4|?(LHBD) ObjectSetInteger(0,"TPIncrease",OBJPROP_YSIZE,10);
s ~Eo]e ObjectSetString(0,"TPIncrease",OBJPROP_TEXT,"+");
j9fBl:Fr ObjectSetInteger(0,"TPIncrease",OBJPROP_STATE,0);
=Zj
7dn;EN //---TP--
&{Z+p(3Gj ObjectCreate(0,"TPDecrease",OBJ_BUTTON,0,0,0,0,0);
Oe Q[-e ObjectSetInteger(0,"TPDecrease",OBJPROP_COLOR,White);
<V^o.4mOg> ObjectSetInteger(0,"TPDecrease",OBJPROP_BGCOLOR,Red);
2hHRitt36 ObjectSetInteger(0,"TPDecrease",OBJPROP_XDISTANCE,170);
^]o
H}lwO ObjectSetInteger(0,"TPDecrease",OBJPROP_YDISTANCE,45);
n .l#(`($4 ObjectSetInteger(0,"TPDecrease",OBJPROP_XSIZE,20);
?= 7k<a~ ObjectSetInteger(0,"TPDecrease",OBJPROP_YSIZE,10);
]G i&:k ObjectSetString(0,"TPDecrease",OBJPROP_TEXT,"-");
UlWmf{1%]? ObjectSetInteger(0,"TPDecrease",OBJPROP_STATE,0);
lW"0fZ_x'E ^P,Pj z //---SL-Label
4V9BmVS|Th ObjectCreate(0,"SLLabel",OBJ_LABEL,0,0,0,0,0);
Ko&4{}/ ObjectSetInteger(0,"SLLabel",OBJPROP_COLOR,Yellow);
GJWGT`" ObjectSetInteger(0,"SLLabel",OBJPROP_XDISTANCE,100);
o~'p&f ObjectSetInteger(0,"SLLabel",OBJPROP_YDISTANCE,60);
Q&0 `(okb ObjectSetInteger(0,"SLLabel",OBJPROP_XSIZE,30);
8 AW}7.<5 ObjectSetInteger(0,"SLLabel",OBJPROP_YSIZE,20);
:^W}$7$T ObjectSetString(0,"SLLabel",OBJPROP_TEXT,"SL");
.<vXj QE ObjectSetInteger(0,"SLLabel",OBJPROP_FONTSIZE,11);
9Tr ceL; //---SL-Edit
5=*i!c
_m ObjectCreate(0,"SL",OBJ_EDIT,0,0,0,0,0);
&bq1n _ ObjectSetInteger(0,"SL",OBJPROP_COLOR,Yellow);
bp/l~h.7W ObjectSetInteger(0,"SL",OBJPROP_XDISTANCE,130);
ea O'|@;{~ ObjectSetInteger(0,"SL",OBJPROP_YDISTANCE,60);
%h(%M'm? ObjectSetInteger(0,"SL",OBJPROP_XSIZE,40);
2u- J+ ObjectSetInteger(0,"SL",OBJPROP_YSIZE,20);
p*<I_QM! ObjectSetString(0,"SL",OBJPROP_TEXT,IntegerToString(StopLoss));
(xvg.Nby ObjectSetInteger(0,"SL",OBJPROP_FONTSIZE,10);
x~uDCbL ObjectSetInteger(0,"SL",OBJPROP_SELECTABLE,0);
s)E8}-v //---SL-+
VO C$Kqg; ObjectCreate(0,"SLIncrease",OBJ_BUTTON,0,0,0,0,0);
@"h4S*U ObjectSetInteger(0,"SLIncrease",OBJPROP_COLOR,White);
5nBJ j ObjectSetInteger(0,"SLIncrease",OBJPROP_BGCOLOR,Green);
&HLG<ISw ObjectSetInteger(0,"SLIncrease",OBJPROP_XDISTANCE,170);
L_9uwua.B~ ObjectSetInteger(0,"SLIncrease",OBJPROP_YDISTANCE,60);
\15'~ ]d ObjectSetInteger(0,"SLIncrease",OBJPROP_XSIZE,20);
$bKXP( ObjectSetInteger(0,"SLIncrease",OBJPROP_YSIZE,10);
(!8b$) k ObjectSetString(0,"SLIncrease",OBJPROP_TEXT,"+");
Fab]' #1q4 ObjectSetInteger(0,"SLIncrease",OBJPROP_STATE,0);
ceJ#>Rj //---SL--
"y*3p0E ObjectCreate(0,"SLDecrease",OBJ_BUTTON,0,0,0,0,0);
AfhJ6cSIE ObjectSetInteger(0,"SLDecrease",OBJPROP_COLOR,White);
Fh llqh) ObjectSetInteger(0,"SLDecrease",OBJPROP_BGCOLOR,Red);
'MX|=K!C ObjectSetInteger(0,"SLDecrease",OBJPROP_XDISTANCE,170);
;{H Dz$ ObjectSetInteger(0,"SLDecrease",OBJPROP_YDISTANCE,70);
e0TxJ * ObjectSetInteger(0,"SLDecrease",OBJPROP_XSIZE,20);
MY b^G\K ObjectSetInteger(0,"SLDecrease",OBJPROP_YSIZE,10);
4yqYs> ObjectSetString(0,"SLDecrease",OBJPROP_TEXT,"-");
o ~y{9Q ObjectSetInteger(0,"SLDecrease",OBJPROP_STATE,0);
G Wa6FX:/ }
M0C )SU5" //+------------------------------------------------------------------+
