Список проголосовавших за комментарий "Мурен(а), на мт4<br/> <p>//+------------------------------------------------------------------+<br/> //| YouBalanceProfitAndSetNewStopProfit.mq4 |<br/> //| VadimVP |<br/> //| poluyan@fxmail.ru |<br/> /*<br/> Покажет (при наличии открытых ордеров) Ваш Баланс и Профит на<br/> указанном Вами ценовом уровне (при достижении ценой этого уровня),<br/> и (по желанию) автоматически переместит StopLoss/TakeProfit<br/> открытых ордеров на этот указанный Вами уровень (создаст общий для<br/> все ордеров уровень фиксации прибыли или убытка).</p><p>Данный скрипт поможет узнать Вам, какой будет размер Вашего<br/> баланса и профита (прибыли) при достижении ценой указанного<br/> Вами уровня (т.е. посмотреть что ожидает Ваш баланс в будущем,<br/> какова будет Ваша прибыль (или убыток), и сколько это процентов<br/> от размера депозита).</p><p>Соответственно у Вас должны иметься открытые ордера на текущем<br/> инструменте, иначе скрипт сообщит что открытых ордеров нет.</p><p>После запуска скипта появится мигающая линия и текстовое сообшение<br/> на экране с сообщением «Баланс: **** Профит ***** ( **% от Depo)»<br/> Двигая мигающую линию, установите ее на то ценовой уровень, где<br/> вам интересено узнать размер баланса и профита при достижении ценой<br/> этого уровня. Текстовое окно обновит информацию по данному уровню.<br/> Эта же информация дублируется в левом верхнем углу графика. Если вам<br/> текстовое окно мешает, можете его удалить или перетащить в другое<br/> место. Либо измените его шрифт и цвет в тексте советника.</p><p>Чтобы прекратить работу скрипта, удалите мигающую линию.</p><p>После этого скрипт спросит, хотите ли вы установить новые уровни<br/> Stop и Profit у открытых ордеров текущего инструмента.<br/> Если выберете «Да» — скрипт изменить уровни закрытия у ордеров<br/> таким образом, чтобы при достижении уровня цены мигающей линии<br/> все ордера закрылись и Вы получили ту самую прибыль (убыток), что<br/> показал Вам скрипт (на уровне цены мигающей линии).</p><p>То есть скрипт установит общий для всех открытых ордеров уровень<br/> фиксации прибыли или убытка. Чтобы установить общим и уровень<br/> прибыли, и уровень убытка, скрипт придется запускать дважды.<br/> Сначала установите один уровень, потом второй (над текущей ценой<br/> и под текущей ценой).</p><p>Скипт сообщит об успешности (неуспешности) изменений в Alert-окне.</p><p>Имейте ввиду, что новые установки Stop и Profit у открытых ордеров<br/> соответствуют той прибыли (убытку) что показал вам скрипт, только<br/> в случае если вы не добавляете и не удаляете ордера. Если ордера<br/> после работы скрипта добавлялись/удалялись, то запустите скипт<br/> вновь, чтобы актуализировать информацию и уровни.</p><p>Скрипт работает только с открытыми ордерами текущего инструмента.</p><p>Так как скрипту для работы необходимо наличие подключения<br/> терминала к серверу — работать он будет только при наличии<br/> подключения — иначе выдаст сообщение об отсутствии.</p><p>*/<br/> //+------------------------------------------------------------------+<br/> #property copyright «VadimVP»<br/> #property link «poluyan@fxmail.ru»<br/> #include <WinUser32.mqh><br/> //***********************************************************</p><p>extern color clr = Red; // Цвет сообщения на экране (Баланс и Профит)</p><p>extern int font = 12; // Размер шрифта сообщения на экране (Баланс и Профит)</p><p>double STL = 0;<br/> int iii = 0;<br/> double lots = 0;<br/> string res, res1, res2;<br/> int i=0;</p><p>//+------------------------------------------------------------------+<br/> //| script program start function |<br/> //+------------------------------------------------------------------+<br/> int init() {linebye();return(0);}<br/> int deinit(){Comment (" ");ObjectDelete («10»);ObjectDelete («Label»);return(0);}</p><p>int start() {<br/> if (IsConnected()) {<br/> if (ObjectFind(«Label») == (-1)) {linebye();}<br/> if (ObjectFind(«10») == (-1)) {ObjectCreate («10»,OBJ_TEXT,0,Time[WindowBarsPerChart( )/3], WindowPriceMax(0) );<br/> ObjectSetText(«10», DoubleToStr (Close[4],4), font, «Arial», clr);}<br/> <br/> while (ObjectFind(«Label»)!=(-1) ) {<br/> STL = ObjectGet(«Label», 1); text();<br/> Comment("\n"+«Значение линии: » +DoubleToStr(STL,Digits)+"\n"<br/> + «Суммарный лот: » + DoubleToStr(lots(),2)+ "\n"+ «Прибыль/убыток на уровне линии: » + res1<br/> + " и размер баланса: " + res +"\n"<br/> + «Для прекращения работы скрипта удалите мерцающую линию „);<br/> <br/> if (iii == 5) {Sleep (30); ObjectSet( “Label», 6, Blue); WindowRedraw( );} else Sleep (30);<br/> if (iii == 10) {Sleep (30); ObjectSet( «Label», 6, White); WindowRedraw( );} else Sleep (30);<br/> if (iii == 10) iii = 0; iii = iii+1;<br/> }<br/> if (lots() != 0) {<br/> if (MessageBox (" Установить уровень закрытия ордеров по цене мигающей линии??? ",«Скрипт интересуется:»,1)==1) startset();<br/> }<br/> }<br/> else MessageBox («Нет соединения с сервером!!!»," Скрипт сообщает:",0x00000000);<br/> return(0);<br/> }<br/> //+------------------------------------------------------------------+<br/> int linebye() {// Рисуем линию (которая мигает)<br/> ObjectDelete( «Label»);<br/> ObjectCreate( «Label», OBJ_HLINE, 0, 0, (Bid-Point*(MarketInfo(Symbol(), MODE_STOPLEVEL))) );<br/> ObjectSet( «Label», 6, White); ObjectSet( «Label», 8, 2); WindowRedraw( ) ;<br/> return(0); }<br/> //+------------------------------------------------------------------+</p><p><br/> string text() {<br/> <br/> if (funkprice() != 0)<br/> {res = DoubleToStr ((AccountBalance( ) — (((STL — funkprice())/Point)*MarketInfo(Symbol(), MODE_TICKVALUE)*lots()*(-1))),0);<br/> res1 = DoubleToStr (( (((STL — funkprice())/Point)*MarketInfo(Symbol(), MODE_TICKVALUE)*lots())),1);<br/> res2 = DoubleToStr ( (100*(((STL — funkprice())/Point)*MarketInfo(Symbol(), MODE_TICKVALUE)*lots()))/AccountBalance(),2);}<br/> else {res = " Суммарный лот = 0! "; res1 = ""; res2 = "";}<br/> <br/> if (((((STL — funkprice())/Point)*MarketInfo(Symbol(), MODE_TICKVALUE)*lots()))>0) clr = Blue; else clr = Red;<br/> <br/> <br/> ObjectSetText(«10»," Баланс: "+res+" "+AccountCurrency( )+", Профит: "+res1+" "+AccountCurrency( )+" ( "+res2+"% от Depo ) ", font, «Arial», clr);<br/> WindowRedraw( ) ;<br/> return(0); }<br/> //&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&<br/> double funkprice() {</p><p>double price=0;<br/> if (lots()!=0)<br/> {<br/> if (lots()>0) price = MarketInfo(Symbol(),MODE_BID) — ((symbolprofit()/(MarketInfo(Symbol(), MODE_TICKVALUE)*lots()))*Point);<br/> if (lots()<0) price = MarketInfo(Symbol(),MODE_ASK) — ((symbolprofit()/(MarketInfo(Symbol(), MODE_TICKVALUE)*lots()))*Point);<br/> }<br/> return (price); }<br/> <br/> //*******************************************<br/> int startset() { int kol=0; int kolOK=0; int i=0; double ilots=0;<br/> for (i=0; i<OrdersTotal(); i++)<br/> {<br/> if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;<br/> if (OrderSymbol()!=Symbol()) continue;<br/> if (OrderType()==OP_BUY)<br/> {<br/> ilots=ilots+OrderLots();<br/> kol=kol+1;<br/> }<br/> if (OrderType()==OP_SELL)<br/> {<br/> ilots=ilots-OrderLots();<br/> kol=kol+1;<br/> }<br/> }<br/> //-----<br/> Alert ("!!! Пожалуйста дождитель окончания работы скрипта!");<br/> int resi = 0;<br/> for (i=0; i<OrdersTotal(); i++)<br/> {<br/> if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;<br/> if (OrderSymbol()!=Symbol()) continue;<br/> <br/> if (STL>Ask)<br/> { if (OrderType()==OP_BUY) {if (STL == OrderTakeProfit()) resi=resi+1; else { if (OrderModify(OrderTicket(),0,OrderStopLoss(),STL,0,CLR_NONE)) resi = resi+1;} }<br/> if (OrderType()==OP_SELL){if (STL == OrderStopLoss()) resi=resi+1; else { if ( OrderModify(OrderTicket(),0,STL,OrderTakeProfit(),0,CLR_NONE)) resi = resi+1;} } }<br/> if (STL<Bid)<br/> { if (OrderType()==OP_BUY) {if (STL == OrderStopLoss()) resi=resi+1; else { if ( OrderModify(OrderTicket(),0,STL,OrderTakeProfit(),0,CLR_NONE)) resi = resi+1;} }<br/> if (OrderType()==OP_SELL){if (STL == OrderTakeProfit()) resi=resi+1; else { if (OrderModify(OrderTicket(),0,OrderStopLoss(),STL,0,CLR_NONE)) resi = resi+1;} } }<br/> <br/> }<br/> Alert ("***************************************************");<br/> if (kol==resi) Alert («Все ордера успешно изменены! ОК!»); else Alert ("!!! Внимание!!! Не удалось изменить — " +(kol-resi)+ " ордера из "+kol+" имеющихся");<br/> Alert ("************ информация от скрипта ************");</p><p>return(0); }<br/> <br/> double lots()<br/> {<br/> double sumlots = 0;<br/> for (i=0; i<OrdersTotal(); i++)<br/> {<br/> if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;<br/> if (OrderSymbol()!=Symbol()) continue;<br/> if (OrderType()==OP_BUY)<br/> {<br/> sumlots=sumlots+OrderLots();<br/> }<br/> if (OrderType()==OP_SELL)<br/> {<br/> sumlots=sumlots-OrderLots();<br/> }<br/> }<br/> return(sumlots);<br/> }</p><p>//**************************<br/> double symbolprofit() // profit по ордерам текущего инструмента (без свопов и комиссий)<br/> {<br/> double sprofit = 0;<br/> for (i=0; i<OrdersTotal(); i++)<br/> {<br/> if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;<br/> if (OrderSymbol()!=Symbol()) continue;<br/> sprofit = sprofit + OrderProfit( );<br/> }<br/> return(sprofit);<br/> }</p>"