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

[原創]等價K線交易之VBA(虧本大甩賣)!哈哈 [金字塔]

  • 咨詢內容: 以下內容需要支付 1 個金幣方可查看,您需要購買方可看到內容。您還未登錄,不能購買。

     

  • 金字塔客服:

    i = 0
    open = 0
    m = 0
    k = 0
    j = 0
    dtyl = 0
    ktyl = 0
    qj = 5   //根據自己需要修改

    mj1close = 0
    mj2close = 0

    Sub 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 Sub

    Sub APPLICATION_VBAStart()
     call Application.SetTimer(0,100) '創建一個0號定時器,間隔時間1秒
    End Sub

    Sub 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 Sub

    sub rnjy()
        call dengjiaxian()
        call APPLICATION_Timer(ID)
    End Sub  

     

    思路

    第一次運行宏的時候利用歷史數據給出一個結果。

    然后根據實際情況給出實時的結果

     

    提示:我這里已經構架了整體的思路,只是沒有寫交易指令部分。有需要的朋友,直接添加VBA交易指令即可交易!

    這里只提供研究交流思路,模型不保證盈利!

    [此貼子已經被作者于2010-12-22 11:26:14編輯過]

     

  • 用戶回復:

    好貴哦 能便宜點嗎 啊哈哈

     

  • 網友回復: ADMIN送我金幣 我想看看

     

  • 網友回復: 圖片點擊可在新窗口打開查看沒金幣啊 送我1個啊

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

相關文章

    沒有相關內容
主站蜘蛛池模板: 国产性天天综合网| 性欧美高清come| 亚洲成a人一区二区三区| 精品人妻久久久久久888| 国产午夜免费福利红片| youjizz亚洲| 国内精品一卡2卡3卡4卡三卡| 一区二区三区高清在线| 抽搐一进一出gif日本| 久久精品人人做人人爽| 欧美乱大交xxxxx| 国产精品情侣呻吟对白视频| www.成人在线| 成人免费网站视频| 久久99精品久久久久子伦| 日韩中文在线观看| 九九九国产精品成人免费视频| 欧美性生活网址| 亚洲欧洲在线观看| 水蜜桃亚洲一二三四在线| 免费一级大黄特色大片| 精品国产欧美精品v| 和搜子居的日子2中文版| 色噜噜狠狠一区二区三区果冻 | 日本三级香港三级人妇99| 五月天婷婷在线播放| 欧美18-19sex| 亚洲乱码在线视频| 欧美国产综合在线| 国产精品亚洲四区在线观看| 亚洲人成免费电影| 欧美最猛黑人xxxx黑人猛交98 | 机巴太粗太硬弄死你| 亚洲国产欧美在线人成北岛玲| 欧美精品在线视频| 亚洲精品在线不卡| 污视频免费网站| 亚洲欧美色一区二区三区| 滴着奶水做着爱中文字幕| 人与禽交videosgratisdo视频| 狠狠人妻久久久久久综合蜜桃|