Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:是否可以同时set两个marketdata?

1楼
jinn 发表于:2020/2/23 13:50:15

set a = marketdata 。。。

set b = marketdata。。。

 

2楼
无为剑 发表于:2020/2/23 18:44:06
marketdata 是内置对象,是不需要set的
3楼
jinn 发表于:2020/2/24 12:32:21
我是否可以用marketdata同时两个品种gethistorydata
4楼
yukizzc 发表于:2020/2/24 12:51:43

注意:

1,HistoryDataMode属性为0时,该对象使用一个共有的缓冲区来保存用户打开的市场数据,这意味着用户所调用的数据内容再下次重新调用其他品种或者调用不同种类的数据后会自动失效,若要在不同的品种间做横向数据处理请注意备份之前打开的数据,用户可以使用Visual Basic内部提供的数组,另外还可以使用金字塔为您提供的功能强大的数组类Array.

2,HistoryDataMode属性为1时,不同品种为独立的缓冲区,这样你就可以同时打开多个品种进行横向统计处理了,但是注意当HistoryDataMode=1时,数据使用完毕请调用DestroyHistoryData方法清理内存缓冲区.处于该模式时只有不同的品种才是独立的内存缓冲区,如果相同品种的多次调用,同样是共享缓冲区的.

示例1:

'当HistoryDataMode=0时,对于共享缓冲区需要使用数组保存打开的历史数据

marketdata.HistoryDataMode=0'指定共享内存

dim d1

Set d1 = CreateObject("Stock.Array")       

set Data1= marketdata.GetHistoryData("if12","zj",0)

for i=Data1.Count-20 to Data1.Count-1

  d1.AddBack(Data1.Close(i))

next

     

dim d2

Set d2 = CreateObject("Stock.Array")       

set Data2= marketdata.GetHistoryData("if11","zj",0)  

for i=Data2.Count-20 to Data2.Count-1

  d2.AddBack(Data2.Close(i))    

next

示例2:

marketdata.HistoryDataMode=1'不同品种为独立的缓冲区

set Data1= marketdata.GetHistoryData("if12","zj",0)              

set Data2= marketdata.GetHistoryData("if11","zj",0) 

'这里的代码处理Data1和Data2的对象数据

'数据处理完毕后,清理缓冲区

marketdata.DestroyHistoryData

5楼
jinn 发表于:2020/2/24 18:54:16
多谢啦图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
6楼
solarhe2006 发表于:2020/4/30 0:42:23

注意:

1,HistoryDataMode属性为0时,该对象使用一个共有的缓冲区来保存用户打开的市场数据,这意味着用户所调用的数据内容再下次重新调用其他品种或者调用不同种类的数据后会自动失效,若要在不同的品种间做横向数据处理请注意备份之前打开的数据,用户可以使用Visual Basic内部提供的数组,另外还可以使用金字塔为您提供的功能强大的数组类Array.

2,HistoryDataMode属性为1时,不同品种为独立的缓冲区,这样你就可以同时打开多个品种进行横向统计处理了,但是注意当HistoryDataMode=1时,数据使用完毕请调用DestroyHistoryData方法清理内存缓冲区.处于该模式时只有不同的品种才是独立的内存缓冲区,如果相同品种的多次调用,同样是共享缓冲区的.

示例1:

'当HistoryDataMode=0时,对于共享缓冲区需要使用数组保存打开的历史数据

marketdata.HistoryDataMode=0'指定共享内存

dim d1

Set d1 = CreateObject("Stock.Array")       

set Data1= marketdata.GetHistoryData("if12","zj",0)

for i=Data1.Count-20 to Data1.Count-1

  d1.AddBack(Data1.Close(i))

next

     

dim d2

Set d2 = CreateObject("Stock.Array")       

set Data2= marketdata.GetHistoryData("if11","zj",0)  

for i=Data2.Count-20 to Data2.Count-1

  d2.AddBack(Data2.Close(i))    

next

示例2:

marketdata.HistoryDataMode=1'不同品种为独立的缓冲区

set Data1= marketdata.GetHistoryData("if12","zj",0)              

set Data2= marketdata.GetHistoryData("if11","zj",0) 

'这里的代码处理Data1和Data2的对象数据

'数据处理完毕后,清理缓冲区

marketdata.DestroyHistoryData


共6 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.01563 s, 2 queries.