Ocean-optics Jaz Scripting Language and Scripting Engine Bedienungsanleitung PDF herunterladen (Seite 66)

A: Example Scripts

58 013-RD000-000-12- 201010

DisplayMsg("Make sure Dark,$Low, and Max Refs$have been taken")

Pause(3)

DisplayMsg("You will need$pH 6 and 8$buffers")

Pause(3)

LABEL FullMenu

ShowMenu("pH = 6","pH = 8")

OnButtonClick(UserSelection,TimeOutSeconds)

If(UserSelection = 0) GOTO Six

If(UserSelection = 1) GOTO Eight

LABEL Six

DisplayMsg("pH = 6 Buffer$Should Be$Present")

Pause(2)

GetSpectrum(SPECTROMETER_CHANNEL_NUMBER, SixSpectrum)

Sub(SixSpectrum, DarkSpectrum, SixSpectrumDark)

LocateWavelength(SixSpectrumDark, 750, SixIntensityBase)

LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)

SixBaseRatio := SixSpectrumDark[SixIntensityBase] /

LowpHSpectrumDark[LowIntensityBase]

LOG10(SixBaseRatio, SixBaseAbsorbance)

SixBaseAbsorbance := -(SixBaseAbsorbance)

LocateWavelength(SixSpectrumDark, 618, SixIntensityPeak1)

LocateWavelength(LowpHSpectrumDark, 618, LowIntensityPeak1)

SixPeakRatio1 := SixSpectrumDark[SixIntensityPeak1] /

LowpHSpectrumDark[LowIntensityPeak1]

LOG10(SixPeakRatio1, SixPeakAbsorbance1)

SixPeakAbsorbance1 := -(SixPeakAbsorbance1)

SixAbsorbance := SixPeakAbsorbance1 - SixBaseAbsorbance

LogArgumentSix := SixAbsorbance/(MaxAbsorbance - SixAbsorbance)

if(LogArgumentSix > 0.0) GOTO OK16

GOTO ABORT

LABEL OK16

LOG10(LogArgumentSix, LogTermSix)

1 2 ... 61 62 63 64 65 66 67 68 69 70 71 72 73 74

Keine Kommentare

Ocean-optics Jaz Scripting Language and Scripting Engine Bedienungsanleitung Seite 66