A sample basic control engine script illustrating these two functions and testing for their return values is provided below. In this example, a message is generated and cleared to a project called PROJ, with a marquee resident process called MQRP1 controlling a marquee device called DEV1.
’ Sample program which demonstrates Marquee extensions to BCE.
Dim i As Integer
i = MarqueeMessageGenerate ("PROJ", "MQRP1", "DEV1", "MSG from BCE",
i = MarqueeMessageClear ("PROJ", "MQRP1", "DEV1", "MSG1")
Sub CheckStatus (i As Integer)
Select Case i
msgbox "Message was successfully generated/cleared."
msgbox "Problem communicating with the project you specified."
msgbox "You have specified an invalid device."
msgbox "Cannot delete the message you specified."
msgbox "You have specified an empty Project ID."
msgbox "You have specified an empty Service ID."
msgbox "You have specified an empty Device ID."
msgbox "You have specified an empty Reference ID."
msgbox "The MQRP Service ID you specified was invalid."
msgbox "Unexpected error:" & i
Extensions to the Basic Control Engine.