基于Visual Basic快速开发现场电视监控系统

在某个摄像机（监控点）长时间不间断地监控，本系统提供了手动控制很好的满足了这个需要。当系统处于手动状态时，监控中心人员可以通过主窗口的手动按钮，或使用键盘数字键选择哪个通道监控哪一台摄像机。选中后，该通道就固定监控此摄像机（监控点），直到手动选择另一个摄像机（监控点）时，才调用手动切换子程序完成切换功能。
　　
　　
　　
　　(3)系统界面采用VB6.0中的Listview控件，此控件具有SmallIcon、LargeIcon、List、Report四种显示方式，从而达到用户界面友好的效果。图2是在Report显示方式下的监控中心主界面。
　　
　　
　　
　　图2现场电视监控系统
　　
　　3.系统的实现
　　
　　
　　
　　3.１VB访问低层硬件的实现
　　
　　支持低层硬件访问的DLL文件和ActiveX控件，通过它们可读写存储器单元、端口，甚至控制硬件中断。本系统利用DLL实现访问低层，详见图3所示。
　　
　　
　　
　　
　　
　　
　　
　　图４低层硬件访问示意图
　　
　　
　　
　　3.2系统中对播放序列存储的实现
　　
　　由于本系统涉及的摄像机为16台，数量不算太多，可不采用数据库存储，而巧妙地选用随机文件（*.dat）的方式进行存储，可大大提高响应的速度。
　　
　　
　　
　　表１随机文件格式表
　　
　　
　　
　　域名
　　
　　用途
　　
　　长度(Byte)
　　
　　Name
　　
　　存储摄像机名称
　　
　　10
　　
　　ID
　　
　　存储摄像机编号（唯一）
　　
　　2
　　
　　Time
　　
　　存储摄像机播放时间
　　
　　5
　　
　　
　　
　　
　　
　　3.3写并行端口的程序实现
　　
　　ID域为16×4个摄像机各自唯一的编号，按编号控制门电路的接通与断开。
　　
　　
　　
　　表28bit定位信息取值与通道对照表
　　
　　
　　
　　通道
　　
　　高位（HEX）
　　
　　低位（HEX）
　　
　　A
　　
　　0
　　
　　0---A
　　
　　B
　　
　　1
　　
　　0---A
　　
　　C
　　
　　2
　　
　　0---A
　　
　　D
　　
　　3
　　
　　0---A
　　
　　
　　
　　表2中通道列中的A、B、C、D分别对应A、B、C、D四个通道，高位（HEX）列只要用二进制的低六位即可完成控制功能。编写函数WriteToPort向并口中写入8位的二进制数，部分关键源程序如下：
　　
　　PublicSubWriteToPort(AddrAsString,ValPortAsString)'CWAsCheckBox)
　　
　　DimNomwAsInteger,DatWAsInteger
　

《基于Visual Basic快速开发现场电视监控系统(第2页)》