能幫忙寫個函數嗎? [金字塔]
- 咨詢內容:
公式:
runmode:1;
m:PEAKBARS(4,5,1),linethick0;
tmp:readtest(m),linethick0;自定義函數:
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 , "C:\1.ini")
NEXT
readtest=ResultMa
End Function1.ini 內容
[aa]
0=0
1=2
2=4
3=6===============================================
請問:
if 條件為真 then tag:=writetest(M,99); 中的writetest該如何寫呢。也是序列轉換嗎?
Function writetest(Formula,m,value)
tag = document.WritePrivateProfileInt("aa",m,value , "C:\1.ini")
End Function
以上我寫的沒成功。不能改1.ini中的數據。
- 金字塔客服:
前面的例子你是一點都沒看懂啊
- 用戶回復:
幫個忙吧,我不是專業人士,今天白天向貴公司打長途電話就20多分鐘,給解決一下吧。謝謝了
- 網友回復:
Function writetest(Formula,m,value)
DataCount = UBound(M)
If DataCount <> Formula.DataSize-1 Then
Exit Function
End IfFor i = 0 To Formula.DataSize-1
document.WritePrivateProfileInt("aa", M(i),value , "C:\1.ini")
NEXT
readtest=0End Function
- 網友回復:
多謝版主。
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態個股的話,
- 上一篇:[求助]時間區間的定義
- 下一篇:沒有了!
相關文章
-
指定的模型還沒有相關內容!