主题：开平仓

版主帮我做一个后台的开平仓，没有做过后台的，这直接上实盘，帮我写细一点

账户:'1000';
套利品种1:'IF02';
套利品种2:'IF09';

限制一天最多只能开平仓一次，可先平后开//不能平今仓, 如今仓被平或程序不能执行开平处理，消息不停的输出：平仓异常！

 

//开仓处理程序

我手工在"买入 卖出"那里挂单买入IF09；

当程序检测到我的手工买入成交后，立即反方向出卖价-0.2挂单做空IF02；//如果IF09是买多，那程序自动做空IF02     意思就是以最快的速度卖入，买入（比市场标价再高或低一个波动点）

                                                //如果是IF09是做空，那IF02就做多

//平仓处理程序

我手工在"买入 卖出"那里挂单平掉IF09；

当程序检测到我的手工平仓成交后，立即反方向出卖价+0.2挂单平IF02；// 如果是平IF02那就快速平IF09，防止单腿

 

//程序以最快的速度扫描买入或卖出，软件按平常默认设置，开平仓全部由后台程序完成

 

 

 

是不是出金币就可以，那有能做的复一下多少金币

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)
' ORDER_OrderStatusEx2事件触发                   
'dim ordIDordID=Order.buy()这里的ordID就是返回的订单号
if Status="Tradeing" and filled>0 and Account="609476" then
'
if aspect=0 then
'
if kaiping=0 then order.Buy 1,filled,0,0,code,market,"609476",0
'
if kaiping>0 then order.sellshort 1,filled,0,0,code,market,"609476",0
'
end if
if aspect=1 then
'
if kaiping=0 then order.Buyshort 1,filled,0,0,code,market,"609476",0
'
if kaiping>0 then order.sell 1,filled,0,0,code,market,"609476",0
'
end if
end if
End Sub

 

 

‘不知道金币怎么折价，100块人民币有人帮修写好吗，到时可以充论坛的币也可直接转帐。

3楼这个没问题啊，关键你看下帮助-vba编程信息，里面的内部对象-order

3楼这边的代码需要用的都是那个对象下的，例如buy函数里面各个参数意义，建议您先好好看下

http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=55127

请认真的看一遍里面的VBA的视频教程