Jscript Tutorial Wolfgang Unger and Tobias Sommer

Yüklə 0,62 Mb.

Pdf görüntüsü

səhifə	21/21
tarix	07.11.2018
ölçüsü	0,62 Mb.
	#78679

1 ... 13 14 15 16 17 18 19 20 21

Document Outline

function aurinko(lat,lon)

{

time = new Date();

var y = time.getFullYear();

var m = time.getMonth()+1; //Bug!!

var d = time.getDate();

var h = time.getHours();

var min = time.getMinutes();

var s = time.getSeconds();

var tz = time.getTimezoneOffset();

if (tz != 0) tz /= 60;

var juliantime;

juliantime = dispMath.MakeJulianDate(y,m,d,h+tz,min,s);

SolarValues = dispMath.GetSZA(juliantime,lat,lon);

return(SolarValues);

}

// create empty spectra in the Specbar of DOASIS

function MakeSpec(specname)

{

newspec = dispTools.GetSpectrum(specname);

newspec.Name = specname;

newspec.MinChannel = 2;

newspec.maxchannel = 2048;

return(newspec);

}

// calculates integration time and records spectra

function TakeSpectrum(angle)

{

specPath = MFCPath;

StopCheck();

for (l=0;l

{

if (angle == AngleSeries[l])

{

measspec = straylight[l];

if (angle != currentelevation)

{

MotorMoveToPos(angle);

currentelevation = angle;

}

dispTools.CurrentSpectrum = offset0;

if (offset0.Average < 100)

specOOI.Scan(offset0,100,3);

// measure offset spectrum

window.Sleep(waitscan);

dispTools.CurrentSpectrum = measspec;

specOOI.Scan(measspec,1,t);

// measure test spectrum

window.Sleep(waitscan);

dispMath.Correctoffset(measspec,offset0)

// correct measspec for offset

// determine integration time

while (measspec.Max > sat)

{

StopCheck();

t = (parseInt(0.8 * t));

window.Status = "IT= "+t;

if (t < 3)

{

t = 3;

break;

}

specOOI.Scan(measspec,1,t);

window.Sleep(waitscan);

dispMath.Correctoffset(measspec,offset0)

}

specOOI.Scan(measspec,1,t);

window.Sleep(waitscan);

while (measspec.Max < (0.8*sat))

{

StopCheck();

t = (parseInt((1.2 * t)+0.5));

window.Status = "IT= "+t;

if (t > tmax)

{

t = tmax;

break;

}

// the integration time has been determined with t

// the number of scans still has to be calculated

specOOI.Scan(measspec,1,t);

window.Sleep(waitscan);

dispMath.Correctoffset(measspec,offset0)

}

// calculate the number of scans s

s = parseInt(ttotal/t);

if (s>smax)

{

s=smax;

}

if (s < 1)

{

s=smin;

}

// now s has been determined

dispIO.PathSplitting(1,specPath,100);

dispIO.AutoFileNumber( 1,CampInit,6,1);

i = dispIO.AutoFileNumberFindLastIndex() + 1;

window.Status = "Taking spectrum #" + i + "

" + s + "x" + t +"ms @ "+angle+"

◦

// the actual spectrum, which will be used for evaluation later is recorded now!

specOOI.Scan(measspec,s,t);

window.Sleep(waitscan);

StoreADCValues(measspec);

measspec.CalibPolynomialOrder = 2;

measspec.CalibPolynomial[0] = CalZero;

measspec.CalibPolynomial[1] = CalFirst;

measspec.CalibPolynomial[2] = CalSecond;

measspec.Site = MeasSite;

// the spectrum is now saved!!!!!!!!

dispIO.Save(measspec);

// check if the file of the spectrum exists

if (CheckFileSize(measspec.FileName))

WriteToLog(DoasLog, measspec.FileName+" looks ok - IT was " + s

+ " scans at" + t + " ms");

// modify integration for next spectrum if spectrum was over- or undersaturated

if ((measspec.Max/s) > sat)

{ t = parseInt(0.8 * t)

}

if ((measspec.Max/s) < (0.8*sat))

{

t = parseInt(1.2 * t);

}

// checks, if stored spectrum shows signal

CheckIfSpecOk(measspec);

i++;

}

function TakeOffsetDarkCurrent()

{

StopCheck();

specPath=OSDCPath;

window.Status = "Offset spectrum 1: " + sOS + " x " + tOS + " ms";

// measure offset or dark current depending on given parameters (see function below)

OSDC(offset1,100,sOS,tOS);

window.Status = "Offset spectrum 2: " + sOS + " x " + tOS + " ms";

OSDC(offset2,100,sOS,tOS);

window.Status = "Dark current spectrum 1: 1 x " + tDC + " ms";

OSDC(dark1,200,1,tDC);

window.Status = "Dark current spectrum 2: 1 x " + tDC + " ms";

OSDC(dark2,200,1,tDC);

window.Status = "Went for a nap - " + tNap/60000 + " min ... See you soon!!!";

window.Sleep(tNap);

StopCheck();

}

// measure offset or dark current

function OSDC(spec,wl,ss,tt)

{

StopCheck();

dispTools.CurrentSpectrum = spec;

specOOI.Scan(spec,ss,tt);

window.Sleep(waitscan);

StoreADCValues(spec);

spec.Wavelength1=wl;

dispIO.PathSplitting(1,specPath,100);

dispIO.AutoFileNumber( 1,CampInit,6,1);

o = dispIO.AutoFileNumberFindLastIndex() + 1;

dispIO.Save(spec);

if (CheckFileSize(spec.FileName))

WriteToLog(DoasLog, spec.FileName+" looks ok");

o++

StopCheck();

}

// store the values of the analog digital converter (Temperature, Voltage....)

function StoreADCValues(spec)

{

CheckIfSpecOk(spec);

ADCVal[0] = dispHMTUSB.ADC(0)/100;

//UBatt

ADCVal[1] = dispHMTUSB.ADC(1);

//USteuer

ADCVal[2] = (dispHMTUSB.ADC(2)-2048)/50;

//Tcold

ADCVal[3] = dispHMTUSB.ADC(3)/50;

//Twarm

ADCVal[4] = (dispHMTUSB.ADC(4)-2048)/50;

//Tset

ADCVal[5] = dispHMTUSB.ADC(5)/1000;

//IPelt

ADCVal[6] = dispHMTUSB.ADC(6);

WriteToLog(AdcLog, ADCVal[0] + "; " + ADCVal[1] + "; " + ADCVal[2]

+ "; " + ADCVal[3] + "; " + ADCVal[4] + "; " + ADCVal[5] + "; " + ADCVal[6]);

var RAWADC = new Array();

for (m=0;m<6;m++)

RAWADC[m] = dispHMTUSB.ADC(m);

spec.Latitude=Latitude;

spec.Longitude=Longitude;

Tcold = ADCVal[2]

spec.Temperature=Tcold;

if (Math.abs(Tcold-Tini) > 1)

{dispHMTUSB.Temperature = Tini;

WriteToLog(DoasLog, "Set Temperature " + Tini + " deg C, not Reached!

Set Temp new to ADC Controller.");

}

}

function MotorMoveToPos(angle_L)

{

var pos = parseInt(angle_L/90*MotorStep90) + MotorHorizontalPosition;

dispHMTUSB.MoveToPos(1,pos);

window.Sleep(waitmotor);

var Position = dispHMTUSB.GetMotorPosition(1);

window.Sleep(waitmotor);

if (Position == pos)

WriteToLog(DoasLog, "Motor position "+pos+" ("+angle_L+"

◦

) reached");

else

WriteToLog(DoasLog, "Motor position "+pos+" not reached. Motor responds "+Position);

}

function MotorMoveHome()

{

dispHMTUSB.MoveHome(1);

window.Sleep(waitmotor);

if (dispHMTUSB.GetMotorStatus(1)==3)

WriteToLog(DoasLog, "Home Position reached");

else

{

WriteToLog(DoasLog, "Home Position not reached");

return;

}

window.Sleep(waitmotor);

if (dispHMTUSB.GetMotorPosition(1)==0)

WriteToLog(DoasLog, "Home Position set to 0");

else

{

WriteToLog(DoasLog, "Home Position not 0");

return;

}

StopCheck();

}

function WriteToLog(file,message)

{

window.Status = "log> " + message;

var out=file.OpenAsTextStream(8);

out.WriteLine(UTCDate() + " ; " + message);

out.Close();

}

//returns the date e.g. as 05.06.2008 12:05:32

function UTCDate()

{

var d, s="";

var day,month,hours,min,sec;

d = new Date();

day = d.getUTCDate();

if (day.toString().length == 1) day = "0" + day;

s += day + ".";

month = d.getUTCMonth()+1;

if (month.toString().length == 1) month = "0" + month;

s += month + ".";

s += d.getUTCFullYear()+" ";

hours = d.getUTCHours();

if (hours.toString().length == 1) hours = "0" + hours;

s += hours + ":";

min = d.getUTCMinutes();

if (min.toString().length == 1) min = "0" + min;

s += min + ":";

sec = d.getUTCSeconds();

if (sec.toString().length == 1) sec = "0" + sec;

s += sec;

return(s);

}

// check if spectrum contains signal

function CheckIfSpecOk(spectrum)

{

if (spectrum.Average == 0e-20)

{

WriteToLog(DoasLog, "Average is ZERO");

WriteToLog(DoasLog, "No Spectrum taken, intensity is

zero due to an error! New initialisation of HMT device");

window.Sleep(1000);

InitHMT()

}

}

// check if file saved spectrum actually exists

function CheckFileSize(filespec)

{

fullname = specPath + "\\" +filespec.substr(0,6)+"00\\"+filespec;

System.Console.WriteLine(fullname);

f = dispFileSystem.GetFile(fullname);

if (f.size == 0)

WriteToLog(DoasLog, f.Name + " has " + f.size + " bytes. Restart DOASIS");

else

return(f.size);

}

// check, if stop button in Script window has been pressed

function StopCheck()

{

if (window.CheckStop())

{

WriteToLog(DoasLog, "Stopped");

return;

}

}

main();

12.6.4

Remarks:

• The motor status checked by the command

dispHMTUSB.GetMotorStatus()

can have the values:

–

0: motor stopped

–

1: motor is moving

–

2: positive end reached

–

3: negative end (homing position) reached

• The command window.sleep() is used frequently in the script. It helps to guarantee

reliable data transfer between computer and measurement instrument (see Tips and

Tricks of section 4.5).

Chapter 13

Literature

JScript Reference Microsoft

http://msdn.microsoft.com/en-us/library/x85xxsf4.aspx

JScript Textbooks

• Rogers, Justin (2002). Microsoft JScript .NET Programming. Indianapolis: SAMS

• Stone, M. (1996). How to Program Microsoft Jscript, Scripting Interface: Ziﬀ Davis

• Jaworski, J. (1999). Mastering JavaScript and JScript (Mastering). London: Sybex

Inc.

Google

The best way to google for JScript commands is to type:

“msdn2 + command”

For example:

“msdn2 ToString”

returns as the ﬁrst link the page:

http://msdn.microsoft.com/en-us/library/system.object.tostring.aspx

which should hopefully be exactly what you want.

Index

ActiveXObject, 38, 66, 74

AND, 18

AppendResultToFile, 58

AutoFileName, 28, 42

errors related to, 45

Open, 43

Save, 43

automatic start of JScript, 10

automized measurements, 70

backslash, 27

batch ﬁle, 9

baud rate, 52

boolean, 18

break, 36

CalcSZA, 26

calculate

integration time, 30

calibration

polynomial, 48

wavelength, 48

calibration polynomial, 29

catch, 67

check box, 32, 69

ChiSquare

display, 59

class, 71

colon, 20

comments, 14

Console, 31

correct

oﬀset and dark current, 25, 55

CorrectDarkCurrent, 55

CorrectOﬀset, 55

crash

avoid, 10

CurrentFileNumber, 44

data transfer, 10

data types, 15

conversion, 15

lost of, 16

date

get, 39

DateTime, 45

decimal numbers, see digits

Device, 27, 54

digits

control, 40

Document Outline

I Introduction
- What is JScript?
- For whom this Tutorial is written
- What is special about this Tutorial?
- Tips and Tricks
  - The help menu of DOASIS
  - Structuring a JScript program by creating a JScript Project File
  - Running several JScripts after each other
    - Creating a JScript project file
    - Creating a batch file
  - Starting a JScript automatically after a hardware reboot
  - Avoiding inexplicable program crashes
II The basics of JScript
- First steps in JScript
  - A first example
  - A word on "object-orientation"
  - A second example
  - The syntax
- Programming in JScript
  - Data Types and Type Conversion
  - Operators
    - Logical Operators
  - Program Flow
    - if..else-statements
    - for-Loops
    - for..in-Loops
    - while-Loops
  - Functions
- Important DOASIS-namespaces and their usage
  - Overview
  - DoasCore.Math
    - DoasCore.Math.SpecMath
    - DoasCore.Math.ScanGeometry, DoasCore.Math.JulianDateTime
    - DoasCore.Math.DoasFit
  - DoasCore.Device
  - DoasCore.IO
  - DoasCore.Spectra
    - DoasCore.Spectra.ISpectrum
    - DoasCore.Spectra.Specbar
  - DoasCore.Script
  - DoasCore.HMI
    - Progress Bar
  - System
  - System.Console
  - System.Windows.Forms
  - System.IO
  - System.Threading
III Collection of JScript applications
- Simple JScripts
  - Hello World
  - Diplaying variables in the Output window.
  - Wait functions
  - Display message boxes
  - Creating a directory
  - Creating a text file
  - Get the current date and time
  - Control number of digits
  - Open and Save a spectrum
  - Saving spectra with the ``AutoFileName''-class
    - A word on AutoFileName()
  - Opening spectra with the ``AutoFileName''-class
  - Modifying the properties of a spectrum
  - How to compare the time of different spectra
  - Calculate the solar zenith angle (SZA)
    - A word on the class ScanGeometry
  - Wavelength Calibration
- JScript Project File
- JScripts communicating with hardware
  - Reading in data from a serial port (e.g. GPS data)
  - Measure a spectrum with an Ocean Optics spectrograph
  - Operate two Ocean Optics spectrographs
  - Mini-MAX-DOAS (MiniDOAS) control via JScript
- Evaluating spectra
  - Offset and Dark Current Correction
  - Offset and Dark Current Correction with a ``JScript project file''
    - Preparation
    - The ``project file``
    - The file variables.js
    - The file functions.js
    - The file maincorrect.js
  - Fitting with JScript
  - Modifying a fit scenario with JScript
  - Save the residual of the fit result
- Advanced JScripts
  - Write spectrum data to an Excel-Sheet
    - A word on ActiveXObjects
  - Exception handling
  - Evaluate data with a fit scenario file
  - Automatized scanning
  - Threading
  - Controlling Mini-MAX-DOAS (MiniDOAS) instruments with JScript
    - Structure of the program
    - Description of the tasks
    - Prerequisites
    - Remarks:
- Literature
- Index

Yüklə 0,62 Mb.

Dostları ilə paylaş:

1 ... 13 14 15 16 17 18 19 20 21