6AV66470AA113AX0西門子KTP400PN精簡面板

6AV6647-0AA11-3AX0 SIMATIC HMI KTP400 Basic mono PN， 精簡面板， 按鍵式/觸摸式操作， 4" STN 顯示屏， 4 個灰度級， PROFINET 接口， 可項目組態，從 WinCC flexible 2008 SP2 Compact/ WinCC Basic 10.5版/ STEP 7 Basic 10.5版， 包含開源軟件，加熱 免費提供 參見隨附 CD

SIEMENS西門子

*，質量保證，保修一年

專業銷售及維修西門子各類工控自動化配件;

：S7-200CN、S7-200SMART、S7-300、S7-400、 S7-1200、S7-1500、ET200、LOGO邏西門子可編程控制器輯控制模塊

西門子HMI人機界面：觸摸屏

西門子變頻器：MM420、MM430、MM440、G110、G120、6SE70

西門子工業以太網：通訊網卡、通訊電纜、通訊接頭、總線連接器 工控機、交換機、自動化軟件等系型號齊全，快速報價，買我們的產品無憂所值，我們的產品都承諾質保一年，讓您買的省心舒心，用的放心！

問題：有10個變量 A1、A2……A10，需要分別寫入 1、2……10，用IO域太麻煩，用vbs腳本怎實現？

提示：利用數組方便很多，不過數組元素編號從0開始的，需要注意一下

示例：新建內部變量A1到A10,然后在畫面內建一個按鈕，按鈕鼠標事件單擊左鍵里寫入VBS腳本如下

Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)           

Dim A(9),I,TE,SUM

For I = 0 To 9

    TE=CSTR(I+1)

    TE="A"&TE  '合成變量名

    Set A(I)=HMIRuntime.Tags(TE)

    A(I).value=I+1

    A(I).write

Next

SUM=0

For I=0 To 9

    A(I).read

    SUM=SUM+A(I).value

Next

MsgBOX(SUM)

End Sub

保存畫面，運行測試，點擊按鈕后彈出消息窗，求和值顯示55；更換其他計算方式也可進行其他計算

以上示例僅供參考，不限于修改變量值，主要學習批量修改的方法。

當然，如果畫面里有多個名稱類似的對象，修改對象屬性也可用此方法。

比如有多個圓，需要同時修改圓的半徑，不過需圓的名稱統一修改為:前面字符*,后面按數字順序編號的形式,利用circle1、circle2、circle3……

6AV66470AA113AX0西門子KTP400PN精簡面板