Precision, Performance, Confidence. ™

Macros: Message Box, Test Macro in COMPASS for Pressure (or Flow)

This Article shows how to add a message box to any point in a test. The message box will pop-up before any other actions in the test point and will wait for the operator to press the OK button before continuing.

The use of Test Macros requires COMPASS for Pressure Enhanced (not Basic) and you have to make the test an Advanced Test (not Simple Test).

Test macros can be used as a pre-test macro in the "Pre-Test" tab also.

You can create the macro at the point in the test by clicking to the left of that point (the cursor changes to a hand) and selecting "Pre Point Macro". A list of available test macros appears. If the one that you want is not in the list go to the bottom and select "Add/Edit Macro" to open the COMPASS Macro Editor.

In this example a message box is being added to point 7 in the test. The M at point 4 indicates that there is a macro here also.

 

If you click "Add/Edit Macro" the COMPASS Macro Editor will open with the Test folder already open (for Test Macros). If you want to make a new macro click the blank white piece of paper icon at the top left. Oftentimes it is useful to find a macro similar to what you want, copy its contents (using CTRL+C), make a new macro, then paste (using CTRL+V) the contents, then edit it.

Here's the text of a similar message box macro that you can copy/paste into a new macro.

Function MsgBoxTareZero()
msgbox "Tare, Zero or Autozero gauge mode devices before test"
End Function

 

And here's an example for E-DWT-H that sends a command to set the front panel to LOCAL mode (not remote), with a status message. Everything in green is a comment to help understand the macro.

Function MessageBoxExercise(iT, iL, iC, iP, cTest, cConfig)

'Change RPM4-EDWT to local instead of remote state so user can push AutoZero button.
'sends a command to the first Reference device.
'false = means the Device will send back a response to the command.
'True means the instrument does Not send a response.

cCOMPASS.cConfig.RefPrs(1).IoSendCommand "LOCAL",True,0

cCOMPASS.StatusDisplay "Waiting for Exercise and AutoZero"
MessageBox = msgbox("Exercise the test device. ",1+64+4096,"Exercise & AutoZero")

'Use the hand pump to prime to 50 psi then the variable volume. Vent, then wait 30 seconds and AutoZero the EDWT
'the 1+4096 is a vb SystemModal value to keep the msgbox on top of the active COMPASS display. It won't let
'the application work until the user responds to the msgbox.

End Function

 

Have more questions? Submit a request

Comments

Please sign in to leave a comment.