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

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

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

相關文章

    沒有相關內容
主站蜘蛛池模板: 久草资源福利站| 免费污网站在线观看| caoporn地址| 在线观看视频一区二区| 一级做a爰片性色毛片16美国| 精品国产亚洲一区二区三区| 国产普通话对白刺激| 91精品国产乱码在线观看| 女人被免费网站视频在线| 中文字幕99页| 无码超乳爆乳中文字幕久久| 久久青草免费91观看| 欧美一区二区日韩国产| 亚洲欧美日韩综合一区| 狼群资源网在线视频免费观看| 国产女人嗷嗷叫| 乱系列中文字幕在线视频| 国内精品久久久久久久97牛牛| 中文字幕免费高清视频| 日本边添边摸边做边爱喷水| 五月天婷婷社区| 欧美大片全黄在线观看| 亚洲成人黄色网| 欧美色图你懂的| 欧美性猛交xxxx88| 国产成人在线免费观看| 天天影视综合网| 国产精品美女久久久久AV福利| 中国精品一级毛片免费播放| 日本www视频| 久久久亚洲欧洲日产国码农村| 欧美日韩一区二区三区四区在线观看| 口工全彩无遮挡3d漫画在线| 色综合色综合色综合色综合网 | 亚洲精品成人片在线播放| www成人免费观看网站| 护士的诱惑电影| 久久久久久久久久久久久久久久久久| 欧美怡红院成免费人忱友;| 亚洲欧美天堂综合久久| 波多野结衣69|