Machine Vision Camera SDK (DotNet) Developer Guide
'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 bValue As Boolean = True
nRet = dev.MV_CC_SetBoolValue_NET("ReverseX", bValue)
If 0 <> nRet Then
Console.WriteLine("Set Bool 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!")
End If
Console.WriteLine("Destroy device succeed!")
51
