以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA 代码  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=96397)
--  作者：AQ12369
--  发布时间：2016/4/18 10:17:45
--  VBA 代码
 这是论坛上的  VBA 等价K   运行宏时   提示有错误              麻烦你 修改一下




\'-------------------------------------------------------------等价K开始---------------------------------------------------

dim shanchu
shanchu = 0     \'是否删除历史数据，1为需要

dim dangtianshuju \'当日是否有数据，0为没有
dangtianshuju = 1

dim bili 
bili = 0.001    \'等价线区间

dim xinheyue
xinheyue = "IF88"  \'新等价K合约代码
dim xinmingcheng
xinmingcheng = "IF等价K线" \'新等价K合约名称
dim xinshichang
xinshichang = "ZJ" \'新等价K合约市场

dim laoheyue
laoheyue = "IF00" \'标的合约代码
dim laoshichang
laoshichang = "ZJ" \'标的合约市场
dim laozhishu
laozhishu = "IF13"

Sub lishishuju()

    \'查询品种是否存在，不存在则新建
    cunzai = marketdata.IsExistStock(xinheyue,xinshichang)
    if cunzai = 0 then
       call marketdata.AddStock(xinheyue,xinshichang, xinmingcheng) 
       application.MsgOut "等价K线【创建成功】！"
    else
       application.MsgOut "等价K线【已经存在】！"
    end if

    
    \'等价区间处理 
    set Report1 = marketdata.GetReportData(laoheyue,laoshichang)    
    qj = Report1.Open*bili
 
    
    \'删除历史数据，创建第一根K线
    if shanchu = 1 then     
       Set History1 = marketdata.GetHistoryData(xinheyue,xinshichang,0)     
       for j = 0 to History1.Count-1
       History1.RemoveAt(j)
       next    
       call History1.InsertAt(0)
       History1.open(0) = Report1.Open
       History1.close(0) = Report1.Open
       History1.high(0) = Report1.Open
       History1.low(0) = Report1.Open
       History1.Date(0) = Report1.Date
       History1.Volume(0) = Report1.Volume
       History1.OpenInt(0) = Report1.OpenInt
       call History1.SaveData(xinheyue,xinshichang,1)        
       application.MsgOut "等价K线【历史数据初始化】成功！"
    end if
              
    set minutedata = marketdata.GetMinuteData(laoheyue,laoshichang)
    Count =  minutedata.Count
    
    
    for i = 1 to count-1 
    
        Set History2 = marketdata.GetHistoryData(xinheyue,xinshichang,0)      
        mxopen = History2.open(History2.Count-1)
        mxclose = History2.close(History2.Count-1)
        mxhigh = History2.high(History2.Count-1)
        mxlow = History2.low(History2.Count-1)
        mxDate = History2.Date(History2.Count-1)
        mxVolume = History2.Volume(History2.Count-1)
        mxOpenInt = History2.OpenInt(History2.Count-1)
        

        close = minutedata.newprice(i)
        fbDate = minutedata.Date(i)      
        Volume = minutedata.Volume(i)
        mxVolume = minutedata.Volume(i-1)
        OpenInt = minutedata.OpenInt(i)
        if close > mxhigh then mxhigh = close end if
        if close < mxlow  then mxlow = close end if
        mxdate = fbDate
        mxxVolume = (Volume-mxVolume)+mxxVolume
        mxOpenInt = OpenInt
        
        History2.close(History2.Count-1) = close
        History2.high(History2.Count-1) = mxhigh
        History2.low(History2.Count-1) = mxlow
        History2.Date(History2.Count-1) = mxdate  
        History2.Volume(History2.Count-1) = mxxVolume  
        History2.OpenInt(History2.Count-1) = mxOpenInt 
        call History2.SaveData(xinheyue,xinshichang,1)
       
        if abs(close-mxopen) > qj then
        \'新建一个K线       
        call History2.InsertAt(History2.Count)
        History2.open(History2.Count-1) = close
        History2.close(History2.Count-1) = close
        History2.high(History2.Count-1) = close
        History2.low(History2.Count-1) = close
        History2.Date(History2.Count-1) = mxdate  
        History2.Volume(History2.Count-1) = 0   
        History2.OpenInt(History2.Count-1) = OpenInt  
        call History2.SaveData(xinheyue,xinshichang,1)   
        mxxVolume = 0 
        end if
        
     next

End Sub

sub dengjiaK()‘第一次用的时候请先运行改宏创建等价K线数据
     call lishishuju()
end sub

Sub APPLICATION_VBAStart()
    call Application.SetTimer(0,1000) \'创建一个0号定时器，间隔时间1秒
End Sub


