人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

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

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

 


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 5060午夜一级毛片 | 色婷婷中文网 | 欧美午夜免费观看福利片 | 天天摸天天做天天爽水多 | 三级全黄a| 日韩中文字幕一区二区不卡 | 网站在线观看你懂的 | 欧美国产小视频 | 国产日韩免费视频 | 波多野结衣啪啪 | 国产午夜视频在永久在线观看 | 狠狠做五月深爱婷婷天天综合 | 日韩欧美成人免费中文字幕 | 成人国产一区 | 天天看天天色 | 波多野结衣免费一区二区三区香蕉 | 亚洲成色999久久网站 | 床上毛片| 中文字幕欧美日韩久久 | 久久成人免费观看全部免费 | 中文字幕手机在线播放 | 天天射天天射天天干 | 一级毛片aaa | 波多野结衣在线观看一区二区 | 日韩毛片在线影视 | 花蝴蝶亚洲一区二区三区 | 无遮挡1000部拍拍拍免费观看 | free极度另类性欧美 | 伊人中文字幕在线观看 | 黄色小视频在线看 | 亚洲综合区小说区激情区噜噜 | 黄色毛片网站 | 成人羞羞视频国产 | 中国一级毛片免费看视频 | 成年福利片120秒体验区 | 日韩成人三级 | 国产欧美日韩精品一区二 | 丁香五月网久久综合 | 91麻豆传传媒波多野衣久久看 | 亚洲精品xxxx | 青青青视频免费一区二区 |