Altta toggle buton ile çalışan Sony Sirc kodları ile
çalışan alıcısı görülmektedir. Mavi renkle vurgu-
lanmış SIRC kodları Sony 687 TV kumandasına
uyumlu olmasını sağlıyor.
DEFINE LOADER_USED 1
define osccal_1k 2
define osc 4
'@ DEVICE pic12f675,mclr_off,INTRC_OSC_NOCLKOUT ' Dahili osilatör
@ DEVICE pic12F675,XT_OSC,mclr_off ' Kristalli
trisio=%011101
gpio =%011101
ansel=0 'digital e çevrildi
IR_Sensor VAR GPIO.0
led var gpio.1 ' Lamba
CMCON = 7 ' Analog comparators off
OSCCAL = 0 ' internal osc ayarı tamam çalışıyor
high led
pause 1000
low led
ana:
GoSub IRIN
IF IR_Dev=255 Then ANA
IF (IR_Dev <>1) and (IR_Dev <>2) and (IR_Dev <>4) Then ana
'*******************************
if ir_but=21 then toggle led ' Sony kumanda power tuşu
pause 200
goto ANA
'*******************************
IRIN:
IR_Dev=255:IR_But=255
PulsIn GPIO.0,0,Header
IF Header < 200 Then Return
IF Header > 270 Then Return
For Sony_Lp=0 TO 11
PulsIn GPIO.0,0,P_Val
IF P_Val >= 90 Then
Packet.0[Sony_Lp]=1
Else
Packet.0[Sony_Lp]=0
EndIF
Next
IR_But=Packet & %01111111
IR_Dev=(Packet >>7) & 011111
Return
End
çalışan alıcısı görülmektedir. Mavi renkle vurgu-
lanmış SIRC kodları Sony 687 TV kumandasına
uyumlu olmasını sağlıyor.
DEFINE LOADER_USED 1
define osccal_1k 2
define osc 4
'@ DEVICE pic12f675,mclr_off,INTRC_OSC_NOCLKOUT ' Dahili osilatör
@ DEVICE pic12F675,XT_OSC,mclr_off ' Kristalli
trisio=%011101
gpio =%011101
ansel=0 'digital e çevrildi
IR_Sensor VAR GPIO.0
led var gpio.1 ' Lamba
CMCON = 7 ' Analog comparators off
OSCCAL = 0 ' internal osc ayarı tamam çalışıyor
high led
pause 1000
low led
ana:
GoSub IRIN
IF IR_Dev=255 Then ANA
IF (IR_Dev <>1) and (IR_Dev <>2) and (IR_Dev <>4) Then ana
'*******************************
if ir_but=21 then toggle led ' Sony kumanda power tuşu
pause 200
goto ANA
'*******************************
IRIN:
IR_Dev=255:IR_But=255
PulsIn GPIO.0,0,Header
IF Header < 200 Then Return
IF Header > 270 Then Return
For Sony_Lp=0 TO 11
PulsIn GPIO.0,0,P_Val
IF P_Val >= 90 Then
Packet.0[Sony_Lp]=1
Else
Packet.0[Sony_Lp]=0
EndIF
Next
IR_But=Packet & %01111111
IR_Dev=(Packet >>7) & 011111
Return
End
Hiç yorum yok:
Yorum Gönder
Yorum yazın