Button Basili iken islem devam etmesi yardim !!

[Seref66]

kodu su sekilde yazdim ve motor verdigim komuta göre calisiyor..
sorun daire icerisine aldigim yerde?



'****************************************************************
'*  Name    : GARAJ KAPISI                                      *
'*  Author  : SEREF                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 08.11.2013                                        *
'*  Version : 1.0                                               *
'*  Notes   : GARAJ KAPISI KONTROL SISTEMI                                                  *
'*          :                                                   *
'****************************************************************


TRISA=%11111          'A portu giris, olarak ayarlandi
TRISB=%00000000       'B portu cikis, olarak ayarlandi

PORTA=0
PORTB=0

SURE VAR BYTE


BASLA: '##########################################################

IF  PORTA.1=1 THEN ' Kapi Kapanmis ve Button basili ise:-----------

LOW PORTB.0 '-----------------------------------------------------
LOW PORTB.1 '-----------------------------------------------------
LOW PORTB.2 '-----------------------------------------------------
LOW PORTB.3 '-----------------------------------------------------
SURE=2 '----------------------------------------------------------
PAUSE 100 '-------------------------------------------------------

goto basla '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

endif '-----------------------------------------------------------


IF  PORTA.2=1 THEN ' Kapi Acilmis ve Button basili ise:-----------

LOW PORTB.0 '-----------------------------------------------------
LOW PORTB.1 '-----------------------------------------------------
LOW PORTB.2 '-----------------------------------------------------
LOW PORTB.3 '-----------------------------------------------------
SURE=0 '----------------------------------------------------------
PAUSE 100 '-------------------------------------------------------

goto basla '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

endif '-----------------------------------------------------------

IF  PORTA.3=1 THEN ' Kapi Kapaniyorken Tehlike Varsa:-------------

LOW PORTB.0 '-----------------------------------------------------
LOW PORTB.1 '-----------------------------------------------------
LOW PORTB.2 '-----------------------------------------------------
LOW PORTB.3 '-----------------------------------------------------
SURE=2 '----------------------------------------------------------
PAUSE 100 '-------------------------------------------------------

goto basla '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

endif '-----------------------------------------------------------





IF  PORTA.0=1 THEN '----------------------------------------------

SELECT CASE  SURE '-----------------------------------------------
 
CASE 0 '----------------------------------------------------------
HIGH PORTB.0 '----------------------------------------------------
LOW PORTB.1 '-----------------------------------------------------
LOW PORTB.2 '-----------------------------------------------------
LOW PORTB.3 '-----------------------------------------------------
PAUSE 100 '-------------------------------------------------------
SURE=1'-----------------------------------------------------------
 
CASE 1 '-----------------------------------------------------------
LOW PORTB.0 '------------------------------------------------------
HIGH PORTB.1 '-----------------------------------------------------
LOW PORTB.2 '------------------------------------------------------
LOW PORTB.3 '------------------------------------------------------
PAUSE 100 '--------------------------------------------------------
SURE=2'------------------------------------------------------------
 
CASE 2 '-----------------------------------------------------------
LOW PORTB.0 '------------------------------------------------------
LOW PORTB.1 '------------------------------------------------------
HIGH PORTB.2 '-----------------------------------------------------
LOW PORTB.3 '------------------------------------------------------
PAUSE 100 '--------------------------------------------------------
SURE=3 '-----------------------------------------------------------
 
CASE 3 '-----------------------------------------------------------
LOW PORTB.0 '------------------------------------------------------
LOW PORTB.1 '------------------------------------------------------
LOW PORTB.2 '------------------------------------------------------
HIGH PORTB.3 '-----------------------------------------------------
PAUSE 100 '--------------------------------------------------------
SURE=0'------------------------------------------------------------
 
END SELECT'--------------------------------------------------------
 
ENDIF '------------------------------------------------------------

GOTO BASLA '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

END '--------------------------------------------------------------

[Seref66]

yadimci olmak isteyen arkadaslar icin gerekenleri ekliyorum.

[İlyas KAYA]

Buyur arkadaşım isis şemanda değişiklik yapıp programını komple çalışan bir garaj kapısı sistemi yaptım. Ektedir.

PCB ne göre portlarda değişiklik yapabilirsin.


Çalışması ise şu şekildedir ;

1- butona bas aç (eğer açmadaki limit switch açık değilse)
2- butona bas durdur.
3- butona bas kapat (eğer kapatmadaki limit switch açık değilse)
4- limitswitch lere geldiğinde dur.
5- acil durum butonu basılı ise ledi yakıp söndür ve motorları durdur.
6- emniyet sensöründen giriş algılandığında kapı kapanma yönünde ise dur ve 1 sn sonra geri aç.

limitswitch ler ve acil durum butonu "NC" normalda kapalı kontaktır ki piyasada da bu şekilde bulunur.
Dilersen normalde açık ile yazılımdan değiştirebilirsin.

Ayrıca açıklamalar kodlar içerisinde vardır.

Selametle.

[Seref66]

Tesekkür ederim arkadas zaman ayirib ilgilendigin icin, Funktion olarak calisiyor kodlari inceleyecegim.
burada bir sormak istedigim sorular var.

1. bu c1 100 nf ek beslememi oluyor?
2.bu pin baglantilari nasil ekleniyor görünüm olarak daha temiz duruyor nasil ekleyebilirim. ( kprl,acrl gibi)
3.bu devre 5 volta göremi ayarli.
4.R1 ve R2 2k2 olmasimi gerek?

tekrar tsk iyi günler,,,

[İlyas KAYA]

Tesekkür ederim arkadas zaman ayirib ilgilendigin icin, Funktion olarak calisiyor kodlari inceleyecegim.
burada bir sormak istedigim sorular var.

1. bu c1 100 nf ek beslememi oluyor?
2.bu pin baglantilari nasil ekleniyor görünüm olarak daha temiz duruyor nasil ekleyebilirim. ( kprl,acrl gibi)
3.bu devre 5 volta göremi ayarli.
4.R1 ve R2 2k2 olmasimi gerek?

tekrar tsk iyi günler,,,

Rica ederim

Cevaplar:
1- 100nf kondansatördür ve  PIC'in besleme bacaklarına en yakın yere takılacaktır.
2- Sol kısımdan "Terminals Mode" > "Default" seçip istediğiniz bir yere bırakıyor ve üstüne tıklayıp isim veriyorsunuz. Aynı ismi verdiğiniz terminaller birbirine bağlı olmuş oluyor. Farklı terminaller için farklı isim vermek zorundasınız.
3- PIC devreleri 5volta göredir. Giriş geriliminizi bilmiyorum bu nedenle herhangi birşey öneremem. Eğer 12volt girecekseniz 7805 ekleyip PIC'e öyle girmelisiniz.
4- 2k2 olması şart değildir ancak transistörün rolelerin çekebileceği akımı sağlayabilmesi ve aynı zamanda "EB" akımından kaynaklanan yükte PIC' in portunun zarar görmesini engellemek için idealdir. İsterseniz 1K da olabilir.

NOT: ledlerdeki 220R değil en az 470R olması lazımdı ben kısık yandıkları için değiştirmiştim ancak siz asıl devrede LED lere en az 470R takın. 

[Seref66]

Anladim cok aciklayici olmus tsk deneyecegim :-)