basit zamanlayıcı

[ipek]

bir kaç fonsiyonlu zamanlayıcı yapmaya çalıştım ortaya aksakta olsa bir şeyler çıktı.
pause10' lar aslında pause1000 olacak,denemeler sırasında hızlandırabilmek için bu değerleri verdim.

zamanlara istediğim şekilde sadık kalıyor buraya kadar bir problem yok,program counter döngüye girince işini yapmadan çıkmıyor
zaten aslıda böyle galiba bir kurnazlık mevcutmudur?? komitatörü çevirdiğim an program counteri sıfırlayıp o an seçilmiş olan programa sıfırda başlasın..

http://hotfile.com/dl/125067761/2b44e2e/10_m_Sec.rar.html

' Timer 10 msec
@ device pic12f675, intrc_osc_noclkout, wdt_on, pwrt_on, mclr_off, protect_off

REM device = 12F675
CMCON = 7          ' SETS DIGITAL MODE
ANSEL = 0          ' GPIO.0 TO GPIO.3 SET AS DIGITAL
TRISIO = %00011111    ' 1 input 0 output left start
VRCON.7 = 0       ' TURN OFF VOLTAGE REFERENCE
WPU = %010111       ' any pin pullup  1 pul 0 disable pin
OPTION_REG.7=0      ' pullup enables
'INTCON = 0       ' No interrupt

DEFINE OSCCAL_1K 1    ' TO SAVE OSCILLATOR CALIBRATION

X     VAR WORD
Y     VAR WORD

GPIO = 0    'CLEAR Ports
TIME Var byte

START: 
    IF GPIO.0=0 THEN    TIME =1
    IF GPIO.1=0 THEN    TIME =2
    IF GPIO.2=0 THEN    TIME =3
    IF GPIO.4=0 THEN    TIME =4
    IF GPIO.3=0 THEN    TIME =5
   
         
    IF  TIME =1 THEN
    HIGH GPIO.5
    FOR X= 0 TO 180     ' ON    3   dakika 180   
    PAUSE 10
    Next X
    LOW GPIO.5
    For Y= 0 to 3420    ' OFF   57  dakika 3420
    pause 10
    next Y
    ENDIF

       
    IF  TIME =2 THEN
    HIGH GPIO.5
    FOR X= 0 TO 540     ' ON    9   dakika 540   
    PAUSE 10
    NEXT X
    LOW GPIO.5
    For Y= 0 to 3060    ' OFF   51  dakika 3060     
    PAUSE 10
    Next Y         
    ENDIF
   
     
    IF  TIME =3 THEN   
    HIGH GPIO.5
    FOR X= 0 TO 1080    ' ON    18 dakika  1080   
    PAUSE 10
    NEXT X
    LOW GPIO.5
    For Y= 0 to 2520    ' OFF   42  dakika 2520   
    PAUSE 10
    NEXT Y         
    ENDIF
   
     
    IF  TIME =4 THEN     
    HIGH GPIO.5
    FOR X= 0 TO 1620    ' ON    27  dakika 1620     
    PAUSE 10
    NEXT X
    LOW GPIO.5
    For Y= 0 to 1980    ' OFF   33  dakika 1980     
    PAUSE 10
    NEXT Y         
    ENDIF

   
    IF  TIME =5 THEN     'sürekli çıkış ver
    HIGH GPIO.5
    ENDIF

     
    GOTO START
'    END
             

[My75]

Hocam kurnazlığı şöyle..

Pause 1000 çok uzun bir süre..Bunun yerine word tipi değişken seçip,pause 100 gibi süreyi kısaltıp aynı döngü içindede komutatörü kontrol ederseniz sorun kalmaz..Sizin için düzenleyebilirim..

[ipek]

sevinirim şu an pause 10 olmasına rağmen yanıltamadım..

[My75]

Düzenledim..

' Timer 10 msec
@ device pic12f675, intrc_osc_noclkout, wdt_on, pwrt_on, mclr_off, protect_off

REM DEVICE = 12F675
CMCON = 7          ' SETS DIGITAL MODE
ANSEL = 0          ' GPIO.0 TO GPIO.3 SET AS DIGITAL
TRISIO = %00011111    ' 1 input 0 output left start
VRCON.7 = 0       ' TURN OFF VOLTAGE REFERENCE
WPU = %010111       ' any pin pullup  1 pul 0 disable pin
OPTION_REG.7=0      ' pullup enables
'INTCON = 0       ' No interrupt

DEFINE OSCCAL_1K 1    ' TO SAVE OSCILLATOR CALIBRATION

