版主帮我做一个后台的开平仓,没有做过后台的,这直接上实盘,帮我写细一点
账户:'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的视频教程