【正文】 系畢業(yè)論文 19 Private Sub HScroll1_Change() 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 End Sub Private Sub Label10_Click() End Sub Private Sub MSComm1_OnComm() Select Case Case EvReceive Dim temp As Variant = 數(shù)據(jù)采集已開始，串口波特率為 115200 kbps temp = Select Case Int(val()) Case 1 For i = 0 To 1023 Buffer1(i + Data_point) = temp(i) Next Case 2 For i = 0 To 1023 Buffer2(i + Data_point) = temp(i) Next Case 3 For i = 0 To 1023 Buffer3(i + Data_point) = temp(i) Next End Select Data_point = Data_point + 1024 南通職業(yè)大學電子工程系畢業(yè)論文 20 If Data_point = 63487 Then Dim Temp_text As String Dim Temp_text2 As String = Recieve OK! = False = 開始采集 = True = True = True = True = 串口已關(guān)閉，數(shù)據(jù)采集已停止。 Temp_text = Temp_text amp。 = Temp_text2 End If End Select 南通職業(yè)大學電子工程系畢業(yè)論文 21 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Click_flag = True Then (x, 0)(x, ), RGB(173, 225, 255) (Old_X, Y)(x, Y), RGB(1, 117, 180) (Old_X, Y)(Old_X + 200, Y 100), RGB(1, 117, 180) (Old_X, Y)(Old_X + 200, Y + 100), RGB(1, 117, 180) (x, Y)(x 200, Y + 100), RGB(1, 117, 180) (x, Y)(x 200, Y 100), RGB(1, 117, 180) PrintWord (x + Old_X) / 2, Int(Y), Str(Round(((x Old_X) / Wave_width * Width_per_BIT) / 1000, 3)) amp。 If = 1024 Then 39。 For i = 0 To 6400 39。 軟件調(diào)試 開始的時候，程序調(diào)試的過程中錯誤的地方很多，后來經(jīng)過思考，主要是把問題考慮的太過復(fù)雜 ，經(jīng)過仔細的思考寫出了程序，但是調(diào)試的時候還有錯，主要是頭文件寫錯了，把 include寫成了 includeAT89C52,所以調(diào)不出來，改正后，終于調(diào)了出來了，使其生成了 HEX 文件。從最初的茫然，到慢慢的進入狀態(tài)，再到對思路逐漸的清晰，整個寫作過程難以用語言來表達。然后我將收集到的資料仔 細整理分類，及時拿給導(dǎo)師進行溝通。方案中遙控器，紅外接收頭， CPU 等選擇的問題上是比較頭疼的問題，在反復(fù)推敲，對比的過程中，最終定下了能產(chǎn)生 38MHZ 頻率的遙控器， SM0038 紅外接收頭 ,STC89C52 CPU 構(gòu)成的電路。我從資料的收集中，掌握了很多單片機、紅外的知識，讓我對我所學過的知識有所鞏固和提高，并且讓我對當今單片機、傳感器的最新發(fā)展技術(shù)有所了解。老師的嚴謹治學態(tài)度、淵博的知識、無私的奉獻精神使我深受啟迪?；厥准韧约阂簧顚氋F的時光能于這樣的校園之中，能在眾多學富五車、才華橫溢的老師們的熏陶下度過，實是榮幸之極。最后要感謝我的家人以及我的朋友們對我的理解、支持、鼓勵和幫助，正是因為有了他們，我所做的一切才更有意義；也正是因為有了他們，我才有了追求進步的勇氣和信心 。在此，我特別要感謝我的導(dǎo)師 嚴飛 老師。 .單片機 C 語言程序設(shè)計 . 出版地：北京航空航天大學出版社， 2020 年。我想這是一次意志的磨練，是對我實際能力的一次提升，也會對我未來的學習和工作有很大的幫助。 我不會忘記這難忘的幾個月的時間。 11 月底，論文的文字敘述已經(jīng)完成。當選題報告，開題報告定下來的時候，我當時便立刻著手資料的收集工作中，當時面對浩瀚的書海真是有些茫然，不知如何下手。在波形窗口單擊時會在該處留下一參考線，移動鼠標到另一位置再單擊，則顯示出該處相對前一參考線的時長。 Next 39。 Buffer(i) = temp(i) 39。 Str(Time / 2) amp。 Temp_text2 = Temp_text2 amp。 % Draw_Square_Wave 0, 0, 900, Wave_width, 1 Draw_Square_Wave 0, 0, 2200, Wave_width, 2 Draw_Square_Wave 0, 0, 3500, Wave_width, 3 39。 39。與 DOS 環(huán)境下用匯編或C 語言等編制的串行通信程序及 Windows 環(huán)境下用 Visual C 編制的串行通信程序相比，在使用 Visual Basic 的 MSComm 控件實現(xiàn)串行通信時，程序員只需關(guān)心 MSComm 控件對Windows 通信驅(qū)動程序的 API 函數(shù)的接口即可，換句話說，只需要設(shè)置和監(jiān)視 MSComm控件的屬性和事件即可 。 } void main() { TimeSet()。 TI=0。 } 南通職業(yè)大學電子工程系畢業(yè)論文 10 void Time0() interrupt 1 { dat[0]=TH0。 for(b=61。 EX0=1。 南通職業(yè)大學電子工程系畢業(yè)論文 9 // SM0=0。等到紅外信號下降沿到來時，進入 外部中斷 0 中斷子函數(shù)，打開 T0 定時器開關(guān) TR0，使得 T0 工作，在主函數(shù)中判斷外部中斷 0 接線端為 1 時，進入 T0 中斷子函數(shù)，在 T0 中斷子函數(shù)中主要是把 TH0,TL0 所記的數(shù)值送單片機處理。從發(fā)射載波到不發(fā)射載波為“ 0”，從不發(fā)射載波到發(fā)射載波為“ 1”。 4 軟件設(shè)計 紅外編碼格式 現(xiàn)有的紅外遙控包括兩種方式： PWM（脈沖寬度調(diào)制）和 PPM（脈沖位置調(diào) 制）。但是，為了解決這種電平不一致的矛盾，必須采用一個 RS232C 電平轉(zhuǎn)換器，文中采用的 MAX232 自身帶有電源電壓變換器，可把 +5V 電壓變換成 RS232 輸出電平所需的177。 MAX232 芯片 MAX232 芯片 引腳 Max232 產(chǎn)品是由德州儀器公司（ TI）推出的一款兼容 RS232 標準的芯片。這是最簡單的連接方法，但是對我們來說已經(jīng)足夠使用了，電路如下圖所示， MAX232 的第 10 腳和單片機的 11 腳連接，第 9 腳和單片機的 10 腳連接，第 15 腳和單片機的 20 腳連接。 通信協(xié)議 的使用 通信協(xié)議是通信設(shè)備在通信前的約定。這要根據(jù)系統(tǒng)的運作特點，確定通信的頻率范圍。紅外數(shù)據(jù)協(xié)會 (IRDA)成立后 ,為了保證不同廠商的紅外產(chǎn)品能夠獲得最佳的通訊效果 ,紅外通訊協(xié)議將紅外數(shù)據(jù)通訊所采用的光波波長的范圍限定在 850nm至 900nm。 本設(shè)計 采用用途廣泛的紅外線 通信技術(shù)設(shè)計了一款基于計算機串口的紅外邏輯分析儀 ,本課題由 SM0038 紅外接收頭、 STC89C52 單片機、 MAX232 電平轉(zhuǎn)換器、 DB9 構(gòu)成硬件部分，由下位機程序和上位機程序構(gòu)成軟件部分。還可通過紅外硬件接口識別出紅外信號并送入單片機處理，然后利用 VB 開發(fā)的虛擬軟件在電腦屏 幕上實時顯示采集到的紅外信號波形 便于設(shè)計人員對各種調(diào)制方式的紅外信號進行“可視化”的分析與研究。 在串行端口工作于模式 1，其波特率將由計時 /計數(shù)器 1 來產(chǎn)生，通常設(shè)置定時器工作于模式 2（自動再加 模式）。則 TH1=25662500/波特率 根據(jù)波特率取值表，我們知道可以選取的波特率有： 1200， 2400， 4800， 9600， 19200。 硬件連接 南通職業(yè)大學電子工程系畢業(yè)論文 3 51 單片機有一個全雙工的串行通訊口，所以單片機和計算機之間可以方便地進行串口通訊。 VCC 接電源 +5V 并經(jīng)電容進行濾波，以避免電源干擾 。由于 STC89C52 的串行口輸入 /輸出為 TTL 邏輯電平，高電平為 左右，低電平為 左右，因而這種以 TTL電平傳送數(shù)據(jù)的方式的抗干擾性較差。而計算機內(nèi)部的 RS232C 串行口用177。 upd6121 總 共的編碼長度為 108ms。比如：美的的遙控器采用 PWM 編碼，碼長 120ms 左右；新科的遙控器也采用 PWM 編碼，碼長 500ms 左右。 bit tmp=1。 TL1=0xff。 // TR0=1。 } void INT() interrupt 0 { TR0=1。 TI=0。 // P33=0。 P32==1) { TF0=1。 ms For j = 0 To Int(Time_long / 50) 南通職業(yè)大學電子工程系畢業(yè)論文 14 (j * 50 * Width_per_20us, Y + 100)(j * 50 * Width_per_20us, START_Y + 200), RGB(200, 200, 255) Next End Function Function PrintWord(ByVal x, Y As Integer, ByVal toprint As String) Dim temp1, temp2 As Integer temp1 = temp2 = With Picture1 .CurrentX = x .CurrentY = Y .ForeColor = RGB(255, 96, 96) End With toprint With Picture1 .CurrentX = temp1 .CurrentY = temp2 End With End Function Private Sub Command1_Click() =