Machine Vision Camera SDK (DotNet) Developer Guide
Dim stDeviceInfoList As MyCamera.MV_CC_DEVICE_INFO_LIST = New MyCamera.MV_CC_DEVICE_INFO_LIST
'Enumerate device
nRet = dev.MV_CC_EnumDevices_NET((MyCamera.MV_GIGE_DEVICE Or MyCamera.MV_USB_DEVICE),
stDeviceInfoList)
If MyCamera.MV_OK <> nRet Then
Console.Writeline ("Enumerating device failed!"+ Convert.ToString(nRet))
Return
End If
If (0 = stDeviceInfoList.nDeviceNum) Then
Console.Writeline("No Find Gige | Usb Device !")
Return
End If
Dim stdevInfo As MyCamera.MV_CC_DEVICE_INFO
stdevInfo = CType(Marshal.PtrToStructure(stDeviceInfoList.pDeviceInfo(0),
GetType(MyCamera.MV_CC_DEVICE_INFO)), MyCamera.MV_CC_DEVICE_INFO)
'Create handle
nRet = dev.MV_CC_CreateDevice_NET(stdevInfo)
If 0 <> nRet Then
Console.WriteLine("Create device failed!")
End If
Console.WriteLine("Create device succeed")
'Open camera
nRet = dev.MV_CC_OpenDevice_NET()
If 0 <> nRet Then
Console.WriteLine("Open device failed!")
End If
Console.WriteLine("Open device succeed!")
Dim enValue As Int32 = MyCamera.MV_CAM_TRIGGER_SOURCE.MV_TRIGGER_SOURCE_SOFTWARE
nRet = dev.MV_CC_SetEnumValue_NET("TriggerSource", enValue)
If 0 <> nRet Then
Console.WriteLine("Set Enum Value failed")
End If
//Other process...
'Close camera
nRet = dev.MV_CC_CloseDevice_NET()
If 0 <> nRet Then
Console.WriteLine("Close device failed!")
End If
Console.WriteLine("Close device succeed!")
'Destroy handle
nRet = dev.MV_CC_DestroyDevice_NET()
If 0 <> nRet Then
Console.WriteLine("Destroy device failed!")
58
