Ocean Optics Jaz Scripting Language and Scripting Engine - Manual (Page 63)

A: Example Scripts
013-RD000-000-12- 201010 55
OpenFile(LowFile, ForWrite)
WriteSpectrum(LowFile,LowpHSpectrumDark)
CloseFile(LowFile)
LocateWavelength(MaxpHSpectrumDark, 750, MaxIntensityBase)
LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)
MaxBaseRatio := MaxpHSpectrumDark[MaxIntensityBase] /
LowpHSpectrumDark[LowIntensityBase]
LOG10(MaxBaseRatio, MaxBaseAbsorbance)
MaxBaseAbsorbance := -(MaxBaseAbsorbance)
LocateWavelength(MaxpHSpectrumDark, 618, MaxIntensityPeak1)
LocateWavelength(LowpHSpectrumDark, 618, LowIntensityPeak1)
MaxPeakRatio1 := MaxpHSpectrumDark[MaxIntensityPeak1] /
LowpHSpectrumDark[LowIntensityPeak1]
LOG10(MaxPeakRatio1, MaxPeakAbsorbance1)
MaxPeakAbsorbance1 := -(MaxPeakAbsorbance1)
MaxAbsorbance := MaxPeakAbsorbance1 - MaxBaseAbsorbance
Display("Max Abs = ",MaxAbsorbance,"")
Pause(2)
END
//Reset pK and Slope Menu
[PROCESS Refresh]
LABEL TOP
ShowMenu("Manual Entry","Quick Reset","Full Reset","Back")
OnButtonClick(UserSelection,TimeoutSeconds)
If(UserSelection = 0) GOTO Manual
If(UserSelection = 1) GOTO Quick
If(UserSelection = 2) GOTO Full
If(UserSelection = 3) GOTO EXIT