求助vbs循环for脚本的用法-技术论坛-工业支持中心-西门子中国

求助vbs循环for脚本的用法

小灿灿

帖子

541
精华

2
被关注

28

论坛等级：侠士

注册时间：2009-12-16

普通如何晋级?

求助vbs循环for脚本的用法

997

1

2014-09-27 11:00:47

现有以下循环指令，求助下如何用for来循环，感激不尽
If HMIRuntime.Tags("@NOTP::AISet_Num").Read = 0 Then
HMIRuntime.Tags("AISet00_Gain").Write HMIRuntime.Tags("@NOTP::AISet_Gain").Read
HMIRuntime.Tags("AISet00_Offset").Write HMIRuntime.Tags("@NOTP::AISet_Offset").Read
HMIRuntime.Tags("AISet00_RangeH").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeH").Read
HMIRuntime.Tags("AISet00_RangeL").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeL").Read
HMIRuntime.Tags("AISet00_VinMax").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMax").Read
HMIRuntime.Tags("AISet00_VinMin").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMin").Read
HMIRuntime.Tags("AISet00_AIType").Write HMIRuntime.Tags("@NOTP::AI_Convert_Type").Read
End If
If HMIRuntime.Tags("@NOTP::AISet_Num").Read = 1 Then
HMIRuntime.Tags("AISet01_Gain").Write HMIRuntime.Tags("@NOTP::AISet_Gain").Read
HMIRuntime.Tags("AISet01_Offset").Write HMIRuntime.Tags("@NOTP::AISet_Offset").Read
HMIRuntime.Tags("AISet01_RangeH").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeH").Read
HMIRuntime.Tags("AISet01_RangeL").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeL").Read
HMIRuntime.Tags("AISet01_VinMax").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMax").Read
HMIRuntime.Tags("AISet01_VinMin").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMin").Read
HMIRuntime.Tags("AISet01_AIType").Write HMIRuntime.Tags("@NOTP::AI_Convert_Type").Read
End If
.......
从0一直到75....