selam
ilk olarak kodları paylaşsan hızlı bir şekilde yardım alabiridin
rf de iletişimin sağlıklı olabilmesi için kullandığın verici ve alıcıların beslemesinde parazit olmamalı. besleme pinlerine +,- uçalarına paralel 100 nf kondansatör koymalısın.
verici de veri gönderme yaparken farzadelim
$A0,$A0,$A0,$A0,.......göndereceğin veri .....,13
ilk olarak gönderilen $a0 rf modulu uyandırır.ardından kumanda için kullanacağın veriyi gönderirsinve son olarakda iletişimin bittiğini hemde alıcı tarafında doğru iletişim olduğunu sorgulayacağın bir sabit değer (13) gönderirsin
bu dizimi vericide ard ard a 3,5 defa yaparsan bu yeterli olacaktır
pbp da şu şekilde
verici tarafı
serout portb.2,t600,[$A0,$A0,$A0,$A0,$A0,"aRci",tus,13]
serout portb.2,t600,[$A0,$A0,$A0,$A0,$A0,"aRci",tus,13]
serout portb.2,t600,[$A0,$A0,$A0,$A0,$A0,"aRci",tus,13]
aalıcı tarafı
rf:
serin portb.1,t600,[wait("aRci",gelen,onay]
if onay <> 13 then goto rf 'onay değişkenini değeri 13 değilse rf etiketine git
select case tus 'iletişim doğru olarak yapılmış ise tus değerini kullan
case... 'tus değerine göre çıkışlarını değiştir
case...
end select
goto rf