人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

您現(xiàn)在的位置：程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識>>正文內(nèi)容

這個(gè)程序編譯的時(shí)候通不過,不知道怎么轉(zhuǎn)換,請教了　[金字塔]

作者：金字塔 來源：cxh99.com 發(fā)布時(shí)間：2015年01月16日 點(diǎn)擊數(shù)： 　【收藏到本網(wǎng)的會員中心】
  • 咨詢內(nèi)容：

    dim shanchushanchu = 0 ；
    dim dangtianshuju ；
    dim bili bili = 0.001 ； 
    dim xinheyuexinheyue = "IF88" ；
    dim xinmingchengxinmingcheng = "IF等價(jià)K線"；
    dim xinshichangxinshichang = "ZJ" ；
    dim laoheyuelaoheyue = "IF00" ；
    dim laoshichanglaoshichang = "ZJ"；
    dim laozhishulaozhishu = "IF13" ；
    Sub lishishuju() ；
    cunzai = marketdata.IsExistStock(xinheyue,xinshichang)    ；
    if cunzai = 0 then      
    call
    marketdata.AddStock(xinheyue,xinshichang,xinmingcheng)  ；    
     application.MsgOut ； 
    else     
     application.MsgOut；
    end if
              
    set
    Report1 = marketdata.GetReportData(laoheyue,laoshichang) ；      
    qj = Report1.Open*bili   ；       
    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 ；"等價(jià)K線【歷史數(shù)據(jù)初始化】成功！"   
    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                    
    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()；   
    call
    lishishuju()；
    end sub
    Sub APPLICATION_VBAStart()；   
    call
    Application.SetTimer(0,1000)；

    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           '等價(jià)區(qū)間處理         
    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                 
    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-1History
    Volume(i) = 0；
    next
    call
    History.SaveData("IF88","ZJ",1)；

     

    End Sub

     


    dim shanchushanchu = 0 ；

    dim dangtianshuju ；

    dim bili bili = 0.001 ； 

    dim xinheyuexinheyue = "IF88" ；

    dim xinmingchengxinmingcheng = "IF等價(jià)K線"；

    dim xinshichangxinshichang = "ZJ" ；

    dim laoheyuelaoheyue = "IF00" ；

    dim laoshichanglaoshichang = "ZJ"；

    dim laozhishulaozhishu = "IF13" ；

    Sub lishishuju() ；

    cunzai = marketdata.IsExistStock(xinheyue,xinshichang)    ；

    if cunzai = 0 then      

    call

    marketdata.AddStock(xinheyue,xinshichang,xinmingcheng)  ；    

     application.MsgOut ； 

    else     

     application.MsgOut；

    end if

              

    set

    Report1 = marketdata.GetReportData(laoheyue,laoshichang) ；      

    qj = Report1.Open*bili   ；       

    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 ；"等價(jià)K線【歷史數(shù)據(jù)初始化】成功！"   

    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                    

    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()；   

    call

    lishishuju()；

    end sub

    Sub APPLICATION_VBAStart()；   

    call

    Application.SetTimer(0,1000)；

     

    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           '等價(jià)區(qū)間處理         

    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                 

    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-1History

    Volume(i) = 0；

    next

    call

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

     

     

     

    End Sub

     

  • 金字塔客服： http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=69458 5樓

     

  • 用戶回復(fù)： 主要看哪一部分，我昨天都打印出來了

     

  • 網(wǎng)友回復(fù)： 這幾天都在看，還是不知道怎么轉(zhuǎn)換

 

有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友

可聯(lián)系技術(shù)人員 QQ: 1145508240  點(diǎn)擊這里給我發(fā)消息進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）


【字體：小 大】【打印文章】【查看評論】

相關(guān)文章

    沒有相關(guān)內(nèi)容
主站蜘蛛池模板： 456亚洲人成高清在线 | 国产欧美一区二区三区久久 | 亚洲地址一地址二地址三 | 天天爽天天射 | 欧美日本在线视频 | 成人18毛片 | 中文字幕日韩理论在线 | 国产成人亚洲影视在线 | 一级做a爰片鸭王 | 一级做a毛片免费视频 | 天天干天天操天天操 | vvideos欧美极度另类 | jizzjizz中国护士第一次 | 免费簧片在线观看 | 日本一区二区免费看 | 天天摸日日操 | 免费一级视频在线播放 | 九九成人免费视频 | 国产高清在线精品一区在线 | 日韩在线观看网站 | 天天摸天天添 | 日本乱人伦片中文字幕三区 | 免费观看一区二区 | 日产国产精品亚洲系列 | 欧美日韩精品福利在线观看 | 欧美性视屏 | 国产成人www | 天天插天天狠天天透 | 国产成人综合亚洲 | 99精品欧美一区二区三区 | 99视频在线观看免费视频 | 亚洲第一中文 | h无遮挡成人漫画网站 | 亚洲黄色视屏 | 日本免费不卡视频一区二区三区 | 欧美香蕉视频 | 国产成人欧美一区二区三区的 | 成人18免费观看的动漫 | 色香婷婷| 99久在线精品99re6视频 | 一级片黄色a |