LSM 710 and LSM 780
MACROS AND VISUAL BASIC
Systems
VBA PROGRAMMING FOR LSM
Carl Zeiss
02/2010 M60-1-0025
e
47
5.2.2.5
Backup Recording
.
.
.
Dim Recording As DsRecording
Dim BackupRecording As DsRecording
Dim ScanDoc As DsRecordingDoc
Set Recording = Lsm5.DsRecording
'create a backup recording
Set BackupRecording = Lsm5.CreateBackupRecording
Success = BackupRecording.Copy(Recording)
Recording.ScanMode = "Line"
Recording.FramesPerStack = 1
Recording.StacksPerRecord = 1
Recording.ScanDirection = eSingleForeward
Recording.SpecialScanMode = "NoSpecialScanMode"
Recording.TimeSeries = False
Recording.ZoomX = ZOOM_X
Recording.ROTATION = ROTATION
Recording.Sample0X = OFFSET_X
Recording.Sample0Y = OFFSET_Y
Recording.SamplesPerLine = IMAGE_SIZE
Recording.StartScanTime = 8
Success = SetChannelDetection(ChannelName, 1, AmpOffset, 100)
Set ScanDoc = Lsm5.StartContinuousScan
.
.
.
Lsm5.StopScan
'restore the backup recording
Recording.Copy BackupRecording
Set Recording = Nothing
Set BackupRecording = Nothing