Ocean-optics Jaz Scripting Language and Scripting Engine User Manual download pdf (Page 60)

A: Example Scripts

52 013-RD000-000-12- 201010

Call Refresh

GOTO TOP

LABEL QUIT

DisplayMsg("Ending$Session")

Pause(2)

END

//Menu to standardize

[Process GetStandards]

LABEL TOP

ShowMenu("Take Dark Ref","Take Low pH Ref","Take Max pH Ref","Back")

OnButtonClick(UserSelection,TimeOutSeconds)

If(UserSelection = 0) GOTO Dark

If(UserSelection = 1) GOTO Low

If(UserSelection = 2) GOTO Max

If(UserSelection = 3) GOTO EXIT

LABEL Dark

Call GetTheDarkRef

GOTO TOP

LABEL Low

Call GetTheLowRef

GOTO TOP

LABEL Max

Call GetTheMaxRef

GOTO TOP

LABEL EXIT

END

[Process MainMenu]

PassCount := 0

1 2 ... 55 56 57 58 59 60 61 62 63 64 65 ... 73 74

No comments

Ocean-optics Jaz Scripting Language and Scripting Engine User Manual Page 60