15 dakika ve 15 saniye timer

Başlatan ipek, 25 Şubat 2013, 23:44:59

ipek

crapsh
belki başkalarıda faydalanır özelden buraya taşıdım . kodlar Proton basic ile yazılmış.

Kodlar OG hocam'a ait mikro ekle yaptım. ilk etapta isteğini görür gibi duruyor fakat senin buton ters çalısıyor,doğrusu nasıl invert edilir bulamadım. siz diğer taraftan invert edebilirseniz daha iyi olur.
jumper meselesi beni aşıyor kalın sağlıcakla..

15 saniye örneği
Device = 12F675 
Config CPD_OFF, CP_ON, BODEN_OFF, MCLRE_OFF, PWRTE_ON, WDT_ON, INTRC_OSC_NOCLKOUT

Xtal = 4
Set_OSCCAL

All_Digital = TRUE  

CMCON = 7
ANSEL = 0
TRISIO = %00111100      
OPTION_REG = %00001111  
WPU = %00000100         				
INTCON = 0       

Dim say As Word
Dim buton_hafiza As Bit

Dim buton As GPIO.2
Dim LED As GPIO.1
Dim LEDs As GPIO.0

GPIO = 0
DelayMS 100     					'' cihaza enerjilenince yerlesme süresi verelim
Clrwdt  
'''''''''''''''''

buton_hafiza = buton

Main:
    LEDs =  1
    DelayMS 1
    Clrwdt
    If buton = buton_hafiza Then Main  	'' buton basilmasini bekle
    
    buton_hafiza = buton

	LEDs = 0						'' Buton basildi ledi yak
    LED = 1
    
birak:
    For say = 1 To 15000  '15 saniyelik bekleme süresi
        DelayUS 968
        Clrwdt
        
        If buton <> buton_hafiza Then
            buton_hafiza = buton
            GoTo birak
        EndIf
    Next

							'' süre bitti    
    LED = 0
    buton_hafiza = buton
GoTo Main


:100000002728A301A200FF30A207031CA307031C9B
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0070000A10F152820181E28A01C2228A8
:100040000000222808008313831203130800830191
:10005000FF238316900083120730990083169F01B7
:100060008312990083169F013C3085000F30810078
:10007000043095008B0183128501643001206400F7
:1000800083100519831483182614831C2610051465
:1000900001300120640003010519013E2618013CCE
:1000A000031D532847288310051983148318261429
:1000B000831C261005108514A5010130A4003A30D8
:1000C0002502031C6928031D812899302402031886
:1000D00081280330A100C8300F20640003010519F6
:1000E000013E2618013C03197D288310051983144D
:1000F00083182614831C26105C28A40A0319A50F54
:100100005F28851083100519831483182614831C17
:06011000261047288A2892
:02400E000C3F65
:00000001FF



15 dakika örneği
Device = 12F675 
Config CPD_OFF, CP_ON, BODEN_OFF, MCLRE_OFF, PWRTE_ON, WDT_ON, INTRC_OSC_NOCLKOUT

Xtal = 4
Set_OSCCAL

All_Digital = TRUE  

CMCON = 7
ANSEL = 0
TRISIO = %00111101      
OPTION_REG = %00001111  
WPU = %00000100         				
INTCON = 0       

Dim say As Word
Dim buton_hafiza As Bit

Dim buton As GPIO.2
Dim LED As GPIO.1
Dim LEDs As GPIO.0

GPIO = 0
DelayMS 100     					'' cihaza enerjilenince yerlesme süresi verelim
Clrwdt  
'''''''''''''''''

buton_hafiza = buton

Main:
    LEDs =  1    'GPIO 0 Led'ini yak
    DelayMS 1
    Clrwdt
    If buton = buton_hafiza Then Main  	'' buton basilmasini bekle
    
    buton_hafiza = buton    '' Buton basildi ledi yak

	LEDs = 0	'GPIO 0 led'ini söndür					
    LED = 1     'GPIO 1 Led'ini yak

birak:
    For say = 1 To 19920  ' 15 dakikalık bekleme süresi
        DelayMS 45
        Clrwdt
        
        If buton <> buton_hafiza Then
            buton_hafiza = buton
            GoTo birak
        EndIf
    Next


							'' süre bitti    
    LED = 0
    buton_hafiza = buton
GoTo Main


:100000002728A301A200FF30A207031CA307031C9B
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0070000A10F152820181E28A01C2228A8
:100040000000222808008313831203130800830191
:10005000FF238316900083120730990083169F01B7
:100060008312990083169F013D3085000F30810077
:10007000043095008B0183128501643001206400F7
:1000800083100519831483182614831C2610051465
:1000900001300120640003010519013E2618013CCE
:1000A000031D532847288310051983148318261429
:1000B000831C261005108514A5010130A4004D30C5
:1000C0002502031C6928031D7F28D1302402031850
:1000D0007F282D300120640003010519013E2618F8
:1000E000013C03197B2883100519831483182614F7
:1000F000831C26105C28A40A0319A50F5F2885100D
:1001000083100519831483182614831C261047288E
:0201100088283D
:02400E000C3F65
:00000001FF

crapsh

Biraz geç yazdığım için kusura bakmayın. Bu program benim işimi görecek gibi fakat bilmediğim bir program derlemesi biraz uğraşayım olmazsa tekrar size sorarım. Teşekkür ederim ..

EAelek.

banada butonla ilgili bi calısmada yardımcı olabılırmısızz

OG

@ipek hocam, mesajı yeni gördüm,
üstteki soru hala gecerli mi?
FORUMU İLGİLENDİREN KONULARA ÖM İLE CEVAP VERİLMEZ.