RF modül Data Gönderme ve alma sorunu

[elektro77]

Aşağıdaki kodlarla alıcı ve verici ısıs simülasyonunda çalışıyorlar. Gerçekte de data yolunu kablo ile aktardığımda çalışıyorlar. Fakat kullandığım rf modülleri devreye bağlayıp çalıştırdığımda data alıp vermiyorlar.2 çeşit alıcı verici modül denedim yine olmadı. Sebebi ne olabilir.

VERICI PİC BASİC PRO KODLARI@ DEVICE pic12F629' işlemci 12F629 @ DEVICE pic12F629, WDT_ON 'Watch Dog timer açık@ DEVICE pic12F629, PWRT_ON 'Power on timer açık@ DEVICE pic12F629, PROTECT_OFF 'Kod Protek kapalı@ DEVICE pic12F629, MCLR_off 'MCLR pini kullanılMIYOR.@ DEVICE pic12F629, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak DEFINE OSCCAL_1K 1  'bu komut mutlaka olacak OSCCAL değerini yeniden pice yazdırıyor'-------------------------------------------------------------------------------CMCON = 7'-------------------------------------------------------------------------------GPIO=%00000000TRISIO=%00111100OPTION_REG=%10000000VERICI VAR BYTEVERICI=0'-------------------------------------------------------------------------------symbol CIKIS=GPIO.1symbol LED=GPIO.0symbol tus1=GPIO.2Symbol Tus2=GPIO.5'------------------------------------------------------------------------------- BASLA:IF tus1=1 THEN   LED=1PAUSE 20VERICI=1GOSUB GONDERLED=0ENDIFIF Tus2=1 THEN   LED=1PAUSE 20VERICI=101GOSUB GONDERLED=0ENDIFGOTO BASLA                                      '-------------------------------------------------------------------------------GONDER:'SEROUT2 CIKIS,396,[REP$AA\5,REP$00\5,REP$FF\5]SEROUT2 CIKIS,396,["U","G",VERICI]SEROUT2 CIKIS,396,["U","G",VERICI]SEROUT2 CIKIS,396,["U","G",VERICI]ALICI PROTON KODLARIDevice = 16F877                   'MCU 16F877Config CP_OFF, CPD_OFF, WDT_OFF, XT_OSC, PWRTE_OFF, BODEN_OFF, LVP_OFF, DEBUG_OFFInclude "modedefs.bas"Xtal = 4                           'KRİSTAL 4MHZTRISA=%00000001PORTA=0TRISB=0TRISC=0TRISD=%00000100TRISE=0PORTD=0'Declare  All_Digital = OnAll_Digital= TRUE                  'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞLCD_DTPort = PORTB                 'GLCD DATA PORTLARI PORTB'YE BAĞLILCD_RSPin = PORTC.5                'GLCD RS PİNİ PORTC.5 BAĞLILCD_ENPin = PORTC.1                'GLCD ENABLE PİNİ PORTC.1 BAĞLILCD_RWPin = PORTC.4                'GLCD RW PİNİ PORTC.4 BAĞLILCD_CS1Pin = PORTC.2               'GLCD CS1 PİNİ PORTC.2 BAĞLILCD_CS2Pin = PORTC.3               'GLCD CS2 PİNİ PORTC.3 BAĞLILCD_Type =  GRAPHIC                'GLCD TİPİ GRAFİK KS0108 128*64B WİNSTARInternal_Font = On                 Font_Addr = 0'------------------------------------------------------------------------------------Dim BILGI As ByteSymbol RST=PORTD.2Symbol LED=PORTD.1Symbol LED2=PORTE.1Cls                                        'GLCD EKRANINI TEMİZLEDelayMS 500'------------------------------------------------------------------------------------main:SerIn PORTA.0,396,[Wait("UG"),BILGI] If BILGI=0   Then Print At 0,0,"0"If BILGI=100 Then Print At 0,0," "If BILGI=1   Then Print At 0,1,"UMIT GUNGOR":LED=1If BILGI=101 Then Print At 0,1,"           ":LED=0GoTo mainInclude "font.inc"

[ta3usl]

Kullandığın Rf modüllerin modeli nedir ? 
Bazı modüller AT komutlarıyla ayar istiyor.

Bir de verici kısmında gonder rutinine return eklemelisin.