uygun fiyata temin edebilirsiniz. Aşağıdaki PBP dosyasında kodlama RF verici kit
ile data gittiğinde, RF Alıcı kit gelen kodu karşılaştırıyor. Aynı karakterler örtüş-
tüğünde alıcı kitin ledi yanıyor veya sönüyor. İsterseniz ledin bağlantığı yere transis-
törü sürerek röle bağlayabilirsiniz. Röle ile korna, lamba gibi elemanları uzaktan
kumanda edebilirsiniz.
12f675 ile RF Kumanda Görüntülü Anlatımı
Aşağıdaki linkten Bas ve hex dosyaların barındırdığı RAR dosyalarını
indirebilirsiniz.
VERİCİ (TX) DEVRESİ ve PBP KOMUTLARI
'****************************************************************'* Name : RF_675_TX.BAS *
'* Author :Şinasi Yavuz *
'* Notice : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 09.04.2015 *
'* Version : 1.0 *
'* Notes : Verici PBP Dosyası *
'* : *
'****************************************************************
DEFINE LOADER_USED 1
define osc 20
@ DEVICE pic12f675,HS_OSC
@ device pic12f675,pwrt_on
@ device pic12f675,mclr_off
'@ device pic12f675,protect_on
' @ DEVICE pic12f675, INTRC_OSC_NOCLKOUT,mclr_off
trisio=001011
gpio =001011
CMCON=7
ANSEL=0
OPTION_REG.7 = 0
Buton_1 var gpio.1
Buton_2 var gpio.3
data_out var gpio.2
VERICI VAR byte
VERICI=0
PAUSE 5
'****************************************basla************************
BASLA:
low data_out
VERICI=0
pause 50
if buton_1=0 then
verici=10 ' beyaz Led
'sondur
gosub gonder
pause 100
endif
if buton_2=0 then
verici=20 ' kırmızı led
' yak
gosub gonder
pause 100
endif
GOTO BASLA
'**************************************************************************
GONDER:
SEROUT2 data_out,9600,["y","a","v","u","z", VERICI]
SEROUT2 data_out,9600,["y","a","v","u","z", VERICI]
SEROUT2 data_out,9600,["y","a","v","u","z", VERICI]
SEROUT2 data_out,9600,["y","a","v","u","z", VERICI]
pause 20
RETURN
END
ALICI (RX) DEVRESİ ve PBP KOMUTLARI
'****************************************************************
'* Name : RF_12F675_alici.BAS *
'* Author : Şinasi Yavuz *
'* Notice : Copyright (c) 09,Nisan,2015 *
'* : *
'* Date : 09,Nisan,2015 *
'* Version : 1.0 *
'* Notes : RF Alıcı PBP Dosyası *
'* : *
'****************************************************************
define osc 20
@ DEVICE pic12f675,HS_OSC
@ device pic12f675,pwrt_on
@ device pic12f675,mclr_off
trisio=011001
gpio =011001
CMCON=7
ANSEL=0
OPTION_REG.7 = 0
ALICI VAR byte
ALICI=0
PAUSE 500
Led_1 var GPIO.1
Led_2 var GPIO.2
Datam var GPIO.3
high led_1:high led_2
pause 2000
low led_1:low led_2
pause 100
BASLA:
SERIN2 datam,9600,[WAIT("yavuz"),ALICI]
pause 30
select case ALICI
case 10
toggle led_1 'Beyaz Led
pause 400
case 20
toggle led_2 ' kırmızı Led
pause 400
end select
GOTO BASLA
END