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

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

還是有問題,請幫忙解決一下吧。 [金字塔]

  • 咨詢內容:

    公式:

    runmode:1;
    m:PEAKBARS(4,5,1),linethick0;
    tmp:readtest(m),linethick0;
    if c>O then tmp1:=writetest(m,50);

     

    自定義函數:

     

    Function readtest(Formula,M)
        '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍,因此設計時應該注重程序的執行效率,不要重復的執行一些沒必要的代碼
        DataCount = UBound(M)
        If DataCount <> Formula.DataSize-1 Then
            Exit Function
        End If

    '定義一個計算返回的數組
        Dim ResultMa
        Redim ResultMa(DataCount)
        For i = 0 To Formula.DataSize-1
          ResultMa(i) = document.GetPrivateProfileInt("aa", M(i),0 , "G:\1.ini")
        NEXT
        readtest=ResultMa
    End Function

     

    Function writetest(Formula,m,value)
        '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍,因此設計時應該注重程序的執行效率,不要重復的執行一些沒必要的代碼
        writetest=0
       tag = document.WritePrivateProfileInt("aa",m,value, "G:\1.ini")
    End Function

     

    1.ini 內賓:

    [aa]
    0=3
    1=10
    2=7
    3=6
    4=8
    5=10

     

    ============================================

    能讀出1.ini文件中的數據,可是沒有成功寫入。

    我也知道這樣很煩人,可是自己確實搞不了,需要金字塔幫助。拜托了.

     

  • 金字塔客服:

    樓主試試這樣能寫入嗎

    公式中:

     

    runmode:1;
    M:PEAKBARS(4,5,1),linethick0;
    tmp:readtest(m),linethick0;
    if c>o then
    begin
    tmp1:writetest(m,50);
    end

     

     

     

    自定義函數中: '將盤符替換成ini文件放置的盤符

     

    Function readtest(Formula,M)
        '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍,因此設計時應該注重程序的執行效率,不要重復的執行一些沒必要的代碼
       
        DataCount = UBound(M)
        If DataCount <> Formula.DataSize-1 Then
            Exit Function

        End If

    '定義一個計算返回的數組
        Dim ResultMa
        Redim ResultMa(DataCount)


        For i = 0 To Formula.DataSize-1

          ResultMa(i) =  document.GetPrivateProfileInt("aa", M(i),0 , "F:\1.ini")
        NEXT


       readtest=ResultMa

     

    End Function

     

     

    Function writetest(Formula,m,value)
        '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍,因此設計時應該注重程序的執行效率,不要重復的執行一些沒必要的代碼
     tag = document.WritePrivateProfileInt("aa",m,value,"F:\1.ini")

    End Function

     

  • 用戶回復:

    一句話是不用begin end的,應該是writetest函數不對。等待客服的回答

     

  • 網友回復: 試了一下,如果加條件if c>o就會無法寫入,另外如果要寫入必須每次更改一下公式編輯,也就是加個回車再次生成,才會寫入。原因正在查找。 [此貼子已經被作者于2012-7-6 15:25:52編輯過]

     

  • 網友回復: 經過剛才測試,首先c>o必須條件成立,才會觸發,并且修改過公式一定要把公式重啟一次,這樣就能寫入了。

 

如果以上指標公式不適用于您常用的行情軟件

或者您想改編成選股公式,以便快速選出某種形態個股的話,

可以聯系我們相關技術人員 QQ: 262069696  點擊在線交流進行 有償 改編!

 


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 三级在线免费观看 | 狠狠色噜噜狠狠狠狠2018 | 国产三级全黄 | 日韩在线一区二区三区 | 日本在线一区 | 婷婷国产天堂久久综合五月 | 偷偷操不一样的久久 | 一区二区中文字幕在线观看 | 亚洲美女操 | 国产在线视频专区 | 黄色大片视频 | 韩国伦理片在线免费观看 | 欧美在线网址 | a免费视频 | 亚洲区色 | 午夜黄视频 | 成年人视频在线免费观看 | 国产精品13页 | 26uuu最新| 欧美日韩在线视频免费完整 | 日韩视频在线免费 | 先锋三级 | 久草免费福利视频 | 久热re这里只有精品视频 | 91午夜精品亚洲一区二区三区 | 中文字幕日本不卡一二三区 | 免费午夜网站 | 亚洲精品福利网站 | 免费无遮h在线网站大全 | 亚洲人成77777在线观看网 | 国产精欧美一区二区三区 | 国产在线一区二区三区在线 | 午夜在线观看视频在线播放版 | 一区二区三区四区国产精品 | 影院午夜| 成人黄色一级毛片 | 成人影院在线观看免费 | 视频二区国产 | 亚洲天堂网2014 | 亚洲专区区免费 | 欧美日韩一区二区在线 |