X     VAR WORD
Y     VAR WORD TIME Var BYTE


K_RESET:
GPIO = 0    'CLEAR Ports


START: 
    IF GPIO.0=0 THEN    TIME =1
    IF GPIO.1=0 THEN    TIME =2
    IF GPIO.2=0 THEN    TIME =3
    IF GPIO.4=0 THEN    TIME =4
    IF GPIO.3=0 THEN    TIME =5
   
         
    IF  TIME =1 THEN
    HIGH GPIO.5
    FOR X= 0 TO 1800     ' ON    3   dakika 180   
    PAUSE 100
    IF GPIO.0<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT X
    LOW GPIO.5
    FOR Y= 0 TO 34200    ' OFF   57  dakika 3420
    pause 100
    IF GPIO.0<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT Y
    ENDIF

       
    IF  TIME =2 THEN
    HIGH GPIO.5
    FOR X= 0 TO 5400     ' ON    9   dakika 540   
    PAUSE 100
    IF GPIO.1<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT X
    LOW GPIO.5
    FOR Y= 0 TO 30600    ' OFF   51  dakika 3060     
    PAUSE 100
    IF GPIO.1<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT Y         
    ENDIF
   
     
    IF  TIME =3 THEN   
    HIGH GPIO.5
    FOR X= 0 TO 10800    ' ON    18 dakika  1080   
    PAUSE 100
    IF GPIO.2<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT X
    LOW GPIO.5
    FOR Y= 0 TO 25200    ' OFF   42  dakika 2520   
    PAUSE 100
    IF GPIO.2<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT Y         
    ENDIF
   
     
    IF  TIME =4 THEN     
    HIGH GPIO.5
    FOR X= 0 TO 16200    ' ON    27  dakika 1620     
    PAUSE 100
    IF GPIO.4<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT X
    LOW GPIO.5
    FOR Y= 0 TO 19800    ' OFF   33  dakika 1980     
    PAUSE 100
    IF GPIO.4<>0 THEN K_RESET  'LOW değilse başa dön
    NEXT Y         
    ENDIF

   
    IF  TIME =5 THEN     'sürekli çıkış ver
    HIGH GPIO.5
    ENDIF

     
    GOTO START
'    END

[OG]

Hocam ya PORT kesmesi kullanacaksınız (interrupt) ya da zaman döngüsü içine switch kontrol sorgusu yapacaksınız.

x var Word
kontrol var Byte  ' port durumunu gözlemek için
kontrol_h var Byte  'son değeri hafızada tutmak için

Basla:

    kontrol = GPIO & %00011111
    kontrol_h = kontrol


takip_et:
    For x = 1 To 1000
        pause 1
        kontrol = GPIO & %00011111      ' Anahtarın konumuna karşılık gelen sayıyı kontrol değişkenine yükledik
        If kontrol_h <> kontrol Then    ' öncekinden farklı ise
            kontrol_h = kontrol         ' son pozisyonu tekrar hafızaya al
            GoTo takip_et               ' yeniden aynı süre boyunca bekle
        EndIf
    Next

'' Yukarıda 1000ms boyunca (bu süre değiştirilebilir) switch pozisyonunu takip ettik ve bu süre içinde değişim oldu ise yeniden aynı sürece switch takip edilir.

'' Şimdi switch 1000sn içinde hiç değişmemiş, skunet sağlanmış, bunun pozisyonuna göre ne iş yapılacaksa oraya git.

If kontrol = %00011110 Then filan_is  ' switch GPIO.0 da ise
If kontrol = %00011101 Then falan_is  ' switch GPIO.1 da ise

If kontrol = %00011110 Then fisman_is  ' switch GPIO.2 da ise

''' gibi

filan_is:
''' zaman dongusu ve bu dongu içinde switch kontrolu yapılır. Switch kontrolu zaman dongusunde küçük bir gecikme yapar. Bunu da vereceğiniz dongu değerleri ile tolere edersiniz

