'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] [2]