Programı döngüye alma.

[erdemxflx]

bir tarfik lambası programı yaptım ama bunu nasıl döngüye alabilirim en son yeşil yandıktan sonra program tekrar kırmızıdan saymaya başlayacak.

 

[Bunalmis]

Goto Kirmizi;

 

[erdemxflx]

Goto Kirmizi;

Anlamadım?

 

[Bunalmis]

Kirmizi lambayla alakali rutinin basina Dongu: yaz

Yesil lambayi yakan programin da sonuna goto Dongu; Yaz

Cogu programlama dilinde ise yarayacaktir.

Gerci programinin calinma tehlikesi olur ama

Aslinda soruyu sorarken yazdigin programi buraya yapistirsaydin gerekli komutu kolayca eklerdik.

 

[erdemxflx]

Kirmizi lambayla alakali rutinin basina Dongu: yaz

Yesil lambayi yakan programin da sonuna goto Dongu; Yaz

Cogu programlama dilinde ise yarayacaktir.

Gerci programinin calinma tehlikesi olur ama

Aslinda soruyu sorarken yazdigin programi buraya yapistirsaydin gerekli komutu kolayca eklerdik.

 

[Tunahanaakı]

Ekli dosyayı görüntüle 112410Ekli dosyayı görüntüle 112411

M0.3 kapalı kontak yap öyle bir dene bayadır yapmıyorum unutmuşum.

 

[macix]

CASE "nState" OF
    0:  // Kırmızı
        IF "tRed".Q THEN

            "nState" := 10;

        END_IF;
    10:  //Sarı
        IF "tYellow".Q THEN

            "nState" := 20;

        END_IF;
    20: //Yeşil
        IF "tGreen".Q THEN
            "nState" := 0;
        END_IF;

END_CASE;

#Red := "nState" = 0;
#Yellow := "nState" = 10;
#Green := "nState" = 20;

"tRed".TON(IN := "nState" = 0,PT := T#60s);
"tYellow".TON(IN := "nState" = 10, PT := T#3s);
"tGreen".TON(IN := "nState" = 20,  PT := T#60s);