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
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 ..
banada butonla ilgili bi calısmada yardımcı olabılırmısızz
@ipek hocam, mesajı yeni gördüm,
üstteki soru hala gecerli mi?