[原創]等價K線交易之VBA(虧本大甩賣)!哈哈 [金字塔]
- 咨詢內容:
以下內容需要支付 1 個金幣方可查看,您需要購買方可看到內容。您還未登錄,不能購買。
- 金字塔客服:
i = 0
open = 0
m = 0
k = 0
j = 0
dtyl = 0
ktyl = 0
qj = 5 //根據自己需要修改mj1close = 0
mj2close = 0Sub dengjiaxian()
' 得到框架名稱為"Technic",窗格名稱為"Main"的窗格對象
Set Grid = Technic.GetGridByName("Main")
set minutedata = Grid.GetMinuteData
Count = minutedata.Count
open = minutedata.newprice(0)
mj1close = minutedata.newprice(0)
mj2close = minutedata.newprice(0)for i = 1 to count-1
close = minutedata.newprice(i)
if close > open and close-open > qj then
open = close
if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
if m = 0-1 or m = 0 then
mj1close = close
dtyl = dtyl+dtdbyk
application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"多:"&" "&close&" "&"單筆盈利"&" "&" "&dtdbyk&" "& "當日空頭累計盈利為:" &dtyl
j = j+1
end if
m = 1
elseif close < open and open-close > qj then
open = close
if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
if m = 1 or m = 0 then
mj2close = close
ktyl = ktyl+ktdbyk
application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"空:"&" "&close&" "&"單筆盈利"&" "&" "&ktdbyk&" "&"當日多頭累計盈利為:" &ktyl
k = k+1
end if
m = 0-1
end if
next
End SubSub APPLICATION_VBAStart()
call Application.SetTimer(0,100) '創建一個0號定時器,間隔時間1秒
End SubSub APPLICATION_Timer(ID)
'定時器事件處理
Application.ActivateFrame "Technic" '確保技術分析主框架處于激活狀態
' 得到框架名稱為"Technic",窗格名稱為"Main"的窗格對象
Set Grid = Technic.GetGridByName("Main")
set minutedata = Grid.GetMinuteData
Count = minutedata.Count
close = minutedata.newprice(Count-1)
if Count-1 > i then
if close > open and close-open > qj then
open = close
if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
if m = 0-1 or m = 0 then
mj1close = close
dtyl = dtyl+dtdbyk
application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"多:"&" "&close&" "&"單筆盈利"&" "&" "&dtdbyk&" "& "當日空頭累計盈利為:" &dtyl
application.MsgOut Date &" " &Time&" "& "多頭" &j& "次" &" "& "多頭盈利" &ktyl& "點"&" "& "空頭" &k& "次"&" "& "空頭盈利" &dtyl& "點" &" "& "總計" &k+j& "次"&" "& "總盈利" &ktyl+dtyl& "點"
j = j+1
end if
m = 1
elseif close < open and open-close > qj then
open = close
if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
if m = 1 or m = 0 then
mj2close = close
ktyl = ktyl+ktdbyk
application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"空:"&" "&close&" "&"單筆盈利"&" "&" "&ktdbyk&" "&"當日多頭累計盈利為:" &ktyl
application.MsgOut Date &" " &Time&" "& "多頭" &j& "次" &" "& "多頭盈利" &ktyl& "點"&" "& "空頭" &k& "次"&" "& "空頭盈利" &dtyl& "點" &" "& "總計" &k+j& "次"&" "& "總盈利" &ktyl+dtyl& "點"
k = k+1
end if
m = 0-1
end if
end if
End Subsub rnjy()
call dengjiaxian()
call APPLICATION_Timer(ID)
End Sub思路
第一次運行宏的時候利用歷史數據給出一個結果。
然后根據實際情況給出實時的結果
提示:我這里已經構架了整體的思路,只是沒有寫交易指令部分。有需要的朋友,直接添加VBA交易指令即可交易!
這里只提供研究交流思路,模型不保證盈利!
[此貼子已經被作者于2010-12-22 11:26:14編輯過] - 用戶回復:
好貴哦 能便宜點嗎 啊哈哈
- 網友回復:
ADMIN送我金幣 我想看看
- 網友回復:
沒金幣啊 送我1個啊
- 上一篇:[求助]怎么讀取指定時間的行情數據?
- 下一篇:如何獲取某個時間點的價格數據?
相關文章
-
沒有相關內容