【正文】 3 附錄 1 材料清單 變壓器（ 220v 轉(zhuǎn) 12v），整流橋（ 1 個），瓷片電容（ 6 個 2 個 22pf） ,電解電容（ 22uf/50v 1 個 1000uf/16v 1 個 1000uf/25v 1 個）， 7805（一個），電阻（ 10k一個），晶振（ ） ,MAX231（ 1 個） ,SM0038 傳感器（ 1 個）， STC89C52（ 1 片） ,發(fā)光二極管（ 1 個） 。 感謝 電子 系的各位同學(xué)，與他們的交流使我受益頗多。從論文的選題、 文獻(xiàn)的采集、框架的設(shè)計(jì)、結(jié)構(gòu)的布局到最終的論文定稿，從內(nèi)容到格式，從標(biāo)題到標(biāo)點(diǎn)， 他 都費(fèi)盡心血。老師的諄諄誘導(dǎo)、同學(xué)的出謀劃策及家長的支持鼓勵，是我堅(jiān)持完成論文的動力源泉。在這 三 年的時間里，我在學(xué)習(xí)上和思想上都受益非淺。 2 致謝 畢業(yè)論文暫告收尾，這也意味著我在 南通職業(yè) 大學(xué)的 三 年的學(xué)習(xí)生活既將結(jié)束。 ， 楊明福 ， 陳定中 .Visual Basic 語言程序設(shè)計(jì) . 出版地：高等教育出版社， 20xx 年。 1 參考文獻(xiàn) ， 宋建娟 .單片機(jī)原理及應(yīng)用 .出版地：西安電子科技大學(xué)出版社， 20xx年。從尊敬的導(dǎo)師身上，我不僅學(xué)到了扎實(shí)、寬廣的專業(yè)知識，也學(xué)到了做人的道理。在我的學(xué)業(yè)和論文的研究工作中無不傾注著老師們辛勤的汗水和心血 。 在這次畢業(yè)設(shè)計(jì)中也使我們的同學(xué)關(guān)系更進(jìn)一步了，同學(xué)之間互相幫助，有什么不懂的大家在一起商量，聽聽不同的看法對我們更好的理解知識，所以在這里非常感謝幫助我的同學(xué)。 腳踏實(shí)地，認(rèn)真嚴(yán)謹(jǐn)，實(shí)事求是的學(xué)習(xí)態(tài)度，不怕困難、堅(jiān)持不懈、吃苦耐勞的精神是我在這次設(shè)計(jì)中最大的收益。在整個過程中，我學(xué)到了新知識，增長了見識。這段旅程看似荊棘密布，實(shí)則蘊(yùn)藏著無盡的寶藏。畢業(yè)論文的制作給了我難忘的回憶。在論文中我充分地運(yùn)用了大學(xué)期間所學(xué)到的知識。 當(dāng)我終于完成了所有打字、繪圖、排版、校對的任務(wù)后整個人都很累，但同時看著電腦熒屏上的畢業(yè)設(shè)計(jì)稿件我的心里是甜的，我覺得這一切都值了。在設(shè)計(jì)電路初期，由于沒有設(shè)計(jì)經(jīng)驗(yàn)，覺得無從下手，空有很多設(shè)計(jì)思想，卻不知道應(yīng)該選哪個，經(jīng)過導(dǎo)師的指導(dǎo)，我的設(shè)計(jì)漸漸有了頭緒，通過查閱資料，逐 漸確立系統(tǒng)方案。 12 月開始進(jìn)行相關(guān)圖形的繪制工作和電路的設(shè)計(jì)工作。在大家的幫助下，困難一個一個解決掉，論文也慢慢成型。 11 月初，資料已經(jīng)查找完畢了，我開始著手論文的寫作。我在學(xué)校圖書館，還在網(wǎng)上查找各類相關(guān)資料，將這些寶貴的資料全部記在筆記本上，盡量使我的資料完整、精確、數(shù)量多，這有利于論文的撰寫。我將這一困難告訴了導(dǎo)師，在導(dǎo)師細(xì)心的指導(dǎo)下，終于使我對自己現(xiàn)在的工作方向和方法有了掌握。 10 月中旬，在與導(dǎo)師的交流討論中我的題目定了下來，是：紅外線遙控邏輯分析儀的設(shè)計(jì)。歷經(jīng)了幾個月的奮戰(zhàn)，緊張而又充實(shí)的畢業(yè)設(shè)計(jì)終于落下了帷幕。 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 26 總結(jié) 20xx 年 10 月，我開始了我的畢業(yè)論文工作，時至今日，論文基本完成。為方便對比多個按鍵的邏輯，軟件特設(shè)了三個顯示通道，分別選擇不同的通道，然后再采集數(shù)據(jù)，則可以對比不同按鍵的波形邏輯。鼠標(biāo)在波形窗口移動時會有一條直線跟隨，并顯示出現(xiàn)在相對第一個觸發(fā)脈沖的時長。 軟硬件聯(lián)調(diào) 調(diào)試的方法 接通電源，打開上位機(jī)軟件，按“開始采集”按扭，此時軟件正等戴下位機(jī)的數(shù)據(jù)。 上電調(diào)試：給下位機(jī)通電，檢測 STC89C52 電壓為 +5V， MAX232 電壓為 0V，經(jīng)過檢查連接 MAX232 的線路有一根線斷了，接好后，測得 MAX232 電壓為 +5V， 說明南通職業(yè)大學(xué)電子工程系畢業(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è)大學(xué)電子工程系畢業(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。 設(shè)置觸發(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è)大學(xué)電子工程系畢業(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è)大學(xué)電子工程系畢業(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è)大學(xué)電子工程系畢業(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 = 串口已關(guān)閉，數(shù)據(jù)采集被強(qiáng)行停止 Data_point = 0 = 0 Bit/s = 開始采集 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 16 = True = True Case True = 強(qiáng)行停止 = True = False = False = False = 串口已開啟，波特率為 115200bps,等待數(shù)據(jù)中 Time = 0 = 200 End Select End Sub