Spiriton marka RF moduller

[Maxim]

OG hocam birşey sorucam ,

vericiyi kapatınca ,
neden hala alıcının çıkışında birşeyler var ?

[OG]

Havadaki parazit sebebi ile alıcı sürekli birşeyleri çıkışa verir, FM radyolardaki boş frekanstaki hışırtı gibi düşün, ona benzer birşey. Bu esnada alıcı kararsızdır, sürekli gain ayarını değiştirir. RF gönderip ilk dataların da Preamble olması RX'in bu esnada dengeli bir çalışma noktasına oturması içindir. Esas data da ondan sonra gönderilir.

[z]

Ilk kez RF modullerle calismak isteyenler icin temel bilgileri ve ornek proje iceren dokuman.

http://robot.metu.edu.tr/dosya/RF_Kontrol.pdf

[Maxim]

alıcı modülü yaktım  
1sn 12 volt ...
ilginçtir 12F675 bozulmadı .

[mustafa_cmbz]

Bu lanet modüllerden nerden aldıysam bende 2 çift aldım...Siparişlerini verdiğim o güne lanet olsun....maxi hocam bende çalıştıramadım şu modülleri bi gelişme varmı yoksa pes mi ettin?

[mustafa_cmbz]

TX:

Device=16F877A
Config XT_OSC, WDT_OFF, PWRTE_OFF, BODEN_OFF, LVP_OFF, DEBUG_OFF, CP_ALL
XTAL=4
ADCON1=7

PORTA=0 
PORTB=0 
PORTC=0 
PORTD=0 


LCD_DTPIN = PORTB.4
LCD_RSPIN = PORTB.2
LCD_ENPIN = PORTB.3
LCD_INTERFACE = 4
LCD_LINES = 4
LCD_TYPE = 0


Symbol RF    PORTB.1
Symbol PIN1  PORTC.6
Symbol PIN2  PORTD.7

Symbol OK    PORTD.3
Symbol DWN   PORTD.2
Symbol MENU  PORTC.5
Symbol UP    PORTC.4
Dim VER As Byte
Cls
DelayMS 400
Print  At 1,1, "MUSTI RF KNTRL"
BASLA:

If OK=1   Then VER=10  : High PIN1 : GoSub RFF : Low PIN1
If DWN=1  Then VER=20  : High PIN1 : GoSub RFF : Low PIN1
If MENU=1 Then VER=30  : High PIN1 : GoSub RFF : Low PIN1
If UP= 1  Then VER=40  : High PIN1 : GoSub RFF : Low PIN1

GoTo BASLA
 
RFF:
Print  At 2,1, "BUTON= ",Dec VER
SerOut PORTB.1,188,[Rep $55\5,"AAA",VER]       ' 4800 BPS
SerOut PORTB.1,188,[Rep $55\5,"AAA",VER]       ' 4800 BPS
DelayMS 150
Low PORTB.1
VER=0      
Return

End

RX:

Device=16F877
Config XT_OSC, WDT_OFF, PWRTE_OFF, BODEN_OFF, LVP_OFF, DEBUG_OFF, CP_ALL
XTAL=4
ADCON1=7

PORTA=0 
PORTB=0 
PORTC=0 
PORTD=0 

ALL_DIGITAL=On


LCD_DTPIN = PORTB.4
LCD_RSPIN = PORTB.2
LCD_ENPIN = PORTB.3
LCD_INTERFACE = 4
LCD_LINES = 4
LCD_TYPE = 0


 Dim AL As Byte
Symbol REC = PORTD.2
Print  At 1,1, "BUTON_DEG = " , Dec AL



BASLA:
SerIn PORTD.2,188,[Wait("AAA"),AL]         '4800 BPS
Print  At 1,1, "BUTON_DEG = " , Dec AL
If AL=10 Then Toggle PORTD.0 : 
If AL=20 Then Toggle PORTD.1 : 
If AL=30 Then Toggle PORTC.3 : 
GoTo BASLA

End

Bende ancak bu şekilde az da olsa bi verim elde edebildim...saat 4 oldu yarın devam edeceğim artık....

çağatay abi senin protokolü deniyorum yemiyor....!

[Maxim]

Bu lanet modüllerden nerden aldıysam bende 2 çift aldım...Siparişlerini verdiğim o güne lanet olsun....maxi hocam bende çalıştıramadım şu modülleri bi gelişme varmı yoksa pes mi ettin?

mustafa hocam çalıştırdım ya ,
2. sayfada kodları vardı .

[mustafa_cmbz]

bende çalıştırdım hocam en sonunda modüller güzelmiş sadece teknik bilgi eksikliği var o yüzden sıkıntı çıkıyor....!

benim derdim alayli hocamın yazdığı rf protokolünü çalıştırabilmek....bu protokolün avantajı ise alayli hocamın dediğine göre mesafe artıyormuş ayrıca rf alıcadaki wait komutundan kurtulmuş oluyoruz...bklm inş üstesinden gelirim...! 


ayrıca ekleme yapım...bu modüllerin alıcı kısmı boşta olduğunda sizlerinde dediği gibi çok kararsız bir çıkış veriyor bunun için 10 defa preample sinyali gönderdim şuan sorunsuz çalışmakta....tek sıkıntı kaynağı sanırım alıcı çıkışının düzenli hale getirilmesi aksi takdirde gönderdiğiniz bilgiler rf modülün çıkışındaki parazitler ile karışarak micro işlemciye gitmekte....!