faz koruma devresı

[bahdiyarusta]

arkadaşlar konu ile ilgili bi sitede arkadaş bi kod yazmış bu kodlar ile faz sırası ve faz yoklugunu algılamış. ama kodlar eksik gibi  yorumu olan var mı?

[bahdiyarusta]

sira:
        IF faz1=1 Then GoTo sira
sirabir:
        IF faz1=0 Then GoTo sirabir
        IF faz1=1 AND faz2=1 AND faz3=0   Then
        bir=1
        Else
        GoTo yanlis
        EndIF
        PauseUs 5000
        IF faz2=0 AND faz3=0 AND faz1=1 Then
        iki=1
        Else
        GoTo yanlis
        EndIF
        PauseUs 2500
        IF faz3=1 AND faz1=1AND faz2=0 Then
        uc=1
        Else
        GoTo yanlis
        EndIF
        PauseUs 3500
        IF faz1=0 AND faz2=0 AND faz3=1 Then
        dort=1
        Else
        GoTo yanlis
        EndIF
        PauseUs 4000
        IF faz2=1 AND faz3=1 AND faz1=0 Then
        bes=1
        Else
        GoTo yanlis
        EndIF
        PauseUs 3000
        IF faz3=0 AND faz2=1 AND faz1=0 Then
        alti=1
        Else
        GoTo yanlis
        EndIF
        Return

[kartal_0689]

BahdiyarUsta 

Bak bunlarla hiç uğraşma. ETE hocanın dediği gibi en basit yöntem
3 tane timer kur. timerları high yada low durumuna göre kontrol et.
Mesela high için, ilk high kimden gelmişse o 1. fazdır. Bu kadar.

[bahdiyarusta]

timer hakkında yazılım yapamıyorum...

[bahdiyarusta]

örnek olarak bir başlangıç kodları yazabilirseniz. devamını getiririm diye düşünüyorum.

teşekkürler.

[kartal_0689]

Fazları okumak için ben timer kullanmadım. daha önce yaptığım ve çalışan kodun bir kısmını yazıyorum. Burada sadece
hangi fazın önce geldiğini anlayabilirsiniz.

         Repeat
              if (R_Faz_Pin = 1) Then  //RC0_Bit
                 Begin
                      R_Faz_Pin := TRUE;
                      S_Faz_Pin := FALSE;
                 End
                 Else
              if (S_Faz_Pin = 1) Then  //RC1_Bit
                 Begin
                      R_Faz_Pin := FALSE;
                      S_Faz_Pin := TRUE ;
                 End;
        Until ((R_Faz_Pin= TRUE) OR (S_Faz_Pin = TRUE));

Bu kodda R_Faz_Pin ve S_Faz_Pin Fazları temsil etmektedir. Bu kod hangi fazın ileride yada geride olduğunu ölçen
yazılımın ufak bir kısmı. Hangi fazdan önce lojik1 gelmişse ona göre karar vermelisiniz.
(Yazılım MikroPascal)

[bahdiyarusta]

yardımınız için teşekkür ederim ama ben sadece pıc basıc biliyorum.
genede yaptığım araştırmalara göre ve denemelerime göre aşağıdaki kodları yazdım.
bu şekılde faz sırası ve faz kesılmesini algımak istedim ne derece doğru yaptım acabaa.
yardımlarınızı bekliyorum...

[bahdiyarusta]

XR=1
XS=2
XT=3

R=
   IF R=1 THEN
   XR=XR+1
   GOTO R   
   ELSE
   GOTO S
   ENDIF
S=
   IF S=1 THEN
   XS=XS+1
   GOTO S   
   ELSE
   GOTO T
   ENDIF
T=
   IF T=1 THEN
   XT=XT+1
   GOTO T   
   ELSE
   GOTO KONTROL
   ENDIF
KONTROL:
   IF R=1 AND S=1 AND T=1 THEN ARIZA
   IF XR>XS>XT THEN
   XR=1
   XR=2
   XR=3
   GOTO R
   ELSE
   XR=1
   XR=2
   XR=3
   GOTO ARIZA
   ENDIF
ARIZA:
   PORTB.0=1
   IF RESET=0 THEN R
   GOTO ARIZA
   END

[bahdiyarusta]

MERHABA ARKADAŞLAR.
şimdi yazılımı derledim isiste bi kaç çalışma yaptım ve olumluya yaklaşır gibi oldum .fakat bi yerde takıldım. işi zaman ile çözmek istedim bildiğim şekilde  ama zamanda kaymalar olduğunda devre 1dk kadar sıkıntısız çalışıyor sonra arıza çıkış veriyor . burda nasıl bir değişiklik yapmam lazım ...

TRISA=255       
TRISB=0
PORTA=0
PORTB=0
SYMBOL RESET=PORTA.3
SYMBOL R=PORTA.0
SYMBOL S=PORTA.1
SYMBOL T=PORTA.2

BASLA:
    IF R=1 THEN BASLA
    IF R=0 THEN ES
ES:
	PAUSEUS 7000
    IF S=0 THEN TE
	IF T=0 OR R=0 THEN ARIZA
TE:
    PAUSEUS 7000
    IF T=0 THEN BASLA
	IF S=0 OR R=0 THEN ARIZA

ARIZA:
	PORTB=%00000001
	IF RESET=0 THEN BASLA
    GOTO ARIZA
    END 

[Evren Kılıç]

pıc kullanmasanız olmaz mı aşağıdaki linkte bulunan devre işinizi görmez mi?
http://www.picproje.org/index.php/topic,30679.0.html

[bahdiyarusta]

ben çalıştıramadım bu devreyi birde siz bakın.

[Hattuşa]

s.a.
bahtiyar ustam isis çalışıyor, isisdeki eksiğiniz 4011 dijital seçilmiş onu analog seçmek ve voltaj ayarını 10v yaparak çalışıtırabilirisiniz, çalışanı ektedir
saygılarımla...

[bahdiyarusta]

anladım. tamam peki devredeki 3 fazı yukardan aşağı r-s-t olarak kabul edınce faz sırası yanlış olursa çıkış sabit oluyor ama her durumda değil. faz sırası doğtu ise çıkış titriyor yanıp sönüyor. bi karasızlık göryor gibiyim.

[F®T]

bende o kararsızlığı gördüm isistenmi acaba?

[bahdiyarusta]

isisten olmaması lazım şimdi devrenin isiste çalıştığını görmeden gerçek deneyle ryapmak istemiyorum istisnalar hariç.