Sub APPLICATION_Timer(ID)  
 
    if ID = 0 then
    

    
     if (cdate(time)<=cdate("11:30:00") and cdate(time)>cdate("9:15:00")) or (cdate(time)<=cdate("15:15:00") and cdate(time)>cdate("13:00:00")) then  
   
      \'等价区间处理    
      set Report1 = marketdata.GetReportData(laoheyue,laoshichang)
         qj = Report1.Open*bili
         
      set Report2 = marketdata.GetReportData(laozhishu,laoshichang)  
               
        Set History2 = marketdata.GetHistoryData(xinheyue,xinshichang,0)      
        mxopen = History2.open(History2.Count-1)
        mxclose = History2.close(History2.Count-1)
        mxhigh = History2.high(History2.Count-1)
        mxlow = History2.low(History2.Count-1)
        mxDate = History2.Date(History2.Count-1)
        mxxVolume = History2.Volume(History2.Count-1)
        mxOpenInt = History2.OpenInt(History2.Count-1)
        
        set minutedata = marketdata.GetMinuteData(laoheyue,laoshichang)
        Count =  minutedata.Count     
        
    
        close = minutedata.newprice(Count-1)
        fbDate = minutedata.Date(Count-1) 
        mxVolume = minutedata.Volume(Count-2)
        Volume = minutedata.Volume(Count-1)
        OpenInt = minutedata.OpenInt(Count-1)
        if close > mxhigh then mxhigh = close end if
        if close < mxlow  then mxlow = close end if
        mxdate = fbDate
        mxxVolume = mxxVolume+(Volume-mxVolume)
        mxOpenInt =OpenInt
\'        application.MsgOut mxxVolume&" "&Volume&" "&Volume-mxVolume
        

        History2.close(History2.Count-1) = close
        History2.high(History2.Count-1) = mxhigh
        History2.low(History2.Count-1) = mxlow
        History2.Date(History2.Count-1) = mxdate  
        History2.Volume(History2.Count-1) = mxxVolume  
        History2.OpenInt(History2.Count-1) = mxOpenInt  
        call History2.SaveData(xinheyue,xinshichang,1)
       
        if abs(close-mxopen) > qj then
        \'新建一个K线       
        call History2.InsertAt(History2.Count)
        History2.open(History2.Count-1) = close
        History2.close(History2.Count-1) = close
        History2.high(History2.Count-1) = close
        History2.low(History2.Count-1) = close
        History2.Date(History2.Count-1) = mxdate  
        History2.Volume(History2.Count-1) = 0  
        History2.OpenInt(History2.Count-1) = OpenInt
        call History2.SaveData(xinheyue,xinshichang,1)
        mxxVolume = 0
        end if
        
     call Application.ActivateFrameWithCode("Technic",xinheyue,xinshichang,0)
     call Technic.Refresh      
    end if 
   
    
    
    end if 
  
end sub

Sub to_0()

\'得到上期所指定品种的日线数据
Set History = marketdata.GetHistoryData("IF88","ZJ",0)
\'删掉第一条数据
for i=0 to History.Count-1
History.Volume(i) = 0
next

call History.SaveData("IF88","ZJ",1)




End Sub
--  作者：yukizzc
--  发布时间：2016/4/18 11:30:32
--  
sub dengjiaK() \'第一次用的时候请先运行改宏创建等价K线数据
     call lishishuju()
end sub
 
这里用了中文输入法了，您启动时他错误提示会提示你这一句的，自己修改下即可
--  作者：AQ12369
--  发布时间：2016/4/18 11:56:57
--  
 怎样修改呢？    俺不会
--  作者：yukizzc
--  发布时间：2016/4/18 13:04:36
--  

单引号这边注释的文字，原帖里是中文输入法

你改成英文输入法下的单引号注释就行了

或者下面这样把注释东西都去掉

sub dengjiaK() 
     call lishishuju()
end sub
--  作者：AQ12369
--  发布时间：2016/4/18 13:45:44
--  
 太谢谢了   VBA 的   等价K 会闪烁么？    能否用于程序化交易 ？        麻烦你能否改一个螺纹钢的等价K  
--  作者：yukizzc
--  发布时间：2016/4/18 13:51:33
--  

这个您要自己处理，交易的高级区有另外的等价k交易源码

这个需要您自己了解的话考虑，如果真的是一点都不会的话，不是很建议你使用。
--  作者：AQ12369
--  发布时间：2016/4/18 14:18:03
--  
交易的高级区有另外的等价k交易源码            在哪里呢     给个链接吧  谢谢
--  作者：yukizzc
--  发布时间：2016/4/18 14:20:38
--  
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=4515
[此贴子已经被作者于2016/4/18 14:20:43编辑过]