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

怎樣用VBS實現指定賬戶權益低于90萬時強行平倉? [金字塔]

  • 咨詢內容:

    如題

     

  • 金字塔客服:

    樓主可以打開幫助參考下VBA中的Order對象

    另外軟件內下單設置——止盈止損中中也是可以設置的

     

  • 用戶回復:

     

  • 網友回復:

    使用VBA編寫的代碼量較大,在此無法給你編寫完整的,給出你一個實現的想法思路

     

    1、你應該了解金字塔VBA的定時器功能,定期1秒檢測帳戶的動態權益,有關定時器的部分論壇已經很多討論了,你可以自行搜索一下

    2、這里給你摘抄部分的判斷動態權益全部強平的部分代碼

     

    IsAlarm = 0'是否已經有過預警動作

     dynamicpower= order.Account2(6,account)'得到賬戶動態權益
     cash= order.Account2(3,account)'得到賬戶里的現金余額

    '//////////////////////////////////////////////////////////////////////////////////////////達到全平警戒線 強平資金:103,5000        當前權益只有103.5W的時候強平當前所有持倉
     if dynamicpower<Forced_liquidation_capital and Count1 + Count2 > 0 then
         application.PlaySoundFile "OrderNotify.wav"
            IsAlarm = 1
      Forced=1
      
      if count1 > 0 Or Count2 > 0 then
       application.MsgOut "強平"&Account&"賬戶所有持倉"
       application.MsgOut "動態權益: "&dynamicpower
       application.MsgOut "強平資金: "&Forced_liquidation_capital
      
       Document.DebugFile "C:\OrderLog.txt","執行了強平:"&Account&"賬戶所有持倉", 1
      End if
      
    '//////////////////////////////////////////////////////////////////////////////////////////全平操作
      dim BuyHoding
      dim BuyCost
      dim BuyTodayHoding
      dim SellHoding
      dim SellCost
      dim SellTodayHoding
      dim PNL
      dim UseMargin
      dim Code
      dim Market
        

     for i=0 to count1 - 1

      Result = Order.HoldingInfo2(i,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin ,Code,Market)
      If Result <> 1 Then
       exit sub
      End If
     
         set Report1 = marketdata.GetReportData(Code,Market)
         'application.MsgOut Report1.NewPrice

        if  BuyHoding<>0 then
         call order.Sell(1,BuyHoding,Report1.NewPrice,0,Code,Market,account,0)
         application.MsgOut "品種:"&Code & "   平多:"&BuyHoding &"  賬戶:"&account
        end if
      if  SellHoding<>0 then
         call order.Sellshort(1,SellHoding,Report1.NewPrice,0,Code,Market,account,0)
         application.MsgOut  "品種:"&Code & "    平空:"&SellHoding&"  賬戶:"&account   
      end if  
     next
     
     for i=0 to count2 - 1

      Result = Order.HoldingInfo(i, BuyHoding, BuyCost, BuyTodayHoding, SellHoding, SellCost, PNL, Code, Market)
      If Result <> 1 Then
       exit sub
      End If
     
         set Report1 = marketdata.GetReportData(Code,Market)
         'application.MsgOut Report1.NewPrice

        if  BuyHoding>0 then
         call order.Sell(1,BuyHoding,Report1.NewPrice,0,Code,Market,account,0)
         application.MsgOut "品種:"&Code & "   平多:"&BuyHoding &"  賬戶:"&account
      end if
      if  BuyHoding<0 then
         call order.Sellshort(1,BuyHoding,Report1.NewPrice,0,Code,Market,account,0)
         application.MsgOut "品種:"&Code & "   平空:"&abs(BuyHoding) &"  賬戶:"&account

      end if  
     next
        
    end if

 

如果以上指標公式不適用于您常用的行情軟件

或者您想改編成選股公式,以便快速選出某種形態個股的話,

可以聯系我們相關技術人員 QQ: 262069696  點擊在線交流進行 有償 改編!

 


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 2019日韩中文字幕MV| 久久久久一级片| 激情成人综合网| 日韩亚洲欧美一区二区三区| 国产suv精品一区二区33| 国产精品永久免费10000| 国产精品日本一区二区不卡视频| a级毛片免费观看网站| 成人国产mv免费视频| 久久久久亚洲精品无码网址| 最新精品亚洲成a人在线观看| 亚洲小视频在线播放| 毛片在线播放网址| 人妻一本久道久久综合久久鬼色| 精品福利三区3d卡通动漫| 国产一区二区三区小向美奈子| 香蕉大伊亚洲人在线观看| 国产日本一区二区三区| 18女人腿打开无遮掩免费| 在线国产你懂的| JAPANESE在线播放国产| 妖精www视频在线观看高清| 中国一级特黄特色**毛片| 无码专区国产精品视频| 啊灬嗯灬快点啊灬轻点灬啊灬| 高清对白精彩国产国语| 国产成人黄网在线免| 亚洲娇小性xxxx| 国产精品乱码一区二区三区| 8050午夜网| 国产资源中文字幕| 91精品国产乱码在线观看| 在线毛片免费观看| CAOPORN视频在线观看| 天天综合天天色| china同性基友gay勾外卖| 好吊妞视频一区二区| xxxxx做受大片视频免费| 婷婷人人爽人人爽人人片| 一区二区三区四区电影视频在线观看 | 99精品热这里只有精品|