实现 光感采集 -串口通信 要点总结

实现 光感采集 -串口通信 要点总结

拖拽控件：MSComm1控件，  Timer1 控件

1  轮询算法  发送指令

   实现方法：

  Timer1 控件  初始设置：  InterVal：500  Enable：flase

    Private Sub Timer1_Timer() ‘
        Call send
    End Sub

Private Sub send() '发送转换后的十六进制字节串

    Dim Data(8) As Byte
  '2013-11-05设置 采集发送的指令  05 03 01 64 00 02 85 AC  根据光线强度不同收到 05 03 04 00 15 00 00 AE 37

        Data(0) = &H5
        Data(1) = &H3
        Data(2) = &H1
        Data(3) = &H64
        Data(4) = &H0
        Data(5) = &H2
        Data(6) = &H85
        Data(7) = &HAC
    MSComm1.Output = Data

  End Sub

2  接收   双击 MSComm1 相关源码

Dim buffer() As Byte      ’Byte型的全局变量

Dim intData  As Integer  '光