vb吧 关注：156,103贴子：1,166,214
- 19回复贴，共1页
不感兴趣
开通SVIP免广告
Sub SpiralStart1(ByRef Spiral_Output)
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim m,n,bbb,c,d
c = Spiral_Output
If c = 0 Then
bbb=0
SmartTags("Spiral_index")=bbb
Else
For n = 1 To 2
For m = 0 To 89999
bbb=bbb+33000
SmartTags("Spiral_index")=bbb
If bbb >= 99000 Then
bbb=0
End If
Next
d = Spiral_Output
If d = 0 Then
Exit For
Else
n=1
End If
Next
End If
End Sub
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim m,n,bbb,c,d
c = Spiral_Output
If c = 0 Then
bbb=0
SmartTags("Spiral_index")=bbb
Else
For n = 1 To 2
For m = 0 To 89999
bbb=bbb+33000
SmartTags("Spiral_index")=bbb
If bbb >= 99000 Then
bbb=0
End If
Next
d = Spiral_Output
If d = 0 Then
Exit For
Else
n=1
End If
Next
End If
End Sub
