在VB下PC機與MCS-51單片機的串行通信

　　在開(kāi)發(fā)微機控制及數據采集的系統中，經(jīng)常需要通過(guò)RS232接口實(shí)現PC機與單片機之間的串行通信。在DOS時(shí)代，程序員須要具備相當的硬件知識，才有可能著(zhù)手編寫(xiě)PC下的串行通信程序。而當今在VB下，利用現有的Microsoft Comm control控件，只需要編寫(xiě)少量的程序代碼，就可以輕松、高效地完成任務(wù)。更何況Visual Basic是目前廣受程序員喜愛(ài)的可視化編程語(yǔ)言，利用它還能夠編寫(xiě)出Windows下漂亮的應用程序。

一、 Microsoft Comm control控件簡(jiǎn)介

　　微軟公司提供的Microsoft Comm control控件（簡(jiǎn)稱(chēng)MSComm）為編程者提供了簡(jiǎn)化的Windows下的串行通信編程，使編程者不必掌握諸多關(guān)于硬件方面的知識。它提供了兩種處理串行通信的方法：一是事件驅動(dòng)方法；二是查詢(xún)法。

1. 事件驅動(dòng)法

　　這是一種很強的處理串口活動(dòng)的方法。當串口接收到或發(fā)送完指定數量的數據時(shí)，或當狀態(tài)發(fā)生改變時(shí)，MSComm 控件都將觸發(fā)OnComm事件，該事件也可以捕獲通信中的錯誤。當應用程序捕獲到這些事件后，可通過(guò)檢查MSComm控件的CommEvent屬性的值來(lái)獲知所發(fā)生的事件或錯誤，從而執行相應的處理。這種方法具有程序響應及時(shí)，可靠性高等優(yōu)點(diǎn)。

2. 查詢(xún)法

　　可以在每個(gè)重要的程序之后查詢(xún)MSComm控件某些屬性（如CommEvent屬性和InBufferCount屬性）的值來(lái)檢測事件和通信錯誤。這對小的自含程序可能比較常用。

　　MSComm控件有許多重要的屬性，其中幾個(gè)重要的屬性如下：

　　· CommPort： 設置或返回通信端口。為1時(shí)對應COM1；為2時(shí)對應COM2。
　　· Settings： 設置或返回波特率、奇偶校驗、數據位和停止位參數。
　　· PortOpen： 打開(kāi)或關(guān)閉通信口。
　　· Input： 讀取或刪除緩沖區中的數據流。
　　· Output： 將數據寫(xiě)入發(fā)送緩沖區。
　　· InputLen： 設置和返回Input屬性從接收緩沖區中讀取的字節數。
　　· InputMode： 設置和返回的類(lèi)型。該屬性為0時(shí)，Input屬性所檢取的數據是文本；為1時(shí)，Input屬性所檢取的數據是二進(jìn)制數據。這個(gè)屬性對與單片機的通信尤為重要。

二、 通信線(xiàn)路連接

　　PC機的某個(gè)串行口通過(guò)電纜線(xiàn)與RS232收發(fā)器MAX232的232電平端口三線(xiàn)交叉連接，如圖1所示。MAX232的邏輯電平端口與單片機的串行口相連。PC機RS232的9針連接器的4腳和6腳、7腳和8腳不用連接。

圖1 PC機與單片機的通信接口電路框圖

三、 編程實(shí)現

1. 實(shí)現功能

　　因本程序為通信演示程序，所以功能較為簡(jiǎn)單。具體功能為利用鍵盤(pán)在PC機中輸入一個(gè)6字節（12位的 0~9，A~F）的二進(jìn)制數，然后用鼠標點(diǎn)擊通信命令按鈕，PC機就將此二進(jìn)制數發(fā)給單片機，單片機收到此數后再原樣發(fā)回，PC機收到后顯示在窗體上。試驗者可通過(guò)肉眼比較發(fā)送和接收的兩個(gè)數據，檢驗通信是否成功。

2. 通信協(xié)議

