|
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对低层硬件读写的问题，大大提高了系统运行速度。本系统投入使用后，经过一段时间的运行测试和使用，证明其性能稳定、运行可靠、各项监测精度符合要求，并具有操作简单方便的特点。同时，这项技术可以大大缩短实时监控程序的开发周期，减少程序员的工作量，适用于电视台节目的实时监控和交通路口的实时监控。
参考文献
1. Microsoft公司著，希望图书创造室译.Visual Basic6.0组件工具指南.北京：北京希望电子出版社，1999
2. Microsoft公司著，希望图书创造室译.Visual Basic6.0中文版程序员指南.北京：北京希望电子出版社，1998
上一页 [1] [2]
|
