说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB对低层硬件的访问控制

HTML文档下载 WORD文档下载 PDF文档下载
VB对低层硬件的访问控制
淄博学院职业技术学院
王军
---- VB没有提供直接访问低层硬件的控件和方法,一度给对访问硬件感兴趣的编程者带来不便。目前我们可从网上搜索到支持低层硬件访问的DLL和ActiveX控件,通过它们可读写存储器单元、端口,甚至控制硬件中断。下面通过两个利用DLL和ActiveX控件示例介绍VB对低层硬件的访问控制。

---- 一、利用DLL读写端口

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

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

---- 图1是一个发声示例程序的窗体,在输入框中键入一频率值并按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

---- 二、利用ActiveX处理硬件中断

---- 在应用程序中如果需要访问存储单元、端口以及处理硬件中断,使用TVicHW32 ActiveX控件是一很好的选择,该控件是一个共享软件,支持Windows 95/98/NT,可从http://www.entechtaiwan.com/tools.htm处下载。该控件除具备直接访问存储单元和端口的功能外,还提供了丰富的处理并口的属性和方法,以及处理硬件中断的属性、方法和事件,极大地拓展了VB对低层硬件的访问控制。下面通过一个显示键盘中断次数和按键扫描码的示例介绍控件的使用过程。

---- 1、下载TVicHW32压缩软件包并解压到一个目录中,如\HW。把driver子目录下的vichw00.vxd文件拷贝到\windows\system子目录下,该文件是控件访问硬件的驱动程序,使用控件前先用OpenDriver打开,最后用Close_Driver方法关闭。

---- 2、把ocx子目录下的tvichw32.ocx拷贝到\windows\system子目录下,并在DOS命令行状态下键入以下命令进行注册。

---- regsvr32 tvichw32.ocx

---- 3 、在VB环境下通过菜单工程--部件--控件并选择TVicHW32 ActiveX Control Module将控件添加到工具箱中。

---- 4、相关的属性、方法及事件

---- 方法 OpenDriver 打开支持访问硬件的驱动程序vichw.vxd(windows95下)

---- 方法 CloseDriver 关闭驱动程序

---- 属性 ActiveHW As Bool 驱动程序打开则为True;关闭为False 中断事件 OnHwInterrupt(ByVal HwCounter As Long,

ByVal LPT_DataReg As Integer,
ByVal LPT_StatusReg As Integer,
ByVal ScanCode As Integer
)
参数
HwCounter : 中断次数
LPT_DataReg : 如果使用IRQ7,则为打印并口的数据
LPT_StatusReg : 如果使用IRQ7,则为打印并口的数据
ScanKode : 如果使用IRQ1,则为按键的扫描码
属性 IRQNumber 指定中断号,范围IRQ1--15
属性 IRQMasked 中断非屏蔽则为True;屏蔽为False

---- 图2(略)是示例的窗体,程序运行后首先按Open_Driver钮打开驱动程序,然后选择Unmarsk复选框开放中断,此时每按一次键框中分别显示该键的扫描码和中断次数。处理其它中断只需更改中断号即可(中断号1--15)。

---- 程序清单:

Public Sub ShowButtons()
Open_Driver.Enabled = Not HwCtrl.ActiveHW
Close_Driver.Enabled = HwCtrl.ActiveHW
B_Unmask.Enabled = HwCtrl.ActiveHW
End Sub

Private Sub Form_Load()
ShowButtons
End Sub

Private Sub Open_Driver_Click()
HwCtrl.OpenDriver '打开驱动程序
If Not HwCtrl.ActiveHW Then
MsgBox ("The driver VICHWxx not found")
Else:
HwCtrl.IRQNumber = 1 '中断号为1,键盘中断
End If
ShowButtons
End Sub

Private Sub Close_Driver_Click()
HwCtrl.CloseDriver '关闭驱动程序
B_Unmask.Value = 0
ShowButtons
End Sub

Private Sub B_Unmask_Click()
If B_Unmask.Value = 0 Then
HwCtrl.IRQMasked = True
Else
HwCtrl.IRQNumber = 1
Scan_Code = 0
HwCtrl.IRQMasked = False '开放中断
End If
End Sub

