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

[原創]等價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個啊

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

相關文章

    沒有相關內容
主站蜘蛛池模板: 欧美日韩色综合网站| 色噜噜狠狠色综合成人网| 在线精品免费视频无码的| 一边摸一边爽一边叫床视频| 日韩人妻无码一区二区三区综合部| 亚洲成av人片在线观看天堂无码| 男人j桶进女人p无遮挡免费观看 | 中文字幕在线网| 日韩AV无码一区二区三区不卡毛片| 亚洲国产成人精品无码区花野真一| 激情图片视频小说| 免费99热在线观看| 精品无码人妻一区二区三区品| 国产三香港三韩国三级不卡| 黄色a一级视频| 国产无遮挡吃胸膜奶免费看| 色吧亚洲欧美另类| 国产精品成人免费视频网站| 91制片厂在线播放| 在线拍揄自揄在线播放| fc2免费人成在线| 女性特黄一级毛片| 一区国严二区亚洲三区| 成人午夜大片免费7777| 小魔女娇嫩的菊蕾| 俺去啦在线视频| 精品乱码一区二区三区在线 | 日本娇小xxxⅹhd成人用品| 久久综合久久久| 最近免费中文字幕大全高清大全1| 亚洲午夜久久久久久久久电影网| 欧美日韩在线观看一区二区| 亚洲欧美一级久久精品| 欧美疯狂性受xxxxx喷水| 亚洲欧美日韩国产精品一区| 欧美黑人激情性久久| 亚洲精品国产成人中文| 波多野吉衣免费一区| 亚洲欧美高清在线| 欧美精品久久久久久久自慰| 亚洲最新在线视频|