以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  求帮忙，急  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=30849)
--  作者：空心菜
--  发布时间：2012/11/23 0:01:12
--  求帮忙，急

程序主要功能是监控账户资金，当资金低于aa会做出提醒，然后资金低于aa1依然会做出提醒，并且会执行一个强制平掉所以仓位的动作，

另外在有隔夜单的情况下，（我们把15点13分后未平仓的单子归属于隔夜单），可用资金必须大于aa2，否则抢平，直到可用金大于aa2，

 

这是我上次发的帖子，也得到大家的帮助了，但是最后一点隔夜单的问题上我不是很明白，附上上次给我的程序样板，希望大家能解下我的燃眉之急

 

因为你这里没有下单语句 所以隔夜单必须要用事件捕捉。

其余代码如下，写出了大致思路，仅供参考，需要微调 有问题可以继续咨询

dim aa
aa=99999
dim aa1
aa1=50000
dim aa2
aa1=25000
sub application_vbastart()
call marketdata.regreportnotify("if12","zj")
end sub
\'public filltime
sub marketdata_reportnotify(reportdata)
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket


a1=order.Account(3)
call application.msgout(a1)
if a1<aa then
call application.msgout("可用资金小于了aa")
end if
if a1<aa1 then
call application.msgout("可用资金小于了aa1")
HoldingCount=Order.Holding2("88")
If HoldingCount>0 then
For i=0 to HoldingCount-1
Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
CurCode=Code
CurMarket=Market
BuyHold=BuyHolding
SellHold=SellHolding
if BuyHold>0 then
call order.Sell(1,BuyHold,0,CurCode,CurMarket,"88",0)
end if
if SellHold>0 then
call order.Sell(1,BuyHold,0,CurCode,CurMarket,"88",0)
end if
NEXT
end if
end if
end sub

 

蓝色部分是上次的回帖，我想说如果隔夜单那么不好处理，那能不能写成有隔夜单的情况下，（我们把15点13分后未平仓的单子归属于隔夜单），可用资金必须大于aa2，否则把所以仓位全部强平。

然后就是有一些函数我不是很明白，比如SellCost，PNL，UseMargin,Code，sAccount等等，还有就是画底纹的两件，应该是平仓，1，是条件，buyholding是持有的多单，0是全平，但是curcode跟最后的那个0，实在不明白事什么意思，

最后就是感觉这个程序好像只能对单个账户进行监控，我是想说我们可以对多个账户进行监控，可以的话能不能附上点注解，便于明白程序的原理，因为我真的比较急需这个监控，希望可以对多个账户进行监控，未来监控账户如果再度增加，程序的修改于增加也比较方便，希望各位老师帮帮忙了，在此谢过了
--  作者：guotx2010
--  发布时间：2012/11/23 8:58:39
--  

SellCost是空单成交均价，Code是合约代码，sAccount是账户变量，修改成你的账户就行，

你说的两行，1不是条件，而是市价，0不是全平，而是价格，表示市价，如果是限价就输入数值，最后的那个0是不提示确认窗口，1为出现提示，建议看看金字塔的编程帮助中的Order对象。

 

如果要对多账户进行监控，需要使用ini文件进行配置的分别设置，然后在代码中读取每一个账户进行控制，请参照document对象。