19 Ocak 2020, 22:29:03

Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME


15 dakika ve 15 saniye timer

Başlatan ipek, 26 Şubat 2013, 02: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_ONBODEN_OFFMCLRE_OFFPWRTE_ONWDT_ONINTRC_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_ONBODEN_OFFMCLRE_OFFPWRTE_ONWDT_ONINTRC_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.