Расчет КС посылка по COM порту

; Передать 10 байт команды запроса статуса устройства (ожидаем завершения передачи данных).
Local $bBinData = Binary("0x2423010000000000DADC")
Local $tBinData = DllStructCreate("byte[10]")
DllStructSetData($tBinData, 1, $bBinData)
_CommSendByteArray(DllStructGetPtr($tBinData),10,1)

Local $TXBYTE[10]
$TXBYTE[0] = 36             ; Старт байт 24h.
$TXBYTE[1] = 36             ; Команда управления , 24h.
$TXBYTE[2] = GUICtrlRead($idPIRISed, $GUI_READ_DEFAULT) ; Число из поля Input.
$TXBYTE[3] = 0              ; Mode регистр, 00h - управление обоими каналами.
$TXBYTE[4] = 0
$TXBYTE[5] = 0
$TXBYTE[6] = 0
$TXBYTE[7] = 0
$TXBYTE[8] = 0
$TXBYTE[9] = 0

; Расчет КС.
Local $CRCRES = $TXBYTE[0] * 256 + $TXBYTE[1]               ; Загружаем 1-ое 16-битное слово в переменную результа КС.
For $i = 2 to 8 Step 2
   $CRCRES = $CRCRES + ($TXBYTE[$i] * 256 + $TXBYTE[$i+1])  ; Прибавляем к результату КС следующее 16-битное слово.
   If $CRCRES >= 65536 Then                                 ; Если было переполнение 16-битного слова, выделяем результат только 16-битного слова, а перенос добавляем (- 65536 + 1).
	  $CRCRES = $CRCRES - 65535
   EndIf
Next
$CRCRES = 65535 - $CRCRES                                   ; Инвертируем 16-битное слово.

MsgBox (0, "CRC", $CRCRES)

Local $bBinData = StringToBinary(56027)

Local $bBinData = Binary("0x242301000000") & Hex(56027)

; Передать 10 байт команды запроса статуса устройства (ожидаем завершения передачи данных).
Local $bBinData = Binary("0x2424010000000000DADB")
Local $tBinData = DllStructCreate("byte[10]")
DllStructSetData($tBinData, 1, $bBinData)
_CommSendByteArray(DllStructGetPtr($tBinData),10,1)

Local $bBinData = Binary("0x2424")  & Hex($TXBYTE[2], 2) & "000000" & Hex(56027) ;Вместо 56027 рассчитанный crc

Local $TXBYTE[10]
$TXBYTE[0] = 36             ; Старт байт 24h.
$TXBYTE[1] = 36             ; Команда управления, 24h.
$TXBYTE[2] = $vPIRIS     ; Число в поле.
$TXBYTE[3] = $vMODE     ; Mode регистр.
$TXBYTE[4] = 0
$TXBYTE[5] = 0
$TXBYTE[6] = 0
$TXBYTE[7] = 0
$TXBYTE[8] = 0
$TXBYTE[9] = 0

; Расчет КС.
Local $CRCRES = $TXBYTE[0] * 256 + $TXBYTE[1]               ; Загружаем 1-ое 16-битное слово в переменную результа КС.
For $i = 2 to 8 Step 2
   $CRCRES = $CRCRES + ($TXBYTE[$i] * 256 + $TXBYTE[$i+1])  ; Прибавляем к результату КС следующее 16-битное слово.
   If $CRCRES >= 65536 Then                                 ; Если было переполнение 16-битного слова, выделяем результат только 16-битного слова, а перенос добавляем (- 65536 + 1).
	  $CRCRES = $CRCRES - 65535
   EndIf
Next
$CRCRES = 65535 - $CRCRES                                   ; Инвертируем 16-битное слово.

Local $bBinData = '0x' & Hex($TXBYTE[0],2) & Hex($TXBYTE[1],2) & Hex($TXBYTE[2],2) & Hex($TXBYTE[3],2) & Hex($TXBYTE[4],2) & Hex($TXBYTE[5],2) & Hex($TXBYTE[6],2) & Hex($TXBYTE[7],2) & Hex($CRCRES,4)

; Очищаем выходной/входной буфер.
_CommClearOutputBuffer()
_CommClearInputBuffer()

; Передать 10 байт сообщения (ожидаем завершения передачи данных).
Local $tBinData = DllStructCreate("byte[10]")
DllStructSetData($tBinData, 1, $bBinData)
_CommSendByteArray(DllStructGetPtr($tBinData),10,1)