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

怎樣用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  點擊在線交流進行 有償 改編!

 


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 久草免费在线观看视频| 中国凸偷窥XXXX自由视频| 欧美精品久久天天躁| 午夜一级毛片免费视频| 久久久精品久久久久久96| 欧美日韩国产亚洲一区二区三区| 免费国产剧情视频在线观看| 翁虹一级毛片手机观看| 国产亚洲综合色就色| 欧美jizz18性欧美| 国产精品天天干| 中文字幕乱码人在线视频1区| 最近中文国语字幕在线播放 | 国产污片在线观看| 99久久精品免费观看国产| 好日子在线观看视频大全免费| 中国国产成人精品久久| 无码人妻精品一二三区免费| 亚洲爆乳精品无码一区二区三区| 精品人妻系列无码一区二区三区| 国产一区免费视频| 试看120秒做暖暖免费体验区| 国产成人一区二区在线不卡| 日本www视频| 国产精品99久久久久久人| 91精品91久久久久久| 国模精品一区二区三区视频 | 欧洲最强rapper潮水免费 | 高级别墅贵妇交换俱乐部小说| 日韩欧美一区二区三区在线播放| 国邦征服雪婷第二篇| 一区二区三区午夜| 波多野结衣一区二区三区四区| 再深点灬舒服灬太大了岳| 网络色综合久久| 国产99久久久久久免费看| 3d动漫h在线观看| 国内自产拍自a免费毛片| 99久久精品费精品国产| 天堂а√中文最新版在线| JIZZJIZZ亚洲日本少妇|