Getmeasuringresult () - Sekonic C-7000 SDK Reference Manual

C-7000 SDK REFERENCE MANUAL
3.7.9. SK_GetMeasuringResult ()
operation Get measurement result
type Function SK_GetMeasuringResult(ByRef MeasResult As SKS_MEAS_RESULT) as Long
argument Save destination of measurement result (refer3.6.14)
return
Result of communication with C-7000 (refer3.5.1)
value
Variable of measurement result is generated by SKS_MEAS_RESULTIn this case, there is no
alignment designated for 1nm spectral data, 5nm spectral data, Color Rendering Index and
note
TM-30 Hue Bins(Available in C-7000 SDK V2.00 or higher.), thus alignment area needs to be
initialized.
Private
Private Sub
Dim
Dim
Dim
' >>>>> alignment initialized <<<<<
ReDim
ReDim
ReDim
ReDim
～
' >>>>> start measuremet <<<<<
SDKResult = C7000Device.SK_StartMeasuring ()
If C7000.SDK.SKF_STATUS_COM.SUCCESS <> SDKResult
error ?!
example
End If
' >>>>> wait for completion of measurement <<<<<
Do
Loop While
' >>>>> get measurement result <<<<<
SDKResult = C7000Device.SK_GetMeasuringResult(MeasResult)
If C7000.SDK.SKF_STATUS_COM.SUCCESS <> SDKResult
result error ?!
End If
End Sub
C7000Device As New C7000.SDK
Sample()
SDKResult As Long
DeviceInfo As C7000.SDK.SKS_DEVICE_INFO
MeasResult As C7000.SDK.SKS_MEAS_RESULT
MeasResult.SpectralData_1nm(C7000.SDK.SKF_WAVELENGTH_1NM_COUNT - 1)
MeasResult.SpectralData_5nm(C7000.SDK.SKF_WAVELENGTH_5NM_COUNT - 1)
MeasResult.ColorRenditionIndexes.Ri(C7000.SDK.SKF_CRI_COUNT - 1)
MeasResult.TM30.HueBins(C7000.SDK.SKF_TM30_BINS_COUNT - 1)
' add error processing...
System.Threading.Thread.Sleep(100)
SDKResult = C7000Device.SK_GetDeviceInfo(DeviceInfo)
If C7000.SDK.SKF_STATUS_COM.SUCCESS <> SDKResult
' add error processing...
End If
(C7000.SDK.SKF_STATUS_DEVICE.IDLE <> DeviceInfo.Status And
C7000.SDK.SKF_STATUS_DEVICE.IDLE_OUT_MEAS <> DeviceInfo.Status)
' add error processing...
No. I401-C-700-034
' generate instance of SDK
' SDK V2.00
Then ' start measurement
Then 'get device info ?!
Then ' get measurement
Page 21
2012/03/01