Matrak kodlarınızı bekliyorum... aşağıdaki kod TIA portal SCL de yapıldı çalısır durumdadır......
CASE #Bir_Gün OF
0:#lambalarıKapat:=false;
#yat_uyu:=false;
IF #Saat = 06.00 THEN
#SabahKalk := true;
#Yüz_yıka:=true;
#Kahvaltı_yap:=true;
#Bir_Gün := 1;
END_IF;
1:#SabahKalk := false;
#Yüz_yıka:=false;
#Kahvaltı_yap:=false;
IF #Saat = 06.30 THEN
#işe_git := true;
#yolcilesi_çek:=true;
#Bir_Gün := 2;
END_IF;
2:#işe_git := false;
#yolcilesi_çek:=false;
IF #Saat >= 08.30 AND #Saat <= 12.00 THEN
#CalışCalış:=true;
#StresStres:=true;
#Bir_Gün := 3;
END_IF;
3:#CalışCalış:=false;
#StresStres:=false;
IF #Saat > 12.00 AND #Saat < 13.00 THEN
#Yemekye:=true;
#kakarakikiri_yap:=true;
#Bir_Gün := 4;
END_IF;
4:#Yemekye:=false;
#kakarakikiri_yap:=false;
IF #Saat >= 13.00 AND #Saat <= 18.00 THEN
#CalışCalış:=true;
#StresStres:=true;
#Bir_Gün := 5;
END_IF;
5:#CalışCalış:=false;
#StresStres:=false;
IF #Saat > 18.00 AND #Saat <=
19.30 THEN
#eve_git:=true;
#yolcilesi_çek:=true;
#Bir_Gün := 6;
END_IF;
6:#eve_git:=false;
#yolcilesi_çek:=false;
IF #Saat > 19.30 AND #Saat < 20.30 THEN
#Yemekye:=true;
#karı_dırdırı_dinle:=true;
#Bir_Gün := 7;
END_IF;
7: #Yemekye:=false;
#karı_dırdırı_dinle:=false;
IF #Saat >= 20.30 AND #Saat <= 23.00 THEN
#TVvedizi_izle:=true;
#yineDırdırDinle:=true;
#Bir_Gün :=
8;
END_IF;
8:#TVvedizi_izle:=false;
#yineDırdırDinle:=false;
IF #Saat > 23.00 AND #Saat < 6.00 THEN
#lambalarıKapat:=true;
#yat_uyu:=true;
#Bir_Gün := 0;
END_IF;
ELSE
#Ölmüşündür:=true ;
IF #NamazNiyaz = false THEN #CehennemeGit:=true;
END_IF;
END_CASE;