camv2.bas

来自「台湾敏通摄像机控制程序」· BAS 代码 · 共 27 行

Attribute VB_Name = "rs232def"
Public Const fun_PRESET = "&H49,1"
Public Const fun_VREV = "&H1d,4,"
Public Const fun_HREV = "&H1d,5,"
Public Const fun_ZOOM = "&H45,0,"
Public Const fun_FOCUS_Menual = "&H45,2,0"
Public Const fun_FOCUS_Auto = "&H45,2,1"
Public Const fun_FOCUS = "&H45,1,"
Public Const zoom_max = &H20B0
Public Const zoom_min = &H1000
Public zoom_pos As String
Public Const fun_Write = &H21
Public Const fun_Read = &H31
Public read_buf(255) As Byte
Public zoom_buf(7) As String, focus_buf(7) As String

Public buff_data() As Byte
Public fun_list() As String
Public PHASE_min As Long, PHASE_max As Long, PHASE_now As Long
Public DirectZoom As Long, CurrentZoom As Long, DirectFocus As Long, CurrentFocus As Long
Public MarkVMin As Integer, MarkVMax As Integer, MarkHMin As Integer, MarkHMax As Integer, MarkV As Integer, MarkH As Integer
Public Skeyd As String, Skeys
Public busy As Boolean, OnRefresh As Boolean, OnSetZoom As Boolean, OnSetFocus As Boolean, send_err As Boolean
Public changeDontCare As Boolean
Public maxzoom As Integer