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

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  有需要幫忙請點擊這里留言!!!進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 中文字幕不卡在线| 亚洲小说区图片区另类春色| 蜜臀精品无码av在线播放| 国产精品一区久久| 99无码精品二区在线视频| 成品人视频ww入口| 久久伊人久久亚洲综合| 束缚强制gc震动调教视频| 亚洲成在人线电影天堂色| 热狗福利ap青草视频入口在线观看p引导下载花季传媒 | 亚洲精品乱码久久久久久蜜桃 | 在线播放亚洲第一字幕| 一a一片一级一片啪啪| 成年女人18级毛片毛片免费观看| 久久免费视频网站| 日韩精品无码一区二区三区四区| 亚洲人成综合在线播放| 欧美日韩一区二区三区四区在线观看 | 适合男士深夜看的小说软件| 国产探花在线精品一区二区| 2021麻豆剧果冻传媒入口永久| 在线播放免费播放av片| chinese男子同性视频twink| 宅男视频网站无需下载| 一级特黄性色生活片录像| 成年人免费的视频| 久久一区二区明星换脸| 日本乱偷互换人妻中文字幕| 久久夜色撩人精品国产| 日韩午夜免费论理电影网| 久久香蕉国产线看精品| 最近中文字幕2019| 久久青草国产免费观看| 日韩高清在线观看| 久久精品国产亚洲一区二区| 日韩理论电影在线观看| 久久精品人妻中文系列| 日美女大长腿b| 久久亚洲精品无码观看不卡| 日本电影痴汉电车| 久久久久亚洲AV成人网|