Processor: VBA Scripts
Example
if Inputs(1) = 0 then
Outputs(1) = 1234
else
Outputs(1) = Inputs(2) * 2
msgbox "Hello World"
end if
NETx Funktionen:
APP.GetRootPath() As String
APP.GetWorkspaceName() As String
APP.GetCurrentUserName() As String
APP.LoginUser(ByVal vUserName As String, ByVal vPassword As String)
APP.UpdateCurrentUser()
APP.GetCurrentPageID() As String
APP.GetPageName(vID As String) As String
APP.GetPagesCount() As Long
APP.GetHomePageID() As String
APP.GetPageIDByIndex(vIndex As Long) As String
APP.GetPageIDByName(vName As String) As String
APP.GotoHomePage() As Boolean
APP.GoPageForward() As Boolean
APP.GoPageBack() As Boolean
APP.GotoPage(vID As String) As Boolean
APP.GetCurrentLayerID() As String
APP.GetLayerName(vID As String) As String
APP.GetLayersCount() As Long
APP.GetLayerIDByIndex(vIndex As Long) As String
APP.GetLayerIDByName(vName As String) As String
APP.IsLayerVisible(vID As String) As Boolean
APP.IsLayerEnabled(vID As String) As Boolean
APP.ShowLayer(vID As String) As Boolean
APP.HideLayer(vID As String) As Boolean
APP.EnableLayer(vID As String) As Boolean
APP.DisableLayer(vID As String) As Boolean
APP.SceneExists(vName As String) As Boolean
APP.IsSceneEnabled(vName As String) As Boolean
APP.PlayScene(vName As String) As Boolean
APP.SaveScene(vName As String) As Boolean
APP.EnableScene(vName As String) As Boolean
APP.DisableScene(vName As String) As Boolean
APP.ShowInfo(ByVal vModule As String, vData As Variant, Optional ByVal vShowDialog As Boolean = False)
APP.ShowWarning(ByVal vModule As String, ByVal vData As Variant, Optional ByVal vShowDialog As Boolean = False, Optional ByVal vShowPopup As Boolean = False)
APP.ShowError(ByVal vModule As String, ByVal vData As Variant, Optional ByVal vShowDialog As Boolean = False, Optional ByVal vShowPopup As Boolean = False)
APP.SendEMail(ByVal vMailTo As String, ByVal vMailSubject As String, ByVal vMailMessage As String)
APP.PlayWAV(ByVal vFileName As String)
APP.PlayAlarmSound()
APP.ItemProperty(vItemID As String, vPropertyID As Long) As Variant
APP.ItemDescription(vItemID As String, vPropertyID As Long) As String
APP.ItemValue(vItemID As String) As Variant
APP.GetLayerIDByIndex(vIndex As Long) As String
APP.GetLayerIDByName(vName As String) As String
APP. ShowLayer(vID As String)
APP. HideLayer(vID As String)
APP.EnableLayer(vID As String)
APP.DisableLayer(vID As String)
APP.IsLayerVisible(vID As String) As boolean