【正文】 , START_Y HEiGHT), LINE_COLOR End If End If Dp_old = Dp Next Next (0, Y + 200)(, START_Y + 200), RGB(200, 200, 255) PrintWord 0, Y + 20, Str(Round(Start * Width_per_BIT * 8 / 1000, 3)) amp。與 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控件的屬性和事件即可 。amp。 } void main() { TimeSet()。 TL0=0。 TI=0。 delay()。 } 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 10 void Time0() interrupt 1 { dat[0]=TH0。a)。 for(b=61。 TL0=0x00。 EX0=1。 TH1=0xff。 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 9 // SM0=0。 sbit P33=P3^3。等到紅外信號下降沿到來時，進入 外部中斷 0 中斷子函數(shù)，打開 T0 定時器開關(guān) TR0，使得 T0 工作，在主函數(shù)中判斷外部中斷 0 接線端為 1 時，進入 T0 中斷子函數(shù)，在 T0 中斷子函數(shù)中主要是把 TH0,TL0 所記的數(shù)值送單片機處理。 另外，由于空調(diào)的狀態(tài)遠多于電視、音像，并且沒有一個標(biāo)準(zhǔn)，所以各廠家都按自己的格式去做一個，造成差異更大。從發(fā)射載波到不發(fā)射載波為“ 0”，從不發(fā)射載波到發(fā)射載波為“ 1”。例如常用的電視遙控器，使用 NEC upd6121，其“ 0”為載波發(fā)射 ,不發(fā)射 s；其“ 1”為載波發(fā)射 ,不發(fā)射 ；此外，為了解碼的方便，還有引導(dǎo)碼，upd6121 的引導(dǎo)碼為載波發(fā)射 9ms，不發(fā)射 。 4 軟件設(shè)計 紅外編碼格式 現(xiàn)有的紅外遙控包括兩種方式： PWM（脈沖寬度調(diào)制）和 PPM（脈沖位置調(diào) 制）。 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 7 總原理圖及其說明 圖 系統(tǒng)電路 原理圖 先 通過 SM0038 的紅外接收頭接收 38KHZ 的紅外線 信號，然后將信號通過 STC89C52 單片機的 口 送單片機 進行處理，單片機再發(fā)出接收到的信號給 PC 機顯示該信號的波形， 由于 STC89C52 的串行口輸入 /輸出為 TTL 邏輯電平，高電平為 左右，低電平為 左右，因而這種以 TTL 電平傳送數(shù)據(jù)的方式的抗干擾性較差。但是，為了解決這種電平不一致的矛盾，必須采用一個 RS232C 電平轉(zhuǎn)換器，文中采用的 MAX232 自身帶有電源電壓變換器，可把 +5V 電壓變換成 RS232 輸出電平所需的177。 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 6 圖 MAX232 MAX232 芯片功能 為了能使單片機與 PC 進行通信，必須使其遵循相同的通信協(xié)議。 MAX232 芯片 MAX232 芯片 引腳 Max232 產(chǎn)品是由德州儀器公司（ TI）推出的一款兼容 RS232 標(biāo)準(zhǔn)的芯片。 SM0038 與單片機接口電路 圖 SM0038 與單片機接口電路 與單片機接口非常方便，如圖四 所示。這是最簡單的連接方法，但是對我們來說已經(jīng)足夠使用了，電路如下圖所示， MAX232 的第 10 腳和單片機的 11 腳連接，第 9 腳和單片機的 10 腳連接，第 15 腳和單片機的 20 腳連接。當(dāng)單片機接收到 0xA1 時，讀取 P0 端口數(shù)據(jù)，并將讀取數(shù)據(jù)返回 PC 機；當(dāng)單片機接收到 0xA2 時，單片機等待從 PC 機接收一段控制數(shù)據(jù)；當(dāng) PC 機接收到 0xA3 時，就表明單片機操作已經(jīng)成功。 通信協(xié)議 的使用 通信協(xié)議是通信設(shè)備在通信前的約定。 下面舉例說明波特率選擇過程：假設(shè)系統(tǒng)要求的通信頻率在 20xx0bit/s 以下，晶振頻率為 12MHz，設(shè)置 SMOD=1（即波特率倍增）。這要根據(jù)系統(tǒng)的運作特點，確定通信的頻率范圍。 其中，模式 0 和模式 2 波特率計算很簡單 ； 模式 1 和模式 3 的波特率選擇相同，故在此僅以工作模式 1 為例來說明串口通信波特率的選擇。紅外數(shù)據(jù)協(xié)會 (IRDA)成立后 ,為了保證不同廠商的紅外產(chǎn)品能夠獲得最佳的通訊效果 ,紅外通訊協(xié)議將紅外數(shù)據(jù)通訊所采用的光波波長的范圍限定在 850nm至 900nm。為了能夠用一臺通用控制器對多種不同型號的家電進行控制，本文利用功能強大的單片機和編程軟件 VB 設(shè)計了一種基于計算機串口的通用型智能紅外邏輯分析儀，它可對各種電器的紅外遙控器所發(fā)射的控制信號進行識別、存貯和再現(xiàn)。 本設(shè)計 采用用途廣泛的紅外線 通信技術(shù)設(shè)計了一款基于計算機串口的紅外邏輯分析儀 ,本課題由 SM0038 紅外接收頭、 STC89C52 單片機、 MAX232 電平轉(zhuǎn)換器、 DB9 構(gòu)成硬件部分，由下位機程序和上位機程序構(gòu)成軟件部分。設(shè)計的邏輯分析儀可對 各種電器的紅外遙控器所發(fā)射的控制信號進行識別、存貯和再現(xiàn)。還可通過紅外硬件接口識別出紅外信號并送入單片機處理，然后利用 VB 開發(fā)的虛擬軟件在電腦屏 幕上實時顯示采集到的紅外信號波形 便于設(shè)計人員對各種調(diào)制方式的紅外信號進行“可視化”的分析與研究。 2 串口通信原理 串口通訊對單片機而言意義重大，不 但可以實現(xiàn)將單片機的數(shù)據(jù)傳輸?shù)接嬎銠C端，而且也能實現(xiàn)計算機對單片機的控制。 在串行端口工作于模式 1，其波特率將由計時 /計數(shù)器 1 來產(chǎn)生，通常設(shè)置定時器工作于模式 2（自動再加 模式）。然后考慮通信時鐘誤差。則 TH1=25662500/波特率 根據(jù)波特率取值表，我們知道可以選取的波特率有： 1200， 2400， 4800， 9600， 19200。單片機、計算機有了協(xié)議這種約定，通信雙方才能明白對方的意圖，以進行下一步動作。 硬件連接 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 3 51 單片機有一個全雙工的串行通訊口，所以單片機和計算機之間可以方便地進行串口通訊。 圖 使用 MAX232 串口通信電路圖 串口通訊的硬件電路如上圖所示為了能夠在計算機端看到單片機發(fā)出的數(shù)據(jù)，我們必須借助一個 WINDOWS 軟件進行觀察，這里利用如下圖標(biāo)的一個免 費計算機串口調(diào)軟件來觀察。 VCC 接電源 +5V 并經(jīng)電容進行濾波，以避免電源干擾 。該器件包含 2 驅(qū) 動器、 2 接收器和一個電壓發(fā)生器電路提供 TIA/EIA232F 電平。由于 STC89C52 的串行口輸入 /輸出為 TTL 邏輯電平，高電平為 左右，低電平為 左右，因而這種以 TTL電平傳送數(shù)據(jù)的方式的抗干擾性較差。 10V電壓，因而采用這種方式進行串行通信具有較好的性能和低廉的價格。而計算機內(nèi)部的 RS232C 串行口用177。 兩種形式編碼的代表分別為 NEC 和 PHILIPS 的 RC RC6 以及將來的 RC7。 upd6121 總 共的編碼長度為 108ms。其發(fā)射載波和不發(fā)射載波的時間相同，都為 ，也就是每位的時間是固定的。比如：美的的遙控器采用 PWM 編碼，碼長 120ms 左右；新科的遙控器也采用 PWM 編碼，碼長 500ms 左右。 下位機程序 include define uchar unsigned char define uint unsigned int uchar dat[2]={0}。 bit tmp=1。//串口中斷設(shè)置 // SM1=1。 TL1=0xff。 IT0=1。 // TR0=1。b0。 } void INT() interrupt 0 { TR0=1。 dat[1]=TL0。 TI=0。 TR0=0。 // P33=0。 while(1) 南通職業(yè)大學(xué)電子工程系畢業(yè)論文 11 { // SBUF=0x0a。 P32==1) { TF0=1。 上位機程序 Modulel (Code) Public Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Public Const WS_EX_LAYERED = amp。 ms For j = 0 To Int(Time_long / 50) 南通職業(yè)大學(xué)電子工程系畢業(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() = Ird 文件 |*.ird Dim temp_Filename As String Dim save_Filename As String Dim temp_counter As Long temp_Filename = 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_