一区二区三区成人-一区二区三区www-一区二区三区 日韩-一区二区日韩欧美-一区二区日韩精品中文字幕-一区二区日韩

有很多朋友想學(xué)習(xí)SCL語(yǔ)言，其實(shí)不要把SCL或ST語(yǔ)言想的有多高大上。

首先看下什么是SCL語(yǔ)言：SCL語(yǔ)言是一種結(jié)構(gòu)化文本，類(lèi)似于計(jì)算機(jī)高級(jí)語(yǔ)言的編程方式，他的語(yǔ)言規(guī)范解決計(jì)算機(jī)的PASCAL語(yǔ)言。

S7-SCL（Structured Control Language 結(jié)構(gòu)化控制語(yǔ)言) 具有以下特點(diǎn)：

· 1、是一種類(lèi)似于PASCAL的高級(jí)編程語(yǔ)言

· 2、符合國(guó)際標(biāo)準(zhǔn)IEC 61131-3

· 3、PLCopen基礎(chǔ)級(jí)認(rèn)證

· 4、適用于 S7-300 (推薦CPU314以上), S7-400,S7-1200，S7-1500， C7 and WinAC

· S7-SCL 為 PLC 做了優(yōu)化處理，它不僅僅具有 PLC 典型的元素（例如 輸入／輸出，定時(shí)器，計(jì)數(shù)器，符號(hào)表），而且具有高級(jí)語(yǔ)言的特性， 例如：循環(huán)， 選擇，分支，數(shù)組 ，高級(jí)函數(shù)。

S7-SCL 其非常適合于如下任務(wù)：

· * 復(fù)雜運(yùn)算功能

· * 復(fù)雜數(shù)學(xué)函數(shù)

· * 數(shù)據(jù)管理

· * 過(guò)程優(yōu)化

講這些概念的東西是很空洞的，只要了解下即可，那么關(guān)鍵問(wèn)題來(lái)了，怎么學(xué)習(xí)呢？

分享~~~~~~~~~


(*****************************************************************************
<FB NAME>       MC_Power_JEC                                                                        
<Description>   運(yùn)転可 / Operation possible                                                                                        
                                                                                                                          
COPYRIGHT (C) 2016 MITSUBISHI ELECTRIC CORPORATION ALL RIGHT RESERVED  
*****************************************************************************)

