VBNet - Форум - vb6! Парни спасайте...

Вопрос: vb6! Парни спасайте... Добавлено: 21.03.04 06:24

Автор вопроса: Alexey_n

Помогите пожалуста с прогой, в упор незнаю как её написать а здавать уже в понедельник надо! Помогите пожалуста...
Нужно чтобы прога считала бит чётности (8 чисел)
Можно и с 8мью текстовыми окнами можно с одним, только если можно не очень заморочно, чтобы я смог разобраться...
Зарание спасибо парни и респект!

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

Alexey_n

Вопросов: 6
Ответов: 3

Профиль | | #1

Добавлено: 21.03.04 06:26

Дополнение:

Рядом стоящии 3 цифры складываются по следующему принципу. 1+0=1, 0+0=0, 1+1=0

Ответить

Номер ответа: 2
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #2

Добавлено: 21.03.04 19:43

Насколько я помню, бит четности байта равен единице, если число единиц в двоичном представлении байта четное, и нулю, если нечетное. Тогда надо преобразовать байт в число (например, через asc), его в двоичное число и потом подсчитать число единиц. Например, так:


 Private Sub Command1_Click()
     n = Asc(Text1)
     For i = 7 To 0 Step -1
         If n > 2 ^ i Then
             h = h + 1
             n = n - 2 ^ i
         End If
     Next
     h = h Mod 2
     Debug.Print CStr(h);
 End Sub

Если надо находить биты четности для большого количества байт, сформируй массив из 256 элементов и используй его.

Ответить

Страница: 1 |