hasanzincir
Paylaşımcı üye
- Katılım
- 17 Haz 2007
- Mesajlar
- 684
- Puanları
- 131
- Yaş
- 46
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;
![Göz Kırp ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
![Göz Kırp ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
![Göz Kırp ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
![Dil Çıkar :p :p](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
![Kahkaha Atmak :D :D](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
![Kaygılı :eek: :eek:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
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;