Zaman Gecikmesiyle durum değiştirme

[FEHMİ_ASM]

    Merhaba. Araçta kullanılacak bir fonksiyon için aşağıdaki devrede bir değişiklik yapmam gerekiyor.

    Butona bir kez bastıktan sonra (basılma anından itibaren) süre başlamalı ve yaklaşık 5 sn sonra sönmeli, buton basılmaya devam etse bile zaman yenilenmemeli.

[OG]

pic ile olmazmı?

[kudretuzuner]

Merhaba
555'in tek atım özelliği size fikir verecektir.Kolay gelsin.
http://www.dosyasitesi.com/download.php?file=73af3b19c461317b92ba3339bf30dc19

[FEHMİ_ASM]

pic ile olmazmı?

  Hocam olur ama basit birşey olsun istiyorum. Araçtaki marş, kontak vb durumların etkilememesi lazım ( bunu sağlamak için bir de voltaj adaptörü gerekecek). Uygun bi şema bulamazsam ya Kudretuzuner hocamızın dediği gibi 555 ile ya da son çare pic ile yapacağım.

[OG]

https://hotfile.com/dl/165830590/0b027d3/5sn.rar.html

Device = 12F675

Config FOSC_INTRCIO, WDTE_ON, PWRTE_ON, MCLRE_OFF, BOREN_ON, CP_ON, CPD_ON

Set_OSCCAL
Declare Xtal 4
All_Digital = TRUE
   
TRISIO = %00111110

ANSEL=0
CMCON=7                

INTCON=0   
OPTION_REG=%10001111
GPIO = 0


Dim w_1 As Word
Dim saniye As Byte

Dim buton As GPIO.2
Dim cikis As GPIO.0

Dim pasif As 0
Dim aktif As 1

DelayMS 100
Clrwdt

''''''''''''''''''''''''''''''''''''

Basla:
    cikis = 0
    
    
bekle:
    DelayMS 1
    Clrwdt
    If buton = pasif Then bekle
    
    cikis = 1
    
    For saniye = 1 To 5
        For w_1 = 1 To 1000
            DelayUS 987
            Clrwdt
        Next
    Next
    
    cikis = 0
    
   
buton_birak:
    For w_1 = 1 To 100
        DelayMS 1
        Clrwdt
        If buton = aktif Then buton_birak
    Next
GoTo bekle

:100000002728A301A200FF30A207031CA307031C9B
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0070000A10F152820181E28A01C2228A8
:100040000000222808008313831203130800830191
:10005000FF238316900083120730990083169F01B7
:100060003E3085009F010730831299008B018F304D
:10007000831681008312850164300120640005101D
:10008000013001206400051946284028051401307C
:10009000A6000630260203186728A5010130A40037
:1000A00003302502031C5A28031D6328E93024026B
:1000B000031863280330A100DB300F206400A40A7A
:1000C0000319A50F50280130A607031C4928051065
:1000D000A5010130A400A508031D7C286530240279
:1000E00003187C28013001206400051D7828682849
:0C00F000A40A0319A50F6B2840287D28E6
:02400E000000B0
:00000001FF

upload photo


mesaj birleştirme:: 06 Ağustos 2012, 22:01:01
..
.
-----------

OPTO şart değil, buton kablosu uzayınca parazit kapmasın diye kullanıyoruz.

[ErsinErce]

tek kontaklı röle yerine çift kontaklı röle kullanın, rölenin kapalı kontağının birinden butonu geçirin

[FEHMİ_ASM]

    OG hocam hem kod yazmışsınız, hem derleyip vermişsiniz. Sağ olunuz. Bu arada 12F i de görmüş oldum. Şemadaki bağlantıları kullanacağım.

@Ersinerce, benzer birşeyi ben de düşündüm fakat yapamadım. Hiç işlemci kullanmayacaksanız nasıl yapılacağını şema ile gösterir misiniz?

[serdararikan]

tek kontaklı röle yerine çift kontaklı röle kullanın, rölenin kapalı kontağının birinden butonu geçirin

çözüm bu.merdiven otomatiği sistemide aynı şekilde çalışıyor.