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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 为何在高频交易模式下挂限价单会失败

   

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

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

主题：为何在高频交易模式下挂限价单会失败
帅哥哟，离线，有人找我吗？
laotang250
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		就是附件中的日志  发帖心情 Post By：2017/4/17 13:53:08 [显示全部帖子]

截图是日志中出问题的部分

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


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		日志内容见这个帖子的附件  发帖心情 Post By：2017/4/17 13:56:27 [显示全部帖子]

日志内容见这个帖子的附件
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:pleaceorder.txt
 回到顶部
帅哥哟，离线，有人找我吗？
laotang250
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		是期货RB00，模拟帐号下跑  发帖心情 Post By：2017/4/17 18:46:09 [显示全部帖子]

我测试时是期货RB00，模拟帐号下跑，这个和是否是模拟没有关系吧
[此贴子已经被作者于2017/4/17 18:47:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
laotang250
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		x64, 4.1版本  发帖心情 Post By：2017/4/18 9:57:18 [显示全部帖子]

x64, 4.1版本

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


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		挂单就没有成功过，100%的概率会出现  发帖心情 Post By：2017/4/18 11:02:49 [显示全部帖子]

挂单就没有成功过，100%的概率会出现
[此贴子已经被作者于2017/4/18 11:03:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
laotang250
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		我换了4台电脑都不行啊，你还是看代码吧  发帖心情 Post By：2017/4/18 11:43:06 [显示全部帖子]

VBA:
Function CreateOrder(Formula,actionType,count,operator,price,index)
if actionType=1 then
CreateOrder2 = Order.Buy(operator,count,price,0,"rb00","sq","",0)
elseif actionType=2 then
CreateOrder2 = Order.Sell(operator,count,price,0,"rb00","sq","",0)
elseif actionType=3 then
CreateOrder2 = Order.BuyShort(operator,count,price,0,"rb00","sq","",0)
elseif actionType=4 then
CreateOrder2 = Order.SellShort(operator,count,price,0,"rb00","sq","",0)
end if
End Function

PET:
WARNING_DISABLE:4;
GlobalVARIABLE:FirstTime:=0;
GlobalVARIABLE:StateFlag:=0;
GlobalVARIABLE:BuyPrice:=0;

if ISLASTBAR() then
begin
NowTime:=TImezoneConver(CURRENTTIME);
if FirstTime=0 then FirstTime:=NowTime;
if StateFlag=0 and NowTime>T0TOTIME(TIMETOT0(FirstTime)+10) THEN
BEGIN
BuyPrice:=C-1;
CreateOrder(1,40,0,BuyPrice,1);
StateFlag:=1;
end; 
else if StateFlag=1 and THOLDING2=40 THEN
BEGIN
StateFlag:=2;
CreateOrder(2,4,0,BuyPrice+2,0); 
CreateOrder(2,20,2,BuyPrice-2,2); 
CreateOrder(2,20,2,BuyPrice-4,3);
end;
end

[此贴子已经被作者于2017/4/18 11:44:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
laotang250
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		高频的这个运行选项在标准版和免费版下有区别么？  发帖心情 Post By：2017/4/18 22:39:25 [显示全部帖子]

我今晚又试了2台电脑，还是不行。一个是Win7，一个Win10。所有测试我都是用模拟账户并且运行在免费版下。不知道这个高频交易相关的东西和是否是免费版还是标准版有无关系?

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


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		我刚刚用下面代码试了，一旦开了高频，就失败。不用高频，则成功  发帖心情 Post By：2017/4/19 9:57:37 [显示全部帖子]

VBS函数：
Function BuyTesting(Formula)
    BuyTesting=Order.Buy(0,1,2800,0,"rb10","sq","",0)
if BuyTesting=-1 then
Application.MsgOut "挂单失败"
else
Application.MsgOut "挂单成功"
end if
End Function


公式内容：
if ISLASTBAR() THEN
 begin
BuyTesting();
end;
 回到顶部
帅哥哟，离线，有人找我吗？
laotang250
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		我今早重新写了个更简单的测试代码，录制了操作过程，见附件，麻烦帮看看，谢谢!  发帖心情 Post By：2017/4/19 10:00:47 [显示全部帖子]

操作过程及日志详见附件，不知道是否我的操作过程和你昨天的测试是否一致。
我本地电脑总传不上附件，我让你们客服后面把附近传上来，你帮我看看，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
laotang250
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：26 积分：0 威望：0 精华：0 注册：2017/2/16 20:52:30 		就是17楼我贴出来的代码  发帖心情 Post By：2017/4/19 13:15:41 [显示全部帖子]

就是17楼我贴出来的代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日志和公式.rar
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 8 次数据查询