To get C-7000 status info, remote mode info, button info, light selection ring position info,
etc
Private C7000Device As New C7000.SDK ' generate instance of SDK
Private Sub Sample()
Dim SDKResult As Long
Dim DeviceInfo As C7000.SDK.SKS_DEVICE_INFO
' >>>>> get device info <<<<<
SDKResult = C7000Device.SK_GetDeviceInfo(DeviceInfo)
If C7000.SDK.SKF_STATUS_COM.SUCCESS <> SDKResult Then ' get device info
error ?!
'add error processing...
End If
' >>>>> check device status info <<<<<
If C7000.SDK.SKF_STATUS_DEVICE.IDLE <> DeviceInfo.Status Then
'add processing...
End If
' >>>>> check light selection ring position <<<<<
If C7000.SDK.SKF_STATUS_RING.LOW <> DeviceInfo.Ring Then
'add processing...
End If
' >>>>>> check button status <<<<<
If 0 <> (C7000.SDK.SKF_STATUS_BUTTON.MEASURING And DeviceInfo.Button) Then
'add processing..
End If
End Sub