PLS(Enable, bEnablePls);
PLF(Enable, bEnablePlf);
(*========================================================================*
* 有効ON
* Enable ON
*========================================================================*)
IF Enable THEN
    (*------------------------------------------------------------------*
    * 初期化処理
    * Initial processing
    *------------------------------------------------------------------*)
    IF bEnablePls THEN
        Status := FALSE;
        Error := FALSE;
        ErrorID := 0;
        
        bBusy := FALSE;
        bLinkReady := FALSE;
        wAxisStatus := 0;
        
        (* 入力ラベル取込 / Input labels transfer *)
        wAxisNo := Axis.AxisNo;
        MOV(((wAxisNo < 1) OR (16 < wAxisNo)), H1100, ErrorID);
        wPosTrqLimit := REAL_TO_INT(Axis.PosTrqLimit *10.0);
        MOV((ErrorID = 0) AND ((wPosTrqLimit < 0) OR (10000 < wPosTrqLimit)), H110E, ErrorID);
        wNegTrqLimit := REAL_TO_INT(Axis.NegTrqLimit *10.0);            
        MOV((ErrorID = 0) AND ((wNegTrqLimit < 0) OR (10000 < wNegTrqLimit)), H110E, ErrorID);
        
        (* リンクデバイスのオフセット計(jì)算 / Link device offset calculation *)
        IF (ErrorID = 0) THEN
            wRX3F  := ((wAxisNo - 1) * 64) + H003F;    (* サイクリック通信準(zhǔn)備完了 / Cyclic communication ready command *)
            wRWw01 := ((wAxisNo - 1) * 32) + H0001;    (* 制御指令 / Control command *)
            wRWw14 := ((wAxisNo - 1) * 32) + H0014;    (* トルク制限値(正) / Torque limit value(positive) *)
            wRWw15 := ((wAxisNo - 1) * 32) + H0015;    (* トルク制限値(逆) / Torque limit value(negative) *)
            wRWr00 := ((wAxisNo - 1) * 32) + H0000;    (* 制御モード表示 / Control mode display *)
            wRWr02 := ((wAxisNo - 1) * 32) + H0002;    (* 制御ステータス / Control status *)
            wRWr0B := ((wAxisNo - 1) * 32) + H000B;    (* 制御出力2 / Control output 2 *)
            bBusy := TRUE;
        END_IF;
    END_IF;
    
    (*------------------------------------------------------------------*
    * 軸狀態(tài)取得 & 実行條件確認(rèn)
    * Axis status acquisition & execution condition check
    *------------------------------------------------------------------*)    
    IF bBusy THEN
        (* サイクリック通信狀態(tài)確認(rèn) / Cyclic communication status check *)
        bLinkReady := G_stLinkBasic.bnRX[wRX3F];
        IF bLinkReady THEN
            uModeDisp := G_stLinkBasic.unRWr[wRWr00];
            bZeroVelocity:= ((G_stLinkBasic.unRWr[wRWr0B] AND H0008) = H0008);
            (* 軸狀態(tài)取得 / Axis status acquisition *)
            IF ((G_stLinkBasic.unRWr[wRWr02] AND H0008) = H0008) THEN
                wAxisStatus := 1;        (* Errorstop *)
                ErrorID := H1202;    
                ELSIF ((G_stLinkBasic.unRWw[wRWw01] AND H0086) = H0002) THEN
                wAxisStatus := 2;        (* Stopping *)
                ELSIF (((G_stLinkBasic.unRWr[wRWr02] AND H000F) = H0000) OR
                ((G_stLinkBasic.unRWr[wRWr02] AND H000F) = H0001) OR
                ((G_stLinkBasic.unRWr[wRWr02] AND H000F) = H0003)) THEN
                wAxisStatus := 0;        (* Disabled *)
                ELSE
                wAxisStatus := 4;        (* Standstill *)
                IF ((G_stLinkBasic.unRWw[wRWw01] AND H0100)= H0100) THEN
                    CASE WORD_TO_INT(uModeDisp) OF
                        1,    (* Profile position mode *)
                        6:    (* Homing mode *)
                        IF ((G_stLinkBasic.unRWr[wRWr02] AND H0400) = H0000) THEN
                            wAxisStatus := 5;    (* DiscreteMotion *)        
                        END_IF;
                        3,    (* Profile Velocity mode *)
                        4:    (* Profile Torque mode *)
                        IF NOT bZeroVelocity THEN
                            wAxisStatus := 5;    (* DiscreteMotion *)        
                        END_IF;
                        ELSE
                        ;
                    END_CASE;                                
                    ELSE
                    CASE (WORD_TO_INT(uModeDisp)) OF
                        1:
                        IF ((G_stLinkBasic.unRWr[wRWr02] AND H0400) = H0000) THEN
                            wAxisStatus := 5;    (* DiscreteMotion *)
                        END_IF;
                        3,
                        4:
                        wAxisStatus := 6;    (* ContinuousMotion *)
                        6:
                        IF ((G_stLinkBasic.unRWr[wRWr02] AND H0400) = H0000) THEN
                            wAxisStatus := 3;    (* Homing *)
                        END_IF;
                        ELSE
                        ;
                    END_CASE;
                END_IF;        
            END_IF;
              
            (* 実行條件確認(rèn) / execution condition check *)
            IF bEnablePls THEN
                CASE wAxisStatus OF
                    2:    (* Stopping *)
                    ErrorID := H1204;
                    ELSE
                    ;    
                END_CASE;
            END_IF;

            (*------------------------------------------------------------------*
            * サーボON実行
            * Servo ON execution
            *------------------------------------------------------------------*)    
            IF (ErrorID =0) AND bEnablePls AND (wAxisStatus = 0) THEN
                G_stLinkBasic.unRWw[wRWw14] := INT_TO_WORD(wPosTrqLimit);    (* トルク制限値(正) / Torque limit value(positive) *)
                G_stLinkBasic.unRWw[wRWw15] := INT_TO_WORD(wNegTrqLimit);    (* トルク制限値(逆) / Torque limit value(negative) *)
                G_stLinkBasic.unRWw[wRWw01] := (G_stLinkBasic.unRWw[wRWw01] AND HFF70) OR H000F;
            END_IF;        
            IF ((G_stLinkBasic.unRWr[wRWr02] AND H006F) = H0027) THEN    (* OperationEnabled *)
                Status := TRUE;
                Error := FALSE;
                ErrorID := 0;
                ELSE
                Status := FALSE;        
            END_IF;
            ELSE
            wAxisStatus := 1;
            ErrorID := H1202;
        END_IF;
    END_IF;
    (*========================================================================*
    * エラー出力
    * Output for [Error]
    *========================================================================*)
    IF (ErrorID <> 0) THEN
        Error := TRUE;
        Status := FALSE;
        bBusy := FALSE;
    END_IF;


    (*========================================================================*
    * 有効OFF
    * Enable OFF
    *========================================================================*)    
    ELSE
    IF bEnablePlf THEN
        G_stLinkBasic.unRWw[wRWw01] := (G_stLinkBasic.unRWw[wRWw01] AND HFF70);    (* DisableOperation *)
    END_IF;
    Status := FALSE;
    Error := FALSE;
END_IF;