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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]关于VBS代码如何实现金字塔程序化

   

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

  共有2201人关注过本帖树形打印复制链接

主题：[求助]关于VBS代码如何实现金字塔程序化
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		[求助]关于VBS代码如何实现金字塔程序化  发帖心情 Post By：2016/12/19 13:53:23 [只看该作者]

以下是VBA的HELP文件范例，请问利用以下代码如何实现账户的程序化交易？还需要哪些步骤的操作？（打开交易账号等）

Sub TLStart()
'注册CF09和CF11品种
  call marketdata.RegReportNotify("CF09","ZQ")
  call marketdata.RegReportNotify("CF11","ZQ")
End Sub

Sub MARKETDATA_ReportNotify()
  '得到这两个品种的行情报价
  Set Report1 = marketdata.GetReportData("CF09","ZQ")
  Set Report2 = marketdata.GetReportData("CF11","ZQ")
'得到品种的持仓量等信息
  dim BuyHoding1
  dim BuyHlding2
  dim BuyTodayHoding1
  dim BuyTodayHoding2
  dim SellHoding1
  dim SellHoding2
  dim SellTodayHoding1
  dim SellTodayHoding2
  dim BuyCost
  dim SellCost
  dim PNL
  Dim UseMargin
  '取指定持仓品种信息
  call Order.HoldingInfoByCode2("CF09","ZQ",BuyHoding1,BuyCost,BuyTodayHoding1,SellHoding1,SellCost,SellTodayHoding1,PNL,UseMargin)
  call Order.HoldingInfoByCode2("CF11","ZQ",BuyHoding2,BuyCost,BuyTodayHoding2,SellHoding2,SellCost,SellTodayHoding2,PNL,UseMargin)
 
  '当差价出现大于1800时进行套利开仓
  '假设是09买 11卖
  Diff = Report1.SellPrice1 - Report2.BuyPrice1 '分别取卖价和买价计算差价 
  if Diff > 1800 and BuyHoding1 = 0 then
  call Order.Buy(0,1,Report1.SellPrice1,0,"CF09","ZQ","",0)
  call Order.BuyShort(0,1,Report2.BuyPrice1,0,"CF11","ZQ","",0)
  end if
  '当差价小于1000时进行套利平仓
  Diff = Report1.BuyPrice1 - Report2.SellPrice1
  if diff < 1000 and BuyHoding1 > 0 then
  call Order.Sell(0,1,Report1.BuyPrice1,0,"CF09","ZQ","",0)
  call Order.Sellshort(0,1,Report2.SellPrice1,0,"CF11","ZQ","",0)
  end if
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2016/12/19 13:57:08 [只看该作者]

不清楚你的需求到底是什么？

本身这个代码就是可以直接交易的，您是不知道怎么运行这段代码？

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/19 14:13:26 [只看该作者]

对的。不知道详细的步骤。
是需要先登录账号，然后运行宏TLStart，还是？
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2016/12/19 14:41:21 [只看该作者]

肯定要先登录交易帐号的呀，不然怎么交易哦

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/19 14:55:30 [只看该作者]

那请问登录账户之后 应该怎么操作？我直接点执行宏TLStart什么反应都没有

 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/12/19 16:49:28 [只看该作者]

建议加上一些msgout输出，看戏是不是条件不满足导致的。

没有反应不是说代码不执行，而是可能某个条件没满足
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.06250 秒, 5 次数据查询