【文章內(nèi)容簡介】 ，因此基于 Visual Basic 設(shè)計了一套振動波形觀測平臺。 VB 包含了許多基于不同功能的控件，其中就包括串口通信控件，控件中包含基于串口通信的方法和事件類型。 在平臺軟件設(shè)計中初始化串口是其中重要部分，串口的初始化包含串口號選擇、接收緩沖區(qū)大小、接收數(shù)據(jù)類型、串口狀態(tài)和是否清空緩沖區(qū)等等， 如下是上位機串口初始化函數(shù)： Private Sub Form_Load() Dim i As Integer, j As Integer kk = 0 liu = 0 rliu = 0 Call init = 9600,N,8,1 = 3 39。設(shè)定串口，為 1 為 m1 = 8 = 2 If = True Then = False 39。關(guān)串口 15 = 4 = 1 39。 = 0 = 1 If = False Then = True = 0 39。清空接收緩沖區(qū) 39。 = 0 End Sub 在 PC 機與下位機設(shè)備通信過程中波特率設(shè)置為 9600， 串 口號為 3，緩沖區(qū)大小設(shè)置為 8 個字節(jié)。 當(dāng)串口有數(shù)據(jù)傳輸?shù)?PC 機時，會引發(fā) MSComm1_OnComm()事件，在事件中主要負責(zé)將數(shù)據(jù)存入緩沖區(qū)，并且將數(shù)據(jù)調(diào)整為符合顯示界面要求的值。然后根據(jù)前后值利用Line 方法劃線。 如下是事件觸發(fā)函數(shù) : Private Sub MSComm1_OnComm() Dim rec As Integer Dim n As Integer intInputLen = Select Case Case EvReceive bytInput = For n = 0 To intInputLen 1 39。 = bytInput(n) rec = bytInput(n) liu = rec * (kk 20, rliu)(kk, liu), RGB(255, 255, 255) rliu = liu kk = kk + 20 If kk = 10000 Then kk = 0 Cls Call init End If Next n = 0 39。清空接收緩沖區(qū) End Select End Sub 16 系統(tǒng)調(diào)試 調(diào)試前首先檢查電路連線是否正確，再檢查元器件的安裝情況，檢查元器件引腳之間有無短路和虛焊現(xiàn)象，尤其是電源和地腳，電解電容、發(fā)光二極管、電源“ +”、“ ”極不要接反。把經(jīng)過準(zhǔn)確測量的電源接入電路。觀察有無異?，F(xiàn)象，包括有無元 器件發(fā)熱、 冒煙有異味 、 電源是否有短路現(xiàn)象等；如有 出 現(xiàn) 上術(shù) 象 發(fā)生 ，應(yīng)立 刻 斷 開電路 電源，檢查電路故障 并 根據(jù)檢查結(jié)果 對參數(shù) 進行 修正。 經(jīng)多次調(diào)試得到了想 要達到的效果，在電腦上顯示所測得的振動波形，在數(shù)碼管上顯示測得振動的波形的振幅。 圖 10 系統(tǒng)調(diào)試圖 五． 收獲與 展望 六 .謝詞 歷時將近兩個月的時間終于將這篇論文寫完，在寫論文 和制作實物 過程中遇到了 很多 的困難和障礙，都在同學(xué)和老師的幫助下度過了。尤其要強烈感謝我的論文指導(dǎo)老師 鄺雄老師， 他 對我進行了無私的指導(dǎo)和幫助，不厭其煩的幫助 我 進行論文的修 正 和改進。另外，在校圖書館查找資料的時候，圖書館的老師也給我提供了很多方面的支持與幫助。在此向幫助和指導(dǎo)過我的各位老師表示最 誠摯的謝意。 感謝這篇論文所 涉及到的各位學(xué)者。本文引用了數(shù)位學(xué)者的研究文獻，如果沒有各位學(xué)者的研究成果的幫助和啟發(fā)，我將很難完成本篇論文的寫作。 感謝我的同學(xué)和朋友，在我寫論文的過程中給予我了很多你問素材，還在論文的撰寫和排版 等 過程中提供熱情的幫助。 由于我的學(xué)術(shù)水平有限，所寫論文難免有不足之處，懇請各位老師和學(xué)友批評和指正！ 17 參考文獻 ： [1] 牛昱光 .單片機原理與接口技術(shù) [M].北京 :電子工業(yè)出版社 [2] 郭天祥 .51單片機 C語言教程入門提高開發(fā)拓展全攻略 [M].北京 .電子工業(yè)出版社， 20216 [3] 張常年 .國外電子元 器件 .北方工業(yè)大學(xué)工學(xué)院 [J].北京 ,20212,(2):2023. [4] 楊素行 .模擬電子技術(shù)基礎(chǔ)簡明教程 . 北京 .高等教育出版社， 20215 [5] 余孟嘗 .數(shù)字電子技術(shù)基礎(chǔ)簡明教程 .北京 .高等教育出版社， 20217 [6] 黃智偉 .全國大學(xué)生電子設(shè)計競賽訓(xùn)練教程 .電子工業(yè)出版社 .20216(4) 附錄一：程序 Dim liu As Double Dim rliu As Double Dim kk As Integer Private Sub Command1_Click() If = True Then = False End End Sub Private Sub Form_Load() Dim i As Integer, j As Integer kk = 0 liu = 0 rliu = 0 Call init = 9600,N,8,1 = 4 39。設(shè)定串口，為 1 為 m1 18 = 8 = 2 If = True Then = False 39。關(guān)串口 = 4 = 1 39。 = 0 = 1 If = False Then = True = 0 39。清空接收緩沖區(qū) 39。 = 0 End Sub Private Sub MSComm1_OnComm() Dim rec As Integer Dim n As Integer intInputLen = Select Case Case EvReceive bytInput = For n = 0 To intInputLen 1 39。 = bytInput(n) rec = bytInput(n) liu = rec * (kk 20, rliu)(kk, liu), RGB(255, 255, 255) rliu = liu kk = kk + 20 If kk = 10000 Then kk = 0 Cls Call init End If Next n = 0 39。清空接收緩沖區(qū) End Select End Sub Private Function init() (0, 6000)(10000, 1000) = 1 = 3 For j = 500 To 5000 Step 500 (0, j)(10000, j), RGB(0, 255, 255) Next CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 0: CurrentY = 5000: Print 振動極限 = 2 19 = 0 (0, 5000)(10000, 5000), RGB(255, 10, 0) (0, 0)(10000, 0), RGB(255, 10, 0) End Function 數(shù)碼管顯示程序 include include define uint unsigned int define uchar unsigned char sbit adrd=P3^7。 //IO 口定義 sbit adwr=P3^6。 sbit diola=P2^5。 sbit dula=P2^6。 sbit wela=P2^7。 unsigned char j,k,adval。 void delay(unsigned char i) //延時程序 { for(j=i。j0。j) for(k=125。k0。k)。 } uchar code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d, //數(shù)碼管編碼 0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71}。 void display(uchar bai_c,uchar sh_c,uchar g_c) //顯示程序 { P0=table[bai_c]。 //顯示百位 dula=1。 dula=0。 P0=0xfe。 wela=1。 wela=0。 delay(5)。 dula=0。 P0=table[sh_c]。 //顯示十位 dula=1。 dula=0。 wela=0。 P0=0xfd。 wela=1。 wela=0。 delay(5)。 P0=table[g_c]。 //顯示個位 20 dula=1。 dula=0。 P0=0xfb。 wela=1。 wela=0。 delay(5)。 } void main() { uchar a,A1,A2,A2t,A3。 TMOD=0x20。 TH1=0xfd。 TL1=0xfd。 TR1=1。 SM0=0。 SM1=1。 REN=1。 EA=1。 ES=1。 while(1) { wela=1。 P0=0。 adwr=0。 _nop_()。 adwr=1。 P0=0xff。