Proton İle Kapı Otomasyonu

[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]

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

[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]

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.