12 rf röle devresi için programda bir düzeltme talebi...

[TurkishMech]

Arkadaşlar

PIC 16F84A İle 12 Kanal RF Kumandalı Alıcı Verici Devresi...

linkteki devreyi yaptım pushpull olarakta çalıştırdım ancak aynı anda 2 butona basıldığında çalışmıyor.

bu durumu düzeltebilecek biri varmı acaba? acil yardım bekliyorum
Aşağıda çalışan devre 2 butona birden basıldığında da aynen çalışsın istiyorum...

push pull çalışan devre ve programı aşağıda...

 

[TurkishMech]

bu soruyada cevap alamicaz anlaşılan bi yardım edebilecek olan yokmu çokmu zor şeyler istiyoruz...

 

[NBATMAN]

Merhaba,

Benim PIC16F628A ile seri porttan bir PC ye gönderdiğim bilgiler (I00000000) için yazdığım kodlar aşaşğıdadır. Vede çalışıyor.
8 adet butondan hanangisine basılırsa basılsın (aynı anda birden çok ) onu bu bilgide değiştirerek sürekli olarak pc ye gönderir.

Örneğin 2 ve 5. butonlar basılsın gönderilecek veri I01001000 şeklinde olacaktır. bırakıldığında ise I00000000 şekline geri döner. Alıcı kısmını henüz yapmadım ama bu gönderme mantığı ile alıcı tarafını yapabilirsin düşüncesindeyim...Kodlar uzun ibi fakat açıklamalr bu şekilde görünmesine neden oluyor. Korkulacak bir şey yok.

'*******************************************Tanımlamalar*************************************************
CMCON=7 '16F628 de komparatör (Analog) pinleri iptal. Hepsi giriş çıkış olarak ayarlanıyor.
trisa = 1 'porta giriş yapıldı
trisb = 0 'portb çıkış yapıldı
B0 Var Byte 'B0 isimli değişken tanımlanıyor.
B0 = 0 'B0 isimli değişken 0 değeri atanıyor.
B1 Var Byte 'B1 isimli değişken tanımlanıyor.
B1 = 0 'B1 isimli değişken 0 değeri atanıyor.
B2 Var Byte 'B2 isimli değişken tanımlanıyor.
B2 = 0 'B2 isimli değişken 0 değeri atanıyor.
B3 Var Byte 'B3 isimli değişken tanımlanıyor.
B3 = 0 'B3 isimli değişken 0 değeri atanıyor.
SO Var PORTB.2 'SC isimli değişken tanımlanıyor.Ve PORTB.2 değeri atanıyor.
PORTB.1 = 0 'PortB deki 1 nolu çıkış (Led) Pasif ediliyor.
INSEND1 Var Byte
INSEND1="0"
INSEND2 Var Byte
INSEND2="0"
INSEND3 Var Byte
INSEND3="0"
INSEND4 Var Byte
INSEND4="0"
INSEND5 Var Byte
INSEND5="0"
INSEND6 Var Byte
INSEND6="0"
INSEND7 Var Byte
INSEND7="0"
INSEND8 Var Byte
INSEND8="0"

