博图HMI脚本程序请教

已锁定

xkqxwhz

  • 帖子

    1205
  • 精华

    10
  • 被关注

    39

论坛等级:奇侠

注册时间:2009-03-26

黄金 黄金 如何晋级?

博图HMI脚本程序请教

5067

6

2019-10-15 20:57:08

 

Sub MenuSelect()
Dim ScreenNo


If (SmartTags("FAST\MainMenu\ScreenNo") = 100) Or  (SmartTags("FAST\MainMenu\ScreenNo") = 200) Or  (SmartTags("FAST\MainMenu\ScreenNo") = 300) Then
 If (SmartTags("FAST\MainMenu\ScreenNo_Last_user_1") <> 0) And  (SmartTags("FAST\MainMenu\ScreenNo_Last_user_1") <> 1) Then
  SetTag ScreenNo, SmartTags("FAST\MainMenu\ScreenNo_Last_user_1")
    SetTag "FAST\MainMenu\ScreenNo_Last_user_1", SmartTags("FAST\MainMenu\ScreenNo_Last_user_0")
    SetTag "FAST\MainMenu\ScreenNo_Last_user_0", ScreenNo
   Else
       SetTag ScreenNo, SmartTags("FAST\MainMenu\ScreenNo_Last_user_0")
 End If
Else  'FROM ANY SCREEN
 If SmartTags("FAST\MainMenu\ScreenNo") <> SmartTags("FAST\MainMenu\ScreenNo_Last_user_0") Then
    SetTag "FAST\MainMenu\ScreenNo_Last_user_1", SmartTags("FAST\MainMenu\ScreenNo_Last_user_0")
    SetTag "FAST\MainMenu\ScreenNo_Last_user_0", SmartTags("FAST\MainMenu\ScreenNo")
   End If
 If (SmartTags("FAST\MainMenu\Menue_Last") = 100) Or  (SmartTags("FAST\MainMenu\Menue_Last") = 200) Or  (SmartTags("FAST\MainMenu\Menue_Last") = 300) Then
     SetTag ScreenNo, SmartTags("FAST\MainMenu\Menue_Last")
 Else
  SetTag ScreenNo, 100
 End If

  
End If
  
ChangeScreen ScreenNo, 0
End Sub

请问各位大侠,标红的语句是什么意思呢?

博图HMI脚本程序请教 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有31053条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。