我用VB编了个控制云台的程序，请大师帮着看看，
'PELCD_P 解码器控制协议
'向上：A0 01 00 08 00 40 AF 46 A0 01 00 00 00 00 AF 0E
'向下：A0 01 00 10 00 40 AF 5E A0 01 00 00 00 00 AF 0E
'向左：A0 01 00 04 40 00 AF 4A A0 01 00 00 00 00 AF 0E
'向右：A0 01 00 02 40 00 AF 4C A0 01 00 00 00 00 AF 0E
'变倍(wide)大：A0 01 00 40 00 00 AF 4E A0 01 00 00 00 00 AF 0E
'变倍小(tele)：A0 01 00 20 00 00 AF 2E A0 01 00 00 00 00 AF 0E
'调焦大(far)： A0 01 01 00 00 00 AF 0F A0 01 00 00 00 00 AF 0E
'调焦小(near)：A0 01 02 00 00 00 AF 0C A0 01 00 00 00 00 AF 0E
'光圈小(close)：A0 01 08 00 00 00 AF 06 A0 01 00 00 00 00 AF 0E
'光圈大(open)：A0 01 04 00 00 00 AF 0A A0 01 00 00 00 00 AF 0E
Option Explicit
Dim sData() As Byte
Dim OverButton As Boolean
Private Sub camclose_Click()
ReDim sData(15)
sData(0) = &HA0
sData(1) = &H1
sData(2) = &H8
sData(3) = &H0
sData(4) = &H0
sData(5) = &H0
sData(6) = &HAF
sData(7) = &H6
sData(8) = &HA0
sData(9) = &H1
sData(10) = &H0
sData(11) = &H0
