Ocean-optics Jaz Scripting Language and Scripting Engine Manuel d'utilisateur télécharger pdf (Page 59)

A: Example Scripts

013-RD000-000-12- 201010 51

Light1 := 4000

LABEL LightLoop

SetLampIntensity(0,ALLBULBS,Light1)

GetSpectrum(0,LightSpectrum)

LocateWavelength(LightSpectrum,566,LightPeak)

IF(LightSpectrum[LightPeak] > 32000) GOTO Again

GOTO EndLight

LABEL Again

Light1 := Light1 - 100

SetLampIntensity(0,ALLBULBS,Light1)

GOTO LightLoop

LABEL EndLight

DisplayMsg("Light adjustment$complete")

Pause(2)

Display("Max Int = ",LightSpectrum[LightPeak],"")

Pause(2)

// Main User Interface

Label Top

CALL MainMenu

If(UserChoice = 0) GOTO Standardize

If(UserChoice = 1) GOTO VIEW

If(UserChoice = 2) GOTO RefreshpK

GOTO QUIT

LABEL Standardize

CALL GetStandards

GOTO TOP

LABEL View

Call ViewpH

GOTO TOP

LABEL RefreshpK

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

Pas de commentaire

Ocean-optics Jaz Scripting Language and Scripting Engine Manuel d'utilisateur Page 59