以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  [求助] 后台交易 为何 不能使用 自定义函数？  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=37617)
--  作者：chenwc
--  发布时间：2012/12/29 1:47:52
--  [求助] 后台交易 为何 不能使用 自定义函数？
在后台交易中， 调用自定义函数， 但没有任何的反应， 是不是在后台交易中，无法使用自定义函数呢？
--  作者：guotx2010
--  发布时间：2012/12/29 8:17:34
--  
可以使用过的，估计是你的函数写的有问题。
--  作者：chenwc
--  发布时间：2012/12/29 16:32:23
--  
可是我同样的自定义函数，在图表程序化交易中，是正常的。  切换到后台交易，那段自定义函数就没有执行。 
--  作者：admin
--  发布时间：2012/12/29 16:46:41
--  

http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=332

问题4，使用后台的调试方法调试一下
--  作者：chenwc
--  发布时间：2012/12/29 19:13:08
--  
debugfile  我调试过，加在自定义函数后面，可以正常输出， 但自定义函数输出没有反应。
--  作者：王锋
--  发布时间：2012/12/29 19:42:11
--  

在VBA中，使用APPLICATION.MSGOUT，看看有没有输出，在VBA中做一下调试
--  作者：chenwc
--  发布时间：2012/12/31 11:14:58
--  
测试了，  自定义函数没有执行哦。
--  作者：chenwc
--  发布时间：2012/12/31 14:24:01
--  
自己顶起来一下。
--  作者：王锋
--  发布时间：2012/12/31 14:55:31
--  

同样的公式在图表上是可以工作的吗?

是否方便将公式范例放论坛,我们客服测试一下问题
--  作者：chenwc
--  发布时间：2012/12/31 20:01:48
--  
阿火后台模板-K线走完模式
Globalvariable:hold=drawnull;
cc800988:=holding;//这句放在信号稳定的地方

//////以下部分改为你自己的模型（K线走完模型）////////////
/////////////////////////////////////////////////////////
buycond:=ref(count(c>o,2)=2,1);
sellcond:=ref(count(c<o,2)=2,1);
if holding>0 and sellcond then begin 
sell(1,1,thisclose);
TestSelfFunc(date);
debugfile(\'D:\\2222.txt\', numtostr(date,2) + \',sell,\' + \'%.2f\', thisclose);
end
if holding<0 and buycond then begin
sellshort(1,1,thisclose);
TestSelfFunc(date);
debugfile(\'D:\\2222.txt\', numtostr(date,2) + \',sellshort\' + \'%.2f\', thisclose);
end
if holding=0 and buycond then begin
buy(1,1,thisclose);
TestSelfFunc(date);
debugfile(\'D:\\2222.txt\', numtostr(date,2) + \',buy\' + \'%.2f\', thisclose); 
end
if holding=0 and sellcond then begin
buyshort(1,1,thisclose);
TestSelfFunc(date);
debugfile(\'D:\\2222.txt\', numtostr(date,2) + \',buyshort\' + \'%.2f\', thisclose);
end
==============================================================
自定义函数TestSelfFunc：

Function TestSelfFunc(Formula,date)
    \'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    TestSelfFunc=0
APPLICATION.MSGOUT("test")
TestSelfFunc=1
End Function

======================================================
还请客服测试一下，望回复！