评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

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

2014-06-24 01:10

(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个摄像机各自唯一的编号，按编号控制门电路的接通与断开。

表2 8bit定位信息取值与通道对照表

通道高位（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位的二进制数，部分关键源程序如下：

Public Sub WriteToPort(Addr As String, ValPort As String) ' CW As CheckBox)

Dim Nomw As Integer, DatW As Integer

' If CW.Value = Checked Then

'Nomw = HexToInt(Addr.Text)

Nomw = HexToInt(Addr)

DatW = HexToInt(ValPort)

' Write one byte to the port

Call SetPortByte(HW32, Nomw, DatW)

' End If

End Sub

4.结束语

本文介绍的现场电视实时监控系统由于采用了随机文件存储写并口的信息，巧妙地解决了VB对低层硬件读写的问题，大大提高了系统运行速度。本系统投入使用后，经过一段时间的运行测试和使用，证明其性能稳定、运行可靠、各项监测精度符合要求，并具有操作简单方便的特点。同时，这项技术可以大大缩短实时监控程序的开发周期，减少程序员的工作量，适用于电视台