請問老師，我想達到條件時開倉做空，用MARKETDATA_ReportNotify來追蹤止損下面的代碼對嗎？ [金字塔]
- 咨詢內容：
請問各位老師，我想達到條件時開倉做空，用MARKETDATA_ReportNotify來追蹤止損下面的代碼對嗎？這樣在價格達到止損價格是，是馬上能夠觸發嗎？
Sub Test2(code,market,price,stopprice)call marketdata.RegReportNotify(code,market)
order.OrderQueue = 1if Hour(Time) >09 and Hour(Time) <=14 and SellHolding= 0 then call order.buyshort(0,2,price,stopprice,code,market,"",0) '這里下限價單，能行嗎?
end if
End Sub
Sub MARKETDATA_ReportNotify(ReportData)
'得到這品種的行情報價 set ReportData = MarketData.GetReportData(code,market)
'取指定持倉品種信息 call Order.HoldingInfoByCode2(code,market,BuyHoding1,BuyCost,BuyTodayHoding1,SellHoding1,SellCost,SellTodayHoding1,PNL,UseMargin) ''''''''''''''''品種信息
call order.Contract(code,market, Multipliter, MinTick, ShortPercent, LongPercent)
if Hour(Time) >=09 and Hour(Time) <=14 and SellHolding > 0 then '止損時的報價是止損價格+10點,保證必須成交 if ReportData.buyPrice1 >= (zsprice) then call Order.Sellshort(0,2,ReportData.buyPrice1+MinTick*2,0,code,market,"",0) application.MsgOut "注意！！！到達止損價格?。。? end if
'達到2倍止損距離時，平倉1手，保留1手人工平倉。 '止損時的報價是止損價格+5點，保證必須成交 if ReportData.SellPrice1 <= (kcprice-(zsprice-kcprice)*2) then call Order.Sellshort(0,1,ReportData.SellPrice1+MinTick*2,0,code,market,"",0) application.MsgOut "到達第一目標價格?。。? end if
'達到5倍止損距離時，全部平倉。 if ReportData.SellPrice1 <= (kcprice-(zsprice-kcprice)*5) then call Order.Sellshort(1,1,ReportData.SellPrice1+MinTick*2,0,code,market,"",0) application.MsgOut "到達最終目標，剩余倉位全部平倉?。?！" end if end if End Sub - 金字塔客服：
具體你用一下調試手段就可以了。
此外你要注意一下，下單前你要判斷是否有未成交單存在，或者下單后保留委托ID，待收到該委托ID的成交回報或者下單撤單失敗回報等情況后重置狀態，這樣防止出現連續交易的現象
[此貼子已經被作者于2014/3/21 18:20:50編輯過] - 用戶回復：
謝謝您的回復，我剛接觸金字塔的VBA沒多久，不知道怎么用調試的功能。您有沒有相關的例子介紹給我？謝謝了
- 網友回復： “下單前你要判斷是否有未成交單存在，或者下單后保留委托ID，待收到該委托ID的成交回報或者下單撤單失敗回報等情況后重置狀態，這樣防止出現連續交易的現象” 還有您說的這些，不知道怎么弄啊。請問代碼在哪能查到？
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