在VB下PC機與MCS-51單片機的串行通信
在開發(fā)微機控制及數據采集的系統(tǒng)中,經常需要通過RS232接口實現PC機與單片機之間的串行通信。在DOS時代,程序員須要具備相當的硬件知識,才有可能著手編寫PC下的串行通信程序。而當今在VB下,利用現有的Microsoft Comm control控件,只需要編寫少量的程序代碼,就可以輕松、高效地完成任務。更何況Visual Basic是目前廣受程序員喜愛的可視化編程語言,利用它還能夠編寫出Windows下漂亮的應用程序。
一、 Microsoft Comm control控件簡介
微軟公司提供的Microsoft Comm control控件(簡稱MSComm)為編程者提供了簡化的Windows下的串行通信編程,使編程者不必掌握諸多關于硬件方面的知識。它提供了兩種處理串行通信的方法:一是事件驅動方法;二是查詢法。
1. 事件驅動法
這是一種很強的處理串口活動的方法。當串口接收到或發(fā)送完指定數量的數據時,或當狀態(tài)發(fā)生改變時,MSComm 控件都將觸發(fā)OnComm事件,該事件也可以捕獲通信中的錯誤。當應用程序捕獲到這些事件后,可通過檢查MSComm控件的CommEvent屬性的值來獲知所發(fā)生的事件或錯誤,從而執(zhí)行相應的處理。這種方法具有程序響應及時,可靠性高等優(yōu)點。
2. 查詢法
可以在每個重要的程序之后查詢MSComm控件某些屬性(如CommEvent屬性和InBufferCount屬性)的值來檢測事件和通信錯誤。這對小的自含程序可能比較常用。
MSComm控件有許多重要的屬性,其中幾個重要的屬性如下:
· CommPort: 設置或返回通信端口。為1時對應COM1;為2時對應COM2。
· Settings: 設置或返回波特率、奇偶校驗、數據位和停止位參數。
· PortOpen: 打開或關閉通信口。
· Input: 讀取或刪除緩沖區(qū)中的數據流。
· Output: 將數據寫入發(fā)送緩沖區(qū)。
· InputLen: 設置和返回Input屬性從接收緩沖區(qū)中讀取的字節(jié)數。
· InputMode: 設置和返回的類型。該屬性為0時,Input屬性所檢取的數據是文本;為1時,Input屬性所檢取的數據是二進制數據。這個屬性對與單片機的通信尤為重要。
二、 通信線路連接
PC機的某個串行口通過電纜線與RS232收發(fā)器MAX232的232電平端口三線交叉連接,如圖1所示。MAX232的邏輯電平端口與單片機的串行口相連。PC機RS232的9針連接器的4腳和6腳、7腳和8腳不用連接。
圖1 PC機與單片機的通信接口電路框圖
三、 編程實現
1. 實現功能
因本程序為通信演示程序,所以功能較為簡單。具體功能為利用鍵盤在PC機中輸入一個6字節(jié)(12位的 0~9,A~F)的二進制數,然后用鼠標點擊通信命令按鈕,PC機就將此二進制數發(fā)給單片機,單片機收到此數后再原樣發(fā)回,PC機收到后顯示在窗體上。試驗者可通過肉眼比較發(fā)送和接收的兩個數據,檢驗通信是否成功。
2. 通信協(xié)議
波特率:19.2kb/s;無奇偶校驗;8位數據位;1位停止位。
3. PC機VB程序
(1) 在工程項目中添加一個窗體,取名為frmcomm,設置其Caption屬性為通信。
(2) 在窗體中添加兩個大小一樣的文本框,分別取名為txtSend和txtRcv。
(3) 在窗體中添加一個命令按鈕,取名為cmdcomm,設置其Caption屬性為通信。
(4) 在窗體中添加MSComm控件,取名為MSComm1。
(5) 打開代碼窗口,在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個字節(jié)
MSComm1.PortOpen=True′打開串行口
MSComm1.InputMode=comInputModeBinary′從串口 ′讀取二進制數據
MSComm1.Output=Senddat′發(fā)送數據
Do Until MSComm1.InBufferCount >= 6′查詢方式,等 ′待接收到6個字節(jié)
DoEvents
Loop
dattemp=MSComm1.Input′從串口讀取數據至變體變量
Rcvdat=dattemp′數據送至接收二進制數組
txtRcv.Text=""
For i=0 To 5′接收數據送至接收文本框txtRcv顯示
txtRcv.Text=txtRcv.Text Right("0" Hex(Rcvdat(i)),2)
Next i
MSComm1.PortOpen=False′關閉串行口
cmdcomm.Enabled=True′使能cmdcomm接鈕
End Sub
(6) 選擇開始-運行。用PC機鍵盤在輸入文本框中輸入要發(fā)送的6字節(jié)二進制數據,然后用鼠標點擊通信按鈕即可。
4. 單片機C51程序
MCS-51單片機晶振為11.0592MHz,串行口的工作方式設置為方式1,10位異步收發(fā)。采用查詢方式接收和發(fā)送,程序清單如下:
#include
main() {
uchar temp,datmsg[6];
TMOD=0x20; //設置波特率為19.2kb/s
PCON=0x80;
TH1=0xfd; TL1=0xfd;
TR1=1; //啟動定時器1
SCON=0x50; //設置串行口為10位異步收發(fā),且允許 //接收
while(1) {for(temp=0;temp6;temp++) //連續(xù)接收6個 //字節(jié)
{while(RI==0); RI=0;
datmsg[temp]=SBUF;
}
for(temp=0;temp6;temp++)//連續(xù)發(fā)送6個 //字節(jié)
{SBUF=datmsg[temp]; while(TI==0);TI=0;
}
}
}
結束語
由于篇幅所限,本程序僅為演示參考程序,并無實際意義。但它展示了PC機和單片機串行通信的一般方法以及在VB 中處理二進制數據的方法,使得單片機和PC機的應用能夠更加緊密地結合在一起。讀者可在此基礎上加入一些握手信號和檢錯碼,如奇偶校驗、累加和校驗及循環(huán)冗余校驗(CRC)等等,便可成為自己的應用程序。
評論