马萨德医生 月季:编程 小代码
来源:百度文库 编辑:九乡新闻网 时间:2024/05/08 23:46:51
double profitTotal()
{
double sum=0;
for(int i=0;i
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
sum+=OrderProfit();
}
return(sum);
}
//--------------------------------------------
int CalculateBuyOrders()
{
int buys=0,sells=0;
for(int i=0;i
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderType()==OP_BUY && OrderSymbol()==symbol && OrderMagicNumber()==iMagic) buys++;
}
return(buys);
}
int CalculateSellOrders()
{
int buys=0,sells=0;
for(int i=0;i
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderType()==OP_SELL && OrderSymbol()==symbol && OrderMagicNumber()==iMagic) sells++;
}
return(sells);
}
void CO_PL() {
int l_ord_total_0 = 0;
int l_cmd_4 = 0;
int l_magic_8 = 0;
int l_ticket_12 = 0;
double l_ord_takeprofit_16 = 0;
double l_ord_stoploss_24 = 0;
string l_symbol_32 = 0;
int l_pos_40 = 0;
double ld_44 = 0;
double ld_52 = 0;
double l_ord_open_price_60 = 0;
double ld_68 = 0;
double ld_72 = MarketInfo(Symbol(), MODE_SPREAD);
double ld_76 = 1 / Point;
l_ord_total_0 = OrdersTotal();
if (l_ord_total_0 == 0) return (0);
while (l_pos_40 < l_ord_total_0) {
if (OrderSelect(l_pos_40, SELECT_BY_POS) == TRUE) {
l_magic_8 = OrderMagicNumber();
if (l_magic_8 == Magic_Number) {
l_symbol_32 = OrderSymbol();
if (l_symbol_32 == Symbol()) {
l_ord_takeprofit_16 = OrderTakeProfit();
l_ord_stoploss_24 = OrderStopLoss();
if (l_ord_takeprofit_16 == 0.0 && l_ord_stoploss_24 == 0.0) {
l_ord_open_price_60 = OrderOpenPrice();
l_cmd_4 = OrderType();
l_ticket_12 = OrderTicket();
ld_68 = ld_72 * Point;//
switch (l_cmd_4) {
case OP_SELL:
ld_44 = l_ord_open_price_60 - (Bid + ld_68);
break;
case OP_BUY:
ld_44 = Bid - l_ord_open_price_60;
}
ld_44 = NormalizeDouble(ld_44, Digits);
ld_44 *= ld_76;//
if (ld_44 < 0.0) ld_52 = MathAbs(ld_44);
if (ld_44 >= TakeProfit) CloseOrder(l_ticket_12);
if (ld_52 >= StopLoss) CloseOrder(l_ticket_12);
}
}
}
}
l_pos_40++;
}
return (0);
}
int CloseOrder(int a_ticket_0) {
int li_unused_4 = 0;
int l_error_8 = 0;
int l_cmd_12 = 0;
bool l_ord_close_16 = FALSE;
if (a_ticket_0 > 0) {
if (OrderSelect(a_ticket_0, SELECT_BY_TICKET) == TRUE) {
l_cmd_12 = OrderType();
switch (l_cmd_12) {
case OP_BUY:
l_ord_close_16 = OrderClose(a_ticket_0, OrderLots(), Bid, 3, Yellow);
if (l_ord_close_16 == 0) {
l_error_8 = GetLastError();
if (l_error_8 == 129 ) {
RefreshRates();
Sleep(10000);
l_ord_close_16 = OrderClose(a_ticket_0, OrderLots(), Bid, 3, Yellow);
if (l_ord_close_16 == 0) return (-1);
}
}
case OP_SELL:
l_ord_close_16 = OrderClose(a_ticket_0, OrderLots(), Ask, 3, Blue);
if (l_ord_close_16 == 0) {
l_error_8 = GetLastError();
if (l_error_8 == 129) {
RefreshRates();
Sleep(10000);
l_ord_close_16 = OrderClose(a_ticket_0, OrderLots(), Ask, 3, Blue);
if (l_ord_close_16 == 0) return (-1);
}
}
}
}
}
return (0);
}
extern double Price=1.00000;
Spread = MarketInfo(Symbol(), MODE_SPREAD);
编程 小代码
Excel VBA编程的常用代码a
Excel VBA编程的常用代码22
博客编程---滚动条代码1(2)
博客编程------滚动代码1(1)
Excel VBA编程的常用代码1
Excel VBA编程的常用代码
数控编程技术/数控编程代码/数控编程指令/数控视频(学数控最喜欢的资料)
ZT:数控编程技术/数控编程代码/数控编程指令/数控视频(数控技术学习专题第二集)
编程利器—splint静态代码检查工具
西门子S7-200编程的一些小技巧
VB6.0初学者的十个编程小技巧20110619
易语言编程根据九九乘法表代码编下面格式 - 已解决 - 搜搜问问
10大最适合编程的字体推荐下载,让代码看起来更美更舒服!
200行C代码实现简单线程池 - Linux内核编程 - 举世无双的学习之路
【首页技巧代码】首页拉长挂件(小图)代码
10款特个的小时钟代码
两种漂亮的小鱼缸代码
厨房小助代码广开
电脑小技巧模块 首页模块代码
引用 博客首页小图(代码)
学习FPGA verilog的心得--编程技巧--如何写代码减少逻辑单元的使用数量 - C...
编程入门网-小叮当也战江湖—VB实例七日谈(一)
编程高手