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

VBA套利模型范例 [金字塔]

  • 咨詢內容:

    首先我們建立一個TLStart的宏,然后再響應品種報表數據變化事件,代碼如下:

    Sub TLStart()
     '注冊CF09和CF11品種
     call marketdata.RegReportNotify("CF09","ZQ")
     call marketdata.RegReportNotify("CF11","ZQ")
    End Sub

    '響應注冊的品種行情變化通知
    Sub MARKETDATA_ReportNotify(ReportData)
     '得到這兩個品種的行情報價
     Set Report1 = marketdata.GetReportData("CF09","ZQ")
     Set Report2 = marketdata.GetReportData("CF11","ZQ")
     
     '得到品種的持倉量等信息
     dim BuyHoding1
     dim BuyHlding2
     dim BuyTodayHoding1
     dim BuyTodayHoding2
     dim SellHoding1
     dim SellHoding2
     dim SellTodayHoding1
     dim SellTodayHoding2
     dim BuyCost
     dim SellCost
     dim PNL
     Dim UseMargin

     '取指定持倉品種信息
     call Order.HoldingInfoByCode2("CF09","ZQ",BuyHoding1,BuyCost,BuyTodayHoding1,SellHoding1,SellCost,SellTodayHoding1,PNL,UseMargin)
     call Order.HoldingInfoByCode2("CF11","ZQ",BuyHoding2,BuyCost,BuyTodayHoding2,SellHoding2,SellCost,SellTodayHoding2,PNL,UseMargin)
     
     '當差價出現大于1800時進行套利開倉
     '假設是09買 11賣
     Diff = Report1.SellPrice1 - Report2.BuyPrice1 '分別取賣價和買價計算差價 
     if Diff > 1800 and BuyHoding1 = 0 then
      call Order.Buy(0,1,Report1.SellPrice1,0,"CF09","ZQ","",0)
      call Order.BuyShort(0,1,Report2.BuyPrice1,0,"CF11","ZQ","",0)
     end if
     
     '當差價小于1000時進行套利平倉
     Diff = Report1.BuyPrice1 - Report2.SellPrice1
     if diff < 1000 and BuyHoding1 > 0 then
      call Order.Sell(0,1,Report1.BuyPrice1,0,"CF09","ZQ","",0)
      call Order.Sellshort(0,1,Report2.SellPrice1,0,"CF11","ZQ","",0)
     end if
    End Sub

     

    代碼編寫完畢后Alt+F8,然后選擇我們剛才建立的TLStart宏名即可

    [此貼子已經被作者于2010-7-14 21:54:24編輯過]

     

  • 金字塔客服: 太好了,非常感謝老大,如果能,多一些這樣的范例就好了,:-)

     

  • 用戶回復: 這種舉例的形式好!學習中。。。

     

  • 網友回復: dim BuyHlding2少個O

     

  • 網友回復:

    建立建立TLStart宏后要怎么操作

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

可聯系技術人員 QQ: 1145508240  有需要幫忙請點擊這里留言!!!進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 亚洲欧美韩国日产综合在线| 国产亚洲美女精品久久久久| aaa毛片在线| 成人人免费夜夜视频观看| 久久国产欧美日韩精品| 欧美人欧美人与动人物性行为 | 亚洲不卡在线观看| 男女猛烈xx00免费视频试看| 国产jizzjizz免费看jizz| 黑人大战亚洲人精品一区| 国产精品宅男在线观看| 99久久久精品免费观看国产| 女性高爱潮视频| 七次郎在线视频精品视频| 无码人妻精品一区二区三区蜜桃| 久久精品国产9久久综合| 果冻传媒91制片厂211| 亚洲国产精品嫩草影院| 欧美综合图区亚欧综合图区| 人人澡人人妻人人爽人人蜜桃麻豆| 精品国产一区二区三区av片| 国产va在线观看| 蝌蚪视频app下载安装无限看丝瓜苏| 国产小视频在线免费| 狠狠色香婷婷久久亚洲精品| 国产精品亚洲四区在线观看| 57pao一国产成视频永久免费| 国自产拍亚洲免费视频| 99久久亚洲精品无码毛片| 在线综合亚洲欧美网站天堂| 99精品无人区乱码在线观看| 天堂在线最新资源| av在线亚洲男人的天堂| 天堂8在线天堂资源bt| j8又粗又大又长又爽又硬男男 | 天海翼电影在线观看| 一个色综合导航| 好爽好多水好得真紧| а√天堂中文最新版地址| 好爽好深好猛好舒服视频上 | 欧美亚洲国产精品久久高清|