lv2000.bas

相机传输图像程序源代码 拜耳模式（RAW格式文件）与RGB图像数据互相转换函数库

Attribute VB_Name = "LV2000"
' Leutron Vision LV2000.DLL

' The following set of constants can be used in LvSendCmd(), LvSendCmdEx() functions
' The 4. byte is camera ID - by default it is 0;
' use the bitwise OR operator or PLUS operator to add camera ID


' Adjust Exposure Mode command
Public Const LV_SET_EXPOMODE_AUTO = &HAA600000      ' Set exposure mode to AUTO
Public Const LV_SET_EXPOMODE_SHUTTER = &HAA600100   ' Set exposure mode to SHUTTER ADJ (Iris, AGC remains AUTO)
Public Const LV_SET_EXPOMODE_IRIS = &HAA600200      ' Set exposure mode to IRIS ADJ (Shutter, AGC remains AUTO)
Public Const LV_SET_EXPOMODE_AGC = &HAA600300       ' Set exposure mode to AGC ADJ (Shutter, Iris remains AUTO)
Public Const LV_SET_EXPOMODE_MANUAL = &HAA600400    ' Set exposure mode to MANUAL

' Backlight
Public Const LV_GET_BACKLIGHT = &HAA610000          ' Get Backlight level

' White Balance
Public Const LV_SET_WB_AUTO = &HAA650000            ' Set White Balance mode to AUTO
Public Const LV_SET_WB_SPECIAL = &HAA650100         ' Set White Balance mode to SPECIAL
Public Const LV_SET_WB_INDOOR = &HAA650200          ' Set White Balance mode to INDOOR
Public Const LV_SET_WB_OUTDOOR = &HAA650300         ' Set White Balance mode to OUTDOOR
Public Const LV_SET_WB_MANUAL = &HAA650400          ' Set White Balance mode to MANUAL
Public Const LV_SET_WB_PUSHAUTO = &HAA650500        ' Set White Balance mode to PUSH AUTO

' Display Camera ID ON/OFF
Public Const LV_TOGGLE_DISPLAY_ID = &HAA6A0000      ' Toggle the Camera ID Display ON/OFF

' Iris Area Weighting Value
Public Const LV_GET_IRIS_WEIGHT = &HAA6B0000        ' Get Iris Area Weighting value
'Public Const LV_SET_IRIS_WEIGHT        = &HAA6C0000 ' Set Iris Area Weighting value in 3rd byte

' Zoom Lens Position
Public Const LV_GET_ZOOM_POS = &H36000000           ' Get Zoom Lens Position

' Focus Lens Position
Public Const LV_GET_FOCUS_POS = &H37000000          ' Get Focus Lens Position

Public Const LV_FOCUS_AUTO = &HAA580000             ' Set Auto Focus (undocumented by the manufacturer)
Public Const LV_FOCUS_MANUAL = &HAA590000           ' Set Manual Focus (undocumented by the manufacturer)

' Camera Power ON/OFF
Public Const LV_SET_POWER_ON = &H3A000000           ' Camera Power ON
Public Const LV_SET_POWER_OFF = &H3E000000          ' Camera Power OFF

' Preset: Memorize Zoom, Focus, Digital zoom
Public Const LV_SET_PRESET_0 = &H4D000000
Public Const LV_SET_PRESET_1 = &H4D010000
Public Const LV_SET_PRESET_2 = &H4D020000
Public Const LV_SET_PRESET_3 = &H4D030000
Public Const LV_SET_PRESET_4 = &H4D040000
Public Const LV_SET_PRESET_5 = &H4D050000
Public Const LV_SET_PRESET_6 = &H4D060000
Public Const LV_SET_PRESET_7 = &H4D070000


' Reset of microcontroller of the camera
Public Const LV_RESTART = &H4F000000                ' Reset the camera's microcontroller

' Digital Zoom Power from 2x to 8x
Public Const LV_SET_DIGIZOOM_POWER_2 = &H52000000   ' Set Digital Zoom max. power to  2x (total  32x)
Public Const LV_SET_DIGIZOOM_POWER_3 = &H52010000   ' Set Digital Zoom max. power to  3x (total  48x)
Public Const LV_SET_DIGIZOOM_POWER_4 = &H52020000   ' Set Digital Zoom max. power to  4x (total  64x)
Public Const LV_SET_DIGIZOOM_POWER_5 = &H52030000   ' Set Digital Zoom max. power to  5x (total  8&H)
Public Const LV_SET_DIGIZOOM_POWER_6 = &H52040000   ' Set Digital Zoom max. power to  6x (total  96x)
Public Const LV_SET_DIGIZOOM_POWER_7 = &H52050000   ' Set Digital Zoom max. power to  7x (total 112x)
Public Const LV_SET_DIGIZOOM_POWER_8 = &H52060000   ' Set Digital Zoom max. power to  8x (total 128x)

