当前位置:编程学习 > VB >>

VB6.0怎么读取ISA板卡数据

背景:单位老设备改造,以前用的工控机,控制卡是单位自己做的ISA板卡,现在以前的老人走完了,只留下了几个ISA卡的地址,现在喊我重新写软件。
我平时用的是vb6.0,因为方便,ISA接口好像属于外接扩展总线,现在想直接用vb读出相应地址的数据,或者向某个地址写数据。
如,ISA卡上的一个地址是03E1,我需要用vb把那个地址上的数(16位)读出来。求大侠支招,谢谢了!!!
还剩一个月时间,我知道用VC有个函数可以直接读,虽然也学过VC,但是一个月内用不熟悉的语言写个程序还是不太可能……所以只有奢望VB能有什么办法读出来,再次谢过了!
或者能用API实现也行 VB6.0 ISA 用WinDriver这个开发包,它支持用VB、VC等语言写读写ISA的驱动。

WinDriver其实是一个通用的驱动程序,它本身作为一个代理,而你的程序通过和它交互访问硬件,从而避免你自己写驱动了。

http://wenku.baidu.com/view/3a3d0903b52acfc789ebc9fb.html
引用 1 楼 caozhy 的回复:
用WinDriver这个开发包,它支持用VB、VC等语言写读写ISA的驱动。

WinDriver其实是一个通用的驱动程序,它本身作为一个代理,而你的程序通过和它交互访问硬件,从而避免你自己写驱动了。

http://wenku.baidu.com/view/3a3d0903b52acfc789ebc9fb.html


有方法避开用windriver吗?主要是没用过,上面的链接也只是个概述,有没有详细点的步骤呢?
引用 2 楼 shengjiajian 的回复:
Quote: 引用 1 楼 caozhy 的回复:

用WinDriver这个开发包,它支持用VB、VC等语言写读写ISA的驱动。

WinDriver其实是一个通用的驱动程序,它本身作为一个代理,而你的程序通过和它交互访问硬件,从而避免你自己写驱动了。

http://wenku.baidu.com/view/3a3d0903b52acfc789ebc9fb.html


有方法避开用windriver吗?主要是没用过,上面的链接也只是个概述,有没有详细点的步骤呢?


用WinDriver是不会写驱动的人短时间能学会的最傻瓜最简单的办法了。如果你因为性能原因,或者觉得自己水平太高,用现成的有点辱没自己的名声,那你用DDK直接写驱动好了。 嗯,ISA复活了?有地址容易啊?给你推荐一个动态链接库文件,用它可以很方便的直接操作IO:
http://download.csdn.net/detail/veron_04/1709933 WinIO.sys 我是做工控的,首选你用VB操作ISA总线的板卡,操作系统得是WIN98以下的操作系统,然后用李海老师写的关于VB6直接操作地址的动态库文件就可以了。很简单。


Attribute VB_Name = "vbio"
' Copyright (c) 1997-2000 Hai Li, Zeal SoftStudio.
' E-Mail:info@zealsoftstudio.com
' http://www.zealsoftstudio.com (English)
' http://www.nease.net/~zealsoft/ (Chinese)

Option Explicit
Declare Sub Outport Lib "vbio32.dll" (ByVal portID As Integer, ByVal nByte As Integer)
Declare Sub OutportW Lib "vbio32.dll" (ByVal portID As Integer, ByVal nWord As Integer)
Declare Sub OutportD Lib "vbio32.dll" (ByVal portID As Integer, ByVal dwDWord As Long)
Declare Function Inport Lib "vbio32.dll" (ByVal portID As Integer) As Integer
Declare Function InportW Lib "vbio32.dll" (ByVal portID As Integer) As Integer
Declare Function InportD Lib "vbio32.dll" (ByVal portID As Integer) As Long
Declare Function IsWinNT Lib "vbio32.dll" () As Boolean
Declare Function GetLPTPortAddress Lib "vbio32.dll" (ByVal portID As Integer) As Integer
Declare Function GetBiosName Lib "vbio32.dll" (ByVal sName As String) As Integer
Declare Function GetBiosCopyright Lib "vbio32.dll" (ByVal sCopyright As String) As Integer
Declare Function GetBiosSerialNumber Lib "vbio32.dll" (ByVal sSerialNumber As String) As Integer
Declare Function GetBiosDate Lib "vbio32.dll" (ByVal sDate As String) As Integer


上面有地址你可以去下载使用了。感谢李海老师为我们做出的杰出贡献。


补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,