Siemens Simatic S7 SCL Programlama Dili

IF overcurrent AND stop THEN 
    
    IF start THEN
                    
            CASE con OF
                0:  step1:=1; step2:=0; step3:=0; step4:=0;         GOTO tmr; 
                1:  step1:=0; step2:=1; step3:=0; step4:=0;         GOTO tmr;
                2:  step1:=0; step2:=0; step3:=1; step4:=0;         GOTO tmr;
                3:  step1:=0; step2:=0; step3:=0; step4:=1;        
             END_CASE;             
                  
            //pozitif kenar tetiklemenin yapılması
tmr:        IF t_q AND NOT pe THEN pe:=true; 
                con:=con+1;  
            END_IF;
            
            // timer
            t_out:=S_ODT(t_no:=t1,  s:=true,    tv:=t#5s,   r:=pe,   bi:=t_bi,   q:=t_q);  
            
            IF NOT t_q AND pe THEN pe:=false;  
            END_IF;
    END_IF;
END_IF;

FUNCTION_BLOCK FB100  (*coded by elektronikmuh *)
VAR
    START,STOP         :BOOL;
    EDGE, TIMESTART    :BOOL;
  STEP                 :INT ;
  TIMEEND              :TON ;
END_VAR    

IF START AND NOT EDGE        THEN
      STEP:=1;
      TIMESTART:=TRUE;
   ELSIF STOP                THEN 
      STEP:=0;
      TIMESTART:=FALSE;
END_IF;
   EDGE:=START;
  
    CASE STEP OF
         1:
            IF TIMESTART AND TIMEEND.Q THEN STEP:=2; END_IF;
         2:
            IF TIMESTART AND TIMEEND.Q THEN STEP:=3; END_IF;
         3:       
            IF TIMESTART AND TIMEEND.Q THEN STEP:=4; END_IF;
         4:   
            IF TIMESTART AND TIMEEND.Q THEN STEP:=1; END_IF;           
    END_CASE;
    TIMEEND(IN:=(TIMESTART AND NOT TIMEEND.Q)  , PT:=t#1s  );

END_FUNCTION_BLOCK

FUNCTION talkt_5_sec : VOID

VAR_INPUT 
  start,stop:BOOL;
  overcurrent:BOOL;  
END_VAR

VAR_OUTPUT 
    step1,step2,step3,step4:BOOL;
END_VAR

VAR_TEMP
    t_out:S5TIME;
    t_bi:WORD;
    t_q:BOOL; 
    pe:BOOL;
    con:INT;
    tmr_set:BOOL;   
END_VAR

BEGIN
    IF start AND NOT pe THEN
        con:=1;
        tmr_set:=1;
    ELSIF NOT (stop AND overcurrent) THEN  
        con:=0;
        tmr_set:=0;
    END_IF;
                   
    pe:=start;   
     
    CASE con OF
        1:  IF tmr_set AND t_q THEN con:=2; step1:=1; step2:=0; step3:=0; step4:=0; END_IF;         
        2:  IF tmr_set AND t_q THEN con:=3; step1:=0; step2:=1; step3:=0; step4:=0; END_IF;       
        3:  IF tmr_set AND t_q THEN con:=4; step1:=0; step2:=0; step3:=1; step4:=0; END_IF;        
        4:  IF tmr_set AND t_q THEN con:=1; step1:=0; step2:=0; step3:=0; step4:=1; END_IF;        
    END_CASE;             
    
    t_out:=S_ODT(t_no:=t1,  s:=tmr_set AND NOT t_q,    tv:=t#2s,   r:=false,   bi:=t_bi,   q:=t_q);  
    
END_FUNCTION

ORGANIZATION_BLOCK OB1
TITLE = 'BASLA'
BEGIN
 
FB1.DB20(CLK := I0.0 ,rst := I0.1, Q  := Q0.0);
         


END_ORGANIZATION_BLOCK

FUNCTION_BLOCK TOGGLE
TITLE = 'Tek butonla Start-Stop'

VAR_INPUT           //Değişken tanımlama kısmı
 CLK : BOOL;         // Giriş değişkenimiz, Start-Stop butonu olabilir
 rst : BOOL := FALSE;   // Reset girişimiz
END_VAR
VAR_OUTPUT
 Q : BOOL;           // Çıkış değişkenimiz
END_VAR
VAR
 edge : BOOL;         //Buda ara işlemelerde kullanacagımız yardımcı değişken
END_VAR          //Değişken tanımlama sonu

BEGIN             //Prgmımız burdan başlıyor

 IF rst THEN                              //Reset var mı kontrolü?
  q := 0;                                  //Varsa Çıkışı sıfırla
 ELSIF clk AND NOT edge THEN    // Girişin çıkan kenarını kontrol ediyoz
  Q := NOT Q;                 // Kenar çıkarsa; çıkışın son durumu ne ise NOT layıp tersini çıkışa atıyoz.
 END_IF;                                 //IF Şart Sonu
 edge := clk;                           // Kenar algılama değişkenini kilitleme

END_FUNCTION_BLOCK             //Bu kadar... ;)