' Set camera ID
Public Const LV_GET_CAMERA_ID = &HCC000000

' Constants than can be used in LvSendByteCmd(), LvSendByteCmdEx() functions
Public Const LV_SET_BACKLIGHT_B1 = &HAA
Public Const LV_SET_BACKLIGHT_B2 = &H62

Public Const LV_SET_IRIS_WEIGHT_B1 = &HAA
Public Const LV_SET_IRIS_WEIGHT_B2 = &H6C

Public Const LV_MEMORIZE_ZOOM_B1 = &H49
Public Const LV_MEMORIZE_FOCUS_B1 = &H4A
Public Const LV_MEMORIZE_DIGIZOOM_B1 = &H4B
Public Const LV_SET_PRESET_B1 = &H4D

Public Const LV_SET_CAMERA_ID_B1 = &H78


' Key Actions
' Each Key command must be stopped by the LV_KEY_STOP command

' Stop, reset
Public Const LV_KEY_NOT = &H5F000000                ' Do not do anything
Public Const LV_KEY_STOP = &H5F0C0000               ' Stop all key actions being performed
Public Const LV_KEY_RESET_SETTINGS = &H5F520000     ' Reset the camera mode to default

' Zoom
Public Const LV_KEY_ZOOM_TELE = &H5F010000          ' Zoom to Tele
Public Const LV_KEY_ZOOM_TELE_QUICK = &H5F020000    ' Zoom to Tele quickly
Public Const LV_KEY_ZOOM_WIDE = &H5F030000          ' Zoom to Wide
Public Const LV_KEY_ZOOM_WIDE_QUICK = &H5F040000    ' Zoom to Wide quickly
Public Const LV_KEY_TOGGLE_DIGIZOOM = &H5F220000    ' Toggle Digital Zoom mode ON/OFF

' Focus
Public Const LV_KEY_FOCUS_FAR_QUICK = &H5F080000    ' Move focus to far quickly
Public Const LV_KEY_FOCUS_NEAR_QUICK = &H5F090000   ' Move focus to near quickly
Public Const LV_KEY_FOCUS_FAR = &H5F380000          ' Move focus to far slowly
Public Const LV_KEY_FOCUS_NEAR = &H5F390000         ' Move focus to near slowly
Public Const LV_KEY_FOCUS_FAR_STEP = &H5F0A0000     ' Move focus to far by one step
Public Const LV_KEY_FOCUS_NEAR_STEP = &H5F0B0000    ' Move focus to near by one step
Public Const LV_KEY_TOGGLE_FOCUS_MODE = &H5F510000  ' Toggle between "Manual/Auto" and "Push Auto" modes
Public Const LV_KEY_FOCUS_PUSH_AUTO = &H5F3F0000    ' In Push Auto mode, push the focus
                                              ' In Manual/Auto, toggle between Manual/Auto

' Shutter, Iris, AGC
Public Const LV_KEY_SHUTTER_UP = &H5F400000         ' Increase shutter speed
Public Const LV_KEY_SHUTTER_DN = &H5F410000         ' Decrease shutter speed
Public Const LV_KEY_IRIS_UP = &H5F420000            ' Increase iris
Public Const LV_KEY_IRIS_DN = &H5F430000            ' Decrease iris
Public Const LV_KEY_AGC_UP = &H5F440000             ' Increase AGC level
Public Const LV_KEY_AGC_DN = &H5F450000             ' Decrease AGC level

' Brightness, Hue
Public Const LV_KEY_BRIGHTNESS_UP = &H5F460000      ' Increase brightness
Public Const LV_KEY_BRIGHTNESS_DN = &H5F470000      ' Decrease brightness
Public Const LV_KEY_HUE_UP = &H5F4C0000             ' Increase hue
Public Const LV_KEY_HUE_DN = &H5F4D0000             ' Decrease hue

' Sharpness
Public Const LV_KEY_SHARPNESS_UP = &H5F530000       ' Increase sharpness level
Public Const LV_KEY_SHARPNESS_DN = &H5F540000       ' Decrease sharpness level

' White balance
Public Const LV_KEY_WB_RED_UP = &H5F480000          ' Increase red level in special WB mode
Public Const LV_KEY_WB_RED_DN = &H5F490000          ' Decrease red level in special WB mode
Public Const LV_KEY_WB_BLUE_UP = &H5F4A0000         ' Increase blue level in special WB mode
Public Const LV_KEY_WB_BLUE_DN = &H5F4B0000         ' Decrease blue level in special WB mode
Public Const LV_KEY_TOGGLE_PUSH_WB = &H5F4E0000     ' Toggle Push White Balance mode ON/OFF

