LSM 710 and LSM 780
MACROS AND VISUAL BASIC
Systems
VBA PROGRAMMING FOR LSM
Carl Zeiss
02/2010 M60-1-0025
e
41
5.2.2.2
Differences in access to LSM Hardware with LSM 7 Hardware Object / DsRecording
Object
Object Browser Project / Library LsmVba auswählen und Objekt Struktur untersuchen
- Access with DsRecording Object
Status maintains at Scan Start
Public Sub CopyRecording(Destination As DsRecording, Source As DsRecording)
Dim TS As DsTrack
Dim TD As DsTrack
Dim DataS As DsDataChannel
Dim DataD As DsDataChannel
Dim DetS As DsDetectionChannel
Dim DetD As DsDetectionChannel
Dim IlS As DsIlluminationChannel
Dim IlD As DsIlluminationChannel
Dim BS As DsBeamSplitter
Dim BD As DsBeamSplitter
Dim lT As Long
Dim lI As Long
Dim success As Integer
Destination.Copy Source
Destination.Objective = Source.Objective
For lT = 0 To Destination.TrackCount - 1
Set TS = Source.TrackObjectByIndex(lT, success)
Set TD = Destination.TrackObjectByIndex(lT, success)
TD.Collimator1Position = TS.Collimator1Position
TD.Collimator2Position = TS.Collimator2Position
For lI = 0 To TD.DataChannelCount - 1
Set DataS = TS.DataChannelObjectByIndex(lI, success)
Set DataD = TD.DataChannelObjectByIndex(lI, success)
DataD.ColorRef = DataS.ColorRef
Next lI