Butonkontrol:
'****************************************************AKTİF DURUMU************************************************************************************
'---------------------INPUT1 AKTİF kontrol-----------------------------
BUTTON PORTA.0,0,255,5,B0,1,IND1_A 'PortA daki 0 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT2 AKTİF kontrol--------------------------
BUTTON PORTA.1,0,255,5,B1,1,IND2_A 'PortA daki 1 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'---------------------INPUT3 AKTİF kontrol-----------------------------
BUTTON PORTA.2,0,255,5,B0,1,IND3_A 'PortA daki 2 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT4 AKTİF kontrol--------------------------
BUTTON PORTA.3,0,255,5,B1,1,IND4_A 'PortA daki 3 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'---------------------INPUT5 AKTİF kontrol-----------------------------
BUTTON PORTA.4,0,255,5,B0,1,IND5_A 'PortA daki 4 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT6 AKTİF kontrol--------------------------
BUTTON PORTA.5,0,255,5,B1,1,IND6_A 'PortA daki 5 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'---------------------INPUT7 AKTİF kontrol-----------------------------
BUTTON PORTA.6,0,255,5,B0,1,IND7_A 'PortA daki 6 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT8 AKTİF kontrol--------------------------
BUTTON PORTA.7,0,255,5,B1,1,IND8_A 'PortA daki 7 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'****************************************************PASİF DURUMU************************************************************************************
'---------------------INPUT1 PASİF kontrol-----------------------------
BUTTON PORTA.0,1,255,5,B0,1,IND1_P 'PortA daki 0 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT2 PASİF kontrol--------------------------
BUTTON PORTA.1,1,255,5,B1,1,IND2_P 'PortA daki 1 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'---------------------INPUT3 PASİF kontrol-----------------------------
BUTTON PORTA.2,1,255,5,B0,1,IND3_P 'PortA daki 2 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT4 PASİF kontrol--------------------------
BUTTON PORTA.3,1,255,5,B1,1,IND4_P 'PortA daki 3 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'---------------------INPUT5 PASİF kontrol-----------------------------
BUTTON PORTA.4,1,255,5,B0,1,IND5_P 'PortA daki 4 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT6 PASİF kontrol--------------------------
BUTTON PORTA.5,1,255,5,B1,1,IND6_P 'PortA daki 5 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
'---------------------INPUT7 PASİF kontrol-----------------------------
BUTTON PORTA.6,1,255,5,B0,1,IND7_P 'PortA daki 6 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor.
'---------------------INPUT8 PASİF kontrol--------------------------
BUTTON PORTA.7,1,255,5,B1,1,IND8_P 'PortA daki 7 nolu giriş (Butonun) basılı olup olmadığı kontrol ediliyor.
PORTB.0 = 0 'PortB deki 0 nolu çıkış (Led) Söndürülüyor
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.

'****************************************************AKTİF DURUMU*********************************************************************************************************************************
'---------------------INPUT1 AKTİF bilgisi RS232 den gönderme----------
IND1_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND1="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 AKTİF bilgisi RS232 den gönderme-------
IND2_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND2="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT1 AKTİF bilgisi RS232 den gönderme----------
IND3_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND3="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 AKTİF bilgisi RS232 den gönderme-------
IND4_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND4="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.

'---------------------INPUT1 AKTİF bilgisi RS232 den gönderme----------
IND5_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND5="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 AKTİF bilgisi RS232 den gönderme-------
IND6_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND6="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT1 AKTİF bilgisi RS232 den gönderme----------
IND7_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND7="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 AKTİF bilgisi RS232 den gönderme-------
IND8_A:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND8="1"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.

'****************************************************PASİF DURUMU*********************************************************************************************************************************

'---------------------INPUT1 PASİF bilgisi RS232 den gönderme---------
IND1_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND1="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 PASİF bilgisi RS232 den gönderme---------
IND2_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND2="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT1 PASİF bilgisi RS232 den gönderme---------
IND3_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND3="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 PASİF bilgisi RS232 den gönderme---------
IND4_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND4="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT1 PASİF bilgisi RS232 den gönderme---------
IND5_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND5="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların"bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 PASİF bilgisi RS232 den gönderme---------
IND6_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND6="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT1 PASİF bilgisi RS232 den gönderme---------
IND7_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND7="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
'---------------------INPUT2 PASİF bilgisi RS232 den gönderme---------
IND8_P:
PORTB.0 = 1 'PortB deki 0 nolu çıkış (Led) yakılıyor.
INSEND8="0"
Serout SO,2,["I",INSEND1,INSEND2,INSEND3,INSEND4,INSEND5,INSEND6,INSEND7,INSEND8] 'PortB deki 2 nolu çıkış (TXD) üzerinden 9600N81 ile "Tüm butonların" bilgisi gönderiliyor.
Pause 500 '100ms bekleniyor.
GOTO Butonkontrol 'Butonkontrola geri döndürülerek sürekli butonların basılı olup olmadığı kontrol edilir.
END

 

[TurkishMech]

çok teşekkür ederim üşünmeyip eklediğiniz bu kodlar pek çok kişiye yardımcı olacaktır...

 

[NBATMAN]

çok teşekkür ederim üşünmeyip eklediğiniz bu kodlar pek çok kişiye yardımcı olacaktır...

Rica ederim...Bir işe yaradıysa ne mutlu bana.

 

[ferruh22]

emegınıze saglık...kesınlıkle ıse yarayacaktır ve cok ıyı örnek olacaktır..