以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  金字塔的策略接触VBS 需要入门导入的一段VBS代码 就是 如何以一秒一次的频率记录一个数据的当期值  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=71823)
--  作者：大灰狼
--  发布时间：2014/11/10 9:54:40
--  金字塔的策略接触VBS 需要入门导入的一段VBS代码 就是 如何以一秒一次的频率记录一个数据的当期值
 金字塔的策略接触VBS  需要入门导入的一段VBS代码  就是 如何以一秒一次的频率记录一个数据的当期值  
--  作者：guotx2010
--  发布时间：2014/11/10 12:51:15
--  

使用一个定时器，定时读取行情数据，用reportdata对象获取最新行情。

 
--  作者：厚德载物生
--  发布时间：2014/11/10 13:26:50
--  
求大神  把代码写出来 吧 目前我真的是入门级 需要 各位老师 引导  十分感谢 诚意满满 十分感谢 诚意满满
--  作者：厚德载物生
--  发布时间：2014/11/10 13:27:46
--  
求大神  把代码写出来 吧 目前我真的是入门级 需要 各位老师 引导  十分感谢 诚意满满 十分感谢 诚意满满
--  作者：厚德载物生
--  发布时间：2014/11/10 13:28:51
--  
做程序化的 真心不容易 急需要解决这个问题 请各位老师 赐一段代码 十分感谢
--  作者：厚德载物生
--  发布时间：2014/11/10 13:38:24
--  
十分渴求这段代码 求帮助 求帮助
--  作者：厚德载物生
--  发布时间：2014/11/10 15:09:18
--  
请各位高手 一定出手相帮 十分感谢
--  作者：王锋
--  发布时间：2014/11/10 15:51:20
--  

VBA的代码范例编写需要一定时间,请用户不要急躁.

 

如果你对VBA还是个白纸,你这种拿来主义对你没任何好处的,在我们安排范例的时间内,议你能先自学一下,至少对VBA的编程有一些最基本的了解.

参考

 

金字塔公式编写与程式化交易设计指南

http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=55132 下方的VBA部分书籍

 

金字塔VBA常用对象使用范例

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642

 

金字塔VBA编程教程

在线观看:http://v.youku.com/v_show/id_XMTY3MjE1NjY0.html

本地下载:http://www.weistock.com/video/金字塔VBA编程教程_标清.flv

 

金字塔VBA开发系列教程-从入门到精通

在线观看:http://i.youku.com/vba123
--  作者：厚德载物生
--  发布时间：2014/11/11 12:59:07
--  
现在已经在VBS入门了，但是 reportdata 只能抓取 最新行情 ，假设我要即时 抓取一个自定义数据 怎么解决 ，请大神们  管理员 回复  谢谢
--  作者：王锋
--  发布时间：2014/11/11 19:37:08
--  

示例

\'在Test过程中打印出上海600217品种当前最新价。
Sub test()
    set Report1 = marketdata.GetReportData("600217","SH")
    msgbox Report1.NewPrice
End Sub

示例2：
\'读取白糖得日线数据
Set HistroyData = marketdata.GetHistoryData("SRX00","ZQ",5)\'若要是分钟这里填0
for i = 0 to HistroyData.count-1
if i = 10 then
\'显示第11个数据得时间，收盘，成交量
msgbox HistroyData.date(i)
msgbox HistroyData.Close(i)
msgbox HistroyData.Volume(i)

\'数据处理完毕后,清理缓冲区
marketdata.DestroyHistoryData

end if
next