Programming for LSM
LSM 510
DuoScan
Carl Zeiss
Differences in access to LSM Hardware with …
LSM 510 META
DuoScan
5-10
B 45-0021 e
03/06
5.2.2
Differences in access to LSM Hardware with Lsm5Hardware 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
