世界交易时间表盘，一目了然，

573 · 发表于 2020-4-29 13:28

交易所时间表.rar (34.54 KB, 下载次数: 19)

573 · 发表于 2020-4-29 13:36

manw · 发表于 2020-4-29 13:47

.................

573 · 发表于 2020-4-29 13:53

这个编程思路有意思，贴出来供大家研究学习

#property version "1.1"
#property strict
#property indicator_separate_window
//----程序预设参数
input int TimeZone=8;//本地时区
input string str2 = "====请自行输入夏令时====";//交易所时间表
input string NewYorkStartTime="8:30";//纽约开市时间
input string NewYorkCloseTime="15:00";//纽约收市时间
input string LondonStartTime="9:30";//伦敦开市时间
input string LondonCloseTime="16:30";//伦敦收市时间
input string FrankfurtStartTime="9:00";//法兰克福开市时间
input string FrankfurtCloseTime="16:00";//法兰克福收市时间
input string TokyoStartTime="9:00";//东京开市时间
input string TokyoCloseTime="15:30";//东京收市时间
input string SydneyStartTime="9:00";//悉尼开市时间
input string SydneyCloseTime="17:00";//悉尼收市时间
input string WellingtonStartTime="9:00";//惠灵顿开市时间
input string WellingtonCloseTime="17:00";//惠灵顿收市时间
int Corner=0; //交易信息显示四个角位置
int cnt;
datetime GMT;
color myColor=SlateGray;
color TitleColor=Yellow; //标题颜色
color TimeIntervalColor=SlateGray; //小时间隔颜色
color TimeColor=SlateGray; //小时数字颜色
color TradingColor=Green; //交易时间段
int OnInit()
{
return(INIT_SUCCEEDED);
}
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{
iMain();
return(rates_total);
}
/*
函数：时间轴
参数说明：string myName 对象名
int myStartX 起始坐标X
int myStartY 起始坐标Y
color myBaseColor 基本颜色
函数返回：
*/
void iTimeLine(string myName,int myStartX,int myStartY,color myBaseColor)
{
iDisplayInfo(myName,myName, Corner, 5, myStartY, 8, "", TitleColor);
int myCount=24*12; //每5分钟一个竖线
int myInterval=myStartX;
int myTimesBet=12; //小时间隔变量，+12,<288
int myTimesNum=1; //小时数字，+1 <24
double myStartHour,myStartMinute,myEndHour,myEndMinute;
//本地时间轴
if (myName=="Local")
{
myTimesBet=12;
myTimesNum=1;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,":", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", clrAqua);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
}
//----绘当前时间位置
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT+TimeZone*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
//惠灵顿时间轴 +12
if (myName=="Wellington")
{
myTimesBet=12;
myTimesNum=5;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,".", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘交易时间段
myStartHour=TimeHour(StrToTime(WellingtonStartTime));
myStartMinute=TimeMinute(StrToTime(WellingtonStartTime));
myEndHour=TimeHour(StrToTime(WellingtonCloseTime));
myEndMinute=TimeMinute(StrToTime(WellingtonCloseTime));
if (cnt>=(myStartHour+myStartMinute/60-4)*12
&& cnt<=(myEndHour+myEndMinute/60-4)*12)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TradingColor); //绘交易时间段
}
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", SlateGray);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
if (myTimesNum==24) myTimesNum=0;
}
//----绘当前时间位置
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT+12*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
//悉尼时间轴 +10
if (myName=="Sydney")
{
myTimesBet=12;
myTimesNum=3;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,".", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘交易时间段
myStartHour=TimeHour(StrToTime(SydneyStartTime));
myStartMinute=TimeMinute(StrToTime(SydneyStartTime));
myEndHour=TimeHour(StrToTime(SydneyCloseTime));
myEndMinute=TimeMinute(StrToTime(SydneyCloseTime));
if (cnt>=(myStartHour+myStartMinute/60-2)*12
&& cnt<=(myEndHour+myEndMinute/60-2)*12)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TradingColor); //绘交易时间段
}
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", SlateGray);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
if (myTimesNum==24) myTimesNum=0;
}
//----绘当前时间位置
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT+10*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
//东京时间轴 +9
if (myName=="Tokyo")
{
myTimesBet=12;
myTimesNum=2;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,".", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘交易时间段
myStartHour=TimeHour(StrToTime(TokyoStartTime));
myStartMinute=TimeMinute(StrToTime(TokyoStartTime));
myEndHour=TimeHour(StrToTime(TokyoCloseTime));
myEndMinute=TimeMinute(StrToTime(TokyoCloseTime));
if (cnt>=(myStartHour+myStartMinute/60-1)*12
&& cnt<=(myEndHour+myEndMinute/60-1)*12)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TradingColor); //绘交易时间段
}
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", SlateGray);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
if (myTimesNum==24) myTimesNum=0;
}
//----绘当前时间位置
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT+9*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
//法兰克福时间轴 +1
if (myName=="Frankfurt")
{
myTimesBet=12;
myTimesNum=18;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,".", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘交易时间段
myStartHour=TimeHour(StrToTime(FrankfurtStartTime));
myStartMinute=TimeMinute(StrToTime(FrankfurtStartTime));
myEndHour=TimeHour(StrToTime(FrankfurtCloseTime));
myEndMinute=TimeMinute(StrToTime(FrankfurtCloseTime));
if (cnt>=(myStartHour+myStartMinute/60+7)*12
&& cnt<=(myEndHour+myEndMinute/60+7)*12)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TradingColor); //绘交易时间段
}
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", SlateGray);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
if (myTimesNum==24) myTimesNum=0;
}
//----绘当前时间位置
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT+1*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
//伦敦时间轴 +0
if (myName=="London(GMT)")
{
myTimesBet=12;
myTimesNum=17;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,".", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘交易时间段
myStartHour=TimeHour(StrToTime(LondonStartTime));
myStartMinute=TimeMinute(StrToTime(LondonStartTime));
myEndHour=TimeHour(StrToTime(LondonCloseTime));
myEndMinute=TimeMinute(StrToTime(LondonCloseTime));
if ((cnt>=(myStartHour+myStartMinute/60+8)*12
&& cnt<=(myEndHour+myEndMinute/60+8)*12)
||((myEndHour+myEndMinute/60+8)*12>288
&& cnt>=0 && cnt<=(myEndHour+myEndMinute/60+8)*12-288))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TradingColor); //绘交易时间段
}
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", SlateGray);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
if (myTimesNum==24) myTimesNum=0;
}
//----绘当前时间位置
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT+0*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
//纽约时间轴 -5
if (myName=="NewYork")
{
myTimesBet=12;
myTimesNum=12;
for (cnt=0;cnt<myCount;cnt++)
{
iDisplayInfo(myName+(string)cnt,".", Corner, myInterval, myStartY, 8, "", myBaseColor); //绘基础时间柱图形
//绘当前时间位置、1小时间隔、小时数字、交易时间段
//----绘交易时间段
myStartHour=TimeHour(StrToTime(NewYorkStartTime));
myStartMinute=TimeMinute(StrToTime(NewYorkStartTime));
myEndHour=TimeHour(StrToTime(NewYorkCloseTime));
myEndMinute=TimeMinute(StrToTime(NewYorkCloseTime));
if ((cnt>=(myStartHour+myStartMinute/60+13)*12
&& cnt<=(myEndHour+myEndMinute/60+13)*12)
||((myEndHour+myEndMinute/60+13)*12>288
&& cnt>=0 && cnt<=(myEndHour+myEndMinute/60+13)*12-288))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TradingColor); //绘交易时间段
}
//----绘当前时间位置
//----绘1小时间隔、小时数字
if (cnt==myTimesBet)
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 8, "", TimeIntervalColor);
iDisplayInfo((string)myTimesNum+myName+(string)cnt,(string)myTimesNum, Corner, myInterval-2, myStartY+15, 7, "", SlateGray);
myTimesBet=myTimesBet+12;
myTimesNum=myTimesNum+1;
if (myTimesNum==24) myTimesNum=0;
}
if (cnt==MathFloor((TimeLocal()-iTime(NULL,1440,0))/300))
{
iDisplayInfo(myName+(string)cnt,"|", Corner, myInterval, myStartY, 12, "", Red);
}
myInterval=myInterval+5;
}
iDisplayInfo(myName+"Time",TimeToStr(GMT-5*3600,TIME_DATE|TIME_SECONDS), Corner, myInterval+10, myStartY, 8, "", TitleColor);
}
}
void iMain()
{
//清除标签
int myWindowsHandle = WindowFind(WindowExpertName()); //获取当前指标名称所在窗口序号
ObjectsDeleteAll(myWindowsHandle, OBJ_LABEL);
GMT=TimeLocal()-TimeZone*3600;
iDisplayInfo("ServerTime","Server "+TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS), Corner, 230, 3, 8, "", TitleColor);
//绘时间轴
iTimeLine("Local",80,15,myColor);
iTimeLine("Wellington",80,45,myColor);
iTimeLine("Sydney",80,75,myColor);
iTimeLine("Tokyo",80,105,myColor);
iTimeLine("Frankfurt",80,135,myColor);
iTimeLine("London(GMT)",80,165,myColor);
iTimeLine("NewYork",80,195,myColor);
return;
}
/*
函数：在屏幕上显示文字标签
输入参数：string LableName 标签名称，如果显示多个文本，名称不能相同
string LableDoc 文本内容
int Corner 文本显示角
int LableX 标签X位置坐标
int LableY 标签Y位置坐标
int DocSize 文本字号
string DocStyle 文本字体
color DocColor 文本颜色
输出参数：在指定的位置（X,Y）按照指定的字号、字体及颜色显示指定的文本
算法说明：
*/
void iDisplayInfo(string LableName,string LableDoc,int myCorner,int LableX,int LableY,int DocSize,string DocStyle,color DocColor)
{
int myWindowsHandle = WindowFind(WindowExpertName());
ObjectCreate(LableName, OBJ_LABEL, myWindowsHandle, 0, 0);
ObjectSetText(LableName, LableDoc, DocSize, DocStyle,DocColor);
ObjectSet(LableName, OBJPROP_CORNER, Corner);
ObjectSet(LableName, OBJPROP_XDISTANCE, LableX);
ObjectSet(LableName, OBJPROP_YDISTANCE, LableY);
return;
}

复制代码

lcc · 发表于 2020-12-21 00:38

学习学习

		自动登录	找回密码
密码			快捷注册(禁q号)

[指标] 世界交易时间表盘，一目了然，

评分