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

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

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

相關文章

    沒有相關內容
主站蜘蛛池模板: 国产日韩一区二区三区在线观看 | 91av中文字幕| 男生女生差差差很痛| 国产乱理伦片a级在线观看| 99爱在线精品免费观看| 日韩免费在线观看视频| 亲胸揉胸膜下刺激网站| 青青青视频免费| 国内自拍视频一区二区三区| 丰满白嫩大屁股ass| 欧美日韩亚洲一区| 四虎影院免费视频| 香港三级欧美国产精品| 少妇无码av无码专区在线观看 | 韩国高清色www在线播放| 国产精品jizzjizz| www夜插内射视频网站| 日韩欧美亚洲每的更新在线| 亚洲色成人WWW永久网站| 蜜桃精品免费久久久久影院| 国产精品综合色区在线观看 | 男人天堂网2017| 制服丝袜中文字幕在线| 美日韩一区二区三区| 国产精品久久久久久亚洲小说| 97人人在线视频| 成年人在线播放| 亚洲AV无码精品色午夜果冻不卡| 班主任丝袜脚夹茎故事| 兽皇videos极品另类| 美女扒开尿口让男人桶进| 国产成人高清亚洲一区91| 99久久99久久免费精品小说| 成年轻人网站色免费看| 五月婷婷丁香在线| 欧美一级高清片在线| 亚洲高清中文字幕| 男女性潮高清免费网站| 国产一区二区不卡免费观在线| 老司机亚洲精品影视www| 大学生初次破苞免费视频|