大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频75-大伊香蕉在线精品视频人碰人

您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識>>正文內容

我的這個程序怎么編譯通不過 [金字塔]

  • 咨詢內容:

    dim shanchushanchu = 0 ;
    dim dangtianshuju ;
    dim bili bili = 0.001 ; 
    dim xinheyuexinheyue = "IF88" ;
    dim xinmingchengxinmingcheng = "IF等價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 ;"等價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                    
    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           '等價區間處理         
    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

     

     

  • 金字塔客服:

    編譯的時候不是說句末沒分號,就是說有函數沒有定義。搞不懂,求助。

     

  • 用戶回復: 請各位幫忙找原因.

     

  • 網友回復: 你連pel跟vba代碼都分不清了嗎

     

  • 網友回復:

    這個不是PEL代碼,直接放進公式系統自然無效

    這個是VBA代碼,不再這里做討論,請去高級區發帖咨詢

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

可聯系技術人員 QQ: 511411198  點擊這里給我發消息進行 有償 編寫!不貴!點擊查看價格!


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 成人私人影院在线版 | 欧美一区二区三区精品国产 | 爱操在线 | 国产一区二区三区精品久久呦 | 免费福利入口在线观看 | 日韩欧美视频一区 | 曰本女人一级毛片看一级毛 | 精品久久久久久午夜 | 91九色蝌蚪| 情趣视频网站在线观看 | 日产精品一区二区 | 亚洲国产日韩欧美综合久久 | 精品无人区乱码1区2区 | 在线观看亚洲精品国产 | 亚洲日本人成中文字幕 | 欧美大屁股精品毛片视频 | 亚洲免费二区三区 | 在线国产网站 | 久久九九有精品国产23百花影院 | 国产精品爱久久久久久久 | 色涩在线观看 | 国产欧美精品区一区二区三区 | 成人性视频免费网站 | 男人边吃奶边爱边做视频日韩 | 欧美国产在线观看 | 97在线视频免费公开观看 | 久久国产视频一区 | 欧美一区二区影院 | aaa级毛片| 欧美第一区 | 国产夜色视频 | 天天做人人爱夜夜爽2020 | 成人亚欧网站在线观看 | 国产亚洲综合成人91精品 | 国产香蕉久久精品综合网 | 奇米影视88 | 国产一区二区三区免费 | 欧美日韩综合高清一区二区 | 久久乐国产精品亚洲综合m3u8 | 色国产精品一区在线观看 | 曰本一级毛片免费 |