'заново рассчитываем контрольные биты в кодированном массиве
for i=1 to n ' последовательный просмотр символов контрольной фразы
for j=1 to nkod
poz=0
for b=0 To k-1 'просмотр контрольных бит
kreal=2^b
if j=kreal then
nomer=kreal
Do 'номер позиции первой младшей единицы двоичного кода символа
ostatok=kreal mod 2
kreal=kreal\2
poz=poz+1
loop until ostatok=1
End if
Next
if poz>0 then
for h=nomer+1 To nkod 'суммируем значения бит с одинаковыми номерами poz
data1=h
sch=0
do
ostatok=data1 mod 2
data1=data1\2
sch=sch+1
loop Until sch=poz
if ostatok=1 then
kodmassiv(i,j)=kodmassiv(i,j) XOR kodmassiv(i,h) ' расчет контрольного бита
End if
Next
End if
Next
Next
'расчет десятичного кода контроля символа
ispravkontr=0
isprav=0
for i=1 to n ' последовательное чтение символов контрольной фразы
a=0 'счетчик контрольных разрядов
symbolkod=0
for j=1 to nkod 'читаем информационные биты
for b=0 To k-1 'только контрольные разряды
kreal=2^b
if j=kreal then
symbolkod=symbolkod+kodmassiv(i,j)*2^a 'расчет десятичного кода контроля
a=a+1
End if
Next
Next
' исправим единичную ошибку
if symbolkod>0 then
Select Case kodmassiv(i,symbolkod)
Case 0
kodmassiv(i,symbolkod)=1
Case 1
kodmassiv(i,symbolkod)=0
End Select
isprav=isprav+1
for b=0 To k-1 'только контрольные разряды
kreal=2^b
if symbolkod=kreal then
ispravkontr=ispravkontr+1
End if
Next
End if
Next
document.all.Edit4.value=""
document.all.Edit4.value=CStr(isprav)
document.all.Edit5.value=""
document.all.Edit5.value=CStr(ispravkontr)
' конец исправления ошибок
'чтение парольной фразы
ReDim symbol(n) 'определяем кодированный массив
for i=1 to n ' последовательное чтение символов контрольной фразы
a=m 'счетчик информационных разрядов
symbol(i)=0
for j=1 to nkod 'читаем информационные биты
kontrol=0 'метка отсутствия контрольного разряда
for b=0 To k-1 'кроме контрольных разрядов
kreal=2^b
if j=kreal then
kontrol=1 'метка наличия контрольного разряда
End if
Next
if kontrol=0 then 'расчет десятичного кода символа
symbol(i)=symbol(i)+kodmassiv(i,j)*2^(a-1)
a=a-1
End if
Next
Next
document.all.Edit7.value=""
for i=1 to n 'читаем массив строк с одиночными символами
document.all.Edit7.value=document.all.Edit7.value+Chr(symbol(i))
Next
'окончание чтения полученной фразы
End sub
-->
</SCRIPT>
Сохранить документ как d:\lab5\list3\Model.html.
14. Запустить на выполнение программу.
Для этого запускаем через Internet Explorer d:\lab5\list1\Index.html.
После появления окна формы (рисунок 2) необходимо попытаться ввести логин и пароль в форму. Программа подтвердит, что логин неверный.
После этого необходимо нажать на ссылку “ Регистрация”. Программа покажет новое окно с формой для регистрации. Нужно набрать логин и пароль любыми буквами русского и латинского алфавита и подтвердить регистрацию.
Если все выполнилось правильно, то программа сообщить об успешной регистрации.
Далее необходимо вернуться по ссылке на начальную страницу формы ввода и набрать зарегистрированные логин и пароль. Если данные подтвердяться,то программа откроет страницу с действующей моделью канала связи с коррекцией данных методом Хэмминга.
Необходимо на странице модели выбрать понравившуюся парольную фразу из предложенных или самостоятельно ввести любую на русском или английском языке, соблюдая знаки препинания. После этого необходимо нажать кнопку “ Обработать данные методом Хэмминга” для просмотра результатов работы.
Далее необходимо передать данные по каналу связи без ошибок, нажав на соответствующую кнопку и также посмотреть результат.Тоже самое можно сделать для канала связи с ошибками, нажав на сответствующую кнопку и оценив результат передачи данных.
После получения недостоверной информации необходимо попытаться ее восстановит, нажав на кнопку “ Восстановить информацию”. Программа определит количество ошибок (оно должно совпасть с количеством полученных ошибок из канала связи). Ошибки возможны и в контролирующей информации кода Хэмминга (это отображается в соответствующем окне программы).В завершении работы программы парольная фраза будет восстановлена и результаты будут отображены в окне программы.
15. Повторить эксперимент несколько раз для получения достоверных результатов.
16. Оценить результаты экспериментов по различным критериям (ограничения по количеству передаваемых символов в парольной фразе, максимальный обьем используемого алфавита, скорость обработки информации).
В результате эксперимента получим один из вариантов работы модели (рисунок 5):
Содержание отчета.
1.Блок-схема алгоритма работы программного кода.
2.Скриншоты этапов работы.
3.Листинг программ на языке VBS с подробными комментариями.
4. Пояснение полученных результатов эксперимента.
5.Исходные программы представить в бумажном и электронном виде.
Контрольные вопросы.
1.Коды Хэмминга.
2. Пример использования кодов Хэмминга.
3. Основной и расширенный коды ASCII.
4. Язык текстовой разметки HTML.
5. Каскадные таблицы стилей CSS.
6. язык скриптовых сценариев VBScript.
7. Алгоритм работы модели самокорректирующих кодов Хэмминга в канале связи.
Список литературы:
1 А. Гарнаев, Самоучитель VBA. – Санкт-Петербург, Издательство БХВ–Санкт-Петербург, 2011. – 511с.
2. В.С. Пташинский, Самоучитель Office 2013– Москва, Издательство Эксмо,2013. – 288с.
3. О.В.Спиридонов, Microsoft Office для пользователя– Москва, Издательство Эксмо,2013– 350с.
4. Н.В.Макарова, В.Б. Волков, Информатика – Санкт-Петербург, Издательство Питер, 2011– 576с.
5. Г.Н.Хубаев, С.М. Патрушина, Н.Г. Савельева, Е.Г. Веретенникова, Информатика– Ростов-на-Дону, Издательство Феникс,2010– 288с.
6. Э.В. Вашкевич, PowerPoint 2007. Эффективные презентации на компьютере– Санкт-Петербург, Издательство Питер, 2008– 240с.
7. Ю.И.Кудинов, Ф.Ф. Пащенко, А.Ю. Келина, Практикум по основам современной информатики – Санкт-Петербург, Издательство Лань, 2011– 352 с.
8. Ю.И. Кудинов,Ф.Ф. Пащенко, Основы современной информатики– Санкт-Петербург, Издательство Лань,2011– 256 с.
9. В.Леонов, PowerPoint 2010 с нуля– Москва, Издательство Эксмо,2010– 320с.
11.А.В. Гураков, Информатика. Введение в Microsoft Office –Томск, издательство Эль Контент, 2012– 120с.
10. А.С.Грошев, Информатика.Учебник для вузов-Архангельск, издательство Архангельского государственного технического университета,2010-470с.
11. А.С.Грошев, Программирование на языке Microsoft Visual Basic for Applications.Методические указания к выполнению лабораторных работ.- Архангельск, издательство Архангельского государственного технического университета,2013-35с.
12. С.Каммингс, VBA для “чайников”-Москва,Издательский дом “Вильямс”,2002-448с.
13. А.Н.Любин, Создание пользовательских форм в Visual Basic for Applications.Учебное пособие-Москва,издательство МГМУ “МАМИ”,2012-60с.
14.Л.А.Демидова, А.Н.Пылькин, Программирование в среде Visual Basic for Applications.Практикум-Москва,Горячая линия-Телеком,2014-175с.
15. И.С.Осетрова, Н.А.Осипов, Microsoft Visual Basic for Applications.Учебное пособие- Санкт-Петербург, Издательство НИУ ИТМО,2013– 130 с.
16. Н.С. Маркин «Основы теории обработки результатов измерения» – Москва, Издательство Эксмо,2014. – 245с.