[发明专利]一种VB对低层硬件访问控制的方法

说明书

技术领域

此方法主要是涉及计算机领域中的硬件控制部分。

背景技术

一般的硬件控制都是用C语言来进行编写，此语言不方便，不宜学习，通过VB简单的控制DLL来进行控制计算机硬件设备，方便程序员进行编程操作。

发明内容

1． 利 用DLL 读 写 端 口。

若 在 应 用 程 序 中 只 是 简 单 地 读 写 端 口， 利 用DLL 编 程 实 现 较 为 简 便。 从http://personal.vsnl.com/sr 网 站 可 下 载 一 个 免 费 的32 位VBIO.DLL， 该 连 接 库 允 许 在VB4、5 或6 中 使 用， 共 有 七 个 函 数 和 过 程, 分 别 为:

Anjan DLL 的 解 锁 过 程； Inp 端 口 读 字 节 函 数； Inpw 端 口 读 字 函 数； Out 端 口 写 字 节 过 程； Outw 端 口 写 字 过 程； GetLptBaseAddr 获 取 并 口 基 地 址 的 函 数； GetComBaseAddr 获 取 串 口 基 地 址 的 函 数；

利用VB语言进行一个实例， 在 输 入 框 中 键 入 一 频 率 值 并 按SoundOn 钮， 则 在PC 机 的 扬 声 器 中 发 出 指 定 频 率 音 调， 程 序 中 对 音 调 的 变 化、 声 音 的 开 关 是 用VBIO.DLL 的 过 程 和 函 数 访 问 发 声 系 统 的 定 时 器/ 计 数 器 和 控 制 端 口 实 现 的。 

编 程 要 点：1. 应 在Form _Load 中 加 入Anjan 解 锁 过 程。2. 若 在 模 块 中 声 明 函 数 和 过 程， 应 去 掉private 或 用Public 替 代。3.VBIO.DLL 应 拷 贝 到 /windows/system 子 目 录 下。 

程 序 清 单：

Option Explicit Private Declare Sub Anjan Lib “vbio.dll () Private Declare Function Inp Lib “vbio.dll (ByVal port ＆) As Integer Private Declare Function Inpw Lib “vbio.dll (ByVal port ＆) As Long Private Declare Sub Out Lib “vbio.dll (ByVal port ＆, ByVal byt ％) Private Declare Sub Outw Lib “vbio.dll (ByVal port ＆, ByVal wrd ＆) Private Declare Function GetLptBaseAddr Lib “vbio.dll (ByVal lpt ＆) As Integer Private Declare Function GetComBaseAddr Lib “vbio.dll (ByVal com ＆) As Integer Public Sub SetFreq(soundHz As Integer) ' 设 置 频 率 If soundHz Then Dim divisor As Long divisor = 1193180 / soundHz ' 计 算 时 间 常 数 Out ＆H42, ＆HB6 '8253 －5 通 道2 设 置 为 方 式3 Out ＆H42, divisor Mod 256 ' 送 时 间 常 数 Out ＆H42, divisor / 256 ' Speaker True Else Speaker False End If End Sub Public Sub Speaker(sOn As Boolean) ' 开 关 声 音 Dim portVal As Integer portVal = Inp( ＆H61) If sOn Then portVal = portVal Or 3 ' 低 位 为 通 道2 的 门 控 信 号 Else ' 次 低 位 为 整 形 与 门 控 制 信 号 portVal = portVal And (Not 3) End If Out ＆H61, portVal End Sub Private Sub Form_Load() Anjan ' 软 件 解 锁 End Sub Private Sub SoundOff_Click() Speaker False End Sub Private Sub SoundOn_Click() SetFreq Val(TextHz) End Sub。