位移传感器

Dim S3(1 To 20) As Byte, S4(1 To 1) As Byte, S5(1 To 1) As Byte

    S3(1) = &HAA: S3(2) = &H75: S3(3) = &H10: S3(4) = &H0: S3(5) = &HE: S3(6) = &H0                                      '数据头部，共六位。

    S3(7) = &H28: S3(8) = &H6E: S3(9) = &HC9: S3(10) = &H48: S3(11) = &H3: S3(12) = &H0: S3(13) = &H0: S3(14) = &H7        '地址码，共八位。

    S3(15) = &H8: S3(16) = &H1: S3(17) = &H16: S3(18) = &H11: S3(19) = &H1: S3(20) = &H53                                    '通讯时间，共六位

    S4(1) = S3(1)
    Comm1.Output = S4
    For i = -32700 To 32700
    For j = 0 To 5
    Next j, i

    For k = 2 To 20
    S4(1) = S4(1) Xor S3(k)   '计算校验码
    S5(1) = S3(k)
    Comm1.Output = S5
    For i = -32700 To 32700
    For j = 0 To 5
    Next j, i, k

    Comm1.Output = S4          '送出校验码
    For i = -32700 To 32700
    For j = 0 To 5
    Next j, i