前几天II型隧道广告由于安装位置由边墙调整到中墙，这一改动相当于列车到来的方向发生了逆转，程序需要改动才能适应这种情况。worker_1983网友曾留言说，“还好地铁只是朝一个方向开.如果反着开可就有意思了”，可谓一针见血，不过对我们来说不是有意思，麻烦大了。
在改动方面，其实对软件来说改动量不大，仅对下载的数据有一定调整，由于早期的程序用VB开发（唉，已经几年没用VB编写程序了，代码看起来很亲切），倒是在哪里插入这段代码费了我不少时间（由此想到了一个流传甚广的小故事，一个有名的工程师解决电机问题后，面对别人的质问时说，画一根线一美元，知道在哪里画需要999美元）。
程序很简单，如下：
Public Sub PicData(bytData() As Byte)
… …
'------------------------------------------------
Const intDataSize = 6144 'G_PicWidth * 24
Dim bytData3(intDataSize) As Byte
Dim bytData6(intDataSize) As Byte
On Error GoTo ToExit '打开错误陷阱
'第3块数据缓存
CopyMemory bytData3(0), bytData(intDataSize * 3), intDataSize
'第5块数据移到第3块位置
CopyMemory bytData(intDataSize * 3), bytData(intDataSize * 5), intDataSize
'第6块数据移到第5块数据位置
CopyMemory bytData(intDataSize * 5), bytData(intDataSize * 6), intDataSize
'第3块数据移动到第6块位置
CopyMemory bytData(intDataSize * 6), bytData3(0), intDataSize
'------------------------------------------------
… …
Exit Sub
'----------------
ToExit:
End Sub
程序修改编译后，信心满满的给硬件人员进行下载调试了，过了近一天的时间，一问硬件技术人员，说下载数据后，画面异常，不知道是硬件问题还是软件问题。只好把笔记本带到测试室，和硬件人员一起调试确认。就这么几句代码，费了我不少时间，我才发现问题的所在，第一我发现6144*6一定大于3万2千多，意味做对integer整型有可能溢出，第二错误处理直接退出了，没有提示（这种做法真危险！），第三定义intDataSize没有定义类型，默认也就是integer了。
把Const intDataSize = 6144 代码修改为Const intDataSize As Long = 6144。
问题搞定。幸好修改的代码不多，否则这点错误还真要命，此外得到教训是，调试程序时最好把程序错误处理暂时关掉（或错误存在文件里，不过这个时候够呛想到去看）。
发表于 @ 2008年03月08日 19:14:00|评论(loading...)|编辑