發(fā)表于：2002/2/8 22:55:00
#0樓
用VB開發(fā)工業(yè)控制程序的幾個(gè)問題
李光明 熊兵 周曉明
隨著新的軟件開發(fā)工具的不斷涌現(xiàn)，應(yīng)用軟件設(shè)計(jì)人員面臨的可使用的工具越來越多，令人眼花眼花繚亂，其中，Visual Basic是最為人們所容易接受的軟件開發(fā)工具之一。但是大多數(shù)使用VB進(jìn)行軟件應(yīng)用程序開發(fā)的人員都認(rèn)為，VB不能進(jìn)行工業(yè)控制程序的開發(fā)。其實(shí)不然，我們曾多次使用VB成功地實(shí)現(xiàn)了工業(yè)控制程序的開發(fā)，所開發(fā)出的產(chǎn)品業(yè)已投入實(shí)際使用。下面就其開發(fā)過程中的經(jīng)驗(yàn)介紹給大家。
平臺的選擇
使用VB開發(fā)工業(yè)控制程序，首先面臨的一個(gè)問題是平臺的選擇。目前，一般應(yīng)用軟件的開發(fā)大多數(shù)都是在Windows 9x平臺上進(jìn)行的。但是，我們認(rèn)為在選擇平臺時(shí)，應(yīng)考慮到客觀實(shí)際情況來決定。如果我們的用戶是一般的操作工人，并且在微機(jī)主板上安裝了我們自己開發(fā)的控制硬件板（如I/O板等），那么其平臺應(yīng)選擇Windows 3.x。因?yàn)橐话愕牟僮鞴と私佑|計(jì)算機(jī)較少，那么對于操作，而且在實(shí)際使用過程中，一般都可能會出現(xiàn)緊急事件或突然停電而非正常關(guān)機(jī)，此后再啟動(dòng)時(shí)，Windows 9x將首先執(zhí)行Scandisk.exe程序，或由此破壞了Windows 9x的注冊表，這將造成操作工人不知所措；如果在微機(jī)主板上安裝了我們自己開發(fā)的控制硬件板，那么Windows 9x還將要求安裝其驅(qū)動(dòng)程序，綜合這些因素，我們建議使用Windows 3.x。否則，我們可以選擇Windows 9x。我們在開發(fā)“盆腔治療儀”時(shí)，考慮到用戶為醫(yī)護(hù)人員，并且通過平行口進(jìn)行I/O控制，因此我們選擇了Windows 95；而在開發(fā)用于自動(dòng)粘貼防偽標(biāo)志的“復(fù)卷貼標(biāo)機(jī)”時(shí)，其用戶系工廠工人，并且在工控機(jī)的主板插槽上我們安裝了自行開發(fā)的I/O控制板，為此我們選擇了Windows 32。根據(jù)實(shí)際使用情況看，我們的考慮、選擇是正確的。
編寫并生成對端口操作的動(dòng)態(tài)鏈接庫
動(dòng)態(tài)連接庫是Windows應(yīng)用程序共享資源、節(jié)省內(nèi)存空間、提高使用效率的一個(gè)重要技術(shù)手段。動(dòng)態(tài)連接庫是包含數(shù)據(jù)和函數(shù)的模塊，可以被Windows的其他可執(zhí)行文件調(diào)用。它包含輸出函數(shù)和內(nèi)部函數(shù)兩種函數(shù)。輸出函數(shù)可以被其他模塊所調(diào)用，而內(nèi)部函數(shù)則只能在動(dòng)態(tài)連接庫內(nèi)部使用。一般，動(dòng)態(tài)連接庫以DLL作為其文件擴(kuò)展名。
當(dāng)前，可用于編寫動(dòng)態(tài)連接庫的工具很多，如Turbo PASCAL for Windows、Delphi、Borland C++、Visual C++等等。下面介紹我們使用Turbo PASCAL for Windows Version 1.5所編寫的一個(gè)動(dòng)態(tài)連接庫，其功能是實(shí)現(xiàn)對端口的I/O操作。
啟動(dòng)PASCAL for Windows后，在程序編輯窗口中輸入如下程序MYDLL.PAS：
Library IOLIB; {庫名為IOLIB，將編譯生成MYDLL.DLL}
function read_port(port_address:integer):integer;export;
{函數(shù)被說明為export，port_address為端口地址}
Begin
read_port:=port[port_address]; {使用預(yù)定義數(shù)組讀端口數(shù)據(jù)}
End;
procedure write_port(port_address,write_value:integer);export;
{過程被說明為export，port_address為端口地址，write_value為輸出值}
Begin
port[port_address]:=write_value; {使用預(yù)定義數(shù)組向端口寫入數(shù)據(jù)write_value}
End;
Exports {Exports語句}
read_port index 1, {定義read_port的索引號為1}
write_port index 2; {定義write_port的索引號為2}
Begin {初始化部分，本部分為空}
End.
在其菜單欄中選擇Compile/Make(或Build)，即可生成動(dòng)態(tài)連接庫MYDLL.DLL。
在VB中調(diào)用動(dòng)態(tài)鏈接庫實(shí)現(xiàn)端口的I/O操作
生成動(dòng)態(tài)連接庫MYDLL.DLL后，這樣就可以在VB程序中調(diào)用該動(dòng)態(tài)連接庫了。具體調(diào)用方法是：
⒈將該動(dòng)態(tài)連接庫拷貝到windows\system目錄下；
⒉在VB程序中創(chuàng)建模塊(Module1)，并在通用聲明（General_Declarations）中用下列語句說明該動(dòng)態(tài)連接庫：
Declare Function read_port% Lib "MYDLL.DLL" (ByVal port_address As Integer)
Declare Sub write_port Lib "MYDLL.DLL" (ByVal port_address As Integer, ByVal write_value As Integer)
⒊在需要對端口進(jìn)行I/O操作的事件中，如同調(diào)用VB的標(biāo)準(zhǔn)函數(shù)一樣調(diào)用該動(dòng)態(tài)連接庫實(shí)現(xiàn)對端口的輸入輸出操作。如：
Private Sub Command1_Click()
‘若單擊命令按鈕Command1，則從端口378H輸出02H
write_port &H378,&H2
End Sub
Private Sub Command2_Click()
‘若單擊命令按鈕Command2，則讀端口330H
Dim Port_Value As Byte
Port_Value=read_port(&H330)
End Sub
控制程序中的幾個(gè)特點(diǎn)
⒈啟動(dòng)Windows時(shí)啟動(dòng)控制程序
為了在啟動(dòng)Windows時(shí)自動(dòng)啟動(dòng)控制程序，我們可以將控制程序放到Windows 3.x的“啟動(dòng)”程序組中或Windows 9x的“啟動(dòng)”菜單中；或者在autoexec.bat中的合適位置加入如下命令：
win 控制程序的文件名
⒉取消標(biāo)題欄
為了防止控制程序被用戶多次加載，因此應(yīng)使每個(gè)窗體均為最大化，并取消最大化、最小化和控制按鈕，取消窗體的標(biāo)題欄，即如下設(shè)置窗體的四個(gè)屬性：
WindowState=2 (即Maximized)
MaxButton=False
MinButton=False
ControlBox=False
Caption=””
⒊熱鍵問題
為了使功能鍵F1～F10及光標(biāo)移動(dòng)鍵（←、→、↑、↓）等實(shí)現(xiàn)DOS環(huán)境下的熱鍵功能，應(yīng)使用對象的KeyUp或KeyDown事件，對所鍵入鍵的KeyCode進(jìn)行判別，而不要使用KeyPress事件中KeyAscii進(jìn)行判別。因?yàn)镵eyPress事件中KeyAscii并不能給出這些鍵的值。
【作者】
李光明 空軍雷達(dá)學(xué)院計(jì)算機(jī)教研室講師 讀者登記號： 07876
熊 兵 空軍雷達(dá)學(xué)院自控設(shè)備研究所
周曉明 空軍雷達(dá)學(xué)院計(jì)算機(jī)教研室講師
E-mail地址：liguangming@126.com
郵政編碼：430010
李光明 熊兵 周曉明
隨著新的軟件開發(fā)工具的不斷涌現(xiàn)，應(yīng)用軟件設(shè)計(jì)人員面臨的可使用的工具越來越多，令人眼花眼花繚亂，其中，Visual Basic是最為人們所容易接受的軟件開發(fā)工具之一。但是大多數(shù)使用VB進(jìn)行軟件應(yīng)用程序開發(fā)的人員都認(rèn)為，VB不能進(jìn)行工業(yè)控制程序的開發(fā)。其實(shí)不然，我們曾多次使用VB成功地實(shí)現(xiàn)了工業(yè)控制程序的開發(fā)，所開發(fā)出的產(chǎn)品業(yè)已投入實(shí)際使用。下面就其開發(fā)過程中的經(jīng)驗(yàn)介紹給大家。
平臺的選擇
使用VB開發(fā)工業(yè)控制程序，首先面臨的一個(gè)問題是平臺的選擇。目前，一般應(yīng)用軟件的開發(fā)大多數(shù)都是在Windows 9x平臺上進(jìn)行的。但是，我們認(rèn)為在選擇平臺時(shí)，應(yīng)考慮到客觀實(shí)際情況來決定。如果我們的用戶是一般的操作工人，并且在微機(jī)主板上安裝了我們自己開發(fā)的控制硬件板（如I/O板等），那么其平臺應(yīng)選擇Windows 3.x。因?yàn)橐话愕牟僮鞴と私佑|計(jì)算機(jī)較少，那么對于操作，而且在實(shí)際使用過程中，一般都可能會出現(xiàn)緊急事件或突然停電而非正常關(guān)機(jī)，此后再啟動(dòng)時(shí)，Windows 9x將首先執(zhí)行Scandisk.exe程序，或由此破壞了Windows 9x的注冊表，這將造成操作工人不知所措；如果在微機(jī)主板上安裝了我們自己開發(fā)的控制硬件板，那么Windows 9x還將要求安裝其驅(qū)動(dòng)程序，綜合這些因素，我們建議使用Windows 3.x。否則，我們可以選擇Windows 9x。我們在開發(fā)“盆腔治療儀”時(shí)，考慮到用戶為醫(yī)護(hù)人員，并且通過平行口進(jìn)行I/O控制，因此我們選擇了Windows 95；而在開發(fā)用于自動(dòng)粘貼防偽標(biāo)志的“復(fù)卷貼標(biāo)機(jī)”時(shí)，其用戶系工廠工人，并且在工控機(jī)的主板插槽上我們安裝了自行開發(fā)的I/O控制板，為此我們選擇了Windows 32。根據(jù)實(shí)際使用情況看，我們的考慮、選擇是正確的。
編寫并生成對端口操作的動(dòng)態(tài)鏈接庫
動(dòng)態(tài)連接庫是Windows應(yīng)用程序共享資源、節(jié)省內(nèi)存空間、提高使用效率的一個(gè)重要技術(shù)手段。動(dòng)態(tài)連接庫是包含數(shù)據(jù)和函數(shù)的模塊，可以被Windows的其他可執(zhí)行文件調(diào)用。它包含輸出函數(shù)和內(nèi)部函數(shù)兩種函數(shù)。輸出函數(shù)可以被其他模塊所調(diào)用，而內(nèi)部函數(shù)則只能在動(dòng)態(tài)連接庫內(nèi)部使用。一般，動(dòng)態(tài)連接庫以DLL作為其文件擴(kuò)展名。
當(dāng)前，可用于編寫動(dòng)態(tài)連接庫的工具很多，如Turbo PASCAL for Windows、Delphi、Borland C++、Visual C++等等。下面介紹我們使用Turbo PASCAL for Windows Version 1.5所編寫的一個(gè)動(dòng)態(tài)連接庫，其功能是實(shí)現(xiàn)對端口的I/O操作。
啟動(dòng)PASCAL for Windows后，在程序編輯窗口中輸入如下程序MYDLL.PAS：
Library IOLIB; {庫名為IOLIB，將編譯生成MYDLL.DLL}
function read_port(port_address:integer):integer;export;
{函數(shù)被說明為export，port_address為端口地址}
Begin
read_port:=port[port_address]; {使用預(yù)定義數(shù)組讀端口數(shù)據(jù)}
End;
procedure write_port(port_address,write_value:integer);export;
{過程被說明為export，port_address為端口地址，write_value為輸出值}
Begin
port[port_address]:=write_value; {使用預(yù)定義數(shù)組向端口寫入數(shù)據(jù)write_value}
End;
Exports {Exports語句}
read_port index 1, {定義read_port的索引號為1}
write_port index 2; {定義write_port的索引號為2}
Begin {初始化部分，本部分為空}
End.
在其菜單欄中選擇Compile/Make(或Build)，即可生成動(dòng)態(tài)連接庫MYDLL.DLL。
在VB中調(diào)用動(dòng)態(tài)鏈接庫實(shí)現(xiàn)端口的I/O操作
生成動(dòng)態(tài)連接庫MYDLL.DLL后，這樣就可以在VB程序中調(diào)用該動(dòng)態(tài)連接庫了。具體調(diào)用方法是：
⒈將該動(dòng)態(tài)連接庫拷貝到windows\system目錄下；
⒉在VB程序中創(chuàng)建模塊(Module1)，并在通用聲明（General_Declarations）中用下列語句說明該動(dòng)態(tài)連接庫：
Declare Function read_port% Lib "MYDLL.DLL" (ByVal port_address As Integer)
Declare Sub write_port Lib "MYDLL.DLL" (ByVal port_address As Integer, ByVal write_value As Integer)
⒊在需要對端口進(jìn)行I/O操作的事件中，如同調(diào)用VB的標(biāo)準(zhǔn)函數(shù)一樣調(diào)用該動(dòng)態(tài)連接庫實(shí)現(xiàn)對端口的輸入輸出操作。如：
Private Sub Command1_Click()
‘若單擊命令按鈕Command1，則從端口378H輸出02H
write_port &H378,&H2
End Sub
Private Sub Command2_Click()
‘若單擊命令按鈕Command2，則讀端口330H
Dim Port_Value As Byte
Port_Value=read_port(&H330)
End Sub
控制程序中的幾個(gè)特點(diǎn)
⒈啟動(dòng)Windows時(shí)啟動(dòng)控制程序
為了在啟動(dòng)Windows時(shí)自動(dòng)啟動(dòng)控制程序，我們可以將控制程序放到Windows 3.x的“啟動(dòng)”程序組中或Windows 9x的“啟動(dòng)”菜單中；或者在autoexec.bat中的合適位置加入如下命令：
win 控制程序的文件名
⒉取消標(biāo)題欄
為了防止控制程序被用戶多次加載，因此應(yīng)使每個(gè)窗體均為最大化，并取消最大化、最小化和控制按鈕，取消窗體的標(biāo)題欄，即如下設(shè)置窗體的四個(gè)屬性：
WindowState=2 (即Maximized)
MaxButton=False
MinButton=False
ControlBox=False
Caption=””
⒊熱鍵問題
為了使功能鍵F1～F10及光標(biāo)移動(dòng)鍵（←、→、↑、↓）等實(shí)現(xiàn)DOS環(huán)境下的熱鍵功能，應(yīng)使用對象的KeyUp或KeyDown事件，對所鍵入鍵的KeyCode進(jìn)行判別，而不要使用KeyPress事件中KeyAscii進(jìn)行判別。因?yàn)镵eyPress事件中KeyAscii并不能給出這些鍵的值。
【作者】
李光明 空軍雷達(dá)學(xué)院計(jì)算機(jī)教研室講師 讀者登記號： 07876
熊 兵 空軍雷達(dá)學(xué)院自控設(shè)備研究所
周曉明 空軍雷達(dá)學(xué)院計(jì)算機(jī)教研室講師
E-mail地址：liguangming@126.com
郵政編碼：430010
