前几天II型隧道广告由于安装位置由边墙调整到中墙，这一改动相当于列车到来的方向发生了逆转，程序需要改动才能适应这种情况。worker_1983网友曾留言说，“还好地铁只是朝一个方向开.如果反着开可就有意思了”，可谓一针见血，不过对我们来说不是有意思，麻烦大了。

在改动方面，其实对软件来说改动量不大，仅对下载的数据有一定调整，由于早期的程序用VB开发（唉，已经几年没用VB编写程序了，代码看起来很亲切），倒是在哪里插入这段代码费了我不少时间（由此想到了一个流传甚广的小故事，一个有名的工程师解决电机问题后，面对别人的质问时说，画一根线一美元，知道在哪里画需要999美元）。

程序很简单，如下：

1. Public Sub PicData(bytData() As Byte)
2. … …
3. '------------------------------------------------
4. Const intDataSize = 6144 'G_PicWidth * 24
5. Dim bytData3(intDataSize) As Byte
6. Dim bytData6(intDataSize) As Byte
7. On Error GoTo ToExit '打开错误陷阱
8. '第3块数据缓存
9. CopyMemory bytData3(0), bytData(intDataSize * 3), intDataSize
10. '第5块数据移到第3块位置
11. CopyMemory bytData(intDataSize * 3), bytData(intDataSize * 5), intDataSize
12. '第6块数据移到第5块数据位置
13. CopyMemory bytData(intDataSize * 5), bytData(intDataSize * 6), intDataSize
14. '第3块数据移动到第6块位置
15. CopyMemory bytData(intDataSize * 6), bytData3(0), intDataSize
16. '------------------------------------------------
17. … …
18. Exit Sub
19. '----------------
20. ToExit:
21. End Sub

程序修改编译后，信心满满的给硬件人员进行下载调试了，过了近一天的时间，一问硬件技术人员，说下载数据后，画面异常，不知道是硬件问题还是软件问题。只好把笔记本带到测试室，和硬件人员一起调试确认。就这么几句代码，费了我不少时间，我才发现问题的所在，第一我发现6144*6一定大于3万2千多，意味做对integer整型有可能溢出，第二错误处理直接退出了，没有提示（这种做法真危险！），第三定义intDataSize没有定义类型，默认也就是integer了。

把Const intDataSize = 6144 代码修改为Const intDataSize  As Long = 6144。

问题搞定。幸好修改的代码不多，否则这点错误还真要命，此外得到教训是，调试程序时最好把程序错误处理暂时关掉（或错误存在文件里，不过这个时候够呛想到去看）。

本文转自yefanqiu51CTO博客，原文链接：http://blog.51cto.com/yfsoft/323468，如需转载请自行联系原作者