HexFunctions.vb

    'RC-S620Sのチェックサムを返す
    Function ByteAryToCheckSum(commandAry As Byte()) As Byte
        Dim chkSumInt As Integer = 0
        For i = 0 To commandAry.Length - 1
            chkSumInt = chkSumInt + CInt(commandAry(i))
        Next
        chkSumInt = 256 - chkSumInt Mod 256
        If chkSumInt = 256 Then chkSumInt = 0
        Return CByte(chkSumInt)
    End Function