請問 大師能否把這個代碼做一個注釋啊？ [金字塔]
- 咨詢內容：
offset=3
count = order.ordernum2
for i = 0 to count-1
call order.orderinfo2(index, orderid, consign, filled, remaining, action, ordertype, lmtprice,auxprice, account, code, market)
if ordertype=0 then
order.contract code,market,multiplier,mintick,shortpercent,longpercent
set report1 = marketdata.getreportdata(code,market)
if abs(report1.newprice-lmtprice)>=offset*mintick then
call order.cancelorder(orderid)
if action=0 and kaiping=0 then
order.buy 0,remaining,report1.newprice,0,code,market,account,0
end if
if action=0 and kaiping=1 then
order.sell 0,remaining,report1.newprice,0,code,market,account,0
end if
if action=1 and kaiping=0 then
order.buyshort 0,remaining,report1.newprice,0,code,market,account,0
end if
if action=1 and kaiping=1 then
order.sellshort 0,remaining,report1.newprice,0,code,market,account,0
end if
end if
end if
next這些參數貌似都沒有地方查。或者給一個可以查的鏈接。非常感謝
- 金字塔客服：
Public ExcelApp, iRowNo, iStartPingDuo, iStartPingKong, AccountCountPublic iMultipliter
Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType) '賬戶類型 0 IB 1 CTP 2 金仕達 Dim sStatus '成交狀態
If AccountType = 0 Then sAccType = "0.IB" ElseIf AccountType = 1 Then sAccType = "1.CTP" ElseIf AccountType = 2 Then sAccType = "2.金士達" End If If AccountType = 0 Then sStatus = "FILLED" ElseIf AccountType = 1 Then sStatus = "TRADEING" ElseIf AccountType = 2 Then sStatus = "FILLED" End If If UCase(Status) = sStatus Then '只跟蹤成交的單 WriteTradeLog OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account End IfEnd Sub''''''''''''''''''''''''''''''''''''''''''Sub WriteTradeLog(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, AccountCode) Dim i, j Dim sSheetName, TradeSxf On Error Resume Next
If iStartPingDuo = 0 Then iStartPingDuo = 1 End If If iStartPingKong = 0 Then iStartPingKong = 1 End If If Kaiping = 0 Then '開倉 TBUY(1,Filled,Code) Else '平倉 If Aspect = 1 And Kaiping >= 1 Then '平多 End If If Aspect = 0 And Kaiping >= 1 Then '平空 End If End If
End Sub
TBUY(1,Filled,Code) 我想開倉，截獲的品種和數量，但是系統提示，這樣是不行。請問大神，這個代碼要怎么寫？
[此貼子已經被作者于2014/10/31 11:43:37編輯過] - 用戶回復：
TBUY(1,Filled,Code) 是perl后臺語句，不能用在vba代碼段中，在vba代碼中得用Order對象的buy方法
建議學習一下我發布的vba代碼范例中的order對象
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642
[此貼子已經被作者于2014/11/1 18:03:36編輯過] - 網友回復： 謝謝
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