tia portal scl dili yardım

CASE "adim_giris" OF
//1
0:
IF ("giris_sensoru" = 1 OR "Ekran".BOSALT) AND "onzincir".Position = 0 AND "onzincir".StatusBits.Standstill=0 THEN
"otoGIRIS_1":= 1;
"adim_giris" := 3;
END_IF;

3:
IF "ekran".DEVAM = 1 THEN
"otoGIRIS_1" := 1;
END_IF;

IF "GIRIS_1_OK" = 1 THEN
"otoGIRIS_1" := 0;
"ekran".DEVAM := 0;
"adim_giris" := 5;
END_IF;


//YUKARI
5:
IF ("onzincir".Position = 0 AND "giris_sensoru" = 0 AND "motorGIRIS_rulo" = 0 AND "ekran".ariza_yok=0) OR
("ekran".DEVAM=1 AND "giris_sensoru" = 0 AND "motorGIRIS_rulo" = 0 AND "ekran".ariza_yok=0) THEN
"MC_MoveAbsolute_DB".Execute := 1;
"MC_MoveAbsolute_DB".Position := 500;
END_IF;
IF "onzincir".Position = 500 THEN
"MC_MoveAbsolute_DB".Execute := 0;
"adim_giris" := 10;
END_IF;


//2
10:
IF ("giris_sensoru" = 1 OR "ekran".BOSALT) AND "onzincir".Position = 500 AND "onzincir".StatusBits.Standstill = 0 THEN
"otoGIRIS_2" := 1;
"adim_giris" := 13;
END_IF;

13:
IF "ekran".DEVAM = 1 THEN
"otoGIRIS_2" := 1;
END_IF;

IF "GIRIS_2_OK" = 1 THEN
"otoGIRIS_2" := 0;
"ekran".DEVAM := 0;
"adim_giris" := 15;
END_IF;
.
.
.
.


program bu şekilde gidiyor.
yapmak istediğim :
"adim_giris" degerim 15 olduğunda sadece bir kereliğine 5e dönecek.
15e geldiğinde alt programdan çalışmaya başlayacak.
yani adimlar 0,3,5,10,15,5,10,15,20,25 şeklinde gidecek.
hangi komutla yapabilrim bu işlemi?

15 in ci adım da "Adım15Done", BOOL tipinde bir değişkeni true yapın; tekrar sistem adım 15 e geldiğinde aşağıdaki gibi bir kod yeterli tabi her start olduğunda Adım15Done ı FALSE yapmalısınız.

teşekkür ederim.
bu olayı "repeat...until", "continue" ,"exit" vb. komutlarla yapmak istersem nasıl bir yol izlemem lazım ?

elektronikmuh' Alıntı:

15 in ci adım da "Adım15Done", BOOL tipinde bir değişkeni true yapın; tekrar sistem adım 15 e geldiğinde aşağıdaki gibi bir kod yeterli tabi her start olduğunda Adım15Done ı FALSE yapmalısınız.

Kod:

15:
IF NOT   Adım15Done
   AND   Diğer Lojik Şartlar
   THEN   (* adim_giris 15'e ilk defa girdiğinde bu kısım *)
    Adım15Done   :=TRUE;
    "adim_giris" := 5;
ELSIF    Adım15Done
   AND   Diğer Lojik Şartlar
   THEN  (* adim_giris 15'e daha önce girmiş ise yani DONE olmuşsa *)
   "adim_giris" := 20;
END_IF;

20:
.......

Genişletmek için tıkla ...

//GECIS
IF "Adım15Done"=0 THEN
"Adım15Done" := 1;
"adim_giris" := 5;
ELSIF "Adım15Done"=1 THEN
"adim_giris" := 20;
END_IF;

20. adımda da "adim15done" bitini sıfıra düşürürsem olacaktır sanırım.
çünkü 100.adım bitince 20.adıma atlatıyorum.
teşekkürler

rotsis' Alıntı:

20. adımda da "adim15done" bitini sıfıra düşürürsem olacaktır sanırım.
çünkü 100.adım bitince 20.adıma atlatıyorum.
teşekkürler

Genişletmek için tıkla ...

Ayrıca Alarm durumunda VEYA manual mod değişimlerinde de sıfır yapmayı unutma.

keskinlikle...
ladder is death

elektronikmuh' Alıntı:

Ayrıca Alarm durumunda VEYA manual mod değişimlerinde de sıfır yapmayı unutma.

Genişletmek için tıkla ...

peki bu tekrar , örneğin 5 kez tekrar etmiş olursa nasıl bir yol izleyebilirim.?

Interger bir sayaç koyup her if içine girişlerde sayac:=sayac+1 le arttırıp sonrada IF sayac=X ile sayacı test edip istediğin yere dallanabilirsin. Sayacı sıfırlamak için sayac:=0 basman yeterli