发布时间 : 星期六 文章EA编程实训课程 - 图文更新完毕开始阅读
*/
Void iWait() {
While(!IsTradeAllowed() || IsTradeContexeBusy()) Sleep(100); RefreshRates(); Return(0); } /*
函数:在屏幕上显示文字标签
输入参数：标签名称 string LableName—显示多个文本时,名称不能相同 文本内容 string LableDoc 显示位置 int Corner 标签X坐标 int LableX 标签Y坐标 int LableY 文本字号 int DocSize 文本字体 int DocStyle 文本颜色 int DocColor
输出参数：在指定的屏幕位置（X，Y），按照指定的字号、字体、颜色，显示指定的文本。
算法说明：
定位写出（标签名称，文本内容，显示位置，X坐标，Y坐标，字号、字体、颜色） */
Void iDisPalyInfo (string LableName,string LableDoc,int Corner,int LabltX,int LableY,int Docsize,int DocStyle,int Doccolor) {
创建对象（标签名称，对象类型，0，0，0） ObjectCreate(LableName,OBJ_Lable,0,0,0)
文本属性（标签名称，文本内容，字号，字体，颜色）
ObjectSetText(LableName,LableDoc,DocSize,DocStyle,DocColor)
对象属性（标签名称，显示位置，位置）
ObjectSet(LableName,OBJPROP_CORNER,Corner)
对象属性（标签名称，X坐标，X）
Opjectset(LableName,OBJPROP_XDISTANCE,LableX)
对象属性（标签名称，Y坐标，Y）
OpjectSet(LableName,OBJPROP_YDISTANCE,LableY) }
/*
函数:标注符号和画线
画线函数（类型，K线，价格，颜色，编码）
iDrawSign（string myTapy，int myBarPos，doubl myPrice，color myColor，int mySymbol）
参数说明：
类型：string myTapy （点画线-Dot、水平线-Hline、垂直线-VLine） K线：int myBarPos 价格：doubl myPrice 颜色：color myColor
编码：int mySymbol，108代表圆点
函数返回：在指定的K线和价格位置画出：符号、水平线或垂直线 */
Void iDawSign（string myTapy，int myBarPos，doubl myPrice，color myColor，int mySymbol） {
If(myType=”Dot”) {
ObjectCreate(myType+TimeToStr(Time[myBarPos]),OBJ_ARROW,0,Time[myBarPos],myPrice); ObjectSet(myType+TimeToStr(Time[myBarPos]),OBJPROP_COLOR,myCOLOR);
ObjectSet(myType+TimeToStr(Time[myBarPos]),OBJPROP_ARROWCODE,mySymbol);
}
If(myType=”HLine”) {
ObjectCreate(myType+TimeToStr(Time[myBarPos]),OBJ_HLine,0,Time[myBarPos],myPrice); ObjectSet(myType+TimeToStr(Time[myBarPos]),OBJPROP_COLOR,myCOLOR);
}
If(myType=”VLine”) {
ObjectCreate(myType+TimeToStr(Time[myBarPos]),OBJ_VLine,0,Time[myBarPos],myPrice); ObjectSet(myType+TimeToStr(Time[myBarPos]),OBJPROP_COLOR,myCOLOR); } } /*
函数:对象颜色 输入参数:数值 输出参数:颜色
算法:负数为红色,正数为绿色,0为灰色 */
Color iObjectColor(double myInput)
{
Color myColor; If(myInput>0)
myColor=Green;//正数颜色为绿色 if(myInput<0)
myColor=Red;//负数颜色为红色 if(myInput==0)
myColor=DrakGray;//0颜色为灰色 return(myColor); }
Int init() {
iDispalyInfo(“Author”,”作者”,1,18,15,8,””,SlateGray);
iDispalyInfo(“Symbol”,Symbol(),25,30,14,”Arial Bold”,DodgerBlue); iDispalyInfo(“TradeInfo”,”最小下
额:”+DoubleToStr(MarketInfo(Symbol(),MODE_MINLOT),2)+”手”,1,5,50,9,””,Olive); iShowInfo(); return(0) }
Int deinit() {
ObjectsDeleteAll(); Comment(“”); Return(0); }
单