請(qǐng)問(wèn) 大師能否把這個(gè)代碼做一個(gè)注釋啊？ [金字塔]
- 咨詢內(nèi)容：
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這些參數(shù)貌似都沒(méi)有地方查。或者給一個(gè)可以查的鏈接。非常感謝
- 金字塔客服：
Public ExcelApp, iRowNo, iStartPingDuo, iStartPingKong, AccountCountPublic iMultipliter
Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType) '賬戶類(lèi)型 0 IB 1 CTP 2 金仕達(dá) Dim sStatus '成交狀態(tài)
If AccountType = 0 Then sAccType = "0.IB" ElseIf AccountType = 1 Then sAccType = "1.CTP" ElseIf AccountType = 2 Then sAccType = "2.金士達(dá)" 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 '開(kāi)倉(cāng) TBUY(1,Filled,Code) Else '平倉(cāng) 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) 我想開(kāi)倉(cāng)，截獲的品種和數(shù)量，但是系統(tǒng)提示，這樣是不行。請(qǐng)問(wèn)大神，這個(gè)代碼要怎么寫(xiě)？
[此貼子已經(jīng)被作者于2014/10/31 11:43:37編輯過(guò)] - 用戶回復(fù)：
TBUY(1,Filled,Code) 是perl后臺(tái)語(yǔ)句，不能用在vba代碼段中，在vba代碼中得用Order對(duì)象的buy方法
建議學(xué)習(xí)一下我發(fā)布的vba代碼范例中的order對(duì)象
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642
[此貼子已經(jīng)被作者于2014/11/1 18:03:36編輯過(guò)] - 網(wǎng)友回復(fù)： 謝謝
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)