用VB 編程語言實現(xiàn)PC機與AVR 單片機的通信
加入技術(shù)交流群
圖2 程序流程圖
以下是加載窗體時對MSCOMM 控件的初
始化設(shè)置
Private Sub Form Load ()
With MSComm1
. CommPort = 1 ’設(shè)置通訊端口
. InBufferCount = 0 ’清空緩沖區(qū)
. InBufferSize = 5 000
’設(shè)置通訊波特率等
. Settings = “9 600 , n ,8 ,1”
If (PortOpen = False) Then
PortOpen = True
End if’將取出的數(shù)據(jù)設(shè)置為二進(jìn)制
. InputMode = comInputModeBinary
End With
End Sub
接收按鈕按下時,定時器啟動,開始檢查緩沖區(qū)中是否有數(shù)據(jù)。本系統(tǒng)定義了2 個定時器,一個用于對通訊協(xié)議中起始符和命令碼的檢測,另一個用于控制信息段的數(shù)據(jù)流。
接收數(shù)據(jù)時,定義一個變體(Variant) 類型的變量tempbuf ,將緩沖區(qū)內(nèi)的數(shù)據(jù)賦給此變量tempbuf = MSComm1. Input ,同時還要定義一個字節(jié)(Byte) 型的數(shù)組變量indate () ,再次賦值indate = tempbuf ,這樣就可以操作indate () 中的數(shù)據(jù)了。
由于Input 屬性在取出數(shù)據(jù)后會自動清空緩沖區(qū),因此不再需要用其他代碼強制清空。
為了解決傳輸干擾的問題,還要求上位機給下位機發(fā)送數(shù)據(jù),以通知下位機接收的數(shù)據(jù)是否無誤,從而使下位機決定是否重新發(fā)送數(shù)據(jù)。
發(fā)送數(shù)據(jù)時,定義一字符串(St ring) 類型的數(shù)組變量outdate ( ) ,將需要發(fā)送的數(shù)據(jù)賦給變量,然后用下面語句發(fā)送MSComm1. Output = CVar (outdate)
5 硬件實現(xiàn)
實現(xiàn)電路如圖3 所示。
AT90 系列單片機帶有一個全雙工的通用串行異步收發(fā)器(UART) ,數(shù)據(jù)傳送通過把被傳送的數(shù)據(jù)寫入UART I/ O寄存器UDR 來初始化,在波特率時鐘加載到移位寄存器的傳送操作時,起始位從TXD 引腳移出,然后是數(shù)據(jù),低位在先。當(dāng)停止位被移出時UDR 寄存器中沒有新的數(shù)據(jù),UDRE 標(biāo)志位將保
持為1 直到UDR 被重寫。而在數(shù)據(jù)接收時,接收器前端的邏輯以16 倍波特率采樣RXD 引腳的信號。如果一個有效的起始位被發(fā)現(xiàn),就開始起始位之后的數(shù)據(jù)位的采樣,在采樣的同時,這些位被移入傳送移位寄存器。當(dāng)停止位到來時,3 個采樣中的大數(shù)應(yīng)為1 才能接收該停止位。
圖3 硬件實現(xiàn)電路
6 結(jié)束語
本系統(tǒng)試運行已經(jīng)成功,說明MSCOMM 控件完全可以實現(xiàn)各種高速復(fù)雜的串行通信協(xié)議,具有很高的實用價值。
參 考 文 獻(xiàn)
[1 ] 耿德根,宋建國,馬潮. AVR 高速嵌入式單片機原理與應(yīng)用[M] . 北京:北京航空航天大學(xué)出版社,
2001.
[2 ] 東箭工作室. Visual Basic 5. 0 中文版程序設(shè)計[M] . 北京:清華大學(xué)出版社,1997.InBufferSize :設(shè)置并返回接收緩沖區(qū)的字節(jié)數(shù)。
單片機相關(guān)文章:單片機教程
單片機相關(guān)文章:單片機視頻教程
單片機相關(guān)文章:單片機工作原理
數(shù)字通信相關(guān)文章:數(shù)字通信原理
通信相關(guān)文章:通信原理
評論