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

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对低层硬件读写的问题，大大提高了系统运行速度。本系统投入使用后，经过一段时间的运行测试和使用，证明其性能稳定、运行可靠、各项监测精度符合要求，并具有操作简单方便的特点。同时，这项技术可以大大缩短实时监控程序的开发周期，减少程序员的工作量，

适用于电视台节目的实时监控和交通路口的实时监控。

参考文献

1. Microsoft公司著，希望图书创造室译.Visual Basic6.0组件工具指南.北京：北京希望电子出版社，1999

2. Microsoft公司著，希望图书创造室译.Visual Basic6.0中文版程序员指南.北京：北京希望电子出版社，1998

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