&下次自动登录
绑定第三方账号登录 &
扫描二维码登录支持中心移动端
获取动态密码
立即签到已签到已签到0天
累计可抽西币次数：0次抽奖机会抽西币奖
累计可抽大奖次数：0次抽奖机会抽终极大奖
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。
售前文档售后文档
热门视频系列热门版区售后服务概述自助服务帮助信息
You are here:
咱工程师的故事&
取证训练营
行业或应用分类
服务合作伙伴专区
&wincc VBS脚本利用数组 改写多个变量，并求和
楼主&&&& 16:42:02
主题：wincc VBS脚本利用数组 改写多个变量，并求和
问题：有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,SUMFor I = 0 To 9& & TE=CSTR(I+1)& & TE=&A&&TE &'合成变量名& & Set A(I)=HMIRuntime.Tags(TE)& & A(I).value=I+1& & A(I).writeNextSUM=0For I=0 To 9 &&&&A(I).read& & SUM=SUM+A(I).valueNextMsgBOX(SUM)End Sub& & 保存画面，运行测试，点击按钮后弹出消息窗，求和值显示55；更换其他计算方式也可进行其他计算以上示例仅供参考，不限于修改变量值，主要学习批量修改的方法。当然，如果画面里有多个名称类似的对象，修改对象属性也可用此方法。比如有多个圆，需要同时修改圆的半径，不过需圆的名称统一修改为:前面字符一致,后面按数字顺序编号的形式,利用circle1、circle2、circle3……
1楼&&&& 20:50:28
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
非常好的想法，VBS用起来666啊，赞\(≧▽≦)/赞赞
2楼&&&& 22:35:12
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
感谢分享VBS这个是一个方法如果有规律的话，倒是不如用VBA 创建IO域然后设置直接连接好
Q 群：6141014
3楼&&&& 08:30:10
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
水平有限，VBA还不会用，继续学习中
4楼&&&& 09:04:45
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
& & Set A(I)=HMIRuntime.Tags(&TE&)&&&&A(I)=I+1第一句，是设定A(i)为对象，即WinCC内部变量，TE不能加引号；Set A(I)=HMIRuntime.Tags(TE)第二句，就矛盾了。对象不能赋值。应该A(I).Value=i+1&A(i).Write
无论成与败，无论甜与苦，我还是我。
5楼&&&& 10:43:03
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
学习了，学习了。感谢楼主分享好的方法！
6楼&&&& 11:33:11
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
感谢分享，脚本一看就头疼。
永无止境！
7楼&&&& 13:43:47
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
你说的对，内部变量TE不能加引号。问你个问题我有一个函数总是报错，是TP1500触摸屏内部脚本。如下Dim a,ba=("Valve_c.A10001VA.ManMode")
'这是一个结构体变量下面的一个bool元素。在HMI TAG中是一个结构体，而不是单个bool变量b=smarttag(a) 这个指令总是提示报错
8楼&&&& 23:14:59
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
熟练应用VBS脚本用处很大。
我回来了！
10楼&&&& 11:17:21
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
学习了，谢楼主
12楼&&&& 08:28:56
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
用VBA 创建IO域然后设置直接连接，这个怎么实现呢？希望大师分享，谢谢！
13楼&&&& 10:04:06
主题：回复：wincc VBS脚本利用数组 改写多个变量，并求和
帮助里面好像有这个介绍的
Q 群：6141014
欢迎您来到技术论坛
在这里，可以将您的话题分享给大家。“发帖”即可与全国各地的自动化技术工程师进行最直接的交流、分享与学习。
看到您感兴趣的帖子，记得“回复”您的观点哦。
一个主题每人多次发言，适合过程的探讨与分享。
这里有西门子工控产品的探讨精华，有宝贵的经验分享。
点击精华帖列表，一览无余！
当您在项目中遇到疑难问题，
记得来这里获得众多资深用户的帮助与指导。
支持中心新发布“关注”功能了！实时查看彼此动态，更方便地进行技术交流。
不管是“关注”与“被关注”，相信都是一个美好的开始！
还有多重奖励派送，快快行动起来吧！
20秒帮我们优化支持中心！
欢迎您访问支持中心！
丰富的视频，全方位的文档，大量的网友交流精华……
为了更好的完善这些内容，我们诚邀您在浏览结束后，花20秒左右的时间，完成一个用户在线调查！
感谢您的支持！去活动主页
【分享】wincc VBS脚本利用数组 改写多个变量，并求和
问题：有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,SUMFor I = 0 To 9& & TE=CSTR(I+1)& & TE=&A&&TE &'合成变量名& & Set A(I)=HMIRuntime.Tags(TE)& & A(I).value=I+1& & A(I).writeNextSUM=0For I=0 To 9 &&&&A(I).read& & SUM=SUM+A(I).valueNextMsgBOX(SUM)End Sub& & 保存画面，运行测试，点击按钮后弹出消息窗，求和值显示55；更换其他计算方式也可进行其他计算以上示例仅供参考，不限于修改变量值，主要学习批量修改的方法。当然，如果画面里有多个名称类似的对象，修改对象属性也可用此方法。比如有多个圆，需要同时修改圆的半径，不过需圆的名称统一修改为:前面字符一致,后面按数字顺序编号的形式,利用circle1、circle2、circle3……
回复：wincc VBS脚本利用数组 改写多个变量，并求和
非常好的想法，VBS用起来666啊，赞\(≧▽≦)/赞赞
已有1个人评论展开何志刚：。。。&&&&&& 11:55:54&&&
回复：wincc VBS脚本利用数组 改写多个变量，并求和
感谢分享VBS这个是一个方法如果有规律的话，倒是不如用VBA 创建IO域然后设置直接连接好
回复：wincc VBS脚本利用数组 改写多个变量，并求和
以下是引用RENHQ在 22:35:12的发言 >2楼：感谢分享VBS这个是一个方法如果有规律的话，倒是不如用VBA 创建IO域然后设置直接连接好
水平有限，VBA还不会用，继续学习中
回复：wincc VBS脚本利用数组 改写多个变量，并求和
& & Set A(I)=HMIRuntime.Tags(&TE&)&&&&A(I)=I+1第一句，是设定A(i)为对象，即WinCC内部变量，TE不能加引号；Set A(I)=HMIRuntime.Tags(TE)第二句，就矛盾了。对象不能赋值。应该A(I).Value=i+1&A(i).Write
已有1个人评论展开kibu：谢谢指导，原来的脚本确实有问题，虽然弹出的消息框值是55,但是变量实际没有写入。
已经修改了代码&&&&&& 08:58:34&&&
回复：wincc VBS脚本利用数组 改写多个变量，并求和
学习了，学习了。感谢楼主分享好的方法！
回复：wincc VBS脚本利用数组 改写多个变量，并求和
感谢分享，脚本一看就头疼。
回复：wincc VBS脚本利用数组 改写多个变量，并求和
你说的对，内部变量TE不能加引号。问你个问题我有一个函数总是报错，是TP1500触摸屏内部脚本。如下Dim a,ba=("Valve_c.A10001VA.ManMode")
'这是一个结构体变量下面的一个bool元素。在HMI TAG中是一个结构体，而不是单个bool变量b=smarttag(a) 这个指令总是提示报错
已有1个人评论展开must努力：精智面板脚本变量貌似不能这么表示&&&&&& 03:15:27&&&
回复：wincc VBS脚本利用数组 改写多个变量，并求和
熟练应用VBS脚本用处很大。
回复：wincc VBS脚本利用数组 改写多个变量，并求和
学习了，谢楼主
& Siemens Ltd. China, 2018
您收到0封站内信：//1. 写一个函数add，接受两个整数作为参数，返回这两个整数的和.
import java.util.S
public class Demo1{public static void main(String[] args){
int a=shuru();int b=shuru();int c=add( a, b);shuchu(c);}public static int add(int a,int b){return a+b;}public static int shuru(){Scanner scan=new Scanner(System.in);return
a=scan.nextInt();}public static void shuchu(int a){System.out.println(a);}
//总结，return语句后面不能创建变量如return int a=0;这是不合法的；
用C语言编写函数实现一个整数计算机，程序接受三个参数，第一个参数为操作项，后两个参数为操作数。
【C语言】编写一个函数，传入a,b两个int类型的变量，返回两个值的最大公约数。（辗转相除法和常规求法）
Java入门第二个程序：求两个整数的和
面试题12—相关题目（任意两个整数相加）
Java 利用异常
Java利用字符串实现整数格式相加求和
面试题：写一个java应用程序，从键盘输入两个整数，然后输出它们的平方值及立方值
java 用方法实现求任意多个整数的和
没有更多推荐了，我要对于一个文件夹下面的多个excel表进行每行的自动求和保存在每行的第14列，求大神写个VBS代码。_百度知道
我要对于一个文件夹下面的多个excel表进行每行的自动求和保存在每行的第14列，求大神写个VBS代码。
还有就是提示错误，该怎么修改。...
还有就是提示错误，该怎么修改。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
你的回答被采纳后将获得：
系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏30（财富值+成长值）
采纳数：361
获赞数：301
请把完整代码发送邮箱，代工。百度资料可查邮箱。
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VBS编写两个程序：1到n的求和；当小于5000无回扣，大于5000小于10000有5%回扣，大于10000有10%回扣_百度知道
VBS编写两个程序：1到n的求和；当小于5000无回扣，大于5000小于10000有5%回扣，大于10000有10%回扣
急！急！急！急！急！急！急！急！急！急！急！急！...
急！急！急！急！急！急！急！急！急！急！急！急！
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：112
获赞数：200
Function calTotal(n) Dim total For i = 1 To n
total = total + i Next calTotal = totalEnd FunctionFunction GetRe(money)If money&5000 Then GetRe = 0ElseIf money&5000 And money&10000 Then GetRe = 0.05 ElseIf money&10000 Then GetRe = 0.1End if
End Function这两个子过程的调用方法为 calTotal(100)
'100可自定义GetRe(7500)
'7500可自定义
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。