以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  请问如何编程？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=68835)
--  作者：drliang680
--  发布时间：2014/8/17 7:51:27
--  请问如何编程？
版主好！

请问如何编程？

1. 每个交易日上午9:30am开始，每隔5分钟下载当日全部A股的1分钟、5分钟和日线数据，直到10:00am为止，并按条件选股公式1进行选股。每隔5分钟下载更新数据后，即刻选股，将账户剩余资金的15%，平均买入被选中的股票。上一个5分钟选中的股票，在下一个5分钟不管选中与否，都不重复买入。

2. 在下一个交易日，在9:30am按照开盘价抛出上一交易日所有股票。并重复上述1的过程。

谢谢!
--  作者：王锋
--  发布时间：2014/8/17 10:20:33
--  
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=68358
--  作者：drliang680
--  发布时间：2014/8/19 8:38:12
--  
感谢回复。我正在学习VBS。有个问题请教，下载更新全部A数据和用自编选股公式选股，是用哪个对象属性？能否给我个关键字，我顺着去摸索？谢谢！
--  作者：admin
--  发布时间：2014/8/19 14:24:26
--  

MarketData 对象

该对象管理所有历史数据

 

示例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

 

相关的范例论坛很多，你利用MarketData做关键字内容搜索即可
--  作者：admin
--  发布时间：2014/8/19 14:25:17
--  

完整视频学习地址:
http://i.youku.com/vba123

 

这里的视频教程希望你认真学习
--  作者：drliang680
--  发布时间：2014/8/19 20:58:50
--  
谢谢!