''' zaman dongusu 
For...
    kontrol = GPIO & %00011111   ' Switch durumunu hep kontrol ediyoruz
    If kontrol_h <> kontrol Then Basla  ' öncekinden farklı ise basa don

Next

gibi.

[ipek]

sağolun bir derten kurtulucam OG hocam doğru yerleri bulamayabilirim
bir klavyenizi zorlasanız protoncu olduğunuzu biliyorum basicte zor olmasa gerek..

[My75]

İpek hocam ,bu aslında işin uzun yolu,şöyle olsa acaba..

DURUM VAR BYTE
SAY VAR WORD

BASLA:
DURUM=0
GPIO=0

IF GPIO.0=0 THEN ' Aynı şekil diğer girişler düzenlenecek..
X=1800
Y=34200
DURUM=1
GOSUB CIKIS
ENDIF

GOTO BASLA

CIKIS:
FOR SAY=0 TO X
IF DURUM=1 AND GPIO.0=1 THEN BASLA
IF DURUM=2 AND GPIO.1=1 THEN BASLA
IF DURUM=3 AND GPIO.2=1 THEN BASLA
IF DURUM=4 AND GPIO.4=1 THEN BASLA
PAUSE 100
NEXT
HIGH GPIO.5

FOR SAY=0 TO Y
IF DURUM=1 AND GPIO.0=1 THEN BASLA
IF DURUM=2 AND GPIO.1=1 THEN BASLA
IF DURUM=3 AND GPIO.2=1 THEN BASLA
IF DURUM=4 AND GPIO.4=1 THEN BASLA
PAUSE 100
NEXT
LOW GPIO.5

RETURN

[OG]

Hocam Protona cabuk gecersiniz eminim
http://hotfile.com/dl/125072733/ba48ca2/timer.rar.html

'@ device pic12f675, intrc_osc_noclkout, wdt_on, pwrt_on, mclr_off, protect_off
Device 12F675
   Config CPD_OFF, CP_ON, BODEN_ON, MCLRE_OFF, PWRTE_ON, WDT_ON, INTRC_OSC_NOCLKOUT
   Set_OSCCAL

CMCON = 7          ' SETS DIGITAL MODE
ANSEL = 0          ' GPIO.0 TO GPIO.3 SET AS DIGITAL
TRISIO = %00011111    ' 1 input 0 output left start
VRCON.7 = 0       ' TURN OFF VOLTAGE REFERENCE
WPU = %010111       ' any pin pullup  1 pul 0 disable pin
OPTION_REG.7=0      ' pullup enables
INTCON = 0       ' No interrupt



Dim X As Word
Dim Y As Word

Dim X_2 As Word
Dim kontrol As Byte
Dim kontrol_h As Byte
 



 
START:
GPIO = 0    'CLEAR Ports
    

takip_et:
    For X = 1 To 200
        DelayMS 1
        clrwdt
        kontrol = GPIO & %00011111      ' Anahtarın konumuna karşılık gelen sayıyı kontrol değişkenine yükledik
        If kontrol_h <> kontrol Then    ' öncekinden farklı ise
            kontrol_h = kontrol         ' son pozisyonu tekrar hafızaya al
            GoTo takip_et               ' yeniden aynı süre boyunca bekle
        EndIf
    Next 

    If kontrol = %00011110 Then is_1
    If kontrol = %00011101 Then is_2
    If kontrol = %00011011 Then is_3
    If kontrol = %00001111 Then is_4
    If kontrol = %00010111 Then is_5
    
GoTo START   

is_1:
    High GPIO.5
    For X= 0 To 180     ' ON    3   dakika 180   
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next X
    
    Low GPIO.5
    
    For Y = 0 To 3420    ' OFF   57  dakika 3420
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next Y
    
GoTo is_1
 
is_2:       
    High GPIO.5
    For X = 0 To 540     ' ON    9   dakika 540   
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next X
    
    Low GPIO.5
    
    For Y = 0 To 3060    ' OFF   51  dakika 3060     
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next Y         
GoTo is_2
   
is_3:     
   
    High GPIO.5
    For X = 0 To 1080    ' ON    18 dakika  1080   
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next X
    Low GPIO.5
    
    For Y= 0 To 2520    ' OFF   42  dakika 2520   
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next Y         
GoTo is_3
   
is_4:     
    
    High GPIO.5
    For X= 0 To 1620    ' ON    27  dakika 1620     
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next X
    
    Low GPIO.5
    For Y= 0 To 1980    ' OFF   33  dakika 1980     
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next Y         
GoTo is_4

is_5:   
    'sürekli çıkış ver
        High GPIO.5
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
        DelayMS 1
        clrwdt

GoTo is_5

:100000002728A301A200FF30A207031CA307031C9B
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0070000A10F152820181E28A01C2228A8
:100040000000222808008313831203130800FF23F3
:100050008316900083120730990083169F011F308A
:10006000850099131730950081138B018312850148
:100070000130A400A501A508031D5328C93024029E
:10008000031853280130012064001F300505AA0021
:100090002B082A0203194F282A08AB003828A40A83
:1000A0000319A50F3B281E302A02031D58286D286E
:1000B0001D302A02031D5D28A9281B302A02031DBA
:1000C0006228E8280F302A02031D672827291730E5
:1000D0002A02031D6C28662936288316851283128E
:1000E0008516A401A501A508031D8928B5302402A1
:1000F000031889280A30012064001F300505AA0072
:100100002B082A02031985283628A40A0319A50FEB
:1001100073288316851283128512A601A7010D305C
:100120002702031C9928031DA8285D302602031806
:10013000A8280A30012064001F300505AA002B08FA
:100140002A020319A4283628A60A0319A70F8F2804
:100150006D288316851283128516A401A50102302D
:100160002502031CB928031DC8281D3024020318CA
:10017000C8280A30012064001F300505AA002B089A
:100180002A020319C4283628A40A0319A50FAF2888
:100190008316851283128512A601A7010B30270250
:1001A000031CD828031DE728F53026020318E7288A
:1001B0000A30012064001F300505AA002B082A021E
:1001C0000319E3283628A60A0319A70FCE28A92861
:1001D0008316851283128516A401A5010430250219
:1001E000031CF828031D07293930240203180729A6
:1001F0000A30012064001F300505AA002B082A02DE
:10020000031903293628A40A0319A50FEE2883161B
:10021000851283128512A601A70109302702031C4B
:100220001729031D2629D9302602031826290A304A
:10023000012064001F300505AA002B082A020319BB
:1002400022293628A60A0319A70F0D29E8288316A4
:10025000851283128516A401A50106302502031C10
:100260003729031D462955302402031846290A3030
:10027000012064001F300505AA002B082A0203197B
:1002800042293628A40A0319A50F2D2983168512A1
:1002900083128512A601A70107302702031C5629E5
:1002A000031D6529BD302602031865290A30012087
:1002B00064001F300505AA002B082A0203196129D2
:1002C0003628A60A0319A70F4C2927298316851259
:1002D000831285161F300505AA002B082A02031970
:0E02E000722936280130012064006629762933
:02400E004C3F25
:00000001FF

[ipek]

OG hocam my75 hocamında önerileride sizin verdiğiniz yazılımda çalıştı çok sağolun ,fakat nokta atışı yapamıyorum belki isisten kaynaklanıyordur.
yani switch atıyorum 2 de hemen bire çeviriyorum counter bir müddet saydıktan sonra göreve başlıyor, birde ilk gerilimi verdiğim zaman
gereksiz bir sayım yapıp normale dönüyor aslında her iki örnekte benim için hint kumaşı neyin nasıl olduğunu isis yerine kafamda çalıştırsam olucak benim içinde tecrübe olacak

yazacaktımki
Proton örneği kusursuz çalıştı hocam klavyenize sağlık bir yerlerden proton buluyum hocam DelayMS 10 delayMS1000 yapınca 1 saniyeyi edebilirim değilmi sonuçta dakika bazında çalışma yapacağım..

[OG]

delayms 1000 yapınca döngü süreleri delayms 10 a göre yaklaşık 100 katına cıkacaktır.

wdt_on olduğu için her delayms komutu altında clrwdt var, o wdt'ın resetlemesini önler. O sebeple delayms 1000 sayısını daha da büyütürseniz süreyi bölmeniz gerekebilir.

Yani 2000 yapmak istediğinizde

delayms 2000
clrwdt

olmamalı, wdt resetler, bunu ikiye bölersiniz, aşağıdaki gibi.

delayms 1000
clrwdt
delayms 1000
clrwdt

Tabi bu durumda switch kontrolu verdiğiniz delay süresi kadarda 1 defa yapılmaktadır.

Kodları yeniledim çünkü sürekli High pozisyonunu yanlış porta bakarak almışım (siz atlayarak gitmişsiniz, o yanılttı)
Yeni kodlar yukarıda.

[ipek]

OG ve  My75 hocam çok sağolun sağolun
sorun sayenizde çözüldü şimdi bende nasıl olmuşta olmuş kısmına çalışıyım.
ne diyeyim bir kaç aydır sorun çözüldü butonunu görüyorum onu tıklamak bu güne kısmetmiş...

[OG]

O zaman biraz da kod kısaltma ( kod optimizasyon ) çalışmakta fayda var.
Aşağıdaki kod da aynı işi yapacak ama kod çok çok kısalacak.

Device 12F675
   Config CPD_OFF, CP_ON, BODEN_ON, MCLRE_OFF, PWRTE_ON, WDT_ON, INTRC_OSC_NOCLKOUT
   Set_OSCCAL
   Declare Xtal 4

CMCON = 7          ' SETS DIGITAL MODE
ANSEL = 0          ' GPIO.0 TO GPIO.3 SET AS DIGITAL
TRISIO = %00011111    ' 1 input 0 output left start
VRCON.7 = 0       ' TURN OFF VOLTAGE REFERENCE
WPU = %010111       ' any pin pullup  1 pul 0 disable pin
OPTION_REG.7=0      ' pullup enables
INTCON = 0       ' No interrupt



Dim X As Word
Dim Y As Word

Dim X_2 As Word
Dim kontrol As Byte
Dim kontrol_h As Byte
Dim sure_1 As Word
Dim sure_2 As Word
 



 
START:
GPIO = 0    'CLEAR Ports
    

takip_et:
    For X = 1 To 200
        DelayMS 1
        clrwdt
        kontrol = GPIO & %00011111      ' Anahtarın konumuna karşılık gelen sayıyı kontrol değişkenine yükledik
        If kontrol_h <> kontrol Then    ' öncekinden farklı ise
            kontrol_h = kontrol         ' son pozisyonu tekrar hafızaya al
            GoTo takip_et               ' yeniden aynı süre boyunca bekle
        EndIf
    Next 
    
    If kontrol = %00010111 Then is_5    '' Sürekli Yanma durumu

    If kontrol = %00011110 Then         '' diğer durumlar için süre tayinleri
        sure_1 = 180
        sure_2 = 3420
    EndIf
    
    If kontrol = %00011101 Then
        sure_1 = 540
        sure_2 = 3060
    EndIf
    
    If kontrol = %00011011 Then
        sure_1 = 1080
        sure_2 = 2520
    EndIf
    
    If kontrol = %00001111 Then
        sure_1 = 1620
        sure_2 = 1980
    EndIf    
    
 

is_1:
    High GPIO.5
    For X= 0 To sure_1     ' ON    3   dakika 180   
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next X
    
    Low GPIO.5
    
    For Y = 0 To sure_2    ' OFF   57  dakika 3420
        DelayMS 10
        clrwdt
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
    Next Y
    
GoTo is_1
 

is_5:   
    'sürekli çıkış ver
        High GPIO.5
        kontrol = GPIO & %00011111          ' Switch durumunu hep kontrol ediyoruz
        If kontrol_h <> kontrol Then START  ' öncekinden farklı ise basa don
        DelayMS 1
        clrwdt

GoTo is_5

:100000002728A301A200FF30A207031CA307031C9B
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0070000A10F152820181E28A01C2228A8
:100040000000222808008313831203130800FF23F3
:100050008316900083120730990083169F011F308A
:10006000850099131730950081138B018312850148
:100070000130A400A501A508031D5328C93024029E
:10008000031853280130012064001F300505AA0021
:100090002B082A0203194F282A08AB003828A40A83
:1000A0000319A50F3B2817302A02031D5828C6281C
:1000B0001E302A02031D6328B430AC00AD015C3051
:1000C000AE000D30AF001D302A02031D6F281C301A
:1000D000AC000230AD00F430AE000B30AF001B308E
:1000E0002A02031D7B283830AC000430AD00D83024
:1000F000AE000930AF000F302A02031D87285430AC
:10010000AC000630AD00BC30AE000730AF00831647
:10011000851283128516A401A50125082D02031C52
:10012000A628031D972824082C02031CA6280A30A1
:10013000012064001F300505AA002B082A020319BC
:10014000A2283628A40A0319A50F8D288316851224
:1001500083128512A601A70127082F02031CC528B8
:10016000031DB62826082E02031CC5280A300120CC
:1001700064001F300505AA002B082A020319C128B4
:100180003628A60A0319A70FAC28872883168512DC
:10019000831285161F300505AA002B082A020319B1
:0E01A000D2283628013001206400C628D62857
:02400E004C3F25
:00000001FF

[My75]

Hocam bir kaç aydır uğraşıyorsunuz madem neden daha önce yardım istemediniz..

Bende tam çıkarken mesajı gördüm ve hızlı şekilde örnekleme yaptım.Vaktim olsaydı daha detaylı ve kombine bir kod oluştururdum ama gerek kalmamış, OG hocamız halletmiş.

Bencede PBP' dan Protona geçiş çok zor değil hocam,eğer Basic' i yeni geliştiriyorsanız direkt Protonda başlayın..