lv20x0.bas

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

Public Const LV_STATUS_SET_1_B1 = &H89                   ' Set camera status - part 1
                                                         '   - byte 2 - bits as byPublic Const LV_GET_STATUS_1
Public Const LV_STATUS_SET_2_B1 = &H8A                   ' Set camera status - part 1
                                                         '   - byte 2 - bits as byPublic Const LV_GET_STATUS_2

' *** CAMERA POWER ON/OFF *****************************************************
' ~~~ LV2000 ~~~
Public Const LV_POWER_SET_ON = &H3A000000                ' Camera Power ON
Public Const LV_POWER_SET_OFF = &H3E000000               ' Camera Power OFF

' *** MASKING PRIVACY ZONE ****************************************************
' ~~~ LV2010~~~
Public Const LV_MASK_SET_PAGE_B1 = &H82                  ' Set the page of privacy zone - byte 1
                                                         '   byte 2 - page number 0..5
Public Const LV_MASK_SET_DISPLAY_ON = &H8B010000         ' Set Mask display to ON
Public Const LV_MASK_SET_DISPLAY_OFF = &H8B000000        ' Set Mask display to OFF

Public Const LV_MASK_CLEAR_PAGE_B1 = &H83                ' Clear the page of privacy zone - byte 1
                                                         '   byte 2 - page number 0..5
Public Const LV_MASK_SET_BLOCK_B1 = &H81                 ' Set the block of masking privacy zone
                                                         '   byte 2 - block number 0..35 (3 cols, 12 rows)
                                                         '   byte 3 - bits 1=mask, 0=not mask the 1/8 subblock

' *****************************************************************************
' *** Key Actions *************************************************************

' Each Key command must be stopped by LV_KEY_STOP command

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_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

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_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
                                                         ' LV2020: Toggle between "Manual/Auto" and "OneShot" modes

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

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

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

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

' ~~~ LV2000 ~~~
Public Const LV_KEY_FOCUS_PUSH_AUTO = &H5F3F0000         ' In Push Auto mode, push the focus
                                                         ' In Manual/Auto, toggle between Manual/Auto
Public Const LV_KEY_SHUTTER_UP = &H5F400000              ' Increase shutter speed
Public Const LV_KEY_SHUTTER_DN = &H5F410000              ' Decrease shutter speed
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
Public Const LV_KEY_SHARPNESS_UP = &H5F530000            ' Increase sharpness level
Public Const LV_KEY_SHARPNESS_DN = &H5F540000            ' Decrease sharpness level
Public Const LV_KEY_RESET_SETTINGS = &H5F520000          ' Reset the camera mode to default

Public Const LV_KEY_FOCUS_FAR = &H5F380000               ' Move focus to far slowly
Public Const LV_KEY_FOCUS_NEAR = &H5F390000              ' Move focus to near slowly

' ~~~ LV2010 ~~~
Public Const LV_KEY_SHUTTER_AE_INC = &H5F290000          ' Increase shutter speed (in all AE modes)
Public Const LV_KEY_SHUTTER_AE_DEC = &H5F3A0000          ' Decrease shutter speed (in all AE modes)

Public Const LV_KEY_MOVE_ZOOM_REPEAT = &H5F560000        ' Move Zoom position repeatedly x1->x8->x1
Public Const LV_KEY_FOCUS_PUSHAUTO_MODE = &H5F570000     ' Push_auto mode in focus mode
Public Const LV_KEY_SWITCH_LIGHT = &H5F580000            ' Turn light ON/OFF


' ~~~ LV2010, LV2020 ~~~
Public Const LV_KEY_FOCUS_SWITCH_MODE = &H5F050000       ' In Auto/Manual mode switch between Auto/Manual
                                                         ' In Focus OneShot mode make focus
Public Const LV_KEY_FOCUS_SWITCH_AUTMAN = &H5F060000     ' If in Auto/Manual mode, switch between Auto/Manual
Public Const LV_KEY_FOCUS_IN_PUSHAUTO = &H5F070000       ' LV2010: If in Focus PushAuto mode, make focus
                                                         ' LV2020: If in Focus OneShot mode, make focus

Public Const LV_KEY_DIGEFF_SWITCH = &H5F0E0000           ' Switch between 7 digital effect modes
Public Const LV_KEY_SHUTTER_INC = &H5F0F0000             ' Increase shutter speed (in shutter fix or manual mode)
Public Const LV_KEY_SHUTTER_DEC = &H5F100000             ' Decrease shutter speed (in shutter fix or manual mode)

Public Const LV_KEY_WB_SWITCH_UP = &H5F110000            ' Switch between 5 White Balance modes up
Public Const LV_KEY_WB_SWITCH_DN = &H5F120000            ' Switch between 5 White Balance modes up

