数据库读写函数bug 一个螺丝钉可致航天飞机失事

brucecolvin

很早我就发现了，多次给tb反应，他们总说我们测试没有问题！！！！

我很无奈，也很害怕，因为系统存在缺陷和bug，时刻危及到你财产的安全。

下面建一个交易指令，SetTBProfileString明明已经写入数据库，居然总是返回失败，

这么显而易见的问题TB测试，为何发现不了？

做软件，特别是做程序化交易软件的要严谨，这个不亚于设计航天飞机，

航天飞机关系到人的生命，而交易系统关系到人的财产安全。

一个螺丝钉可以导致航天飞机失事，一个bug可以导致亏损过半甚至破产！

1. Params
   
2. 
   
3. Vars
   
4.         Numeric num;
   
5.         string vs1;
   
6. Begin
   
7. 
   
8. 
   
9.         if( SetTBProfileString(Symbol,"SCR",text(close) )==false );
   
10.         {
    
11.                 FileAppend("E://tbs.log",text(CurrentBar)+ " 写入失败" );
    
12.         }
    
13.         
    
14.         vs1 = GetTBProfileString(Symbol,"SCR");
    
15.         
    
16.         if( vs1==InvalidString )
    
17.         {
    
18.                 FileAppend("E://tbs.log",text(CurrentBar)+ " 无法读取" );
    
19.         }
    
20. }
    
21. end

复制代码

log中只有写入失败，没有读出失败，说明已经完全写入。

[ 本帖最后由 brucecolvin 于 2010-6-22 12:51 编辑 ]

brucecolvin

接着看另一个更为严重的问题，SetTBProfileString写入后，GetTBProfileString居然读出无效。。。。可以说它就是让航天飞机失事的故障螺丝钉，很危险！

代码如下
我的系统中有一个用户函数，代码如下:

1. 
   
2. UpdateIndicators
   
3. Params
   
4. Vars
   
5. 
   
6. Score  Numeric;
   
7. 
   
8. Begin
   
9. 
   
10. /*  1  始化代码*/
    
11. /*  3  始化代码*/
    
12. /*  4  始化代码*/
    
13. /*  5  始化代码*/
    
14.     。。。。。
    
15. 
    
16. /* 以上代码绝无if和for等分支，也无return指令，特此说明，是想说明下面的代码是绝对能执行到的*/
    
17. 
    
18. Score = GetTrendScore(1);
    
19. Score = Average(Score,20);
    
20. SetTBProfileString(Symbol,"SCR",text(Score));
    
21. 
    
22. End

复制代码

有另一个函数，代码如下：

1. //------------------------------------------------------------------------
   
2. // 简称: mget_scorea
   
3. // 名称: 趋势分数的平均值
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10. 
    
11. Vars
    
12. string vs1;
    
13. Numeric score;
    
14. 
    
15. Begin
    
16. 
    
17. vs1 = GetTBProfileString(Symbol,"SCR");
    
18. 
    
19. if( vs1==InvalidString )
    
20. {
    
21. score = GetTrendScore(1);
    
22. 
    
23. FileAppend("E://tb.log",text(CurrentBar));
    
24. 
    
25. }Else
    
26. {
    
27. score = Value(vs1);
    
28. }
    
29. 
    
30. return score;
    
31. 
    
32. End

复制代码

接着在交易指令AAS中使用以上连个函数。代码如下:

1. Params
   
2. 
   
3. Vars
   
4. 
   
5. Begin
   
6. 
   
7. UpdateIndicators();
   
8. 
   
9. /*   很多代码，趋势决策 */
   
10. 
    
11. /*  信号处理 */
    
12. 
    
13. /*  资金管理 */
    
14. 
    
15. score = mget_scorea();  
    
16. 
    
17. End

复制代码

结果。。。。。请看，我抓到的证据，有图有真相。。

从图上看，从0 bar到130 bar都是正常的， 131的bar位置写入后，读出无效。接着到214都是正常，215开始读出无效。

[ 本帖最后由 brucecolvin 于 2010-6-22 12:52 编辑 ]

brucecolvin

我并不想用数据的方式来记录变量值，但50个全局变量已经被我用过，不够用才用数据方式的变量，强烈建议tb将全局变量增加到500个。。

brucecolvin

通过数据库方式来交换跨周期数据时发现不了数据库读写错误的bug的，因为在tick反复触发，这次无效，下次就有效了，肉眼是看不到的。

troyhou

我也遇到过类似的问题，我想原因可能是频繁读写文件导致的。

可有的时候没办法，只能用这种方式来传递数据。

yangtse010

精神可嘉！  TB BUG团队看中你了！  特聘你为TB顾问，监事会成员，独立董事！

tradingart

50个全局变量都用完了？真夸张，怎么用的啊

不过TB是应该认真对待反馈的每一个BUG

liq77

这样的情况到底“是"还是"否"，怎么就没了下文？希望了解真相。

nopain

楼主的代码：
if( SetTBProfileString(Symbol,"SCR",text(close) )==false );
多了一个分号。

另外SetTBProfileString永远都不会返回false的。

liq77

谢谢回答！