104 lines
2.8 KiB
Markdown
104 lines
2.8 KiB
Markdown
|
|
||
|
|
When the operator need to open another panel the script `RemAccess_lineDefinition` is called to setup which panels can be access depending on the line. After this `SELECT CASE` it shows the page 41.
|
||
|
|
|
||
|
|
On the page 41 when the operator press one panel call the Script `RemAccess_hmiDefinition(LineNum, HMINum) `
|
||
|
|
|
||
|
|
The script then open the PopUp page 1380. On the pop-up there is the SmartClient view with this parameters:
|
||
|
|
|
||
|
|
![[Pasted image 20231011122336.png]]
|
||
|
|
|
||
|
|
![[Pasted image 20231011122712.png]]
|
||
|
|
|
||
|
|
For closing:
|
||
|
|
![[Pasted image 20231011122742.png]]
|
||
|
|
|
||
|
|
Script - RemAccess_hmiDefinition
|
||
|
|
***
|
||
|
|
|
||
|
|
```vb
|
||
|
|
|
||
|
|
Sub RemAccess_hmiDefinition(ByRef LineNum, ByRef HmiNum)
|
||
|
|
'Suggerimento:
|
||
|
|
' 1. Utilizzare la combinazione di tasti <CTRL+SPACE> o<CTRL+I> per aprire l'elenco completo degli oggetti o delle funzioni
|
||
|
|
' 2. Scrivere il codice con l'oggetto HMI Runtime.
|
||
|
|
' Esempio: HmiRuntime.Screens("Screen_1").
|
||
|
|
' 3. Utilizzare la combinazione di tasti <CTRL+J> per creare un riferimento dell'oggetto.
|
||
|
|
'Scrivere il codice da questa posizione:
|
||
|
|
|
||
|
|
SmartTags("LineIndex")=LineNum
|
||
|
|
|
||
|
|
SmartTags("HMIAddress")="10.1."&(LineNum)&"."&(HmiNum)
|
||
|
|
|
||
|
|
SmartTags("HMI.RemotePanel.Address")=SmartTags("HMIAddress")&"::5900"
|
||
|
|
|
||
|
|
Select Case HmiNum
|
||
|
|
Case 3,4
|
||
|
|
SmartTags("NumOfQE")=2
|
||
|
|
Case 5,6
|
||
|
|
SmartTags("NumOfQE")=3
|
||
|
|
Case 7,8
|
||
|
|
SmartTags("NumOfQE")=4
|
||
|
|
Case Else
|
||
|
|
SmartTags("NumOfQE")=1
|
||
|
|
End Select
|
||
|
|
|
||
|
|
|
||
|
|
Select Case HmiNum
|
||
|
|
Case 1,3,5,7
|
||
|
|
SmartTags("NumOfHMI")=1
|
||
|
|
Case Else
|
||
|
|
SmartTags("NumOfHMI")=2
|
||
|
|
End Select
|
||
|
|
|
||
|
|
ShowPopupScreen "1380 - Std HMI - Pannello Remoto 7", 0, 0, hmiOn, hmiAnimationOff, hmiSlow
|
||
|
|
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
```
|
||
|
|
|
||
|
|
Script - RemAccess_lineDefinition
|
||
|
|
***
|
||
|
|
|
||
|
|
```vb
|
||
|
|
Sub RemAccess_lineDefinition(ByRef LineNum)
|
||
|
|
'Suggerimento:
|
||
|
|
' 1. Utilizzare la combinazione di tasti <CTRL+SPACE> o<CTRL+I> per aprire l'elenco completo degli oggetti o delle funzioni
|
||
|
|
' 2. Scrivere il codice con l'oggetto HMI Runtime.
|
||
|
|
' Esempio: HmiRuntime.Screens("Screen_1").
|
||
|
|
' 3. Utilizzare la combinazione di tasti <CTRL+J> per creare un riferimento dell'oggetto.
|
||
|
|
'Scrivere il codice da questa posizione:
|
||
|
|
|
||
|
|
|
||
|
|
SmartTags("LineIndex")=LineNum
|
||
|
|
|
||
|
|
'SmartTags("Q1.HMI1.Address")="10.1."&(LineNum)&".1::5900"
|
||
|
|
'SmartTags("Q1.HMI2.Address")="10.1."&(LineNum)&".2::5900"
|
||
|
|
'
|
||
|
|
'SmartTags("Q2.HMI1.Address")="10.1."&(LineNum)&".3::5900"
|
||
|
|
'SmartTags("Q2.HMI2.Address")="10.1."&(LineNum)&".4::5900"
|
||
|
|
'
|
||
|
|
'SmartTags("Q3.HMI1.Address")="10.1."&(LineNum)&".5::5900"
|
||
|
|
'SmartTags("Q3.HMI2.Address")="10.1."&(LineNum)&".6::5900"
|
||
|
|
'
|
||
|
|
'SmartTags("Q4.HMI1.Address")="10.1."&(LineNum)&".7::5900"
|
||
|
|
'SmartTags("Q4.HMI2.Address")="10.1."&(LineNum)&".8::5900"
|
||
|
|
'
|
||
|
|
'SmartTags("HMIAddress")="10.1."&(LineNum)&"."&(HmiNum)&"::5900"
|
||
|
|
|
||
|
|
Select Case LineNum
|
||
|
|
Case 25,26,27
|
||
|
|
SmartTags("NumOfQEForLine")=3
|
||
|
|
SmartTags("BoolQEWith2Hmi")=2
|
||
|
|
Case 24,28
|
||
|
|
SmartTags("NumOfQEForLine")=1
|
||
|
|
SmartTags("BoolQEWith2Hmi")=0
|
||
|
|
Case Else
|
||
|
|
SmartTags("NumOfQEForLine")=15
|
||
|
|
SmartTags("BoolQEWith2Hmi")=8
|
||
|
|
End Select
|
||
|
|
|
||
|
|
ActivateScreen "041- RemoteAccess",0
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
```
|