Ocean-optics Jaz Scripting Language and Scripting Engine Uživatelský manuál stáhnout pdf (Strana 53)

A: Example Scripts

013-RD000-000-12- 201010 45

// Set the integration time

Display("Setting$Integration$time to$",integrationtime,"secs")

pause(2)

SetIntegrationTime(integrationtime)

// set a label so that we can return to this location.

LABEL TOP

//Display a message and get a spectrum

DisplayMsg("Collecting$Spectrum")

pause(2)

GetSpectrum(channel,testspectrum)

// Open a file and save the Spectrum

OpenFile(testfile1,ForWrite)

WriteSpectrum(testfile1,testspectrum)

CloseFile(testfile1)

// Display the Spectrum that we just got and

// Pause so that it can be seen

ShowGraph(testspectrum)

Pause(3)

// Put up a menu for the user to see if they

// want to get another Spectrum or exit

ShowMenu("Get another?","Exit")

OnButtonClick(choice, 30)

// If the user wants another spectrum goto the

// TOP Label otherwise exit

If (choice = 0) GOTO TOP

DisplayMsg("Exiting")

Pause(5)

END

STOP

1 2 ... 48 49 50 51 52 53 54 55 56 57 58 ... 73 74

Žádné komentáře

Ocean-optics Jaz Scripting Language and Scripting Engine Uživatelský manuál Strana 53