Uzaktan Kontrol ile LCD ekrana yazı yazdırma

arci' Alıntı:

isis de sarı renk görüyorsan kısa devre var demektir vericileri isiste birbirine bağladığın zaman iletişimde çıkış + dan eksiye geçtiğinde diğer vericilerin çıkışları hala artı da bekliyor ve kısa devre oluşuyor ama uygulamada rf olacağı için yani fiziksel bağlantı olmayacağı için bu sorunu yaşamazsın.

gönderidiğim devreye portb nin tüm uçlarına bir switch bağla ve verdiğim kodları eskileri ile değiştirmen yeterli olacak

verici için şu değişiklikleri yap
portb nin tüm pinlerini giriş yap trisb = 255
portb den masa_no al masa_no = portb

alıcıda ise bir değişikliğe ihtiyaç yoktur.

Genişletmek için tıkla ...

tsk arkadasım valla cok yardımcı oldun son olrak bana

altı cızılı yer değişik arkadasım he bir kodları yazsan valla ugrasıom olmuo

birde suradakı alıcı verıcı kullanabilirmıyım ve olursa acık alanda 150 m diyorda ?

ayrıca ucuna kutu içinde olacagı için 10 cm falan bobin gibi alten lehimleyebilrim cekım gucu için ?
433MHZ Verici http://www.direnc.net/433MHZ-Verici,PR-14836.html

433MHZ Alıcı http://www.direnc.net/433MHZ-Alici,PR-14835.html

'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%00000110 'VERİCİ PORTA.0
TRISB=%255 'PORTB GİRİŞ DİĞERLERİ ÇIKIŞ
CMCON=7 'KOMPARATÖR PİNLERİNİN HEPSİ DİJİTAL GİRİŞ VE ÇIKIŞ
'OPTION_REG.7=0 'PULL UP DİREÇLERİNİ KULLANMAYA GEREK YOK

'*****DEĞİŞKENLERİ TANIMLA*****
SYMBOL CIKIS=PORTA.0 'HABERLEŞME HATTI
VER VAR BYTE

masa_no var byte 'kartın İP nosu

VER=0

PAUSE 500

BASLA:
masa_no = portb >> 4
IF PortA.1 = 0 THEN
VER = 100
GOSUB GONDER
ENDIF

IF PortA.2 = 0 THEN
VER = 200
GOSUB GONDER
ENDIF
pause 100
GOTO BASLA

GONDER:
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
RETURN
END

yaptım galiba tşk ederım ( daha dogrusu sen yaptın ben hazıra kondum ama anladım dosya yı sonradan gordum şimdii ilave buton da ekledım buna verıcıye boyle daha iyi anlyırum yanlıs ama ne yapayım o kadar basıyor kafa cok tşkler arkdaslarım

Ben birşey yapmadım arkadaşım.Eğer işin görüldüyse ne mutlu bize...)
Kusura bakma mesajı görmedim.Ben bi araç yapıyorum.Son 1,5 aydır onunla uğraşıyordum.3 gün önce test sürüşü yaptık.Yarın güzel bir test sürüşü daha yapacağız. videoyu gönderirim...

peki arkadasım yollarsın tşk edeırm malzeme ve mesefa ile ilgili bilgi verırsen sevırınım ... birde yukarıda tx rx malzemere anten cıkısı - girişine 17 cm bakır teli bobin gibi sarılınca mesefa artıyormus .... arci ya kafayı yedım verıcıye 3. 4 . butonları ekleyınce gormuyor alıcı ...laparganın devreıs oluyorda verıcı artınca 628 hafıza problemı oalbilir belki tşkler ikinizede

dogru odlguunu dusunuyorum


masax

'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%00001110 'VERİCİ PORTA.0
TRISB=255 'PORTB GİRİŞ DİĞERLERİ ÇIKIŞ
CMCON=7 'KOMPARATÖR PİNLERİNİN HEPSİ DİJİTAL GİRİŞ VE ÇIKIŞ
'OPTION_REG.7=0 'PULL UP DİREÇLERİNİ KULLANMAYA GEREK YOK

'*****DEĞİŞKENLERİ TANIMLA*****
SYMBOL CIKIS=PORTA.0 'HABERLEŞME HATTI
VER VAR BYTE

masa_no var byte 'kartın İP nosu

VER=0

PAUSE 500

BASLA:
masa_no = portb
IF PortA.1 = 0 THEN
VER = 100
GOSUB GONDER
ENDIF

IF PortA.2 = 0 THEN
VER = 200
GOSUB GONDER
ENDIF

IF PortA.3 = 0 THEN
VER = 210
GOSUB GONDER
ENDIF

pause 100
GOTO BASLA



GONDER:
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
SEROUT2 CIKIS,396,["D","E","V","R","E",masa_no,VER,13] '13 iletişimin bittiğini ve doğrulunu gösterecek
RETURN
END


alıcı


'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%0000011 'PORTA.0 HABERLEŞME HATTI VAR GİRİŞ
TRISB=0 'PORTB TAMAMI ÇIKIŞ
PORTA=0
PORTB=0
OPTION_REG.7=0
CMCON=7

'*****Lcd TANIMLAMALARI*****
DEFINE LCD_DREG PORTB 'LCD DATA BACAKLARI PORTB'YE BAĞLI
DEFINE LCD_DBIT 4 'LCD DATA BACAKLARI PORTB.4 BAĞLI
DEFINE LCD_EREG PORTB 'LCD ENABLE PİNİ PORTB'YE BAĞLI
DEFINE LCD_EBIT 3 'LCD ENABLE PİNİ PORTB.3 BAĞLI
DEFINE LCD_RSREG PORTB 'LCD RS PİNİ PORTB'YE BAĞLI
DEFINE LCD_RSBIT 2 'LCD RS PİNİ PORTB.2 BAĞLI
DEFINE LCD_BITS 4 'LCD 4 BIT BAĞLI
DEFINE LCD_LINES 4 'LCD 4*20


'*****DEĞİŞKENLERİ TANIMLA*****
AL VAR BYTE 'BYTE CİNSİNDEN TANIMLAMA
onay var byte
masa_no var byte
GIRIS VAR PORTA.0

CLEAR '500MS BEKLE
porta=1
PORTB=0
LCDOUT $FE,$2,"RF ALICI"
BASLA:


SERIN2 GIRIS,396,[WAIT("DEVRE"),masa_no,AL,onay]
toggle porta.3
if onay = 13 then
IF AL=100 THEN
LCDOUT $FE,1
LCDOUT $FE,$2 ,"MASA ",#masa_no
LCDOUT $FE,$C0,"Elektrik ARIZA"
ENDIF
IF AL=200 THEN
LCDOUT $FE,1
LCDOUT $FE,$2 ,"MASA ",#masa_no
LCDOUT $FE,$C0,"MEKANIK ARIZA"
ENDIF

IF AL=210 THEN
LCDOUT $FE,1
LCDOUT $FE,$2 ,"MASA ",#masa_no
LCDOUT $FE,$C0," ARIZA"
ENDIF


endif

goto basla
END

selam senin kodları birebir denedim bende çalıştı acaba picler aynı frekanstamı kontrol et

arci' Alıntı:

selam senin kodları birebir denedim bende çalıştı acaba picler aynı frekanstamı kontrol et

Genişletmek için tıkla ...

evet aynı saten senın verdıgın devreye ilave 1 buton direcn ekledım ve bu kodları yazdım ama calısmadı .neyse deneyım yenıden


şimdı calıyor ALLAH ALLAH sasırdım ...ilave olarak RA4 5 6 7 gırışlerıde kullanıulır herhalde ....