Haberler:

Foruma Resim Yükleme ve Boyut Sınırlaması ( ! )  https://bit.ly/2GMFb8H

Ana Menü

Proton İle Kapı Otomasyonu

Başlatan EmaNet, 08 Mayıs 2012, 23:38:21

EmaNet

Ya arkadaşlar bir uygulamam var ama röleler saçma sapan çalışıyor. Problemi bir türlü çözemedim. Yardımcı olacak arkadaşlara şimdiden teşekkürler.



Uygulamam Şu

Kapı normal olarak tamamen açılır ve kapanır sekilde çalısacak; ancak hareket herhangi bir anda durdurulabilecektir, kapının arada kalan herhangi bir aracı algılaması ve bu durumda kapanmaması yakınlık sensörü (proximity) tarafından sağlanacak ve kapı her harekete basladığında uyarı ısığı yanacak ve hareket durduğunda sönecektir. Kapı bir görevli tarafından açılıp kapanacaktır. Görevli önündeki butonlar yardımıyla kapıyı iki sekilde hareket ettirebilecektir. Birinci olarak açama veya kapama yönünde çalıstırmak için butonu basılı tutması gerekecektir. Elini çektiği anda hareket duracaktır. İkinci olarak açma veya kapama yönünde çalıstırmak için elini basıp çekmesi yeterli olacaktır. Kapı son noktaya kadar gelecek ve kendiliğinden duracaktır. Yakınlık sensörü tarafından arada bir cisim algılanması durumunda kapı olduğu yerde kalacak 5 saniye boyunca kapama
islemine izin vermeyecektir.

Device 16F628A
Xtal 4

TRISA=0
TRISB=0
'------------------------------------
Symbol GERI PORTB.0
Symbol ILERI PORTB.1
Symbol DUR PORTB.2
Symbol MILERI PORTB.3
Symbol MGERI PORTB.4
Symbol SENSOR PORTB.5
'------------------------------------
TRISB=%00100111
'------------------------------------
ANA:
If GERI=1 Then
MGERI=1
Else
MGERI=0
EndIf
PORTB=0
GoTo ILERIMOTOR
ILERIMOTOR:
If ILERI=1 Then
MILERI=1
Else
MILERI=0
EndIf
PORTB=0
GoTo GERIMOTOR
GERIMOTOR:
If SENSOR=1 Then
MGERI=1
Else
MGERI=0
EndIf
PORTB=0
GoTo ANA
End

EmaNet

Arkadaşlar kodu değiştirdim yine aynı şekilde saçma sapan çalışıyor anlayamadım.

Device 16F628A
Xtal 4
 
TRISA=0
TRISB=0
'------------------------------------
Symbol GERI PORTB.0
Symbol ILERI PORTB.1
Symbol DUR PORTB.2
Symbol MILERI PORTB.3
Symbol MGERI PORTB.4
Symbol SENSOR PORTB.5
'------------------------------------
TRISB=%00100111
'------------------------------------
ANA:
If GERI=1 Then
MGERI=1
Else
MGERI=0
EndIf
PORTB=0
GoTo ILERIMOTOR
ILERIMOTOR:
If ILERI=1 Then
MILERI=1
Else
MILERI=0
EndIf
PORTB=0
GoTo GERIMOTOR

GERIMOTOR:
While SENSOR=1
MGERI=1
DelayMS 5000
Wend         
MGERI=0
GoTo ANA
End

Maxim

anlaşılmayan nedir
saçma sapan olan davranış nedir
kod içerisinde konfig satırı nerede
neden hiç bir yerde 100nf kondansator yok
neden röle bobinlerinde ters diyot yok

ferit06

#3
programın @maxim in belittiği config dışında zaten eksik. acilstop butonunun karşılığında ne yapıyorsun?

programın şeklini aşağıdaki gibi değiştirmen daha iyi olur.

Device 16F628A
Xtal 4

Config .....................................
 
TRISA=0
TRISB=0
'------------------------------------
Symbol GERI PORTB.0
Symbol ILERI PORTB.1
Symbol DUR PORTB.2
Symbol MILERI PORTB.3
Symbol MGERI PORTB.4
Symbol SENSOR PORTB.5
'------------------------------------
TRISB=%00100111
'------------------------------------
basla:
While SENSOR=1
If ILERI=1 Then GoSub ILERIMOTOR
If GERI=1 Then GoSub GERIMOTOR
If Acilstop=1 Then GoSub xxxxx   ( burayı kesme ile düzenlemeniz daha iyi olur.

Wend

cisimvar:
x
 x
GoTo basla
'ANA:
'If GERI=1 Then
'MGERI=1
'Else
'MGERI=0
'EndIf
'PORTB=0
'GoTo ILERIMOTOR


ILERIMOTOR:
If ILERI=1 Then
MILERI=1
Else
MILERI=0
EndIf
PORTB=0
Return

GERIMOTOR:
While SENSOR=1
MGERI=1
DelayMS 5000
Wend         
MGERI=0
Return

xxxxxxx:

Return


End

EmaNet

Sorun çözüldü teşekkürler.

ete

Bir paylaşım sitesinden soruununuzla ilgili yardım istediniz ve bunun için detaylı açıklamalar yaptınız.
Şimdi ise sorunu bir şekilde çözdünüz ama aynı titizliği çözüm mesajına göstermediniz neden?.
Sürekli olarak sorunlar ve çözümleri ile uğraştığımıza göre sorunun çözümünüde açıklamanız ve böylece benzer sorunları yaşayanlara yardımcı olmanızı beklerdik. 

Ete
Bilgi hazinedir paylaştıkça büyür.            http://etepic.com

EmaNet

Sayın ete bey,
Vaktim olmadığı için projeyi tamamının döküman şeklinde paylaşamadım. En kısa sürede bitmiş halini yayınlayacağım iyi çalışmalar herkese.

mustafacan

Alıntı yapılan: EmaNet - 16 Mayıs 2012, 17:22:02
Sayın ete bey,
Vaktim olmadığı için projeyi tamamının döküman şeklinde paylaşamadım. En kısa sürede bitmiş halini yayınlayacağım iyi çalışmalar herkese.
diyen o kadaaaar çok insan gördümki... Artık inanasım gelmiyor.
Keşfedilecek çok teknoloji var. Boş Vaktim Yok!