技成培训网论坛

 找回密码
 立即注册
查看: 81|回复: 1
收起左侧

[讨论] wincc 以整数值 画面切换

[复制链接]
发表于 2021-9-16 14:56:14 | 显示全部楼层 |阅读模式

您正在浏览的页面需要登录,为了提高您的阅读体验,请在右上角登录您的账号!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

wincc画面切换
想以一个整数的值得大小来切换画面码如下:
dai
Sub OnOpen()         
Dim a         
Dim objScrWindown
Set a=HMIRuntime.Tags("d")
Set objScrWindown=ScreenItems("画面窗口1")
If a=1 Then
Elseif a=2 Then
    objScrWindown.ScreenName="NewPdl2"
   
Elseif a=3 Then

objScrWindown.ScreenName="NewPdl3"
Else

objScrWindown.ScreenName="NewPdl0"
   

End If

End Sub


求大家指正


 楼主| 发表于 2021-9-16 16:10:00 | 显示全部楼层
这个脚本可以使用Select Case语句代替if

Sub OnOpen()         
Dim a         
Dim objScrWindown
Set a=HMIRuntime.Tags("d")
Set objScrWindown=ScreenItems("画面窗口1")
a.Read
Select Case a.Value
Case 2
  objScrWindown.ScreenName="NewPdl2"
Case 3
  objScrWindown.ScreenName="NewPdl3"
Case Else
  objScrWindown.ScreenName="NewPdl0"
End Select
End Sub


来源于西门子工业论坛
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|技成培训网论坛   粤ICP备11069432号-1

GMT+8, 2021-10-16 23:41

Powered by jcpeixun X3.3

© 2007-2021 深圳市技成科技有限公司

快速回复 返回顶部 返回列表