最新天堂中文在线丨午夜嘿嘿嘿影院丨亚洲国产精品高清久久久丨中文字幕人成乱码熟女app丨www91亚洲丨97成人资源丨成人中文字幕+乱码+中文字幕丨一区二区三区在线 | 日丨日韩免费大片丨亚洲欧美一区二区三区丨国产在线观看a丨亚洲成人第一区丨国内免费视频成人精品丨亚洲综合色网站丨午夜精品美女久久久久av福利丨国产午夜人做人免费视频网站丨国产又黄视频丨97se狼狼狼狼狼亚洲网丨狠狠亚洲婷婷综合色香五月丨中国一级毛片黄丨国产女人十八毛片丨国产色视频在线播放丨国产亚洲精久久久久久无码苍井空丨天天摸日日摸爽爽狠狠丨久久综合香蕉国产蜜臀av

找不到st編程的教程，硬是自己摸索，一點一點摳出來的。
后來發現iQ-R 結構化文本(ST)編程指南就是教程，關于語法、其他手冊上找不到的較難理解的結構變量都有示例。
完全st編程的中斷寫法好幾天無從著手，把FXCPU結構化順序指令篇看了一遍又一遍，才摸索出來，具體見工程附件。
工程是未完成的不完整工程，只是希望自己認為較難理解手冊沒提及的st編程方法對需要的同志有所幫助。

另外吐槽一下st編輯器，變量不能在程序里定義，只能在標簽窗口定義，結構體成員引用不能單獨設置字體顏色，這些都影響閱讀。
總之，gx works2 的st編輯器比較簡陋，但可閱讀性已經比梯形圖好多了。

