评论

收藏

屏幕定位显示标签模块

avatar 老周 | 2339 人阅读 | 0 人评论 | 2016-11-09

基于程序运行中需要在不同位置显示文字的需求,我编制了一个名为 iDisplayInfo()的标准模块,准确输入参数就可以随意地、快速地显示信息了。下面是一个包含了该标准模块的程序调用范例。


QQ截图20161109173048.jpg

  1. #property copyright "Copyright 2012, laoyee"
  2. #property link "http://www.docin.com"
  3. //新价格到达时运行一次
  4. int start()
  5. {
  6. iDisplayInfo("Author", "作者:老易 QQ:9217XX", 1, 18, 15, 8, "", SlateGray);
  7. iDisplayInfo("Symbol", Symbol(), 1, 25, 30, 14, "Arial Bold", DodgerBlue);
  8. iDisplayInfo("TradeInfo", "欢迎使用!", 1, 5, 50, 9, "", Olive);
  9. //显示买入组信息
  10. iDisplayInfo(Symbol()+"-BuyGroup", "买入组", 1, 70, 70, 12, "Arial", Red);
  11. iDisplayInfo(Symbol()+"-Ask", DoubleToStr(Ask, Digits), 1, 70, 90, 12, "Arial", Red);
  12. //显示卖出组信息
  13. iDisplayInfo(Symbol()+"-SellGroup", "卖出组", 1, 5, 70, 12, "Arial", Green);
  14. iDisplayInfo(Symbol()+"-Bid", DoubleToStr(Bid, Digits), 1, 5, 90, 12, "Arial", Green);
  15. return(0);
  16. }
  17. //程序加载时运行一次
  18. int init()
  19. {
  20. return(0);
  21. }
  22. //程序卸载时运行一次
  23. int deinit()
  24. {
  25. return(0);
  26. }
  27. /*
  28. 函 数:在屏幕上显示文字标签
  29. 输入参数:string LableName 标签名称,如果显示多个文本,名称不能相同
  30. string LableDoc 文本内容
  31. int Corner 文本显示角
  32. int LableX 标签 X 位置坐标
  33. int LableY 标签 Y 位置坐标
  34. int DocSize 文本字号
  35. string DocStyle 文本字体
  36. color DocColor 文本颜色
  37. 输出参数:在指定的位置(X,Y)按照指定的字号、字体及颜色显示指定的文本
  38. 算法说明:
  39. */
  40. void iDisplayInfo(string LableName,string LableDoc,int Corner,int LableX,int LableY,int DocSize,string DocStyle,color DocColor)
  41. {
  42. if (Corner == -1) return(0);
  43. ObjectCreate(LableName, OBJ_LABEL, 0, 0, 0); //建立标签对象
  44. ObjectSetText(LableName, LableDoc, DocSize, DocStyle,DocColor); //定义对象属性
  45. ObjectSet(LableName, OBJPROP_CORNER, Corner); //确定坐标原点,0-左上角,1-右上角,2-左下角,3-右下角,-1-不显示
  46. ObjectSet(LableName, OBJPROP_XDISTANCE, LableX); //定义横坐标,单位像素
  47. ObjectSet(LableName, OBJPROP_YDISTANCE, LableY); //定义纵坐标,单位像素
  48. }
复制代码

编译运行后如图所示,屏幕右上角显示了版本信息、当前货币对、程序状态以及买入卖出实时报价等内容。这是一个后续编程中最常用的模块。

""
还没有人打赏,支持一下
您需要登录后才可以回帖 登录 | 注册 微信登录

EA之家评论守则