'заново рассчитываем контрольные биты в кодированном массиве
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с.