今日頭條
官方微信
官方抖音
案例頻道
越來越多的微機(jī)用戶已習(xí)慣于Windows操作系統(tǒng)。不過Windows應(yīng)用軟件的開發(fā)對(duì)于一般工程技術(shù)領(lǐng)域的技術(shù)人員來說并非易事，然而使用微軟的VisualBasic6.0（簡(jiǎn)稱VB6）來開發(fā)這些方面的Windows應(yīng)用軟件就十分方便，編程工作量相對(duì)較小，只需進(jìn)行主要應(yīng)用功能的編程和少量界面控制的編程。本文介紹利用VB6串行通信編程的方法對(duì)采用了RS-232接口的儀器,進(jìn)行串行通信的計(jì)算機(jī)測(cè)控軟件開發(fā)和實(shí)現(xiàn)儀器功能和指標(biāo)的驗(yàn)收。
VB6提供了許多供用戶選擇的控件（Customcontrol），這些控件以.OCX為文件后綴名，其中MSCOMM.OCX即是用于串行通信的控件。如果需要使用該控件，可將該控件添加到工具箱（toolbox）內(nèi)，這樣就可以利用該控件進(jìn)行串行通信程序的設(shè)計(jì)。
下面舉一個(gè)簡(jiǎn)單的例子，說明如何進(jìn)行串行通信程序的設(shè)計(jì)，該程序在Windows98環(huán)境下已調(diào)試通過。該例介紹通過RS-232對(duì)一臺(tái)HP53150A微波計(jì)數(shù)器的程控功能和性能指標(biāo)的驗(yàn)收。
1 設(shè)計(jì)用戶界面
首先新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，然后選擇“工程/部件”菜單項(xiàng)，在“部件”對(duì)話框中選擇Microsoft Comm Control6.0即可添加MsComm控件；再在窗體中依次布置如下控件并設(shè)置其屬性。
|
控件名稱 |
name 屬性 |
Caption 屬性 |
|
Form |
form1 |
空 |
|
Frame1 |
frame1 |
空 |
|
Frame2 |
frame2 |
空 |
|
Frame3 |
frame3 |
空 |
|
Command1 |
comd1 |
確定 |
|
Command2 |
comd2 |
退出 |
|
Command3 |
comd3 |
確定 |
|
Command4 |
comd4 |
退出 |
|
Command5 |
comd5 |
做完退出 |
|
MSComm |
msc1 |
空 |
|
Label 1 |
lab1 |
RS-232 接口功能檢測(cè) |
|
Label 2 |
lab2 |
請(qǐng)輸入被檢儀器程控碼控制儀器功能 |
|
Label 3 |
lab3 |
請(qǐng)輸入被檢儀器程控碼讀取儀器數(shù)據(jù) |
|
Text1 |
txt1 |
空 |
|
Text2 |
txt2 |
空 |
2 編寫程序代碼
編寫的程序代碼如下：
|
PriVate Sub Form_Load （） |
|
Msc1.CommPort=1 使用串行口 1 |
|
波特率 9600 ，偶校驗(yàn)， 8 個(gè)數(shù)據(jù)位， 1 個(gè)停止位 |
|
Msc 1.Settings=“9600 ， E ， 8 ， 1” |
|
當(dāng)使用 Msc 1.Input 時(shí)，每次從接收緩沖區(qū)取一個(gè)字節(jié)。 |
|
Msc1.InputLen=0 讀取整個(gè)接收緩沖區(qū)內(nèi)碼或消除 |
|
Msc1.Portopen=True 打開串行口 |
|
End Sub |
|
Private Sub Comd1_Click （） |
|
On Error Resume Next 簡(jiǎn)單的錯(cuò)誤處理 |
|
If Txt1.Text = "" Then |
|
x = MsgBox （ " 被檢儀器程控碼不能為空值 ", 16 ） |
|
Exit Sub |
|
End If |
|
MSC1.Output = Txt1.Text + Chr$ （ 13 ） |
|
發(fā)送程控碼 |
|
For i = 1 To 20000000 |
|
Next |
|
End Sub |
|
Private Sub Comd2_Click （） |
|
Txt1.Text = "" |
|
Txt1.SetFocus |
|
End Sub |
|
Private Sub Comd3_Click （） |
|
Dim instring As string |
|
instring = MSC1.Input |
|
MSC1.Output = Txt2.Text + Chr$ （ 13 ） |
|
Do |
|
DoEvents |
|
Loop Until MSC1.InBufferCount >= 20 |
|
instring = MSC1.Input 從接收隊(duì)列中讀入字符串 |
|
Txt2.Text = "" |
|
Txt2.Text = instring 顯示讀入的字符串 |
|
End Sub |
|
Private Sub Comd4_Click （） |
|
Txt2.Text = "" |
|
Txt2.SetFocus |
|
End Sub |
|
Private Sub Comd5_Click （） |
|
MSC1.PortOpen = False 關(guān)閉串行口 |
|
End |
|
End Sub |
3 程序簡(jiǎn)要說明
上述程序設(shè)置的端口通信協(xié)議為： 9600波特率，偶校驗(yàn)，8個(gè)數(shù)據(jù)位，1個(gè)停止位。當(dāng)退出程序時(shí)，一定要關(guān)閉串行口，通過comm1.PortOpen=False完成。使用時(shí)，在“請(qǐng)輸入被檢儀器程控碼控制儀器功能”文本框中輸入“FUNC‘FREQ 1；FREQ：RES1HZ”即儀器的程控碼為：“功能通道1測(cè)頻，分辨率為1Hz。單擊“確定”后，HP53150A置于相應(yīng)功能。加入信號(hào)后即可測(cè)量檢測(cè)，當(dāng)讀取測(cè)量數(shù)據(jù)時(shí)在“請(qǐng)輸入被檢儀器程控碼讀取儀器數(shù)據(jù)”框中輸入“DATA？”，單擊“確定”后，該框中以字符的形式顯示測(cè)量結(jié)果。從而實(shí)現(xiàn)儀器程控功能和性能指標(biāo)的檢測(cè)。上述只是一個(gè)簡(jiǎn)單的例子。要實(shí)現(xiàn)完善的功能，必須進(jìn)一步改進(jìn)程序。
上面介紹了筆者在使用 VB6 開發(fā) Windows 環(huán)境下測(cè)控軟件的一點(diǎn)收獲，可以看出使用 VB6 開發(fā) Windows98 下與儀器進(jìn)行串口通信程序是非常簡(jiǎn)單的。
北京市公安局海淀分局備案號(hào)：11010802023656號(hào)