这个VB程序怎么一键平不了所有仓呢 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 这个VB程序怎么一键平不了所有仓呢

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有5108人关注过本帖树形打印复制链接主题：这个VB程序怎么一键平不了所有仓呢

chinagaox

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：31 积分：213 威望：0 精华：0 注册：2012/12/2 15:00:02

这个VB程序怎么一键平不了所有仓呢 发帖心情

Post By：2013/3/13 9:42:18 [只看该作者]

function YiJianPinCangAll(sAccount)
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket
' msgbox "当前持仓数:"&Order.Holding2(sAccount)

while ( Order.Holding2(Account))
On Error resume Next
HoldStr=""
HoldingCount=Order.Holding2(sAccount)
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 '持仓品种卖出持仓总量
    HoldStr=HoldStr & CurCode
       if BuyHold>0 then
         HoldStr=HoldStr & " 多单:+" & BuyHold & "手"
        call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多

       end if
          if SellHold>0 then
            HoldStr=HoldStr & " 空单:-" & SellHold & "手"
          call  SellShort(1,abs(SellHolding),0,0,Code,Market,sAccount,0)

          end if
    HoldStr=HoldStr & " ,"
   Next
   HoldStr=Left(HoldStr,len(HoldStr)-1) '去掉了尾部,号
End If
' GetHoldStr=HoldStr
wend
DayClose_Label_ZhangHuJieGuo.Caption= "当前品种"&HoldStr &"平仓后，当前持仓数:"&Order.Holding2(sAccount)

End function

admin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2013/3/13 9:47:49 [只看该作者]

具体你遇到了什么情况

chinagaox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：31 积分：213 威望：0 精华：0 注册：2012/12/2 15:00:02

Post By：2013/3/13 10:03:50 [只看该作者]

一个品种都平不了仓

chinagaox

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：31 积分：213 威望：0 精华：0 注册：2012/12/2 15:00:02

Post By：2013/3/13 10:04:01 [只看该作者]

好象没反应一样

admin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2013/3/13 10:09:41 [只看该作者]

在程序中加入Application.msgout函数，调试看看

rushtaotao

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

czt
等级：蜘蛛侠帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19

Post By：2013/3/13 10:13:23 [只看该作者]

你这个标题上面写的是一键平仓，但function也是去调用的，没有按钮事件

其次给出完整平所有仓代码

获取指定者账户的所有持仓合约，保存到一个字符串中。

此例需要解决的问题：首先要获取账户的总持仓数，需要用到Holding2属性，然后要逐一循环取出每一个持仓合约的持仓量，需要用到HoldingInfo2方法。

function GetHoldStr(sAccount)
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket

  On Error resume Next
  HoldStr=""
HoldingCount=Order.Holding2(sAccount)
  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
    HoldStr=HoldStr & CurCode
    if BuyHold>0 then
      HoldStr=HoldStr & ":+" & BuyHold
    end if
    if SellHold>0 then
      HoldStr=HoldStr & ":-" & SellHold
    end if
    HoldStr=HoldStr & ","
   Next
   HoldStr=Left(HoldStr,len(HoldStr)-1)
  End If

GetHoldStr=HoldStr
End function

本代码使用函数方式，传递一个账户号码，就可以获取该账户的持仓信息，调用方法是:hold=GetHoldStr("88888888")。

chinagaox

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：31 积分：213 威望：0 精华：0 注册：2012/12/2 15:00:02

Post By：2013/3/13 10:31:30 [只看该作者]

我就是按照上面的代码做的，就是多加了一个平仓语句，能读出帐户信息，但平不了仓，我是用按扭调用这个函数的

if BuyHold>0 then
HoldStr=HoldStr & " 多单:+" & BuyHold & "手"
call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多平不了

       end if
          if SellHold>0 then
            HoldStr=HoldStr & " 空单:-" & SellHold & "手"
          call  SellShort(1,abs(SellHolding),0,0,Code,Market,sAccount,0)'平空      平不了

end if

chinagaox

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：31 积分：213 威望：0 精华：0 注册：2012/12/2 15:00:02

Post By：2013/3/13 10:43:32 [只看该作者]

我是正式标准版用户，模拟资金帐号,用VB开仓没问题，上面的平仓就平不了。

rushtaotao

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

czt
等级：蜘蛛侠帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19

Post By：2013/3/13 11:19:09 [只看该作者]

查一下每个参数很有可能是参数传递问题

admin

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2013/3/13 12:12:18 [只看该作者]

function YiJianPinCangAll(sAccount)
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket
' msgbox "当前持仓数:"&Order.Holding2(sAccount)

Application.MsgOut "111111"

while ( Order.Holding2(Account))
On Error resume Next
HoldStr=""
HoldingCount=Order.Holding2(sAccount)

Application.MsgOut "222222"
If HoldingCount>0 then
For i=0 to HoldingCount-1

    Application.MsgOut "33333"
    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
   ' CurCode=Code
' CurMarket=Market
    BuyHold=BuyHolding '持仓品种买入持仓总量
    SellHold=SellHolding '持仓品种卖出持仓总量
    HoldStr=HoldStr & CurCode
       if BuyHold>0 then
         HoldStr=HoldStr & " 多单:+" & BuyHold & "手"
        call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多

        Application.MsgOut "444444"
       end if
          if SellHold>0 then
            HoldStr=HoldStr & " 空单:-" & SellHold & "手"
          call  SellShort(1,abs(SellHolding),0,0,Code,Market,sAccount,0)

Application.MsgOut "55555"

将上述加上调试日志的代码运行后，把运行结果贴过来

下一主题 >> << 上一主题

总数 16 1 2 下一页

RSS2.0 | Xhtml无图版 | Xslt无图版 Powered By weistock 2012
页面执行时间 0.12500 秒, 5 次数据查询

主题：这个VB程序怎么一键平不了所有仓呢