' Menu
Public Const LV_KEY_MENU_SEL_UP = &H5F4F0000        ' Scroll the menu selection up
Public Const LV_KEY_MENU_SEL_DN = &H5F500000        ' Scroll the menu selection down
Public Const LV_KEY_MENU_DATA_UP = &H5F270000       ' Increase the data of the selected menu item
Public Const LV_KEY_MENU_DATA_DN = &H5F280000       ' Decrease the data of the selected menu item
Public Const LV_KEY_TOGGLE_MENU = &H5F250000        ' Toggle Menu ON/OFF

' Other
Public Const LV_KEY_TOGGLE_BACKLIGHT = &H5F1A0000   ' Toggle Backlight mode ON/OFF
Public Const LV_KEY_TOGGLE_FLICKERLESS = &H5F1B0000 ' Toggle Flickerless mode ON/OFF
Public Const LV_KEY_TOGGLE_NEGATIVE = &H5F1E0000    ' Toggle Negative mode ON/OFF
Public Const LV_KEY_TOGGLE_MONO = &H5F210000        ' Toggle Monochrome mode ON/OFF
Public Const LV_KEY_TOGGLE_DISPLAY = &H5F240000     ' Toggle On Screen Display (OSD) Key function ON/OFF
Public Const LV_KEY_TOGGLE_POWER = &H5F320000       ' Toggle camera power ON/OFF

'-------------------------------------------------------------------------------

Public Declare Sub LvControlDlg Lib "Lv2000" (ByVal iComPort As Long, ByVal iCameraId As Long)
Public Declare Sub LvControlDlgEx Lib "Lv2000" (ByVal iComPort As Long, ByVal iCameraId As Long, ByVal iLeft As Long, ByVal iTop As Long)

Public Declare Function LvCloseComm Lib "Lv2000" () As Long

Public Declare Function LvOpenComm Lib "Lv2000" (ByVal ucCommPort As Byte) As Long

Public Declare Function LvSendByteCmd Lib "Lv2000" _
           (ByVal ucSend1 As Byte, ByVal ucSend2 As Byte, _
            ByVal ucSend3 As Byte, ByVal ucCameraID As Byte) As Long

Public Declare Function LvSendByteCmdEx Lib "Lv2000" _
           (ByVal ucSend1 As Byte, ByVal ucSend2 As Byte, _
            ByVal ucSend3 As Byte, ByVal ucCameraID As Byte, _
            ByRef ucReturn1 As Byte, ByRef ucReturn2 As Byte, _
            ByRef ucReturn3 As Byte, ByRef ucReturn4 As Byte) As Long

Public Declare Function LvSendCmd Lib "Lv2000" (ByVal dwCmd As Long) As Long

Public Declare Function LvSendCmdEx Lib "Lv2000" _
           (ByVal dwCmd As Long, _
            ByRef ucReturn1 As Byte, ByRef ucReturn2 As Byte, _
            ByRef ucReturn3 As Byte, ByRef ucReturn4 As Byte) As Long

Public Declare Function LvSendCmdWithStop Lib "Lv2000" (ByVal dwCmd As Long) As Long

Public Declare Function LvGetFocusLensPos Lib "Lv2000" _
           (ByRef wFocus As Integer, ByVal ucCameraID As Byte) As Long

Public Declare Function LvGetZoomLensPos Lib "Lv2000" _
           (ByRef wZoom As Integer, ByRef ucDigiZoom As Byte, _
            ByVal ucCameraID As Byte) As Long

Public Declare Function LvMemorizeZoom Lib "Lv2000" _
           (ByVal ucIndex As Byte, _
            ByVal wZoom As Integer, _
            ByVal ucCameraID As Byte) As Long

Public Declare Function LvMemorizeFocus Lib "Lv2000" _
           (ByVal ucIndex As Byte, _
            ByVal wFocus As Integer, _
            ByVal ucCameraID As Byte) As Long

Public Declare Function LvGetIrisWeight Lib "Lv2000" _
           (ByRef ucIrisWeight1 As Byte, _
            ByRef ucIrisWeight2 As Byte, _
            ByVal ucCameraID As Byte) As Long

Public Declare Function LvSetIrisWeight Lib "Lv2000" _
           (ByVal ucIrisWeight1 As Byte, _
            ByVal ucIrisWeight2 As Byte, _
            ByVal ucCameraID As Byte) As Long