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

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

经验分享:百度测试架构师眼中的百度QA(一) 在线旅行服务行业开放API带来的新机遇 专访:悬疑恐怖游戏Year Walk美术及音效设计师 解密:微软都柏林数据中心的神秘“免费冷却”装置 云计算如何影响数字化营销? 榜单:十位帮我们打理数据的存储大佬 OpenStack Grizzly版发布 Comcast、CERN成为新会员 谷歌携Blink来势汹汹 WebKit将成明日黄花? 星巴克与苹果合作 顾客可免费下载付费App 微信回应信令争议 将启动2.5G网络优化计划 凤凰网CTO吴华鹏离职 先后供职长达10年 外媒:开发者每周编码时间仅19.1小时 AppGratis CEO现身说法:应用被苹果儆杀始末 一个Web设计师眼里的云计算 戴尔高管:服务器业务领先惠普五年时间 Hoodie:基于JS与CouchDB的超快速Web开发框架 设计优秀API的五大规则 盘点英特尔IDF2013第一天:技术产品新趋势 英雄组队去打怪!Nimble Quest开发团队访谈 云通讯平台打造本土Twilio 被逼无奈?传微软或明年秋发布iOS和Android版Office 欧洲各国政府将向大众开放公共数据 访联想云存储罗予晋:优化MooseFS,共建生态系统 磊友创始人赵霏:关于HTML5与Flash争执之我见 国际混乱C语言代码大赛优胜作品详解之“A clock in one line” 揭秘程序员大脑编程的七大“误区” 从Java到ObjC语言的桥梁:谷歌J2ObjC 0.7版本亮相 数据库管理系统ParElastic:打破常规 扩展云端MySQL 谷歌苹果专利纠纷意在战略无意和解 美法官为其苦恼 Facebook收购神秘移动软件创业公司Osmeta 修改驱动,使用Erlang+VoltDB实现每秒87.7万事务 代理服务器编程,如何实现socks代理!!!! 为什么SQL SERVER的 BOKK ONLINE的目录有问题 如何取消sendmail 8.9.3的第三方邮件转发权限? SelectDirectory函数打开的是英文对话框,但是我的程序需要向用户发布,怎样才能中文界面 111222(), 你已经被剿灭了么 ? 请教如何把一个Project移植到另一台机器的不同目录下编译? ListView 的 OnColumnClick 要实现items 的升降序排列 ,怎么办?还有,点击单元Item,出现该Item 的 编辑Panel? 刚学java,请问。。。 怎样用猫来传文件 有没有谁有D6光盘,刻张给我 到底要怎样学 新手请教问题 我的安装老是不能成功,那一位大虾能告诉我,谢了 各位大虾,谁能给我提供,匿名发送邮件的程序代码啊。。。。 那位打下知道有什么针对BMP图像的压缩算法? 怎样使WAV播放的幅度表达出来?象WINDOWs的录音机显示一致? 窗口的问题(稍后加分,100分) 大家是如何解决数据库平台无关性的问题的? 呦,阿紫,你真的改名啦,红袖添香夜读书的小乖乖,太长了,你还当斑竹吗? vb开发进程?Hook技术? 所谓的基础的是什么 识别上网状态问题,请教各位大虾。 再问:请问可以在applet中使用MenuBar吗?(昨天的已经给分了) 统计一下win2000下可以玩的游戏 *.chm文件能作在线帮助吗?在窗体的helpfile、和helpcontext如何设置??? 如何根据列名用object来取出字段,急!!!! 关于箭头在数据窗口移动的问题? 再问个菜鸟问题,showmodaldialog的title怎样控制 javascript中如何取整? ALT和MFC的区别是什么?? 试用DELPHI6,BUG太多了! 我是新手,请问在delphi5中如何建库(orcle和sybase)? 问一个比较弱智的问题 js文件里如何使用另一个js文件里的函数30? 哪位大虾知道可以在哪里下载mpeg-1的codec,谁先告诉有效地址谁先得分!(不给分是小狗!) 可能很菜的问题,送分的问题!! 一个关于CDaoTableDefInfo的问题 ado的问题??求救!!!高分!!! 有关代码重用的问题,对Form的继承。 一个关于CString.Format的问题 学习编程时学图算法怎么学好? 一个很简单的CREATE TABLE语句为什么出错呢?向大家请教! jbuilder5运行需要最低配置 ,傻傻的问 Delphi6的盗版已经到了@_@ 喂,为什么我提问只能给最多37分,原先可比这要多的多 一个关于派生类的问题 关于页面关闭的问题 用new JTalbe(10, 20)创建了一个table,如何设置该table列(column)的宽度 请教一个关于用VC6开发outlook\exchange的问题。急!急! 时间服务器 请问一下,用DBM,如果用户注册的数量多了以后,程序的速度很一般的文本速度比较哪个快 光明小学航模数人数是生物组的4/5,生物组人数是美术组人数的三分之一,航模组有八人,美术组有多少人? 小刚让我才他参加了什么兴趣小组,我说:“( )美术组,( )航模组.”关联词 去鲁迅故里的春游作文(五年级)400字以上 学校科技小组,原男同学占全组的1/3,后来增加6个男同学这时男同学人数变成全组的1/2,有女同学多少? 光明小学航模组人数是生物组的4/5,生物组人数是美术组的1/3,航模组有8人.美术组有多少人? 美术小组有25人,比航模小组多4分之1人,航模小组多少人.(列出数量关系式并解答) 学校科技小组女生人数十男生人数的三分之二,后来又增加了三名男生,这是女生人数是男生人数的七分之四,现在科技小组一共有多少人? 光明小学航模作人数是生物组的5分之4,生物组人数是美术组的3分之1.航模组有8人,美术组有多少人?要步骤,5年级数学 美术小组有25人,美术小组比航模小组的人数多四分之一.航模小组有多少人? 学校科技小组有学生48人,其中女生人数是男生的7/9,参加科技小组的男、女生各有多少人 光明小学航模作人数是生物组的5分之4,生物组人数是美术组的3分之1.航模组 某小学航模小组有20人,比美术小组的人数少了五分之一.小学美术小组有多少人?非常急急急急急急急急急啊 要用方程来解!(我会算但不会解) 学校科技兴趣小组原来男生人数占女生人数的80%,后来又有9个男生加入,这时女生人数占男生人数的80%.科技兴趣小组现有学生多少人? 少年宫美术小组有36人,航模小组的人数是美术小组的三分之二,微机小组的人数是航模小组的六分之五,微机小组有多少人 光明小学航模组有30人,美术组的人数是航模组的4/5,又是生物组的人数的1/3.美术组有多少人? 学校科技组的女生是男生的3分之2,后来又有4名女生参加,这时女生是男生的7分之6,女生原有多少人?急 少年宫里,参加航模组人数占五分之一,参加书法组人数占四分之一,又知书法组比航模组多三十人,少年宫多少人? 东风小学航模组人数是生物组的4/5,美术组人数是生物组的5/6,航模组有24人.美术组有多少人? 学校成立计算机兴趣小组,其中女生占十分之三,后来又有五名女生参加这个兴趣小组,这时女生人数占兴趣小组总人数的五分之二,你知道计算机兴趣小组有多少名男生吗?(快!) 学校舞蹈队有35人,航模小组有10人,围棋小组有25人.航模小组的人数比围棋小组的人数少百分之几 某校有数学,气象,航模三个兴趣小组,其中数学小组是三个小组2分之1,气象组人数是航模组人数的3分之4,航模组比数学组少3人.三组一共多少人? 某科技发展兴趣小组女生占7/12,后来又转来了5名女生,这样女生占总人数的3/5.这个兴趣小组原有男生几人越详细越好,我加你分的 六年级共有37名学生参加航模组和舞蹈组,航模组每5人一组,舞蹈组每3人一组正好分了9组,参加航模组和舞蹈组的共有多少人.(别有方程) 某校有数学,气象,航模三个兴趣小组,其中数学小组是三个小组人数的1/3,航模小组比数学小组3人,气象小组人数与航模小组人数的比4:3,数学小组有多少人? 某科技发明兴趣小组中女生占1/6,后来又转来15名女生,这样女生占总人数得1/5.这个兴趣小组有多少人 航模小组与舞蹈小组人数的比是四:一,航模小组比舞蹈小组多90人,舞蹈小组有多少人 5.一个车间有工人360人,其中女工占五分之三,后来招进一批女工,这时女工人数占全车间工人总人数的五分之八.有招进女工多少人? 某科技兴趣小组中女生占7/12,后来又转来15名女生,这样女生占总人数的3/5,这个兴趣小组原有学生多少人某科技兴趣小组中女生占 7/12 ,后来又转来了15名女生,这样女生占总人数的 3/5 .这个兴趣 学校的航模小组与舞蹈小组人数的比是四比一,航模组比舞蹈组多90人,舞蹈组有多少人? 某车间有工人120人,其中男工人数与女工人数的比是3比2.后来又招了一批女工,这时女工人数与车间总人数的比是3比7.现在女工有多少人? 某科技发明兴趣小组中女生占7/12,后来又转来15名女生,这时,女生占总人数的3/5.这时兴趣组男生有多少人 航空模型小组共有26人,其中男生有16人.航空模型小组男女生人数的比是( ):( ),航空模型小组共有26人,其中男生有16人.航空模型小组男女生人数的比是( ):( ),比值是( ).女生人数与小组总人数 一个车间有360人女工占3/5,后来又招进一批女工这时女工占全车间的5/8又招进多少人 学校开展课外兴趣小组活动,文艺组与体育组人数的比是4:3,后来文艺组又增加了4人,这时,体育组人数是文艺组人数的2/3,文艺组现在有多少人? 光明小学航模小组男生咋还能全组人数的三分之二,女生人数占男生人数的几分之几?1,这道题能列积等式吗,要确定.2,如过用方程的话,希望给写出过程,3,用算式也行. 某车间有工人120人,其中女工人数是男工人数的2/3.后来又招收了一批女工人,这时女工人数占车间总数的3/7现在女工人有多少人?今天回答! 学校开展兴趣小组活动,数学小组的人数是文艺小组的5/3,数学小组有24人,文艺小组和体育小组的人数比4:3,体育小组有多少人? 学校美术组有35人,其中男生是女生的2/3.女生有多少人? 希望小学五年级学生360人,其中男生占7/12,后来又转来几名男生,这时男生占五年级总人数的60%,转来的男生有多少? 学校开展课外兴趣小组活动,文艺组与体育组人数比是4:3,后来从体育组调了2人到文艺组,这时文艺组人数是体育组人数的2分之3,你认为两组一共多少人? 美术兴趣小组有男生5人,女生6人.女生人数是男生人数的几分之几?男生人数是女生人数的几分之几?快我要答案,不要只写算式,好的最多加200财富值 五年级原来的学生,其中女生占十五分之七,后来又转来8名女生,这样女生人数就占总人数的三十一分之十五,原来有几名学生? 学校展开了课外兴趣小组活动,文艺组的人数是体育组的3分之4,后来文艺组又增加了4人.这时文艺组人数是体育组的2分之3,文艺组现在有多少人? 学校美术组的人数在40..50人之间,男生人数和女生人数人数的比是5:4,美术组男生和女生各多少人? 某工厂年初有职工630人,男工人数比女工多3分之1,后来招进一批女工,这时女工占总数的7分之4招进多少女工?正确率100%【只写算式】 学校数学兴趣小组原来男生人数占七分之四,后来又有6名男生参加进来,这样男生就占数学兴趣小组的5/8现在数学兴趣小组有男生多少人 学校美术小组女生人数是男生人数的90%,科技小组又有15名女生到美术小组,这时女生人数是男生人数的120%.学校美术小组有男生多少人? 人民路小学六年级上学期有学生360人,其中男生占十二分之七,本学期又转来若干名男生,这样男生人数占六年级总人数的五分之三,本学期转来多少名男生? 学校数学兴趣小组原来男生人数占7/4,后来又有6名男生参加进来,这样男生占数学兴趣小组的8/5现在数学兴趣小组有男生多少人? 报名参加航模兴趣班的男生人数比女生人数的4倍少8人,比女生人数的3倍多24人.报名的女生有多少人? 光明小学六年级女生占7/12,后来转来15名女生,这样女生占全班人数的3/5,六年级原有学生多少人?用抓不变量法做!THANK YOU! 学校数学兴趣小组有60人,写作兴趣小组的人数相当于数学兴趣小组的十二分之五兴趣小组增加多少名同学,就是数学兴趣小组人数的5分之4? 前进小学航模队有女生24人占全队人数的八分之三少6人六年级男生多少人 光明小学六年级(1)班学生中女生占7/3,后来又转来了14名女生,这时女生占全班人数的7/4.六年级(1)班原有人?光明小学六年级(1)班学生中女生占3/7,后来又转来了14名女生,这时女生占全班 学校数学兴趣小组原来男生人数占七分之四,后来又有6名男生参加进来,这样男生就占数学兴趣小组的八分之五要式子 学校美术兴趣组和电脑兴趣组共102人,美术兴趣组人数的2/9和电脑兴趣组人数的25%相等.学校美术兴趣组和电脑兴趣组各有多少人?【求算数解 小学春游作文,400字,广州滨海公园4月份之前回答,过期不算 学校开展课外兴趣小组活动.文艺组人数是体育组的3分之4.后来文艺组又增加了4人,这时体育组人数是文艺组的3分之2,体育组有多少人? 学校兴趣小组活动,六年级有美术小组,航模小组和文学小组共有158名同学,其中美术小组人数比航模小组多20%,文学小组人数比美术小组少20%,求个兴趣小组的人数?7点之前 (加解释 列式) 快 学校组织春游,五年级去的学校组织春游,8倍,五年级去的人数与一年级相差40人.如果每人交活动费70元,两个年级各收多少元?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn