Matrak Kodlar Arşivi

[hasanzincir]

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;