大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频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  點擊這里給我發消息進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 日产国语一区二区三区在线看 | 可以直接看的毛片 | 欧美中文字幕在线看 | 亚洲国产九九精品一区二区 | 99在线资源 | 午夜私人影院粉色视频我要 | 成 人国产在线观看高清不卡 | 国内久久久久久久久久 | 国内精品久久久久尤物 | 国产亚洲精品第一区在线观看 | 亚洲国产精品激情在线观看 | 亚洲丶国产丶欧美一区二区三区 | 中文字幕视频免费 | 国产午夜精品不卡观看 | 成人午夜大片免费视频77777 | 亚洲精品中文字幕不卡在线 | 精品免费福利视频 | 77777奇米 | 欧美一级免费 | 免费福利网站在线观看 | 四虎影院大全 | 99视频精品全部免费免费观 | 999国产精品 | 国产精品18久久久久久久久久 | 欧美日韩中文字幕在线视频 | 欧美一级视频免费看 | 国产一区二区三区久久 | 久久久欧美综合久久久久 | 一区二区三区在线播放 | 久久思re热9一区二区三区 | 日韩国产欧美一区二区三区 | 天天操天天干天搞天天射 | 国产系列欧美系列日韩系列在线 | 欧美一级大片在线观看 | 九九精品视频在线 | 精品免费国产一区二区三区 | 亚洲欧美日韩精品久久久 | 国内精品日本久久久久影院 | 一级一毛片| 久久精品2 | 日日干夜夜骑 |