欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → VBA实现价差K线绘制

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5025人关注过本帖树形打印复制链接

主题:VBA实现价差K线绘制

帅哥哟,离线,有人找我吗?
greatall
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:3 积分:20 威望:0 精华:0 注册:2013/2/16 19:31:51
VBA实现价差K线绘制  发帖心情 Post By:2013/5/13 16:12:49 [显示全部帖子]

本人菜鸟5月份新入手金字塔VBA,我想模拟做一个价差K线,

用VBA做价差K线思路是取两个合约的历史数据相扣减,整了老半天感觉这样子好像错了。

getHistoryData获取的历史数据是历史上交易数据,不同合约的历史交易数据时点是不一样的,数据量也不一样的吧?

自己一个人瞎整不知道我这样子的思路是不是对的。麻烦各位大哥指点下了。应该是取什么数据进行二者的价差计算,或者有什么好的思路,谢谢;
假如用公式计算价差,这样子好像没办法根据不通的品种动态计算价差进行K线显示,只能每次维护吧?或者公式能传入 String类型的参数?

另外,绘制K线思路是不是对HistoryData对象设置相应的数据,然后再调用将它呈现出来呢?

eg:

   

for i = Count-1 to 0 step -1 
  '插入一个K线
  call HistoryC.InsertAt(i+1)
  
  'K线数据

  HistoryC.open(i+1) = mxopen
  HistoryC.close(i+1) = mxclose
  HistoryC.high(i+1) = mxhigh
  HistoryC.low(i+1) = mxlow  
  HistoryC.date(i+1) = historyDate(Count-1-i)

  call HistoryC.SaveData(newStock,newMarket,0)
     
next

 call Application.ActivateFrameWithCode("Technic",newStock,newMarket,5)
 call Technic.Refresh


 回到顶部
帅哥哟,离线,有人找我吗?
greatall
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:3 积分:20 威望:0 精华:0 注册:2013/2/16 19:31:51
  发帖心情 Post By:2013/5/16 21:49:26 [显示全部帖子]

谢谢,根据等价K线思路做出了自己的价差K线,但是,如何让自己的价差K线根据实时行情进行走动呢,设置一个定时器,每隔1秒计算K线数据并且保存到价差K线的历史数据中吗?我的程序这样子做一直没有动态刷新K线。对窗格进行刷新也没用。求解这是为何?


 回到顶部
帅哥哟,离线,有人找我吗?
greatall
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:3 积分:20 威望:0 精华:0 注册:2013/2/16 19:31:51
  发帖心情 Post By:2013/5/16 21:51:40 [显示全部帖子]

一语惊醒梦中人阿,非常感谢。那时间对齐是根据两个History数据的时间进行匹配吧。有没有更好的建议呢。谢谢。

 回到顶部