Programming for LSM
LSM 510
DuoScan
Carl Zeiss
Access to scanned pictures
LSM 510 META
DuoScan
5-14
B 45-0021 e
03/06
5.2.4
Access to scanned pictures
Example:
Function ChannelIndexFromChannelName(ChannelName As String, ChannelIndex As Long)
Dim num As Long, num1 As Long, num2 As Long
Dim i As Long
Dim Success As Integer
Dim DetectionChannel As DsDetectionChannel
Dim LsmInfo As Lsm5Info
Dim Recording As DsRecording
ChannelIndexFromChannelName = False
Set Recording = Lsm5.DsRecording
Set LsmInfo = Lsm5.Info
If (LsmInfo.NumberOfPmtsInSystem(num, num1, num2) = True) Then
For i = 0 To (num + num1 - 1)
Set DetectionChannel = Recording.DetectionChannelOfActiveOrder(i, Success)
If Success Then
If (StrComp(DetectionChannel.Name, ChannelName) = 0) Then
ChannelIndex = i
ChannelIndexFromChannelName = True
GoTo exit_function
End If
End If
Next i
End If
exit_function:
Set LsmInfo = Nothing
Set Recording = Nothing
End Function
Содержание LSM 510
Страница 1: ...LSM 510 LSM 510 DuoScan LSM 510 META LSM 510 META DuoScan Release 4 0 March 2006...
Страница 62: ...IMPORTANT NOTES FOR CHAPTER 4 LSM 510 DuoScan Carl Zeiss LSM 510 META Duo Scan 4 II B 45 0021 e 03 06...
Страница 442: ...Programming for LSM LSM 510 DuoScan Carl Zeiss Events LSM 510 META DuoScan 5 18 B 45 0021 e 03 06...
Страница 526: ...3D FOR LSM LSM 510 DuoScan Carl Zeiss Functions LSM 510 META DuoScan 7 60 B 45 0021 e 03 06...
Страница 564: ......
Страница 566: ...MULTIPHOTON LASER SCANNING MICROSCOPY Carl Zeiss Contents LSM 510 META NLO 9 4 B 45 0021 e 03 06...
Страница 591: ...LSM 510 and LSM 510 META Laser Scanning Microscopes Brief Operating Manual Release 4 0 March 2006...
Страница 606: ......