復制代碼 (***************************************************************************************************** * 程序“恒定掃描”設置 * M8039 = TRUE， 則程序為恒定周期掃描 * D8039 = 掃描周期, 單位為ms，最小恒定掃描周期為1ms *****************************************************************************************************) M8039 := TRUE; IF M8039 THEN     D8039 := 5; END_IF; (***************************************************************************************************** * 初始化 *****************************************************************************************************) EI ( TRUE );        (* 允許中斷 *) IF M8002 THEN          FOR j := 0 TO 30 BY 1 DO                 Tcnt[j] := -1;             END_FOR;     RST( TRUE, HmiKey_ManualOP );     RST( TRUE, bMode_Manual );     RST( TRUE, HmiKey_AutoPack );     RST( TRUE, bMode_Auto );     DownFill_FB_Call( );     VerticalSeal_FB_Call( );               BagFold_FB_Call( );      END_IF; (* 每包包裝時間所需計數值 = 60000ms / 10ms / 預置包裝速度，每分鐘為60000ms，定時器為10ms *) TVal_Packing :=  6000 / Param_PresetSpeed; (***************************************************************************************************** * 清零 *****************************************************************************************************) IF( HmiKey_BagCnt_CLR ) THEN     MakeBagCnt := 0; END_IF; IF( HmiKey_PackingCnt_CLR ) THEN     PackingCnt := 0; END_IF;     (***************************************************************************************************** * 警報發生 * 報警鎖，任何一種警報發生，自動包裝都將停止運行 ****************************************************************************************************) IF( bAlarm_Lock_AutoPack = TRUE ) THEN          ZRST( TRUE, Y001, Y007 );     ZRST( TRUE, Y010, Y017 );     ZRST( TRUE, Y020, Y027 );                      FOR j := 0 TO 30 BY 1  DO                 Tcnt[j] := -1;             END_FOR;          END_IF; (***************************************************************************************************** * HMI按鈕開關 *****************************************************************************************************) Key_Hmi_FB_Call(); (***************************************************************************************************** * 包裝流程 * *****************************************************************************************************) IF( bMode_Auto ) AND ( bAlarm_Lock_AutoPack = FALSE ) AND ( HmiKey_FillPack[1]  OR  HmiKey_EmptyBagTest[1]  OR  HmiKey_FillBagOne[1] ) THEN          IF( HmiKey_FillPack[1]  ) THEN         DownFill_FB_Call( hmi_key := KeyDownID,  pT_DownFillDly := Tcnt[ ID_DOWN_FILL_DLY ],   iX := iX_DownFill ); (* 下料 *)     END_IF;              IF( HmiKey_EmptyBagTest[1]  OR  HmiKey_FillBagOne[1] ) THEN                  IF( PackingFlow = 0 ) THEN                                      SET( TRUE, bEnd_DownFill );             PackingFlow := FLOW_PULL_FILM;                                  END_IF;              END_IF;     VerticalSeal_FB_Call( bEnable := bServo_End );    (* 縱封 *)                  BagFold_FB_Call( bEnable:= bServo_End );          (* 折角 *)          ServoControl_FB_Call( pServoEnd := bServo_End  ); (* 伺服拉膜；指針參數，指向全局變量 *)          (* 真空箱閉合 *)     IF( bServo_End = TRUE ) THEN                  IF( Tcnt[ ID_VACUUM_BOX_CLOSE_DLY ] = -1 ) THEN                 Tcnt[ ID_VACUUM_BOX_CLOSE_DLY ] := Param_VcmBoxCloseDly ;             END_IF;                  IF( Tcnt[ ID_VACUUM_BOX_CLOSE_DLY ] = 0 )  AND ( bAlarm_GlassDoor = FALSE ) THEN                          Tcnt[ ID_VACUUM_BOX_CLOSE_DLY ] := -255;             Tcnt[ ID_BAG_CUT_DLY ] := Param_CutDly;             SET( TRUE, Y_VacuumBox_Y3 );                                  END_IF;                      END_IF;     (* 剪切包裝膜 *)     IF( Y_VacuumBox_Y3 ) THEN                  IF( Tcnt[ ID_BAG_CUT_DLY ]  = 0 ) AND ( bAlarm_GlassDoor = FALSE ) THEN                          Tcnt[ ID_BAG_CUT_DLY ] := -255;             Tcnt[ ID_BAG_CUT ] := Param_Cut;             SET( TRUE, Y_Cutter_Print_cylinder );                                END_IF;                      IF( Tcnt[ ID_BAG_CUT ]  = 0 ) THEN                          Tcnt[ ID_BAG_CUT ] := -255;             Tcnt[ ID_VACUUMIZE ] := Param_Vacuum;             RST( TRUE, Y_Cutter_Print_cylinder );             SET( TRUE, Y_VacuumPump_Y5 );             SET( TRUE, Y_Vacuum_cylinder );                      END_IF;                        END_IF;     (* 包裝袋抽真空、封口，恒溫，冷卻 *)     IF( Tcnt[ ID_VACUUMIZE ] = 0 ) THEN           (* 抽真空 *)                  Tcnt[ ID_VACUUMIZE ] := -255;         Tcnt[ ID_HEAT_SEAL ] := Param_HeatSeal;         SET( TRUE, Y_HoriSeal_cylinder );              END_IF;          IF( Tcnt[ ID_HEAT_SEAL ] = 0 ) THEN           (* 熱封 *)         Tcnt[ ID_HEAT_SEAL ] := -255;         Tcnt[ ID_SEAL_KEEP ] := Param_SealKeep;         RST( TRUE, Y_HoriSeal_cylinder );     END_IF;          IF( Tcnt[ ID_SEAL_KEEP ] = 0 ) THEN           (* 恒溫保持 *)         Tcnt[ ID_SEAL_KEEP ] := -255;         Tcnt[ID_SEAL_COOL ] := Param_SealCool;         SET( TRUE, Y_AirIn_cylinder );     END_IF;          IF( Tcnt[ID_SEAL_COOL ] = 0 ) THEN            (* 冷卻等待 *)         RST( TRUE, Y_VacuumBox_Y3 );         RST( TRUE, Y_Vacuum_cylinder );         RST( TRUE, Y_AirIn_cylinder );         PackingFlow := FLOW_END;     END_IF;          (* 每分鐘為60000ms，程序掃描周期為5ms，每分鐘的計數值為60000 / 5 = 12000 *)     IF( Cnt < 11999 ) THEN         Cnt := Cnt + 1;     END_IF;              IF( PackingFlow = FLOW_END  ) AND ( HmiKey_FillPack[1]  ) THEN              MakeBagCnt := MakeBagCnt + 1;             (* 制袋計數 *)         PackingCnt := PackingCnt + 1;             (* 包裝計數 *)         PackingSpeed := 12000 / Cnt;              (* 包裝速度計算 *)         Cnt := 0;              END_IF;          IF( PackingFlow = FLOW_END ) AND ( HmiKey_EmptyBagTest[1]  OR  HmiKey_FillBagOne[1] )  THEN                  MakeBagCnt := MakeBagCnt + 1;             (* 制袋計數 *)         PackingSpeed := 12000 / Cnt;         Cnt := 0;                      END_IF;     (* 包裝流程結束，復位定時器、伺服結束標志、制袋一個按鈕 *)     IF( PackingFlow = FLOW_END  ) THEN                    PackingFlow := 0;         RST( TRUE, bServo_End );         RST( TRUE, HmiKey_FillBagOne[0] );         FOR j := 0 TO 30 BY 1 DO             Tcnt[j] := -1;         END_FOR;                    END_IF;                  END_IF; (***************************************************************************************************** * 包裝膜卷棍電機控制 * * 說明：接近開關的感應體是一個自由落體的金屬橫桿，由包裝膜拉動其上下運動表示包裝膜的松緊。 *       感應體運動到頂部，頂部金屬感應開關動作，說明包裝膜被拉緊，包裝膜卷棍電機運轉送膜； *       感應體運動到中部，中部金屬感應開關動作，說明送膜已經足夠，停止送膜； *       感應體運動到底部，底部金屬感應開關動作，說明接近開關的感應體已經沒有包裝膜拉動其運動， *       或者送膜太多，感應體自由落體到底部 ****************************************************************************************************) IF bMode_Auto THEN          IF( ix_PackFilm_SensorTop  ) THEN                  SET( TRUE, Y_FilmMotor_Y13 ); (* 送膜 *)              ELSIF( ix_PackFilm_SensorMid OR ix_PackFilm_SensorBot )  THEN                  RST( TRUE, Y_FilmMotor_Y13 ); (* 送膜停止 *)              END_IF;        END_IF; (* 手動控制，放膜 *) IF HmiKey_ManualOP THEN          IF( HMI手動_放膜 ) THEN                  SET( TRUE, Y_FilmMotor_Y13 ); (* 手動送膜 *)              ELSE                    RST( TRUE, Y_FilmMotor_Y13 );                  END_IF;      END_IF;

