91黄动漫 I 欧美 日韩 国产 成人 在线 I a级成人毛片 I 农村黄色片 I 男生捅女生的肌肌 I 精品99一区二区三区 I 妃光莉av I 日日夜夜操操 I 性中国古装videossex I 久久不卡av I 美女高潮动态图 I 极品美女开粉嫩精品 I 牛牛精品一区二区 I 91精品福利视频 I 成人刺激视频 I 91国内精品视频 I 中国一级特黄毛片大片 I 校长狠狠挺进校花体内小说 I 欧美激情黄色片 I 欧美久久久一区 I 爱豆国产剧免费观看大全剧苏畅 I 麻豆国产人妻欲求不满谁演的 I 亚洲一区二区在线免费观看视频 I 国产超碰av人人做人人爽 I 精品国产第一国产综合精品 I 久久免费看av I 欧美一区二区三区白人 I 国产精品夫妻激情 I 校花被肉干高h潮不断 I 欧美最猛黑人xxxx黑人表情 I 国产欧美日韩一区二区搜索 I 极品女神露脸呻吟啪啪 I 人人天天久久 I 亚洲动漫在线 I 日本91福利区 I 五月天 桃色 开心 I av在线免费观看国产 I 男人添女人的免费视频 I 夜夜穞天天穞狠狠穞

實例為 6臺穿梭小車（穿梭車臺數可以實際情況增減），其中5臺設為目標，一臺為本地穿梭車。功能塊有分別輸出有：警告啟動、減速啟動、停車啟動、兩車間隙值等。
源代碼如下：
FUNCTION_BLOCK FB1026
VAR_INPUT
   CarData1:DINT;//目標穿梭車1位置值
   CarData2:DINT;//目標穿梭車2位置值
   CarData3:DINT;//目標穿梭車3位置值
   CarData4:DINT;//目標穿梭車4位置值
   CarData5:DINT;//目標穿梭車5位置值
   CarLocaL:DINT;//本地穿梭車位置值
   Warning_JL1:DINT;//警告距離1設定
   Warning_JL2:DINT;//警告距離2設定
   Decelerate_JL1:DINT;//減速距離1設定
   Decelerate_JL2:DINT;//減速距離2設定
   StopCar_JL1:DINT;//停車距離1設定
   StopCar_JL2:DINT;//停車距離2設定
  
END_VAR  
VAR
    I:INT;
    InData:ARRAY[1..5] OF DINT;
END_VAR
VAR_OUTPUT
Out_Warning:BOOL;//警告啟動
Out_Decelerate:BOOL;//減速啟動
Out_Stop:BOOL;//停車啟動
D_Value:DINT;//兩車之間值
END_VAR;
   InData[1]:=CarData1;
   InData[2]:=CarData2;
   InData[3]:=CarData3;
   InData[4]:=CarData4;
   InData[5]:=CarData5;
    FOR I:= 1 TO 5 BY 1 DO
        IF (InData[I]>0)AND(((CarLocaL-InData[I]<0)AND(CarLocaL-InData[I]>=Warning_JL1))OR( CarLocaL-InData[I]>=Warning_JL2))THEN//判定是否已到警告距離
           Out_Warning:=1;//警告啟動
           D_Value:=CarLocaL-InData[I];
           ELSE
           Out_Warning:=0;
           Out_decelerate:=0;
           Out_Stop:=0;
           D_Value:=0;
    END_IF;
        IF OUT_Warning THEN  
       IF ((CarLocaL-InData[I]<0)AND(CarLocaL-InData[I]>=Decelerate_JL1))OR( CarLocaL-InData[I]>=Decelerate_JL2)THEN//判定是否已到減速距離
         Out_decelerate:=1;//減速啟動
    ELSE
         Out_decelerate:=0;
    END_IF;
        IF((CarLocaL-InData[I]<0)AND(CarLocaL-InData[I]>=StopCar_JL1))OR( CarLocaL-InData[I]>=StopCar_JL2)THEN//判定是否已到停車距離
         Out_Stop:=1;//停車啟動
    ELSE
        Out_Stop:=0;
    END_IF;
    EXIT;
    END_IF;
          END_FOR;
    
END_FUNCTION_BLOCK

引用

引用樓主worker02于2018-05-10 11:47發表的 西門子PLC多臺環循穿梭車防撞及排隊算法 :
實例為 6臺穿梭小車（穿梭車臺數可以實際情況增減），其中5臺設為目標，一臺為本地穿梭車。功能塊有分別輸出有：警告啟動、減速啟動、停車啟動、兩車間隙值等。
源代碼如下：
FUNCTION_BLOCK FB1026
VAR_INPUT
   CarData1:DINT;//目標穿梭車1位置值
.......

路過看看，坐坐沙發！既然寫最好把相關工藝流程一并寫來。

沙發坐空了！

FUNCTION_BLOCK FB1026

VAR_INPUT
   CarData1:DINT;//目標穿梭車1位置值
   CarData2:DINT;//目標穿梭車2位置值
   CarData3:DINT;//目標穿梭車3位置值
   CarData4:DINT;//目標穿梭車4位置值
   CarData5:DINT;//目標穿梭車5位置值
   CarLocaL:DINT;//本地穿梭車位置值
   Warning_JL1:DINT;//警告距離1設定
   Warning_JL2:DINT;//警告距離2設定
   Decelerate_JL1:DINT;//減速距離1設定
   Decelerate_JL2:DINT;//減速距離2設定
   StopCar_JL1:DINT;//停車距離1設定
   StopCar_JL2:DINT;//停車距離2設定  
END_VAR  

VAR
    I:INT;
    InData:ARRAY[1..5] OF DINT;
END_VAR

VAR_OUTPUT
Out_Warning:BOOL;//警告啟動
Out_Decelerate:BOOL;//減速啟動
Out_Stop:BOOL;//停車啟動
D_Value:DINT;//兩車之間值
END_VAR;


   InData[1]:=CarData1;
   InData[2]:=CarData2;
   InData[3]:=CarData3;
   InData[4]:=CarData4;
   InData[5]:=CarData5;

    FOR I:= 1 TO 5 BY 1 DO
        IF (InData[I]>0)
             AND(((CarLocaL-InData[I]<0)
                  AND(CarLocaL-InData[I]>=Warning_JL1))
                     OR( CarLocaL-InData[I]>=Warning_JL2))THEN//判定是否已到警告距離

               Out_Warning:=1;//警告啟動
           D_Value:=CarLocaL-InData[I];

           ELSE

           Out_Warning:=0;
           Out_decelerate:=0;
           Out_Stop:=0;
           D_Value:=0;

    END_IF;

        IF OUT_Warning THEN  

        IF ((CarLocaL-InData[I]<0)
            AND(CarLocaL-InData[I]>=Decelerate_JL1))
                  OR( CarLocaL-InData[I]>=Decelerate_JL2)THEN//判定是否已到減速距離
         Out_decelerate:=1;//減速啟動
    ELSE
         Out_decelerate:=0;
    END_IF;
        IF((CarLocaL-InData[I]<0)
             AND(CarLocaL-InData[I]>=StopCar_JL1))
                OR( CarLocaL-InData[I]>=StopCar_JL2)THEN//判定是否已到停車距離
          Out_Stop:=1;//停車啟動
    ELSE
        Out_Stop:=0;
    END_IF;
    EXIT;
    END_IF;
          END_FOR;
    
END_FUNCTION_BLOCK


這樣看起來舒服些-------