1 引言
pcl-813b（簡稱813b）是臺灣研華公司推出的一款基于pc的高性能、多功能數據采集卡。該卡不僅性能優異，而且有完善的軟件支持，使得此卡能廣泛適用于工業自動化系統、自動化設備監控系統，具有廣闊的應用前景。vb是一種高效、易學易用的開發工具。一些工業測控系統中,需要計算機從現場獲取實際數據或發出控制命令,這就需要計算機實現對i/o端口的控制與訪問，但是vb不具備直接對硬件地址進行訪問的功能，可以利用vc++編寫訪問i/o接口地址的程序，創建動態鏈接庫（dll），利用dll進行調用來實現端口訪問與控制。本文以此卡為例，詳細介紹了在vb環境下的應用。
2 pcl-813b數據采集卡簡介
813b是基于isa結構的，需插在計算機的isa槽中。它采用了12位分辨率a/d轉換器（ad574），用來轉換模擬輸入，轉換時間為25μs,數據傳送速率達25kbps;輸入范圍:雙極性±5v，±2.5v，±1.25v，±0.625v。單極性0～10v，0～5v，0～2.5v, 0～1.25v; a/d轉換觸發方式為軟件觸發; 813b支持32路單端隔離模擬量輸入，最大連續過壓±30v。
813b是一種通用型數據采集卡，可以滿足不同用戶的不同要求。因此卡上有一個dip開關（sw1）和1個跳線器（jp100），可由用戶自行設置，以滿足不同的需要。
813b使用16個連續的i/o地址，其i/o基地址有開關sw1選擇，有效地址從000～3f0h（十六進制）。sw1開關共有6個微型撥碼開關，其撥碼組合與對應的基地址有關系。
輸入范圍選擇:如使用單極性輸入，把開關置在“u”位置，此時允許0～10v，0～5v，0～1.25v模擬量輸入。如放大倍數是1，允許輸入0～10v;放大倍數是2，允許輸入 0～5v;放大倍數8，允許輸入0～1.25v。放大倍數由軟件控制。
3 動態鏈接庫dll的編寫
在vb中要利用dll進行調用來實現板卡的訪問與控制，首先要編寫動態鏈接庫dll。
在windows98 中，應用程序采取一種成為“動態鏈接庫”的特殊函數集來實現代碼和資源的共享，以最大限度地節省資源。之所以稱為“動態”，是因為它們是在運行期間鏈接到應用程序的，而不是在編譯期間。創建一個exe文件時，會有許多例程鏈接到代碼并放入exe文件中。但是dll中的例程則僅僅在實際運行時才鏈接到exe文件。按照這種方式，我們可以把幾個程序共用的代碼放到一個dll中，這樣可以節省大量的空間，提高運行效率。同時在工業控制中對計算機的底層硬件進行訪問，以及利用各種控制接口板進行數據采集和控制時間，僅靠vb是無法解決的。解決這樣的問題可以間接使用動態鏈接庫來實現。
3.1 創建dll的三個基本成分
（1） libmain函數
它是windows dll的入口點，主要用來完成一些初始化任務;
（2） 出口函數wep
windows的dll必須包含一個標準的出口函數。在dll最終卸出之前，windows調用該函數作一些必要的清除工作（如釋放一些資源等）;
（3） 自己的功能函數
windows95下vb編寫的程序是32位的，與之對應的dll也應是32位的。對于32位的dll，16位dll中的入口函數libmain、退出函數wep被dllentrypoint所代替。dllentrypoint入口和退出兩個函數服務。在每次裝入或卸下dll時，windows95調入dllentrypoint。
在vc++5.0中選擇file｜new，在new對話框中選擇project workspace，再在new project workspace對話框中選擇dynamic-link library選項，并輸入工程項目名，即可生成動態鏈接庫的工作框架。
3.2 利用vc++5.0開發的dll的完整的程序清單
//dll源文件i0.cpp
#include
#include
int far pascal outport（unsigned）
short sport）;
int far pascal outport（unsigned short port,int databyte）;
//d11entrypoint函數
bool winapi d11entrypoint
（hinstance hd11,
dworddwreason,
lpvoid reserved）
｛
　　switch（dwreason）
｛
case dll_process_attach:
　?。?br /> 　　　　break;
　?。?br /> case dll_process_detach:
　?。?br /> 　　　　break;
　?。?br /> ｝
return true;
｝
//兩個功能函數
int far pascal inport（unsigned short port）
｛
　　reture（_inp（prot）;
）
int far pascal outport（unsigned short port,int databyte）
｛
int a;
a=_outp（port,databyte）;
return a;
｝
//模塊定義文件i0.def
code preload moveable discardable
data preload single
exports
inport
outport
3.3 vb中的dll調用
dll函數或過程必須在全局模塊（＊.bas）中正確說明才有效。vb是用declare語句把一個dll函數引入vb中的，它告訴vb在哪里找到dll函數，并且讓vb知道dll需要哪種類型的參數，同時返回哪種類型的值。當某個dll函數用declare語句正確聲明以后，就可以像使用其它函數一樣使用這個dll函數。
在vb應用程序的全局模塊中聲明i0.dll并將其放入windows/system目錄下，這樣就可以向使用windows api一樣使用i098中的inport和outport函數了。
declare function inport lib"io.d11"　?。╞yval prot as integer）as long
declare function outport lib"io.d11"　?。╞yval port as integer,byval databyte as long）as long
4 應用實例
4.1 813b采集卡的初始化（采集卡基地址220h）
（1） 選通道
向22ah寫入相應的控制字選擇通道，寫入“0”表示0通道，寫入“1”代表1通道，依次類推
（2） 啟動ad轉換
向22ch寫入任意值，觸發ad轉換
（3） 讀入數據
把12位數據的低8位讀入224h，把高4位讀入225h中。
4.2 vb的編程實例
利用定時器實現定時采集在vb中,可利用定時器的interval屬性設置每秒鐘采集的次數,把采集段程序放在定時器的timer事件中來實現數據采集.對于一般計算機來講,由于受系統硬件能力的限制,定時器每秒鐘最多只能產生18個事件,若時間間隔設置得過小,將達不到預期效果
應用實例下面給出數據采集軟件程序中部分主要源代碼 以采集某0～100℃的溫度信號（經溫度變送器轉換為0～5v）為例，設定a/d板為單極性輸入方式,i/o端口基地址為220h,放大倍率為1
在module1中聲明:
declare function outport lib "io.dll" （byval portasinteger,byvaldataasinteger）
declare function inport lib"io.dll"（byval portasinteger asinteger）
dll文件已拷貝到windows的system目錄下
采集程序部分:
private sub timerwd-timer（） 　
chwd=1 //設定溫度通道號為1
x=outport（&h22a,chwd） //輸入通道號
y=outport（&h2c,0 ） //啟動a/d轉換　
j=1　
dowhilej<>0 //判斷a/d轉換是否結束
j=inport&h22a and 1　
loop
adwl=inport（&h224） //a/d結果低8位送入變量adwh
adwh=inport （&h225） //a/d結果高4位送入變量adwl
adwdata=val（adwh-224）×256+val（adwl）
//12位a/d轉換結果
vwd=adwdata×10/4095 //對應的電壓　
wd=100×vwd/5 //標度變換為實際溫度　
…
endsub
幾點說明:
數據采集值是12位，放在2個地址里，其中224h存放數據的低8位（數據7～數據0），225h的低4位存放采集數據的高4位（數據11～數據8），225h的其它位自動變為1110。



則12位ad轉換的結果為:
adwdata=val（adwh-224）×256+val（adwl），
其中224表示無采集數據時的自然值（即11100000）。
12位ad經ad轉換的最大值是212=4096
5 結束語
上述采用vb調用dll實現數據采集的方法有一定的通用性，上述程序全部經過測試通過，可作為類似控制的參考。
參考文獻
[1] 三味創作室. vb6.0應用與提高[m]. 北京:科學出版社,1999.
作者簡介
張智杰（1970-） 工程師 畢業于山東科技大學電氣自動化專業，現主要從事計算機控制系統、plc應用系統的科研與教學工作。