------------------------

引用

引用第1樓楓落云端于2019-06-27 17:11發表的  :
------------------------

樓主神人，把輸出語句改寫了。我說奇怪呢，明明我程序不是這樣啊，原來是改寫了。
不過我不喜歡軟件自帶的指令，盡量以C語言的格式來寫，方便閱讀。

只是看起來一個指令解決的事情非得寫一IF ELSE，而且還出現雙線圈提示。個人習慣

全是if else...而且還中英混搭，何必呢

還是習慣用FBD，ST編邏輯邏輯看著太累，出問題找半天，梯形圖一竿子到底，不利于閱讀。
變量在程序里輸入完標簽名稱按F2就出來了，還行吧。

引用

引用第4樓兩只橙于2019-06-28 10:06發表的  :
全是if else...而且還中英混搭，何必呢

混搭標簽容易辨識，就是寫的時候難受。
軟件自帶的指令與函數，邏輯開關寫成一長串，怎么閱讀啊。
寫單片機程序習慣了，所以只用SET、RST這樣簡單的指令，主要便于閱讀。

引用

引用第3樓楓落云端于2019-06-28 09:38發表的  :
只是看起來一個指令解決的事情非得寫一IF ELSE，而且還出現雙線圈提示。個人習慣

層主是大神。
OUT指令其實是照搬梯形圖，優點是簡潔。但一旦控制邏輯復雜，那讀起來真是頭暈眼花。
用條件語句來寫的缺點就是條件為非時，線圈不能像OUT指令那樣跟隨條件變化，而要多出ELSE語句，是照搬單片機的C語言寫法。
兩種寫法可謂各有優缺點。
至于雙線圈警告，可以在選項設置里勾選“SET指令不是雙線圈的檢查對象”。

就可讀性而言，除了個人習慣原因以外，就整體程序并沒有說PLC編程語言有哪一種能完全碾壓另外一種的說法，
關于梯形圖、結構化還有ST的優劣各大論壇已經討論過很多次了，這跟那個大佬發帖狠懟PLC垃圾，未來發展趨勢是單片機天下
有異曲同工

混搭標簽容易辨識，就是寫的時候難受。
軟件自帶的指令與函數，邏輯開關寫成一長串，怎么閱讀啊。
寫單片機程序習慣了，所以只用SET、RST這樣簡單的指令，主要便于閱讀。

引用

引用第6樓nos001于2019-06-28 16:32發表的  :

混搭標簽容易辨識，就是寫的時候難受。
軟件自帶的指令與函數，邏輯開關寫成一長串，怎么閱讀啊。
寫單片機程序習慣了，所以只用SET、RST這樣簡單的指令，主要便于閱讀。

我知道..個人喜好吧。

我就是覺得你是直接把梯形圖用if else翻譯過來，而且一個條件就占一行，那屏幕得多大才夠看，中英文混合寫代碼過程中還得頻繁切換輸入

謝謝分享