　　波特率：19.2kb/s；無(wú)奇偶校驗；8位數據位；1位停止位。

3. PC機VB程序

　　(1) 在工程項目中添加一個(gè)窗體，取名為frmcomm，設置其Caption屬性為通信。
　　(2) 在窗體中添加兩個(gè)大小一樣的文本框，分別取名為txtSend和txtRcv。
　　(3) 在窗體中添加一個(gè)命令按鈕，取名為cmdcomm，設置其Caption屬性為通信。
　　(4) 在窗體中添加MSComm控件，取名為MSComm1。
　　(5) 打開(kāi)代碼窗口，在cmdcomm控件的Click事件中加入以下程序代碼：

Private Sub cmdcommClick()
　　Dim Senddat(5) As Byte,Rcvdat() As Byte,
　　　　dattemp As Variant,i As Integer
　　cmdcomm.Enabled=False′使cmdcomm按鈕失效
　　For i=0 To 5′從發(fā)送文本框txtSend獲取發(fā)送數據
　　　　Senddat(i)="H" Mid(txtSend.Text,i * 2+1,2)
　　Next i
　　MSComm1.CommPort=1′設置端口號為1
　　MSComm1.Settings="19200,N,8,1"′設置波特率等通 ′信協(xié)議
　　MSComm1.InputLen=6′設置一次從串口讀取6個(gè)字節
　　MSComm1.PortOpen=True′打開(kāi)串行口
　　MSComm1.InputMode=comInputModeBinary′從串口 ′讀取二進(jìn)制數據
　　MSComm1.Output=Senddat′發(fā)送數據
　　Do Until MSComm1.InBufferCount >= 6′查詢(xún)方式，等 ′待接收到6個(gè)字節
　　　　DoEvents
　　Loop
　　dattemp=MSComm1.Input′從串口讀取數據至變體變量
　　Rcvdat=dattemp′數據送至接收二進(jìn)制數組
　　　　txtRcv.Text=""
　　For i=0 To 5′接收數據送至接收文本框txtRcv顯示
　　　　txtRcv.Text=txtRcv.Text Right("0" Hex(Rcvdat(i)),2)
　　Next i
　　MSComm1.PortOpen=False′關(guān)閉串行口
　　cmdcomm.Enabled=True′使能cmdcomm接鈕
End Sub

　　(6) 選擇開(kāi)始-運行。用PC機鍵盤(pán)在輸入文本框中輸入要發(fā)送的6字節二進(jìn)制數據，然后用鼠標點(diǎn)擊通信按鈕即可。

4. 單片機C51程序

　　MCS-51單片機晶振為11.0592MHz，串行口的工作方式設置為方式1，10位異步收發(fā)。采用查詢(xún)方式接收和發(fā)送,程序清單如下：

#include
#include uchar unsigned char
main() {
　　uchar temp,datmsg[6];
　　TMOD=0x20; //設置波特率為19.2kb/s
　　PCON=0x80;
　　TH1=0xfd; TL1=0xfd;
　　TR1=1; //啟動(dòng)定時(shí)器1
　　SCON=0x50; //設置串行口為10位異步收發(fā),且允許 //接收
　　while(1) {for(temp=0;temp6;temp++) //連續接收6個(gè) //字節
　　　　{while(RI==0); RI=0;
　　　　datmsg[temp]=SBUF;
　　　　}
　　　　for(temp=0;temp6;temp++)//連續發(fā)送6個(gè) //字節
　　　　{SBUF=datmsg[temp]; while(TI==0);TI=0;
　　　　}
　　}
}

結束語(yǔ)

　　由于篇幅所限，本程序僅為演示參考程序，并無(wú)實(shí)際意義。但它展示了PC機和單片機串行通信的一般方法以及在VB 中處理二進(jìn)制數據的方法，使得單片機和PC機的應用能夠更加緊密地結合在一起。讀者可在此基礎上加入一些握手信號和檢錯碼，如奇偶校驗、累加和校驗及循環(huán)冗余校驗（CRC）等等，便可成為自己的應用程序。