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

為什么用自己寫的窗口下單,會彈出確認框? [金字塔]

  • 咨詢內容: 請教 為什么用自己寫的窗口下單,會彈出確認框?
    昨天還沒有,今天改了幾句代碼就這樣

    此主題相關圖片如下:13.jpg

     

  • 金字塔客服:

    if not hangqing is nothing then

             ctp=Order.StockType(symbol,matketID)
             if ctp=1 then
                strDate = Cstr(hangqing.Date)
                'test_tuoke_Label5.caption = strDate
                
                dim num
        dim orderid
        dim ConSign
        dim Filled
        dim R1
        dim Action
        dim OrderType
        dim LmtPrice
        dim Account
        dim Kaiping
        num = Order.OrderInfoByCode2(hangqing.Label,hangqing.marketName, orderid, ConSign, Filled, R1, Action, OrderType, LmtPrice, Account, Kaiping)
        application.MsgOut num
        if num > 1 then
         if lastOrderID = orderid then
          CancelCount = CancelCount + 1
         else
          CancelCount = 0
          lastOrderID = orderid
         end if
         if (CancelCount > 2) then
          call Document.DebugFile("D:\OrderLog.Txt", "CancelOrder:%.2f",orderid )
          call Order.CancelOrder(orderid)
          CancelCount = 0
         end if
        end if
             
                if CountIndex > 5 then
                 dim BuyHoding
         dim BuyTodayHoding
         dim SellHoding
         dim SellTodayHoding
         dim BuyCost
         dim SellCost
         dim PNL
         Dim UseMargin
                 call Order.HoldingInfoByCode2(hangqing.label,hangqing.marketname,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin)
                 if BuyHoding > 0 then
                  application.MsgOut  hangqing.LowerLimitPrice
                  application.MsgOut  hangqing.NewPrice
                  msg = "Sell= " & hangqing.LowerLimitPrice
                  msg = msg & "  BuyHoding=" & BuyHoding
                  msg = msg & "  num= " & num
                  call Document.DebugFile("D:\OrderLog.Txt", msg,1)
                  call Order.Sell(0,BuyHoding,hangqing.LowerLimitPrice,0,hangqing.label,hangqing.marketname,"",0)
                  CountIndex = 0
                  
                 end if
                end if
                txt = " Buy= " & hangqing.UpperLimitPrice
                call Document.DebugFile("D:\OrderLog.Txt", txt, 1)
                call Order.Buy(0,lots,hangqing.UpperLimitPrice,0,hangqing.label,hangqing.marketname,"",0)
                CountIndex = CountIndex + 1
                
             elseif ctp=0 then
              msgbox "IB賬戶不支持交易"
       end if
       
      end if  

     

  • 用戶回復: if not hangqing is nothing then
       'test_tuoke_Label1.caption = hangqing.NewPrice
             ctp=Order.StockType(symbol,matketID)
             if ctp=1 then
                strDate = Cstr(hangqing.Date)
                'test_tuoke_Label5.caption = strDate
               
                'dim num
        'dim orderid
        'dim ConSign
        'dim Filled
        'dim R1
        'dim Action
        'dim OrderType
        'dim LmtPrice
        'dim Account
        'dim Kaiping
        'num = Order.OrderInfoByCode2(hangqing.Label,hangqing.marketName, orderid, ConSign, Filled, R1, Action, OrderType, LmtPrice, Account, Kaiping)
        'if num > 1 then
         'if lastOrderID = orderid then
          'CancelCount = CancelCount + 1
         'else
          'CancelCount = 0
          'lastOrderID = orderid
         'end if
         'if (CancelCount > 2) then
          'call Document.DebugFile("D:\OrderLog.Txt", "CancelOrder:%.2f",orderid )
          'call Order.CancelOrder(orderid)
          'CancelCount = 0
         'end if
        'end if
             
                if CountIndex > 5 then
                 dim BuyHoding
         dim BuyTodayHoding
         dim SellHoding
         dim SellTodayHoding
         dim BuyCost
         dim SellCost
         dim PNL
         Dim UseMargin
                 call Order.HoldingInfoByCode2(hangqing.label,hangqing.marketname,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin)
                 if SellHoding > 0 then
                  application.MsgOut  hangqing.UpperLimitPrice
                  application.MsgOut  hangqing.NewPrice
                  msg = "SellShort= " & hangqing.UpperLimitPrice
                  msg = msg & "  SellHoding=" & SellHoding
                  msg = msg & "  num= " & num
                  call Document.DebugFile("D:\OrderLog.Txt", msg,0)
                  call Order.SellShort(0,SellHoding,hangqing.UpperLimitPrice,0,hangqing.label,hangqing.marketname,"",1)
                  'msgbox hangqing.UpperLimitPrice
                  'msgbox SellHoding
                  CountIndex = 0 
                 end if
                end if
                txt = " BuyShort= " & hangqing.NewPrice
                call Document.DebugFile("D:\OrderLog.Txt", txt, 0)
                call Order.BuyShort(0,lots,hangqing.NewPrice,0,hangqing.label,hangqing.marketname,"",1)
                CountIndex = CountIndex + 1
                
             elseif ctp=0 then
              msgbox "IB賬戶不支持交易"
       end if
      end if

     

  • 網友回復:

    2樓的代碼直接下單,3樓的代碼就會彈出一樓的提示。

    是在搞不懂這連個代碼有什么區別。

    注銷部分是撤單的部分,應該不影響。

     

  • 網友回復: 非交易時段下單時,就是會彈出對話框的,因為需要對話框彈出讓你來調整預埋單還有價格

 

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

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


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 97视频在线观看播放| 国产全黄三级三级| 中文字幕丝袜制服| 欧美大屁股xxxx| 免费黄色福利视频| av电影在线播放| 欧美大陆日韩一区二区三区| 又大又爽又湿又紧a视频| bbbbbbbbb欧美bbb| 日本高清www无色夜在| 亚洲欧洲日产国码久在线 | 国产亚洲人成a在线v网站| 一级毛片恃级毛片直播| 激情综合五月天| 国产永久免费观看的黄网站 | 色偷偷人人澡人人爽人人模| 国产精品无码素人福利免费| 一区二区三区伦理高清| 欧美又大粗又爽又黄大片视频| 国产在线视频一区二区三区| 97色伦综合在线欧美视频| 成人最新午夜免费视频| 久久精品国产精品| 欧美日韩一区二区综合在线视频| 免费看小12萝裸体视频国产 | 被吃奶跟添下面视频| 国产第一福利136视频导航| 99在线精品视频在线观看| 性欧美vr高清极品| 亚洲大尺码专区影院| 粗大的内捧猛烈进出小视频| 国产精品久久久久久搜索| jizzjizz国产精品久久| 最近中文字幕视频高清| 国产成人精选视频69堂| 98精品国产高清在线看入口| 年轻人免费看电影网站| 久久婷婷五夜综合色频| 男女疯狂一边摸一边做羞羞视频| 国产乱人伦偷精品视频免下载| 亚洲欧美日韩精品久久奇米色影视|