TiG писал(а):чтобы не писать каждый раз chr, mscomm1.output = Chr(Text1(0).Text) + Chr(Text1(1).Text)
TiG писал(а):Cbyte(text1.text) точней, где text1.text = 0 или 1
Про битовую передачу можно больше не подсказывать, про контрольную сумму лучше расскажите.
Здесь я так понимаю показана операция с битами, т.е. складываюся указанные биты, каждой пары байт. В 2-х байтах 16 бит - "слово", так вот те нужно эту операцию проделать над всеми словами, у тебя их будет 7 слов, 14 байт. Так что последними двумя байтами будет контрольная сумма.Контрольная сумма вычисляется по формуле X^16 + X^15 + X^2 + 1
Это не возведение в степень, это ксор.
TiG писал(а):2 Konst_One
Знач поставил я comInputModeBinary, и ComXonXoff. В приеме поймал 16 символов как положено, т.е. 16 байт. Текст бокс отобразил это как 16 "?", обычно это изображается как 16"|" если не текстом пулять, а chr(0) & chr(6)... Что бы это могло быть?
Насчет вычисления контрольной суммы помогите воплотить идею описанную выше.
Итак имеем 2 байта данных: 00010001 00101010
________________________^______________^
_______________________15 бит___________0 бит
_______________________16 символ
16 - символ по счету с права на лево
X^16 + X^15 + X^2 + 1
получиться: 0 xor 0 xor 1 + 1 = 2 так)?
второе слово допустим тоже равно 2, 2+2 = 4 итого для 2 слов?)
Сейчас этот форум просматривают: Google-бот и гости: 64