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

能幫忙寫(xiě)個(gè)函數(shù)嗎？　[金字塔]

作者：金字塔來(lái)源：cxh99.com 發(fā)布時(shí)間：2012年08月22日點(diǎn)擊數(shù)：　【收藏到本網(wǎng)的會(huì)員中心】

咨詢內(nèi)容：
公式:

runmode:1;
m:PEAKBARS(4,5,1),linethick0;
tmp:readtest(m),linethick0;

自定義函數(shù):

Function readtest(Formula,M)
    '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒(méi)必要的代碼
    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

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

1.ini 內(nèi)容

[aa]
0=0
1=2
2=4
3=6

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

請(qǐng)問(wèn):

if 條件為真 then tag:=writetest(M,99); 中的writetest該如何寫(xiě)呢。也是序列轉(zhuǎn)換嗎？

Function writetest(Formula,m,value)

      tag = document.WritePrivateProfileInt("aa",m,value , "C:\1.ini")

End Function

以上我寫(xiě)的沒(méi)成功。不能改1.ini中的數(shù)據(jù)。
金字塔客服：
前面的例子你是一點(diǎn)都沒(méi)看懂啊
用戶回復(fù)： 幫個(gè)忙吧，我不是專業(yè)人士，今天白天向貴公司打長(zhǎng)途電話就20多分鐘,給解決一下吧。謝謝了
網(wǎng)友回復(fù)：
Function writetest(Formula,m,value)

    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

    For i = 0 To Formula.DataSize-1
      document.WritePrivateProfileInt("aa", M(i),value , "C:\1.ini")
    NEXT
    readtest=0

End Function
網(wǎng)友回復(fù)：
多謝版主。