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=%00000000
TRISIO=%00111100
OPTION_REG=%10000000
VERICI VAR BYTE
VERICI=0
'-------------------------------------------------------------------------------
symbol CIKIS=GPIO.1
symbol LED=GPIO.0
symbol tus1=GPIO.2
Symbol Tus2=GPIO.5
'------------------------------------------------------------------------------- 

BASLA:
IF tus1=1 THEN   
LED=1
PAUSE 20
VERICI=1
GOSUB GONDER
LED=0
ENDIF

IF Tus2=1 THEN   
LED=1
PAUSE 20
VERICI=101
GOSUB GONDER
LED=0
ENDIF
GOTO 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 KODLARI

Device = 16F877                   'MCU 16F877
Config CP_OFF, CPD_OFF, WDT_OFF, XT_OSC, PWRTE_OFF, BODEN_OFF, LVP_OFF, DEBUG_OFF
Include "modedefs.bas"
Xtal = 4                           'KRİSTAL 4MHZ

TRISA=%00000001
PORTA=0
TRISB=0
TRISC=0
TRISD=%00000100
TRISE=0
PORTD=0

'Declare  All_Digital = On
All_Digital= TRUE                  'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
LCD_DTPort = PORTB                 'GLCD DATA PORTLARI PORTB'YE BAĞLI
LCD_RSPin = PORTC.5                'GLCD RS PİNİ PORTC.5 BAĞLI
LCD_ENPin = PORTC.1                'GLCD ENABLE PİNİ PORTC.1 BAĞLI
LCD_RWPin = PORTC.4                'GLCD RW PİNİ PORTC.4 BAĞLI
LCD_CS1Pin = PORTC.2               'GLCD CS1 PİNİ PORTC.2 BAĞLI
LCD_CS2Pin = PORTC.3               'GLCD CS2 PİNİ PORTC.3 BAĞLI
LCD_Type =  GRAPHIC                'GLCD TİPİ GRAFİK KS0108 128*64B WİNSTAR
Internal_Font = On                 
Font_Addr = 0
'------------------------------------------------------------------------------------
Dim BILGI As Byte
Symbol RST=PORTD.2
Symbol LED=PORTD.1
Symbol LED2=PORTE.1
Cls                                        'GLCD EKRANINI TEMİZLE
DelayMS 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=1
If BILGI=101 Then Print At 0,1,"           ":LED=0
GoTo main
Include "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.