講師：劉俊民(金剛) Idea 創意應用科技有限公司 2016.01.30 寒假營隊- Easy Car 講師：劉俊民(金剛) Idea 創意應用科技有限公司 2016.01.30
單元十一---IR遙控車 重點教學 遙控器的內碼設定
紅外線腳位說明: VCC:5V GND:負極 DATA:訊號輸出 注意!凸起面
紅外線接收IC接法 注意!凸起面方向 依照上頁腳位說明得知 P7:正極 P6:負極 P5:訊號
範例程式 Dim wtime(8) As Word Dim bIRStatus,bFlag As Byte Dim wCnt As Word Sub Main() Do High 7 Low 6 GetIRStatus( )'執行副程式 'Debug bIRStatus,CR'讀取數值 Select bIRStatus Case 21 : '(請插入動作程式)後 Case 64 : '(請插入動作程式)停 Case 67 : '(請插入動作程式)右 Case 68 : '(請插入動作程式)左 Case 70 : '(請插入動作程式)前 End Select Loop End Sub
Sub GetIRStatus()'紅外線遙控器解碼程式(副程式) Do Pulsein 5,1,wTime(0) Loop Until wTime(0) > 850 And wTime(0) <= 950 For wCnt = 0 To 15 Pulsein 5, 1, wTime(0) Next For wCnt = 0 To 7 Pulsein 5, 1, wTime(wCnt) bIRStatus = 0
For wCnt = 0 To 7 If wTime(wCnt) > 290 And wTime(wCnt) <= 390 Then Select Case wCnt Case 0 : bFlag = 1 Case 1 : bFlag = 2 Case 2 : bFlag = 4 Case 3 : bFlag = 8 Case 4 : bFlag = 16 Case 5 : bFlag = 32 Case 6 : bFlag = 64 Case 7 : bFlag = 128 End Select Elseif wTime(wCnt) >70 And wTime(wCnt) <= 170Then bFlag = 0 End If bIRStatus = bIRStatus + bFlag Next End Sub