module1.bas

云台开发程序

Attribute VB_Name = "modPublic"
Option Explicit

'***********************************************
'声明：串口通信参数
'***********************************************
Public PortNr As Byte         '串口号,从1开始
Public BaudRate As Long       '波特率
Public DataBits As Long       '数据位
Public StopBits As Single     '停止位
Public Parity As Byte         '奇偶较验,存对应首字母的Ascii码
'***********************************************
'声明结束
'***********************************************
Public ByteCodeChoose(32) As Byte  '云台选择指令集
Public ByteCodeAct(6) As Byte     '状态控制指令集
Public BytecodeAuto(6) As Byte
Public ByteCodeMir(6) As Byte      '镜头控制指令集
'*****************************
'其它
'*****************************
Public curChoose As Integer        '当前选中的云台
Public data1(16) As String
Public data2(16) As String
Public data3(16) As String
Public data4(16) As String
Public data5(16) As String
Public data6(16) As String
Public Sub Initnumber()
   Dim i As Integer
   For i = 1 To 32
       ByteCodeChoose(i) = i
   Next i
   For i = 0 To 16
     data1(i) = "40"
   Next i
   For i = 0 To 10
     data2(i) = "43"
   Next i
   For i = 11 To 16
     data2(i) = "50"
   Next i
   data4(0) = "01" 'UP
   data4(1) = "02" 'DOWN
   data4(2) = "04" 'LEFT
   data4(3) = "08" 'RIGHT
   data4(4) = "70" 'STOP
   data4(5) = "10" 'ZOOM IN
   data4(6) = "20" 'ZOOM OUT
   data4(7) = "40" 'FOCUS FAR
   data4(8) = "30" 'FOCUS NEAR
   data4(9) = "60" 'IRIS CLOSE
   data4(10) = "80" 'IRIS OPEN
   data4(11) = "23" 'AUTO ON
   data4(12) = "13" 'AUTO OFF
   data4(13) = "21" 'CAMERA ON
   data4(14) = "11" 'CAMERA OFF
   data4(15) = "22" 'LIGHT ON
   data4(16) = "12" 'LIGHT OFF
   For i = 11 To 16
     data5(i) = "00"
   Next i
End Sub
Public Function CBin(ByVal number As Byte) As String
   Dim temp As Byte
   '将1置于一个字节的首位
   temp = &H80
   Do Until temp < 1
      If number >= temp Then 'number在此位为1
         CBin = CBin + "1"
         number = number - temp
      Else
         CBin = CBin + "0" 'number在此位为0
      End If
      temp = temp / 2
   Loop
End Function