Private Sub HwCtrl_OnHwInterrupt(ByVal HwCounter
As Long, ByVal LPT_DataReg As Integer, ByVal
LPT_StatusReg As Integer, ByVal ScanCode As Integer)
Scan_Code.Caption = ScanCode
IRQC.Caption = HwCounter
End Sub

【PPT集萃】十位一线专家分享Spark现状与未来(二) 2014年,怎么做产品才能获得成功? 年末新游盘点:2014年移动游戏四大趋势 IDC:全球有1850万程序猿 4成爱好者在写代码 PHP开发框架流行度排名:Laravel居首 2013年度最强AngularJS资源合集 研发周报:回顾2013、技术栈的选择、开源成趋势 TIOBE 2014年1月编程语言排行榜:Transact-SQL力挫Objective-C 夺得桂冠 IBM:这五个智能技术的发展,将会改变我们生活 一周消息树: 微软的2013,Surface的2014 Amazon CTO Werner Vogels:云和SaaS正在快速风靡全球 “人类先知”Isaac Asimov 50年前的科技预测大多应验了 2014年10大Web设计趋势 Google野心:App Indexing改写应用搜索格局 Cocos2d-x,老牌引擎的新进化 Kingdom Rush创始人专访:游戏与电影元素混搭 超实用的JavaScript技巧及最佳实践(下) 盖茨和鲍尔默或成挑选微软新CEO的最大阻碍 移动开发进阶:触发式邮件深入分析 King.com传奇再续!Farm Heroes Saga强势登陆iOS、Android 2013综述稿:Clojure这一年及大事件 亚马逊AWS vs.谷歌GCE,彪的是价格? 2014,混合云被广泛采用的一年 传微软拉拢厂商推双启动系统手机 用户可选Windows Phone或Android 为什么游戏领域总是“抄抄抄”! 物竞天择、百家争鸣——评OpenStack生态圈 CES 2014:Intel针对可穿戴技术发布多款产品 直击CES:Pebble推金属版智能手表Pebble Steel 为4K智能电视而生:高通推出骁龙802处理器 英特尔首席执行官阐述可穿戴设备新技术及Edison计算平台 设计师如何写出更棒的项目建议 chr 函数问题 弟兄们,我明天开始要回来了,回到这个阵线了 如何退出双重循环 帮兄弟一把,一个小问题! ADO的连接 高分求解,如何取得默认打印机支持的纸张类型? 用deamweaver ultradev 做的asp怎么修改可以与数据库连接?? 时间问题 ADO连接问题 如何设置串口的流量设置,?设置为无. 请问怎么给JTabPane上各个JPanel(如:JPanel1,JPanel2)使用setMnemonic() 找不到确切哪一天的记录? 各位高手,为什么我在用NMUDP发送数据时当接收端程序没有启动的时候总是提示Stream Write Error,是什么原因,怎么才能让这个错误提示不出现 《机械原理》课有感 大哥 怎么在网上查到这的硬盘是不是水货好像输一个序列号就可以是不是 有谁能提供计算机及应用专业的本科毕业论文,最好是数据库方面的? 注册crystal report 都需要哪些.dll呢 如何能够同时DownLoad多个文件,就像OutLook的文件添附功能? 从sql serevre 6.5 升级到 sql server 2000后 原先的中文字段为何是乱码?急! 怎样用select下拉菜单的双击事件实现页面的提交?? 圣诞节要到了,mm 的命令也到了,要我准备好money,大家帮我出出注意啊~~~~~~~~ 请教各位jsp高手 office2000英文版无法uninstall sorry,应该是如何检测一个按纽被单击 初学JAVE需要什么软件? 请教:计算机四级和程序员、高级程序员的难度比较! 高手请指点,关于dns配置问题 help !访问数据窗口整行数据,怎么不能出数据??? 请问:如何用C语言打开一个在指定路径的文件(在源程序所在目录的子目录中)? 哪有中文版的.NET类库大全可以下载??? 为什么ie5下和ie6下显示不同?关于session.情赐教。 请问nmudp使用的时候怎样得到对方传来的字符串? 请教delphi大哥.多线程 计算机四级和程序员、高级程序员的难度比较? 不好玩, 不玩了 最近水园里怎么这么多人失恋啊????? 控件高手看过来{;-< 高分求教javamail问题??!! VB与VC编的Dll之间传字符串 为什么不能发邮件啊 请问怎样实现两个不同局域网之间机器用udp协议传送信息? 哪里有信封输入与打印软件?信封处理软件? VB6 MDI 窗体的背景图能Resize吗 ? C/S事务控制问题!!!!为什么的Database.commit后不能更新数据库? puppet(小虎) 在不在? 谢谢各位,sorry.刚才我说的不太准确 巨好回答的问题,不可不答,答了还想答,答完一遍又一遍。。。 给个建议: 近来想买台电脑, 不知 5999 的 福日N610 值不值得考虑 在VC中怎么样把一个CHM文件,挂在它的帮助上面!谢谢大虾! ( 12-13) 从sql serevre 6.5 升级到 sql server 2000后 原先的中文字段为何是乱码?急!加急! >>>>>>>>>>>>>>>>>>>>>>>树状层次结构数据问题?<<<<<<<<<<<<<<<<<< 一块铜锌合金中金中铜和锌的比是2:3,现在又加入6克锌,共得新合金36克,新合金内铜和锌的比是() 配置500克质量分数为20%的盐酸,需质量分数为38%的盐酸多少克? ph=4.6 0.1mol/L的磷酸缓冲液配制 金银合金中金与银的比试3比4,增添一些银后配制成金银之比为1比2的合金60克加入了多少银? 配制400g质量分数为10%的稀盐酸需要80%的盐酸多少克? 500ml 氢离子 物质的质量的浓度为2mol/L 的硫酸溶液中含硫酸多少 两块同样重的金银合金:第一块金中的金与银的质量比是2:5,第二块合金中金与银的质量比是3:7,将两块合成一块,合金中金与银的比是多少 如何配制PH2.10.0的PBS(磷酸缓冲液)? 浓度为2mol的H2SO4 500ml,h2so4的物质的量 一块合金中金 银的比为3:5,二十四克合金中,金有( )克,银有( )克. 如何配制PH=10的缓冲液 0.1mol/L磷酸钾缓冲液 PH7.3怎么配制啊? 想知道酸性铬兰K指示剂的配制方法, PH为3和8的PBS缓冲液如何配置啊 有一个铝球,球的质量是54g,体积是50cm³,已知铝的密度是2.7×10³kg/m³如果铝球是空心的,那么空气部分是多大?如果给空气部分灌满水,则该球质量是多少? 0.5 酸性铬兰k指示剂如何配置我在网上查不是所说的那样配制你的决论是对的吗 计算题:实验室质量分数为98%的浓硫酸,配制质量分数为10%的稀硫酸196G,需98%的浓硫酸多少克? 哪种金属的密度为2.7x10³kg/m³ 中国城市GDP排名 化验石灰的氧化镁有个 KB指示剂但没比例,求酸性铬兰K—— 萘酚绿B KB指示剂怎么配制? 实验室需要配制质量分数为20%的稀硫酸溶液500克,需要质量分数为80%的浓硫酸多少克?水多少克? 2010中国各省gdp排名 实验室用密度为1.84cm3,质量分数为98%的浓硫酸和蒸馏水,配制500g质量分数为20% 的稀硫酸,需要用多少mL配制前后溶液的质量是不是都为500g 实验室需要196克质量分数为20%的稀硫酸,需用多少克质量分数为98%的浓硫酸来稀释? 测定ph时,为什么要选用ph与待测溶液ph相近的标准缓冲溶液来定位 要用质量分数为20%稀硫酸.现需配制这种稀硫酸500g,需要质量分数为98%(密度1.84g/立方厘米)的蒸馏水多少毫带公式和单位 实验室与配制质量分数为20%的稀硫酸500毫升,需质量分数为98%的浓硫酸和水各多少升? 测定溶液pH值时为什么要先用标准pH缓冲溶液进行定位?使用新的玻璃电极前为什么要将它浸泡24小时以上? 一种金银合金重300克,其中金与银的比是1:4如果在放入金20克,这时合金中金和银的比是多少? 实验室用98%的浓硫酸配制1000g质量分数为20%的稀硫酸来做试验,则需要98%的浓硫酸和水多少ml(98%浓硫酸密度:1.84g/cm3,水的密度1g/cm3明天期末考试, 我是一名今年报考南药研究生院的大学生.想问一个问题:“用玻璃电极测定溶液ph时用标准缓冲溶液校正的主要目的是什么?” 这道题在练习册上出现过很多次,但是答案都不一样.我自己认为 合金中金和银的质量比是2:3,现在加6克银,共得新合金36克,新合金中金和银质量比? 一只铝球体积为20cm3,质量是27g,它是实心还是空心的?若空心,中空部分多大?若在中空部分装满水银总质量是多少?请给我完整过程,1 在pH测定时,用标准缓冲溶液定位的目的是什么?标准缓冲液可否重复使用? 就是标定,未必你配制好的PH=10的氨氯化铵缓冲溶液不标定?人就是应该不断地进步,不懂的就要不断的学习,没有谁好不的了的,我们的领导每次配了的氨氯化胺缓冲溶液都要拿来校准,她是 什么是PBS缓冲液 测定ph为什么要用标准缓冲液校正 将100mL98%密度为1.84g/cm3浓硫酸与400mL蒸馏水混合制成1.225g/cm3稀硫酸 求稀硫酸中溶质分数 物质量浓度注意溶液体积的变化(要过程) 一个铝球,质量为5.4kg,而体积为3000cm3,⑴那么这个铝球是否为空心的? ?⑵若为空心的,其空心部分注满铜,则此球的总重量又是多少?(铜、铝的密度分别是8.9×103kg/m3,2.7×103kg/m3) 急!在线等! 100ml的98%浓度的浓硫酸 密度为1.84g/ml 加入100ml的水后 知道稀释后密度 体积为多少?100ml的98%浓度的浓硫酸 密度为1.84g/ml 加入100ml的水后 知道稀释后密度为e 体积,物质的量浓度为多少?写下过程 有三块铜合金.其中有两块质量相等,这两块合金中金与铜的质量比分别是3比5和2比7;第三块合金的质量是三块合金质量的一半,但金与铜的比是1比3.现在把三块合金融在一起,求新合金中金和 一道物理题:一个空心铝球的质量为27g.一个空心铝球的质量为27g,它能漂浮在水中且有四分之一个球露出水面,已知铝的密度为2.7*10的三次方kg/m³ 求此铜球体积和空心体积! 求500ml,密度为1.84g/cm^3的浓硫酸的物质的量浓度 有三块金---铜合金,其中有两块质量相等,这两块合金中金与铜的质量之比分别是3:5和2:7,. pbs缓冲液ph=7.4如何配制 PH=10(+-0.2)氨水-氯化铵缓冲溶液怎么配制?如题,NH3.H2O-NH4CL体系PH=10正负0.2 欲配制PH=9.0的NH3-NH4CL缓冲溶液,若用去了100MOI/LNH3溶液,则需称取多少克NH4CI固体? 磷酸缓冲液如PBS为什么易染菌?pbs营养远没有培养基丰富,为什么易染菌? 我想知道怎么配制氨-氯化铵缓冲溶液 NH4CL-NH3 ph=10缓冲溶液怎么配 如何配制0.1mol,ph(3.0 3.5 4.0 4.5.7.0)磷酸缓冲液我是做生物学试验的主要是多酚氧化酶特性研究方面的 谁能告诉我金和铜的密度`` 1mol/l NH3-NH4Cl缓冲溶液的ph值怎么计算 0.1mol/l,PH=8.6的磷酸缓冲液怎么配制 稀释溶质质量分数为98%(密度为1.84 g/mL)的浓硫酸,配制500mL溶质质量分数20%的稀硫酸(密度为1.14/mL),稀释时需用水的体积约为 计算配制100g溶质质量分数为16%的氯化钠溶液所需氯化钠多少克?水多少克 请问0.1mol/L PH=10.5 磷酸缓冲液PB怎么配制? 在水样中直接滴入铬黑T,水样呈蓝色,此时水样硬度范围是多少? 氨性缓冲溶液的配制 具体要求,是要1mol/L的氨-氯化铵缓冲溶液,Ph=10的,怎么配?我想知道这个浓度有什么关系呢?我只有500ml的容量瓶,不要给我说稀释至1L. 0.1mol/l ph=8.0的磷酸缓冲液怎么
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn