Programı döngüye alma.

erdemxflx

Üye
Katılım
4 Ara 2024
Mesajlar
32
Puanları
1
Yaş
14
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.
 
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.
 
 
Kod:
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);
 
Moderatör tarafında düzenlendi:
Bu siteyi kullanmak için çerezler gereklidir. Siteyi kullanmaya devam etmek için onları kabul etmelisiniz. Daha fazla bilgi edin…