PC機與單片機多機實時通信的設計與實現(xiàn)
在多媒體語音教學系統(tǒng)中,主計算機與各學生機之間需要進行雙向指令傳送。由于串行通信具有高效、可靠、價格便宜等優(yōu)點,故本系統(tǒng)采用了串行通信的方法。 Windows95是非實時操作系統(tǒng),對此本系統(tǒng)設計了以單片機為核心的智能接口單元,負責完成與64臺從機的實時通信。整個通信系統(tǒng)由一臺PC機和一臺負責通信及相關分組配對功能的智能接口單元和64臺以單片機為核心的學生單元組成。本系統(tǒng)的單片機采用89C51。智能接口單元通過串行接口芯片8251 及電平轉換器MAX202與主機通信,通過單片機自帶串口用RS-485接口芯片MAX487與從單片機之間進行通信。智能接口單元與6臺從單片機之間為總線式網絡結構,采用RS-485接口標準。這是半雙工的串行通信接口標準,由于采用平衡驅動差分接收電路,具有抗干擾能力強的特點,適用于遠距離、高速率下的多機通信。拓撲結構示意圖如圖1所示。硬件接口示意圖見圖2。
1 通信協(xié)議的約定
在通信過程中,PC機將指令打包后發(fā)給智能接口單元(以下簡稱主單片機)。主單片機收到完整一包后將包解開,按對每個從機的指令分別發(fā)送,同時將各從機發(fā)給PC機的指令送給PC 機。由于64個從機和主單片機使用同一串口通信線,為避免發(fā)生沖突,主單片機處于主動狀態(tài),按一定的定時間隔與每一臺從機順序通信。主單片機在與每一臺從機通信過程中先發(fā)送地址,從機收到地址后若與自己的地址一致,則繼續(xù)接收主單片機發(fā)來的一個字節(jié)的命令碼,從機收到命令后,將自己的一個字節(jié)的命令發(fā)送到主單片機。主單片機完成與64個從機的通信需要64個定時間隔,只要定時間隔足夠短,主單片機與從機基本上可以實現(xiàn)實時通信。在整個通信過程中,主單片機起著通信樞紐的作用。
2 Windows95下實現(xiàn)串行通信的方法
Visual Basic 6.0提供了功能強大的MSCOMM.VBX通信控件,它提供了通過串口發(fā)送和接收數(shù)據(jù)的通信能力,不但包括了全部WindowsAPI中關于串行通信的 16個函數(shù)所完成的功能,而且開拓了更多的方便用戶設計的對象屬性來滿足不同用戶不同業(yè)務的需求。該通信控件可以采用事件驅動和查詢方式來處理和解決通信軟件的開發(fā)和設計。其中事件驅動是較常用的方式。該控件使用OnComm事件來實現(xiàn)對通信中出現(xiàn)的相關事件以及檢測和處理通信錯誤等方面的問題的處理。例如,根據(jù)RThreshold 屬性設置值,當接收緩沖區(qū)內接收到相應字節(jié)的字符時,引發(fā)OnComm事件,在事件處理程序中接收數(shù)據(jù)。
Private Sub Form—Load() '完成對串口控件的初始化
MSComm1.CommPort = 1 '選用COM1串行口
MSComm1.Settings= "9600,N,8,1"'9600波特率,無奇偶校驗,8位數(shù)據(jù),一位停止位。
MSComm1.InputLen= 0 '當輸入占用時,告訴控件讀入整個緩沖區(qū)。
MSComm1.InBufferSize=1024 '設置接收緩沖的字節(jié)長度
MSComm1.InBufferCount=0 '清除接收緩沖區(qū)數(shù)據(jù)
MSComm1.OutBufferCount=0 '清除發(fā)送緩沖區(qū)數(shù)據(jù)
MSComm1.RThreshold= 3 '接收緩沖區(qū)接收到3個字符后引發(fā)OnComm事件。
MSComm1.InputMode= comInputModeBinary '接收二進制格式的數(shù)據(jù)
MSComm1.PortOpen= True '打開端口。
End Sub
Private Sub MSComm1—OnComm() '處理OnComm事件
Dim Buf As Variant
Dim Data() As Byte
Select Case MSComm1.CommEvent
Case comEventRxOver '接收緩沖區(qū)溢出。
MsgBox "接收緩沖區(qū)溢出"
Case comEventTxFull '傳輸緩沖區(qū)已滿。
MsgBox "傳輸緩沖區(qū)已滿"
Case comEvReceive ' 收到 RThreshold # of Data
Buf = MSComm1.Input
Data = Buf
'
'在這里可加入對接收數(shù)據(jù)的處理
'
End Select
End Sub
發(fā)送程序較為簡單,可對Output屬性賦值完成。
Private Sub Command1—Click() '處理發(fā)送命令
Dim Buf As Variant
Dim Data(66) As Byte '定義發(fā)送數(shù)據(jù)的字節(jié)數(shù)組
'
'將需發(fā)送的數(shù)據(jù)賦給Data數(shù)組
'
Buf = Data
MSComm1.Output = Buf
End Sub
評論