double arrow

sub Button4_OnClick() 'Исправление ошибок при передаче информации

'заново рассчитываем контрольные биты в кодированном массиве

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с.

 

 


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: