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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → MarketData 对象的一个问题

   

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

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

主题：MarketData 对象的一个问题
帅哥哟，离线，有人找我吗？
ati3349
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：8 积分：46 威望：0 精华：0 注册：2012/6/2 0:31:21 		MarketData 对象的一个问题  发帖心情 Post By：2013/1/30 0:14:43 [显示全部帖子]

请管理员看看，我用MarketData 对象AlarmPleaceOrder方法，取不到 预警价格 和 交易账户 其他数据没问题，下面是源码：

Sub MARKETDATA_AlarmPleaceOrder(Name, Order, OrderType, Action, Volume, Price, Code, Market, Account)
  
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile("D:\交易\myfile.txt",8,True)
    a.WriteLine( "账户 " & Account & "下单类别"& Order &" 手数" & Volume &" 预警价格" &  Price &  " 时间" & now)
    a.Close

End Sub

下面是myfile.txt中的记录（实盘）：

账户 下单类别0 手数1 预警价格0 时间2013-1-28 9:35:01
账户 下单类别1 手数1 预警价格0 时间2013-1-28 11:16:00
账户 下单类别0 手数1 预警价格0 时间2013-1-29 9:34:01
账户 下单类别1 手数1 预警价格0 时间2013-1-29 15:13:01

百思不得其解，恳请指点！
[此贴子已经被作者于2013-1-30 0:15:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ati3349
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：8 积分：46 威望：0 精华：0 注册：2012/6/2 0:31:21 		后台程式化交易  发帖心情 Post By：2013/1/30 22:26:24 [显示全部帖子]

后台程式化交易
预警正常，下单正常
图片点击可在新窗口打开查看此主题相关图片如下：截图-1.jpg
图片点击可在新窗口打开查看

这是今天的记录：
账户 预警名称HTSCL01下单类别2 手数1 预警价格0 时间2013-1-30 9:33:11
账户 预警名称HTSCL01下单类别3 手数1 预警价格0 时间2013-1-30 15:13:11
 回到顶部
帅哥哟，离线，有人找我吗？
ati3349
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：8 积分：46 威望：0 精华：0 注册：2012/6/2 0:31:21 		感谢管理员的关注  发帖心情 Post By：2013/1/31 13:41:02 [显示全部帖子]

感谢管理员的关注，向金字塔工作人员的认真态度致敬！

 

本人初学，还请指点：

“让VBA代码停顿一下”怎么实现？

在

“Sub MARKETDATA_AlarmPleaceOrder(Name, Order, OrderType, Action, Volume, Price, Code, Market, Account)”

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


加好友 发短信
等级：新手上路 帖子：8 积分：46 威望：0 精华：0 注册：2012/6/2 0:31:21 		加个SLEEP不行  发帖心情 Post By：2013/2/1 11:24:46 [显示全部帖子]

经测试，加个SLEEP不解决问题，代码如下：
Sub MARKETDATA_AlarmPleaceOrder(Name, Order, OrderType, Action, Volume, Price, Code, Market, Account)
  
    call StockSleep(5000)

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile("D:\交易\myfile.txt",8,True)
    a.WriteLine( "账户 " & Account & "下单类别"& Order &" 手数" & Volume &" 预警价格" &  Price &  " 时间" & now)
    a.Close

End Sub

Sub StockSleep(slSecond)
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "KERNEL32.DLL", "Sleep","i=u","R=l"
Wrap.Sleep(slSecond)
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
ati3349
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：8 积分：46 威望：0 精华：0 注册：2012/6/2 0:31:21 		今天测试了  发帖心情 Post By：2013/2/5 19:45:35 [显示全部帖子]

今天测试了，就是这样的 非常感谢各位

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.06250 秒, 6 次数据查询