10min_moveholder.adl

Option Explicit

Dim Intervalt As Single 'min
Dim Totalt As Single 'hr
Dim MinWavelength As Single
Dim MaxWavelength As Single

Sub Main

Intervalt = 10.0
Totalt = 6.0
MinWavelength = 300.0
MaxWavelength = 700.0

InstruInit
GraphInit

'GotoTempAndWait(28,0)


Dim i As Integer
Dim j As Integer
Dim TheStart As Long

TimerStart

For j=1 To 6
	GoToCellAcc(j)
	DrawGraphs(0,j)
Next

Wait(600)

For i=1 To Totalt*60/Intervalt
	TheStart = ElapsedTime
	For j=1 To 6
		GoToCellAcc(j)
		DrawGraphs(i,j)
	Next
	'Wait(Intervalt*60-55.5*6)
	Do
	Loop Until ElapsedTime - TheStart > 60*Intervalt
Next

SaveAs("C:\EKG\Liz\Liz.bsw",5)

End Sub


Sub InstruInit

'instrument parameters
  StopAcc
  SetVal("Beam Mode", BEAM_MODE_DOUBLE_FIXED_SLIT)
  SetVal("X Mode", WAVELENGTH_XMODE)
  SetVal("Scan start", MaxWavelength)
  SetVal("Scan stop", MinWavelength)
  SetVal("Y Mode", ABS_YMODE)
  SetVal("Y min", 0.0)
  SetVal("Y Max", 2.0)
  'SetVal("UVVIS Slit Width", 1.0)
  SetVal("UVVis SAT", 0.1)
  SetVal("UVVis Interval" ,-1)
  SetVal("UVVis Scan Rate", 600)
  SetVal("Source changeover", 300)

End Sub


Sub GraphInit

Dim graphname As String

graphname =  "Etch"
NewGraph(graphname)
GraphClear(graphname)
Clearsymbols(graphname)
ClearLines(graphname)
    
End Sub


Function DrawGraphs(i As Integer, j As Integer)

Dim curvename As String
Dim graphname As String

graphname = "change with time"
curvename = "time=" + CStr((i-1)*Intervalt) + "min_" + "slot=" + CStr(j)
ScanAndGraph(curvename, graphname)

End Function