Public Const LV_KEY_WB_HUE_INC = &H5F130000              ' Increase hue in manual WB mode
Public Const LV_KEY_WB_HUE_DEC = &H5F140000              ' Decrease hue in manual WB mode

Public Const LV_KEY_BRIGHTNESS_INC = &H5F150000          ' Increase brightness in auto, shut.fix or AGC fix mode
Public Const LV_KEY_BRIGHTNESS_DEC = &H5F160000          ' Decrease brightness in auto, shut.fix or AGC fix mode

Public Const LV_KEY_SHARPNESS_INC = &H5F170000           ' Increase sharpness level
Public Const LV_KEY_SHARPNESS_DEC = &H5F180000           ' Decrease sharpness level

Public Const LV_KEY_SWITCH_IRIS = &H5F190000             ' Switch between Auto/Manual Iris mode

Public Const LV_KEY_DIGEFF_SWITCH_ART = &H5F1C0000       ' Switch ART digital effect ON/OFF
Public Const LV_KEY_DIGEFF_SWITCH_MIR = &H5F1D0000       ' Switch MIRROR digital effect ON/OFF
Public Const LV_KEY_DIGEFF_SWITCH_NEG = &H5F1E0000       ' Switch 100% NEGATIVE digital effect ON/OFF
Public Const LV_KEY_DIGEFF_SWITCH_WIDE = &H5F200000      ' Switch WIDE digital effect ON/OFF
Public Const LV_KEY_DIGEFF_SWITCH_MONO = &H5F210000      ' Switch MONOCHROME digital effect ON/OFF

Public Const LV_KEY_FACTORY_DEFAULTS = &H5F230000        ' Return to factory default state

Public Const LV_KEY_SWITCH_OSD_MODE = &H5F550000         ' Switch operating OSD Display modes


Public Const LV_KEY_SWITCH_AE_MODE_UP = &H5F590000       ' Switch autoexposure modes up
Public Const LV_KEY_SWITCH_AE_MODE_DN = &H5F5A0000       ' Switch autoexposure modes down

' ~~~ LV2020 ~~~
Public Const LV_KEY_DIGEFF_SWITCH_NEG90 = &H5F1F0000     ' Switch 80% NEGATIVE digital effect ON/OFF
Public Const LV_KEY_SWITCH_DAY_NIGHT = &H5F570000        ' Switch Day&Night mode ON/OFF
Public Const LV_KEY_SWITCH_FREEZE = &H5F580000           ' Switch freeze mode ON/OFF
Public Const LV_KEY_SET_INTEGRATION = &H5F5B0000         ' Set integration mode


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

Public Declare Sub Lv20x0ControlDlg Lib "Lv20x0" _
           (ByVal iCameraType As Long, _
            ByVal iComPort As Long, ByVal iCameraId As Long)
Public Declare Sub Lv20x0ControlDlgEx Lib "Lv20x0" _
           (ByVal iCameraType As Long, _
            ByVal iComPort As Long, ByVal iCameraId As Long, _
            ByVal iLeft As Long, ByVal iTop As Long)

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

Public Declare Function LvOpenComm Lib "Lv20x0" _
           (ByVal ucCommPort As Byte) As Long
Public Declare Function LvOpenCommEx Lib "Lv20x0" _
           (ByVal ucCommPort As Byte, _
            ByVal iSpeed As Long) As Long

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

Public Declare Function LvSendByteCmdEx Lib "Lv20x0" _
           (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 "Lv20x0" (ByVal dwCmd As Long) As Long

Public Declare Function LvSendCmdEx Lib "Lv20x0" _
           (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 "Lv20x0" _
           (ByVal dwCmd As Long) As Long

' Helper functions

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

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

Public Declare Function LvGetAutoExpAreaWeights Lib "Lv20x0" _
           (ByRef ucAreaWeight1 As Byte, _
            ByRef ucAreaWeight2 As Byte, _
            ByVal ucCameraID As Byte) As Long

Public Declare Function LvSetAutoExpAreaWeights Lib "Lv20x0" _
           (ByVal ucAreaWeight1 As Byte, _
            ByVal ucAreaWeight2 As Byte, _
            ByVal ucCameraID As Byte) As Long

' ~~~ LV2000, LV2010 ~~~
Public Declare Function LvMemorizeZoom Lib "Lv20x0" _
           (ByVal ucIndex As Byte, _
            ByVal wZoom As Integer, _
            ByVal ucCameraID As Byte) As Long

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

' ~~~ LV2010, LV2020 ~~~
Public Declare Function LvSetShutter Lib "Lv20x0" _
           (ByVal ucShutter As Byte, _
            ByVal ucCameraID As Byte) As Long

Public Declare Function LvGetShutter Lib "Lv20x0" _
           (ByRef ucShutter As Byte, _
            ByVal ucCameraID As Byte) As Long