【正文】 3 附錄 1 材料清單 變壓器（ 220v 轉 12v），整流橋（ 1 個），瓷片電容（ 6 個 2 個 22pf） ,電解電容（ 22uf/50v 1 個 1000uf/16v 1 個 1000uf/25v 1 個）， 7805（一個），電阻（ 10k一個），晶振（ ） ,MAX231（ 1 個） ,SM0038 傳感器（ 1 個）， STC89C52（ 1 片） ,發(fā)光二極管（ 1 個） 。 感謝 電子 系的各位同學，與他們的交流使我受益頗多。從論文的選題、 文獻的采集、框架的設計、結構的布局到最終的論文定稿，從內容到格式，從標題到標點， 他 都費盡心血。老師的諄諄誘導、同學的出謀劃策及家長的支持鼓勵，是我堅持完成論文的動力源泉。在這 三 年的時間里，我在學習上和思想上都受益非淺。 2 致謝 畢業(yè)論文暫告收尾，這也意味著我在 南通職業(yè) 大學的 三 年的學習生活既將結束。 ， 楊明福 ， 陳定中 .Visual Basic 語言程序設計 . 出版地：高等教育出版社， 20xx 年。 1 參考文獻 ， 宋建娟 .單片機原理及應用 .出版地：西安電子科技大學出版社， 20xx年。從尊敬的導師身上，我不僅學到了扎實、寬廣的專業(yè)知識，也學到了做人的道理。在我的學業(yè)和論文的研究工作中無不傾注著老師們辛勤的汗水和心血 。 在這次畢業(yè)設計中也使我們的同學關系更進一步了，同學之間互相幫助，有什么不懂的大家在一起商量，聽聽不同的看法對我們更好的理解知識，所以在這里非常感謝幫助我的同學。 腳踏實地，認真嚴謹，實事求是的學習態(tài)度，不怕困難、堅持不懈、吃苦耐勞的精神是我在這次設計中最大的收益。在整個過程中，我學到了新知識，增長了見識。這段旅程看似荊棘密布，實則蘊藏著無盡的寶藏。畢業(yè)論文的制作給了我難忘的回憶。在論文中我充分地運用了大學期間所學到的知識。 當我終于完成了所有打字、繪圖、排版、校對的任務后整個人都很累，但同時看著電腦熒屏上的畢業(yè)設計稿件我的心里是甜的，我覺得這一切都值了。在設計電路初期，由于沒有設計經驗，覺得無從下手，空有很多設計思想，卻不知道應該選哪個，經過導師的指導，我的設計漸漸有了頭緒，通過查閱資料，逐 漸確立系統(tǒng)方案。 12 月開始進行相關圖形的繪制工作和電路的設計工作。在大家的幫助下，困難一個一個解決掉，論文也慢慢成型。 11 月初，資料已經查找完畢了，我開始著手論文的寫作。我在學校圖書館，還在網上查找各類相關資料，將這些寶貴的資料全部記在筆記本上，盡量使我的資料完整、精確、數(shù)量多，這有利于論文的撰寫。我將這一困難告訴了導師，在導師細心的指導下，終于使我對自己現(xiàn)在的工作方向和方法有了掌握。 10 月中旬，在與導師的交流討論中我的題目定了下來，是：紅外線遙控邏輯分析儀的設計。歷經了幾個月的奮戰(zhàn)，緊張而又充實的畢業(yè)設計終于落下了帷幕。 南通職業(yè)大學電子工程系畢業(yè)論文 26 總結 20xx 年 10 月，我開始了我的畢業(yè)論文工作，時至今日，論文基本完成。為方便對比多個按鍵的邏輯，軟件特設了三個顯示通道，分別選擇不同的通道，然后再采集數(shù)據(jù)，則可以對比不同按鍵的波形邏輯。鼠標在波形窗口移動時會有一條直線跟隨，并顯示出現(xiàn)在相對第一個觸發(fā)脈沖的時長。 軟硬件聯(lián)調 調試的方法 接通電源，打開上位機軟件，按“開始采集”按扭，此時軟件正等戴下位機的數(shù)據(jù)。 上電調試：給下位機通電，檢測 STC89C52 電壓為 +5V， MAX232 電壓為 0V，經過檢查連接 MAX232 的線路有一根線斷了，接好后，測得 MAX232 電壓為 +5V， 說明南通職業(yè)大學電子工程系畢業(yè)論文 25 電路基本正常。 = Text_temp 39。 39。 Text_temp = Text_temp amp。 = Recieve OK! 39。39。 For i = 0 To 6400 39。 Dim temp As Variant 39。 Bit/s Data_rate = Data_point + temp_rate 39。 秒時長 = Int((Data_point / 63488) * * 2) + 1 = Int((Data_point / 63488) * 100) amp。 = 串口已開啟 amp。 ms Else Old_X = x Old_Y = Y (x, 0)(x, ), RGB(173, 225, 255) End If Click_flag = Not Click_flag End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) WIDTH_per_100us = 25 With Line1 .X1 = x .Y1 = 0 .X2 = x .Y2 = .BorderColor = RGB(0, 255, 0) End With With Label3 .Left = x 南通職業(yè)大學電子工程系畢業(yè)論文 22 .Top = Y + 500 .Caption = Str(Round((temp_long * 16 + x / Wave_width) * Width_per_BIT / 1000, 3)) amp。 Next 39。 Temp_text 39。 Next 39。 hex2(Buffer(j + i * 1024)) amp。 For j = 0 To 1023 39。 End Select 39。 秒時長的數(shù)據(jù) = 0 = Int((Data_point / 63488) * * 2) + 1 = Int((Data_point / 63488) * 100) amp。共采集 amp。 設置觸發(fā) on事件的字節(jié)數(shù) .SThreshold = 0 .Settings = 115200,n,8,1 .InBufferCount = 0 39。save_Filename = On Error GoTo fuck Open temp_Filename For Binary As 1 For temp_counter = 0 To 63488 Put 1, , Buffer1(temp_counter) Next For temp_counter = 0 To 63488 Put 1, , Buffer2(temp_counter) Next For temp_counter = 0 To 63488 南通職業(yè)大學電子工程系畢業(yè)論文 17 Put 1, , Buffer3(temp_counter) Next Close 1 GoTo out fuck: MsgBox 保存文件出錯 out: End Sub Private Sub Command5_Click() If Wave_width = 10240 Then Wave_width = 10240 Wave_width = Wave_width * 2 = 63486 / 2 ( / Wave_width) / 8 Draw_Square_Wave temp_long * 2, 0, 900, Wave_width, 1 Draw_Square_Wave temp_long * 2, 0, 2200, Wave_width, 2 Draw_Square_Wave temp_long * 2, 0, 3500, Wave_width, 3 End Sub Private Sub Command6_Click() Wave_width = Wave_width / 2 If Wave_width Then Wave_width = = 63486 / 2 ( / Wave_width) / 8 Draw_Square_Wave temp_long * 2, 0, 900, Wave_width, 1 Draw_Square_Wave temp_long * 2, 0, 2200, Wave_width, 2 Draw_Square_Wave temp_long * 2, 0, 3500, Wave_width, 3 End Sub Private Sub Form_Load() Data_point = 0 Wave_width = 10 Init_ Width_per_BIT = 南通職業(yè)大學電子工程系畢業(yè)論文 18 = 63486 / 2 ( / Wave_width) / 8 End Sub Function hex2(ByVal val As Integer) Dim temp As String temp = Hex(val) If Len(temp) = 1 Then hex2 = 0 amp。save_Filename = On Error GoTo fuck Open temp_Filename For Binary As 1 For temp_counter = 0 To 63488 Get 1, , Buffer1(temp_counter) 南通職業(yè)大學電子工程系畢業(yè)論文 15 Next For temp_counter = 0 To 63488 Get 1, , Buffer2(temp_counter) Next For temp_counter = 0 To 63488 Get 1, , Buffer3(temp_counter) Next Close 1 temp_long = Draw_Square_Wave temp_long * 2, 0, 900, Wave_width, 1 Draw_Square_Wave temp_long * 2, 0, 2200, Wave_width, 2 Draw_Square_Wave temp_long * 2, 0, 3500, Wave_width, 3 GoTo out fuck: MsgBox 打開文件出錯 out: End Sub Private Sub Command2_Click() If = False Then Init_ Select Case Case False Data_point = 0 End Select = Not Select Case Case False = 0 = 串口已關閉，數(shù)據(jù)采集被強行停止 Data_point = 0 = 0 Bit/s = 開始采集 南通職業(yè)大學電子工程系畢業(yè)論文 16 = True = True Case True = 強行停止 = True = False = False = False = 串口已開啟，波特率為 115200bps,等待數(shù)據(jù)中 Time = 0 = 200 End Select End Sub