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); }

单