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

 

 

Â