Компьютерный тренажер-эмулятор видеомагнитофона 'FUNAІ': функции воспроизведения видеосюжета, возврат кассеты, перемотка кассеты вперед и назад, остановка действий

Компьютерный тренажер-эмулятор видеомагнитофона 'FUNAІ': функции воспроизведения видеосюжета, возврат кассеты, перемотка кассеты вперед и назад, остановка действий

ДИПЛОМНЫЙ ПРОЕКТ

«Компьютерный тренажер-эмулятор видеомагнитофона "FUNAІ": функции воспроизведения видеосюжета, возврат кассеты, перемотка кассеты вперед и назад, остановка действий»

Реферат

Пояснительная записка содержит 6 разделов, 42 иллюстрации, 3 таблицы и 11 литературных источников.

Объектом бакалаврской дипломной работы является учебный процесс по теме «Компьютерный тренажер-эмулятор видеомагнитофона «FUNAІ»: функции воспроизведения видеосюжета, возврат кассеты, перемотка кассеты вперед и назад, остановка действий» по дисциплине «Технические средства обучения». Целью бакалаврской дипломной работы является формирование навыков разработки образовательного программного продукта, умений использования справочной литературы. Методы исследования: изучение и анализ учебной литературы по теме работы, расчёта экономических показателей. В результате бакалаврской дипломной работы разработаны компьютерный тренажер-эмулятор, мультимедийная инструкция пользователя и презентация результатов работы. Планируется внедрение данной разработки в учебный процесс по дисциплине «Технические средства обучения».

В результате работы был разработан компьютерный тренажер-эмулятор, содержащий текстовую и видео информацию, а также показ презентации по изучению данного тренажера-эмулятора, данный тренажер может найти себе достаточно хорошее применение в информационных системах и на торговом рынке. Область применения - учебный процесс в учебных заведениях III- IV уровней аккредитации. Расчет экономических показателей свидетельствует об эффективности разработанного продукта, о сокращении затрат на обучение студентов данной тематике. Данный программный продукт может использоваться для наглядного изучения устройства, позволяет дать обучаемому достаточно хорошие знания о работе с данным обучающим продуктом, с последующим его использованием.

Ключевые слова: компьютерный тренажер-эмулятор, мультимедийная инструкция, педагогический сценарий, экономические показатели, техника безопасности.

Введение

Известно, что наиболее эффективный способ преподавания - это наглядная демонстрация и объяснение изучаемого материала одновременно. Именно этот способ обучения и реализован в обучающей программе. Обучаемый видит на экране своего компьютера демонстрацию с высококачественным изображением, сопровождаемый пояснениями опытного преподавателя. Это серия слайдов, подготовленных при помощи компьютера, материалы, полученные с помощью видеокамеры или цифрового фото и т.д.

Программа предназначена для использования как одним пользователем, так и группой. Таким образом, курс пригоден для самоподготовки.

Программа поможет учащимся общеобразовательных учреждений получать умения знания и навыки в изучении данного программного продукта.

Изображение и видео в точности повторяет внешний вид данного устройства и наглядно демонстрирует, каким образом использовать те или иные возможности тренажёра-эмулятора «Видеомагнитофон FUNAI». Таким образом, вам не потребуются книги, чтобы ознакомиться с данным устройством при помощи тренажера-эмулятора «Видеомагнитофон FUNAI».

Компьютерный тренажер-эмулятор поможет обучаемому разобраться в правилах пользования видеомагнитофона FUNAI. Они просты в эксплуатации, особенно при помощи режимов: демонстрации, тренинга и контроля.

1. Техническое задание

.1 Основные требования к прикладной программе

Предметом разработки является обучающая система «Компьютерный тренажер-эмулятор «Видеомагнитофон FUNAI»».

Область применения - для обучения в школах, ВУЗах, и др.

Начало работ - I квартал 2007 года.

Окончание работ - II квартал 2007 года.

Исполнитель - ст. гр. ДРЭ-К1-1

1.2 Основане для разработки

Основанием для разработки является распоряжение №14, выданное кафедрой информатики и компьютерных технологий от 28 февраля 2007 г.

1.3 Назначение разработки

Обучающая система компьютерный тренажер-эмулятор «Видеомагнитофон FUNAI»» предназначена для обучения органов управления видеомагнитофона в дисциплине «Технические средства обучения» в ВУЗах Украины.

1.4 Требования к прикладной системе

Компьютерный тренажер-эмулятор «Видеомагнитофон FUNAI» должен реализовывать три режима работы:

. Демонстрация основных режимов работы устройства («Демонстрация»).

. Тренинг простейших операций на эмуляторе («Тренинг»).

. Контроль выполнения комплексных операций на эмуляторе («Экзамен»).

Тренажер-эмулятор должен содержать возможности просмотра следующей справочной информации:

помощи по работе с программой;

информации об авторе.

Компьютерная реализация каждого из трёх режимов работы тренажера-эмулятора должна реализовываться в следующем виде:

1. Демонстрация основных режимов работы устройства («Демонстрация»).

В режиме «Демонстрация» должна производиться мультимедийная демонстрация работы устройства в соответствии со следующими требованиями:

·        начальная форма режима должна содержать общую фотографию устройства;

·        в определенной последовательности должна производиться демонстрация технических возможностей эмулируемого устройства;

·        должен быть предусмотрен возврат на главное меню программы.

Программная реализация в режиме «Демонстрация» должна реализовываться по разветвляющемуся алгоритму с элементами интерактивности - демонстрация состоит из нескольких линейных демонстраций, описывающих работу с отдельными органами управления устройства и активизируемых в результате «щелчка» в соответствующей области фотографии. При наведении на каждый орган управления устройства появляется поясняющая надпись с названием данного органа и его назначением.

Наполнение для режима «Демонстрация» должно быть представлено в следующем виде: презентация MS PowerPoint: фотографии или последовательности фотографий, видео, пояснение, звуковое сопровождение, сочетание эффектов анимации, акцентирующих внимание на ключевых моментах работы устройства.

. Тренинг простейших операций на эмуляторе («Тренинг»).

В режиме «Тренинг» должно производиться обучение учащихся выполнению основных операций с устройством на основе тренировки. Режим «Тренинг» должен быть реализован в соответствии со следующими требованиями:

начальная форма режима должна содержать информацию об условиях тренинга;

в определенной последовательности должны появляться кадры с 5 заданиями, содержащие следующие элементы:

текстовую строку с заданием;

фотографию устройства, соответствующую заданию;

выполнение задания должно заключаться в «щелчке» мышью в соответствующей заданию области фотографии;

учащийся должен быть проинформирован о результате выполнения задания;

после выполнения задания с любым результатом должен осуществляться переход на следующий кадр;

должен быть предусмотрен возврат на главное меню программы.

Программная реализация в режиме «Тренинг» должна реализовываться по разветвляющемуся алгоритму - случайное отображение кадров с 5 заданиями. Условием завершения работы в режиме «Тренинг» является правильное выполнение всех заданий не менее 3 раз в любой последовательности. Допускается повторное отображение заданий, выполненных правильно.

Наполнение для режима «Тренинг» - кадр с заданием должен представлять собой форму с фотографией, при щелчке на областях которой появляется сообщение о правильности/неправильности выполнения задания, показанное в следующем виде:

·        в случае неправильного выполнения - диалоговое окно с сообщением;

·        в случае правильного выполнения - воспроизведение видеофрагмента (презентации) со звуковым сопровождением, содержащего текстовые пояснения и анимационные элементы, акцентирующие внимание на ключевых моментах работы устройства.

. Контроль выполнения комплексных операций на эмуляторе («Экзамен»).

Режим «Контроль» представляет собой 3 комплексных заданий, предусматривающих для их выполнения последовательное осуществление нескольких операций с органами управления устройства. Режим «Контроль» должен быть реализован в соответствии со следующими требованиями:

начальная форма режима должна содержать информацию об условиях контроля и возможность перехода к выполнению заданий;

на начальной форме каждого комплексного задания должен содержаться текст задания;

комплексные задания должны быть сформулированы в общем виде, без расшифровки алгоритма их выполнения (например, правильная формулировка: «Выполните действия, необходимые для демонстрации на экране заданного слайда», неправильная формулировка: «Последовательно выполните следующие действия: включите устройство, вставьте кассету со слайдами, загрузите в аппарат нужный слайд и т.д.»);

каждое комплексное задание должно предполагать не менее 3 операций с органами управления, выполняемых «щелчками» мыши в соответствующих областях фотографий;

каждый «правильный щелчок» мыши при выполнении задания должен сопровождаться изменением фотографии, при этом каждая следующая фотография должна отображать результат выполнения предыдущей операции;

после выполнения всех заданий учащийся должен быть проинформирован о результатах контроля;

должен быть предусмотрен возврат на главное меню программы.

Программная реализация в режиме «Контроль» должна реализовываться по усложненному разветвляющемуся алгоритму - для контроля должно быть задано не менее 3-х комплексных заданий, имеющих не менее двух вариантов выполнения. При выполнении каждого задания должны подлежать анализу все варианты решения, при этом неправильным должен считаться ответ, не подходящий ни под один вариант выполнения задания. При первой ошибке в задании производится автоматический переход к следующему заданию. Оценка определяется как среднее арифметическое оценок за выполнение каждого задания.

Наполнение для режима «Контроль» должно представлять собой переход между фотографиями, отображающими результаты «правильных щелчков» мыши, сопровождающийся воспроизведением видеофрагмента (презентации) со звуковым сопровождением, содержащего текстовые пояснения и анимационные элементы, акцентирующие внимание на ключевых моментах работы устройства при выполнении указанной «щелчком» мыши операции.

1.5 Условия эксплуатации

Условия эксплуатации компьютерного тренажера-эмулятора «Видеомагнитофон FUNAI» совпадают с условиями стабильной эксплуатации современных персональных компьютеров.

1.6 Требования к составу и параметрам технических средств

Для стабильной работы компьютерного тренажера-эмулятора «видеомагнитофон FUNAI» необходимо: IBM PC: MS Windows 98 и выше, процессор Pentium, 32 Мбайт ОЗУ, SVGA - видеокарта (1024*768, High Color 16 бит), звуковая карта, MS Windows совместимая мышь, CD-ROM.

1.7 Требования к маркировке и упаковке

Для переноса компьютерного тренажера-эмулятора «Видеомагнитофон FUNAI» с целью его установки на персональных компьютерах, требуется один диск типа CD-R.

1.8 Требования к транспортированию и хранению

Транспортирование компьютерного тренажера-эмулятора «Видеомагнитофон FUNAI» целесообразно производить на CD-R, указанных в предыдущем пункте. Хранение следует осуществлять на CD-R.

1.9 Требования к вспомогательной документации

Должны быть получены следующие документы:

·        «Техническое задание»;

·        «Мультимедийная инструкция пользователя»;

·        «Презентация»;

·        «Пояснительная записка к дипломному проекту».

Указанные документы должны обеспечивать эксплуатацию компьютерного тренажера-эмулятора и соответствовать действующим стандартам.

1.10 Требования к функциональной части прикладной системы

.10.1 Требования к интерфейсу пользователя.

Современный стандартизированный, интуитивно понятный интерфейс, принятый для обучающих систем.

1.10.2 Порядок контроля и приемки

Результаты работы рассматриваются и утверждаются на заседаниях кафедры Информатики и компьютерных технологий и на совете РЭКС - факультета.

По окончанию работ должны быть представлены следующие документы:

·        компьютерный тренажер-эмулятор «Видеомагнитофон FUNAI»;

·        документ: «Руководство пользователя»;

·        раздел пояснительной записки бакалаврской дипломной работы.

2. Педагогический сценарий

Кадр 1. Главная форма

Кнопка Далее - переход на форму «Режимы» (кадр 2).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кнопка Выход - кнопка для выхода из программы.

Нажимаем кнопку Далее и переходим на форму Режимы (кадр 2).

Кадр 2. Режимы

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Демонстрация - переход на титульную форму, где представлена информация о режиме Демонстрация (кадр 3).

Тренинг - переход на титульную форму, где представлена информация о режиме Тренинг (кадр 21).

Контроль - переход на титульную форму, где представлена информация о режиме Контроль (кадр 32).

Кадр 3. Титульный кадр режима Демонстрация

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Перейти на демонстрацию - переход на форму Демонстрация (кадр 4).

Кадр 4. Режим Демонстрация

Этот режим описывает работу кнопок видеомагнитофона и активизирует их в результате «щелчка» в соответствующей области фотографии. При наведении на каждую кнопку видеомагнитофона появляется поясняющая надпись с названием данной кнопки.

Кнопка управления Rewind - предназначена для перемотки кассеты назад в начало видеосюжета (кадр 5).

Кадр 5. Режим Демонстрация, кнопка управления Rewind

Кнопка управления Play - предназначена для воспроизведения видеосюжета (кадр 8).

Кнопка управления F.Fwd - предназначена для перемотки кассеты вперед (кадр 12).

Кнопка управления Stop - предназначена для остановки действий (кадр 18).

Кнопка управления Eject - предназначена для выдачи кассеты (кадр 15).

При нажатии на кнопку управления Rewind появляется первый слайд презентации «кнопка Rewind» (кадр 6), а затем следующие (кадр 7).

Кнопка Далее - переход на форму «Тренинг» (кадр 21).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кадр 7. Презентация кнопки Rewind, слайд 2

 - Закрываем презентацию и переходим на форму режима Демонстрация (кадр 4).

Кадр 8. Режим Демонстрация, кнопку управления Play

При нажатии на кнопку управления Play появляется первый слайд презентации «кнопка Play» (кадр 9), а затем следующие (кадр 10, кадр 11).

Кнопка Далее - переход на форму «Тренинг» (кадр 21).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кадр 9. Презентация кнопки Play, слайд 1

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

После первого слайда появляется второй слайд (кадр 10).

Кадр 10. Презентация кнопки Play, слайд 2

Кадр 11. Презентация кнопки Play, слайд 3

 - Закрываем презентацию и переходим на режимы Демонстрация (кадр 4).

Кадр 12. Режим Демонстрация, кнопку управления F.FWD

При нажатии на кнопку управления F.FWD появляется первый слайд презентации «кнопка F.FWD» (кадр 13), а затем следующие (кадр 14).

Кнопка Далее - переход на форму «Тренинг» (кадр 21).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кадр 13. Презентация кнопки F.FWD, слайд 1

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кадр 14. Презентация кнопки F.FWD, слайд 2

 - Закрываем презентацию и переходим на режим Демонстрация (кадр 4).

Кадр 15. Режим Демонстрация, кнопку управления Eject

При нажатии на кнопку управления Eject появляется первый слайд презентации «кнопка Eject» (кадр 16), а затем следующие (кадр 17).

Кнопка Далее - переход на форму «Тренинг» (кадр 21).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кадр 16. Презентация кнопки Eject, слайд 1

Кадр 17. Презентация кнопки Eject, слайд 2

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

 - Закрываем презентацию и переходим на режимы Демонстрация (кадр 4).

Кадр 18. Режим Демонстрация, кнопку управления Stop

Кадр 19. Презентация кнопки Stop, слайд 1

При нажатии на кнопку управления Stop появляется первый слайд презентации «кнопка Stop» (кадр19), а затем следующий (кадр 20).

Кнопка Далее - переход на форму «Тренинг» (кадр 21).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

 - Закрываем презентацию и переходим на режимы Демонстрация (кадр 4).

Кадр 20. Презентация кнопки Stop, слайд 2

При нажатии кнопки Назад переходим на титульную форму режима Демонстрация и переходим на форму «Режимы», где выбираем режим Тренинг, происходит переход на титульную форму режима «Тренинг» (кадр 21).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кадр 21. Титульный кадр режима тренинг

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Перейти на тренинг - переход на форму Тренинг (кадр 22).

Кадр 22. Режим Тренинг, ответ на первый вопрос

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Отвечая правильно на вопрос, появляется презентация кнопки Play (кадр 23).

Отвечая на вопрос не правильно, появляется сообщение об ошибке.

Кадр 23. Первый слайд презентации кнопки Play

Кадр 24. Режим Тренинг, ответ на второй вопрос

 - Закрываем презентацию и переходим на режим Тренинг (кадр 24).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Отвечая правильно на вопрос, появляется презентация кнопки F.FWD (кадр 25).

Отвечая на вопрос не правильно, появляется сообщение об ошибке.

Кадр 25. Первый слайд презентации кнопки F.FWD

 - Закрываем презентацию и переходим на режим Тренинг (кадр 26).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Отвечая правильно на вопрос, появляется презентация кнопки Rewind (кадр 27).

Отвечая на вопрос не правильно, появляется сообщение об ошибке.

Кадр 26. Режим Тренинг, ответ на третий вопрос

Кадр 27. Первый слайд презентации кнопки Rewind

 - Закрываем презентацию и переходим на режим Тренинг (кадр 28).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Отвечая правильно на вопрос, появляется презентация кнопки Eject (кадр 29).

Кадр 28. Режим Тренинг, ответ на четвертый вопрос

Отвечая на вопрос не правильно, появляется сообщение об ошибке.

Кадр 29. Первый слайд презентации кнопки Eject

 - Закрываем презентацию и переходим на режим Тренинг (кадр 30).

Кадр 30. Режим Тренинг, ответ на пятый вопрос

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Отвечая правильно на вопрос, появляется презентация кнопки Stop (кадр 31).

Кадр 31. Первый слайд презентации кнопки Stop

Отвечая на вопрос не правильно, появляется сообщение об ошибке

 - Закрываем презентацию.

Нажимаем кнопку Назад и переходим на форму режимы (кадр 2).

Выбираем режим «Контроль» и переходим на титульный кадр режима Контроль (кадр 32).

Кадр 32. Титульный кадр режима Контроль

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кадр 33. Задание 1

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кнопка Назад - переход на форму «Режимы» (кадр 2).

Кнопка Выход - кнопка для выхода из программы.

Кнопка Перейти на контроль - переход на форму Контроль (кадр 33).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

При правильном ответе появляется сообщение, что задание выполнено верно (кадр 34).

Кадр 34. Сообщение о правильном действии

При нажатии кнопки ОК переходим на задание 2 (кадр 35). Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

При правильном ответе появляется сообщение, что задание выполнено верно (кадр 36).

Кадр 35. Задание 2

Кадр 36. Сообщение о не совсем правильном действии

При нажатии кнопки ОК переходим на задание 3 (кадр 37).

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кадр 37. Задание 3

При правильном ответе появляется сообщение, что задание выполнено верно (кадр 38).

Кадр 38. Сообщение о правильном действии

При нажатии кнопки ОК переходим на форму Режимы (кадр 2).

При неправильном ответе появляется сообщение, что задание не выполнено верно (кадр 39).

Кадр 39. Сообщение о неправильном действии

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки (кадр 41).

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

При нажатии кнопки ОК появляется сообщение о вашей оценке (кадр 40).

Кадр 40. Сообщение об общей оценке

Кнопка Об авторе - переход на форму, где находится информация об авторе разработки.

Кнопка Справка - переход на форму, где дается справка об обучающей программе (кадр 42).

Кнопка Назад - переход на главную форму (кадр 1).

Кадр 42. Справка

Справка содержит информацию о режимах. Закрываем справку - переход на главную форму (кадр 1).

Блок-схема алгоритма

3. Определение себестоимости программного продукта и составление сметы затрат на разработку программного продукта

При определении себестоимости программного продукта, обычно, используется затраты по экономическим показателям: затраты на оплату труда, отчисление на социальные мероприятия, материальные затраты, амортизация оборудования, затраты на электроэнергию, другие затраты, которые приведены в таблице 2.1.

Таблица 2.1. Смета затрат на разработку программного продукта.

№ п/п	Наименование затрат за экономическими элементами	Размер, грн.	Основание
1.	Заработная плата разработчиков, в том числе:	3922,1
1.1	Основная заработная плата	3017	Расчет по формулам
1.2	Дополнительная заработная плата персонала	905,1	25-30% от п. 1.1
2.	Отчисление на социальные мероприятия	1451,18	37,0% от п. 1.1+ п. 1.2
3.	Материальные затраты	814,87	Расчет за текстом методических рекомендаций
4.	Амортизация оборудования	491,7	-//-
5.	Затраты на электроэнергию	100,8	-//-
6.	Другие затраты	542,45	8-12% от п.1+п.2+п.3+п.4+п.5
	Вместе себестоимость программного продукта	7323,1

3.1 Определение размера заработной платы разработчиков

Для определения размера основной и дополнительной заработной платы необходимо, прежде всего, определить трудоемкость разработки программного продукта.

Каждый этап разработки, как правило, будет выполнять один исполнитель (последовательно или параллельно).

В создании принимают участие следующие рабочие:

Оператор,  - 450 грн.;

Научный сотрудник,  - 800 грн.;

Программист,  - 560 грн.

Исходные данные:

№	Наименование должностей	Месячный оклад, грн.
1	Инженер - электронщик	700-750
2	Системный программист	600-650
3	Оператор	400-475
4	Научный сотрудник	800-850
5	Младший научный сотрудник	650-700
6	Программист	550-575
7	Лаборант	400-450

Размер основной заработной платы разработчиков программного продукта () определяется по формуле (1):

, (1)

где t_ч - трудоемкость разработки программного продукта, чел/ч;

ч - часть заработной платы, которая приходится на 1 чел/ч трудоемкости:

     (2)

где  - месячный плановый фонд рабочего времени. Обычно принимается в размере 200 часов (25 днейЧ8 часов на день = 200 часов).

Принимая во внимание то, что специалисты занимают указанные должности на протяжении 3-5 лет, коэффициент, который учитывает уровень квалификации, составляет 1,2.

Язык программирования имеет высокий уровень и степень новизны, а также 2-ю группу сложности. Таким образом, коэффициент, который учитывает новизну и сложность программы, составляет 1,19.

Тогда  - среднемесячная заработная плата исполнителей:

где ,, - соответственно заработная плата разработчиков программного продукта, грн.;- количество разработчиков, чел.

Дополнительная заработная плата разработчиков З_доп., определяется укрупнено, в процентах (25-30%) от основной заработной платы.

Суммарные затраты по заработной плате составляют:

      (4)

где З_доп. - дополнительная заработная плата.

 

.2 Определение размера материальных затрат

Определение затрат на материалы и отдельные комплектующие изделия осуществляется с учетом решения поставленной конкретной задачи - разработки тренажера - эмулятора видеомагнитофона FUNAI.

Расчет затрат на материалы приводится в таблице 2.2.

Таблица 2.2 - Расчет затрат на материалы.

№ п/п	Наименование материалов	Количество, ед.	Цена, грн.	Сумма, грн.
1.	Картридж	1	360	360
2.	Бумага для печати	2 пачки	30	60
3.	Канцелярские принадлежности		30	30
4.	Лазерные диски	10	8	80
5.	Flash - память	1	150	150
Вместе				680
Затраты на профилактику				134,87
Всего				814,87

3.3 Определение размера амортизационных отчислений (А)

Размер амортизационных отчислений (А) определяется по формуле (5):

(5)

где K_б - балансовая стоимость одной ПЭВМ с периферией;_a - летняя норма амортизационных отчислений (25 %); _pм - продолжительность разработки программного продукта, мес.

(6)

Стоимость оборудования определяется в таблице 2.3.

Таблица 2.3 - Стоимость компьютера R-Line на базе материнской платы Pentium.

№ п/п	Наименование составляющих ПЭВМ с периферией	Цена, грн.
1	Процессор Pentium	848
2	Материнская плата	317
3	Модуль памяти	303
4	Винчестер	520
5	Флоппи-дисковод	39,5
6	Видеокарта	285
7	Звуковая плата	154
8	Дисковод	324
9	Сетевая плата	32,5
10	Корпус	362
11	Вентилятор для корпуса	16,5
12	Клавиатура	54
13	Манипулятор «мышь»	39,5
14	Монитор 17”	2408
15	Акустические системы	36,5
16	Факс-модем	222
17	Программный продукт «ЭВМ Windows XP Professional»	782
Вместе		6743,5
Расходы на доставку, установку		606,92
Всего		7350,42

3.4 Определение расходов на электроэнергию

Размер расходов на электроэнергию включает:

расходов на силовую электроэнергию;

расходов на электроэнергию, которая тратится на освещение и определяется по формулам (7), (8).

Расходы на силовую электроэнергию определяются по формуле (7):

   (7)

где  - стоимость 1 кВт/час - 12 коп.

Р_ЭВМ - суммарная мощность ПЭВМ с периферией в киловатт-часах (составляет 0,7-1,3 киловатт-часов в зависимости от периферии);

Т - продолжительность разработки программного продукта в часах.

Расходы на электроэнергию для освещения, определяются по формуле(8):

  (8)

где Р_осв. - суммарная мощность в киловатт-часах, которая идет на освещение.

Для расчетов в дипломной работе Р_осв. может быть принята в размере 200-250 кВт/ч.

Общие затраты на освещение составляют:

      (9)

 

.5 Определение цены программного продукта

Цена программного продукта Ц_n.n. определяется по формуле (10):

(10)

где C_n.n - себестоимость программного продукта, грн.;

П - прибыль, которая планируется, грн.; 25-30% от себестоимости;

НДС - размер налога на добавленную стоимость, грн.; 20% от (C_n.n.+П).

Учебный эффект

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

4. Раздел Охраны труда

.1 Техника безопасности

.1.1 Общая характеристика рабочего места

В разделе «Охрана труда» мы рассмотрим условия проведения занятий в г. Харькове в Украинской инженерно-педагогической академии в аудитории №208. В этой аудитории проводятся лекционные, практические и лабораторные занятия по компьютерным дисциплинам, в ходе проведения которых применяются компьютеры.

В аудитории имеются доска, письменный стол и стул для преподавателя, столы и стулья для студентов, вся аудитория компьютеризирована.

Краткая характеристика помещения: размер аудитории 9x7x3,5 в помещении присутствует:

естественное и общее искусственное освящение;

естественная вентиляция;

водяное отопление централизованного низкого давления;

повышенный уровень шума;

перенапряжение органов чувств, монотонность труда.

На рассмотренном рабочем месте присутствуют следующие вредные факторы:

ü  недостаточная освещённость;

ü  неравномерное освящение;

ü  электромагнитные излучения;

ü  неудобная рабочая поза.

 

.1.2 Электробезопасность

Основные технические способы и меры обеспечения электробезопасности при нормальном режиме работы электроустановок включают:

изоляцию токопроводящих частей;

недоступность токопроводящих частей;

блокировки безопасности;

использование малых напряжений;

выравнивание потенциалов;

защитное разделение электрических сетей;

расположение токоведущих частей на недосягаемой высоте;

использование защитного зануления;

использование защитного заземления.

В данном разделе выполнен расчет зануления с данными параметрами:

ü Мощность трансформатора Р=100кВт;

ü  Мощность электродвигателя 15 кВт;

ü  Длина воздушной линии 120 м (медь, сечение 5 мм);

ü  Длина кабельной линии 20 м (медь, сечение 7 мм);

 

.2 Гигиена труда

 

Санитарно-гигиенические условия

 

.2.1 Вентиляция

В холодный и теплый период года в этой аудитории очень душно. Вентиляция организована плохо. Необходимо добавить в помещение устройство вентиляции, кондиционирования воздуха и отопления. Также изолировать нагретые поверхности, чтобы температура не превышала 45⁰ С. Организовать режим труда и отдыха, рациональный питьевой режим.

 

.2.2 Метеорологические условия

Для повышения трудоспособности и сохранения здоровья важно создать для человека стабильные метеорологические условия - микроклимат воздушной среды, в понятие которого входят температура, относительная влажность, скорость движения воздуха и интенсивность теплового облучения.

Влажность воздуха значительно влияет на терморегуляцию организма человека. Действие температуры окружающей среды зависит от сопутствующей относительной влажности воздуха.

Значительное колебание параметров микроклимата приводит к нарушению терморегуляции организма, то есть способности организма поддерживать постоянную температуру тела. Это приводит к нарушению кровообращения, нервной и потоотделительной систем, что может вызвать повышение или понижение температуры тела, слабость, головокружение, иногда обморок, привести к снижению работоспособности и даже к профзаболеваниям.

Находясь вблизи компьютера, человек подвергается воздействию электромагнитных полей, степень вредности этих полей на организм определяется интенсивностью облучения и особенностью биологической реакции организма на эти поля. Воздействие полей может распространятся на центральную нервную систему и сердечно-сосудистую, что приводит к снижению частоты сердечных сокращений, изменению артериального давления и пульса, возникновения болей в области сердца, аритмии, изменениям в печени, лёгких, почках и поджелудочной железе.

 

.2.3 Освещение

По карте светового климата Харьков находится в IV световом поясе местности в зоне с неустойчивым снежным покровом.

Разряд зрительной работы - четвертый, подразряд зрительной работы - в). Объектом различения является толщина курсора, min размер 0,5-1 мм. Характеристика фона - средняя, вид контраста объекта различения с фоном тоже средний.

Естественное освещение в аудитории на рабочих местах боковое, одностороннее.

,

где е_Н = 1,5% - нормированное в соответствие со СниП II-4-79 значение КЕО,

m - коэффициент светового климата (равно 0,9 для Харькова),

с - коэффициент солнечности климата (равно 0,75 для Харькова).

КЕО= е = 1,5*0,9*0,75=1,01%.

Искусственное освящение - общее, совмещённое.

Источники света - люминесцентные лампы.

4.2.4 Шум, вибрация, ультразвук, инфразвук

Воздействие шума на человека может вызвать различные общебиологические раздражения, патологические изменения, функциональные расстройства и механические повреждения. Длительное воздействие интенсивного шума может привести к патологическому состоянию слухового органа, к его утомлению и возникновению профессионального заболевания - тугоухости.

Шум вызывает изменения сердечно-сосудистой системы, сопровождаемые нарушениями тонуса и ритма сердечных сокращений, изменяется артериальное давление. Шум приводит к нарушению нормальных функций желудка - уменьшается выделение желудочного сока и изменяется кислотность (возникает гастрит). Особенно подвержена воздействию центральная нервная система. Отмечались изменения в органе зрения человека (снижается устойчивость ясного видения и острота зрения, изменяется чувствительность к различным цветам) и вестибулярном аппарате, повышение внутричерепного давления.

Шум ухудшает точность выполнения рабочих операций. Затрудняет приём и восприятие информации (слежение, сбор информации и мышление), снижает производительность труда.

Шум можно снизить благодаря облицовке звукопоглощающими материалами потолка и стен, подбор звукоизолирующих ограждений, дверей, окон.

 

.3 Пожарная безопасность

 

.3.1 Пожароопасность здания учебного заведения и помещения кабинета

По пожарной опасности помещение категории В (пожароопасные) - горючие и тяжелогорючие жидкости, твердые горючие и тяжелогорючие вещества и материалы, вещества и материалы, способные при взаимодействии с водой, кислородом или друг с другом гореть.

Пожароопасная зона класса П-IIa - пространство в помещении, в котором находятся твердые горючие материалы и вещества.

Безопасность производственного оборудования обеспечивается:

выбором безопасных принципов действия, конструктивных схем, элементов конструкций;

использование средств механизации, автоматизации и дистанционного управления;

применение в конструкции средств защиты;

соблюдение эргономических требований;

включением требований безопасности в техническую документацию по монтажу, эксплуатации, ремонту, транспортировке и хранению оборудования;

применение в конструкции соответствующих материалов.

4.3.2 Средства тушения и обнаружения пожара

Прекращение процесса горения может быть достигнуто следующими способами:

прекращением доступа в зону горения окислителя (воздуха) или горючего вещества;

охлаждением зоны горения или горящих веществ;

разбавлением воздуха или горючих веществ негорючими.

Здание, в котором располагается аудитория, обеспечено первичными средствами пожаротушения: огнетушителями, пожарным инвентарем (пожарными щитами и стендами, пожарными ведрами, ящиками с песком и т.п.), пожарным орудием (пожарными ломами, баграми, топорами и т.п.) и средствами связи.

При поступлении сигнала о пожаре дежурный вызывает пожарную команду на место вызова для тушения возможного пожара.

Основной и запасной эвакуационные выходы оборудованы аварийным освещением. Над ними установлено световое табло зеленого цвета с надписью «ВЫХОД».

Для тушения пожара применяются такие огнетушители: порошковый огнетушитель ВП-5 и углекислотный огнетушитель ВВ-5.

4.4 Экологическая оценка

Для рассматриваемой 208 аудитории источником возможных загрязнений является пыль, однако предприняты меры по её устранению - регулярная влажная уборка.

Экологическое воспитание учащихся, на мой взгляд, играет большую роль в формировании личности, оно прививает человеку знания и навыки разумного общения с природой. Экологическое воспитание включает в себя мировоззренческие, политические правовые, нравственно-этические и другие аспекты формирования личностных черт человека. Данное воспитание должно являться одним из основополагающих в воспитании личности, так как человек учиться принимать самостоятельные решения по вопросам охраны природы, нести ответственность за последствия принимаемых решений.

тренажер эмулятор видеомагнитофон себестоимость

Заключение

В заключении хочу сказать, что был разработан компьютерный тренажер-эмулятор

Литература

1 .А.Т. Ашеров, Т.В. Ящун Методические указания к выполнению квалификационной работы для образовательно-квалификационного уровня «бакалавр» для студентов специальности 6.010100.36 «Профессиональное обучение. Компьютерные технологии в управлении и обучении» - Харьков: УИПА, 2005. - 40 с.

. Самоучитель Visual Basic .NET / Д. Зак. - Киев: BHV; Спб.: Питер, 2003. - 558 с.

. Поль Киммел. Visual Basic .NET. Искусство программирования / Пер. с англ. - Спб.: ООО «ДиасофтЮП», 2003. - 720 с.

4. Лобунець В.І. Дипломне проектування. Методичні вказівки з техніко-економічного обґрунтування розробки нового програмного продукту для студентів спеціальності 6.010100.36 «Професійне навчання. Комп’ютерні технології в управлінні та навчанні» - Харків: УІПА, 2005 - 10 с.

5. Іванов В.Г. БЖД. - Х: 2003.

. Жидецький В.Ц. Охорона праці користувачів комп’ютерів. Навчальний посібник. - Вид.2-ге, доп. - Львів:Афіша,2000.

7. Кнорринг Г.М., Оболонцев Ю.Б., Берим Р.И., Крючков В.М. Справочная книга для проектирования электрического освещения. - Л.:Энергия,1976.

. Методические указания по расчету искусственного освещения промышленный предприятий в разделе «Охрана труда» /Сост. А.К. Грицай, Г.Т. Головченко. - Х.: УЗПИ, 1986.

9. Жидецький В.Ц., Джигирей В.С., Мельников О.В. Основи охорони праці. - Вид.2-е, стереотипне. - Львів: Афіша,2000.-С.17...94.

. Навакатікян О.О., Кальниш В.В., Стрюков С.М. Охорона праці користувачів комп’ютерних відео дисплейних терміналів.-К.,1997.

1. ВДОП 2.00-5.04-96. Инструкция по охране труда при работе на компьютерах.

Приложение

Программа для формы 1

Public Class Form1System.Windows.Forms.Form

#Region " Windows Form Designer generated code "Sub New().New()

'This call is required by the Windows Form Designer.()

'Add any initialization after the InitializeComponent() callSub

'Form overrides dispose to clean up the component list.Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Required by the Windows Form Designercomponents As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.WithEvents Label1 As System.Windows.Forms.LabelWithEvents Label2 As System.Windows.Forms.LabelWithEvents Button1 As System.Windows.Forms.ButtonWithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button4 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)).Label1 = New System.Windows.Forms.Label.Label2 = New System.Windows.Forms.Label.Button1 = New System.Windows.Forms.Button.Button2 = New System.Windows.Forms.Button.Button3 = New System.Windows.Forms.Button.Button4 = New System.Windows.Forms.Button.SuspendLayout()

'Label1.Label1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte)).Label1.Font = New System.Drawing.Font("Comic Sans MS", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.Location = New System.Drawing.Point(30, 48).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(952, 48).Label1.TabIndex = 2.Label1.Text = "Компьютерный тренажер-эмулятор ""Видеомагнитофон FUNAL"""

'Label2.Label2.BackColor = System.Drawing.Color.Aqua.Label2.Font = New System.Drawing.Font("Comic Sans MS", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label2.ForeColor = System.Drawing.Color.Magenta.Label2.Location = New System.Drawing.Point(16, 208).Label2.Name = "Label2".Label2.Size = New System.Drawing.Size(208, 192).Label2.TabIndex = 3.Label2.Text = "Разработала: студентка группы ДРЭ-К3-1 Попивняк Ю.В."

'Button1

'Me.Button1.BackColor = System.Drawing.Color.Red.Button1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(632, 672).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(104, 40).Button1.TabIndex = 4.Button1.Text = "Выход"

''Button2

'Me.Button2.BackColor = System.Drawing.Color.GreenYellow.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.Location = New System.Drawing.Point(600, 624).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(144, 40).Button2.TabIndex = 5.Button2.Text = "Далее >>"

''Button3

'Me.Button3.BackColor = System.Drawing.Color.Yellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.ForeColor = System.Drawing.Color.Blue.Button3.Location = New System.Drawing.Point(40, 424).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(144, 40).Button3.TabIndex = 6.Button3.Text = "Об авторе"

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Orange.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button4.Location = New System.Drawing.Point(80, 496).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(120, 40).Button4.TabIndex = 7.Button4.Text = "Справка"

''Form1

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image).ClientSize = New System.Drawing.Size(1028, 734).ControlBox = False.Controls.Add(Me.Button4).Controls.Add(Me.Button3).Controls.Add(Me.Button2).Controls.Add(Me.Button1).Controls.Add(Me.Label2).Controls.Add(Me.Label1).Name = "Form1".Text = "главная форма".WindowState = System.Windows.Forms.FormWindowState.Maximized.ResumeLayout(False)Sub

#End RegionSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickSubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickobj_Form2 As New Form2_Form2.Show()SubSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickobj_Form13 As New Form13_Form13.Show()SubClass

Программа для формы 2

Public Class Form2System.Windows.Forms.Form

#Region " Windows Form Designer generated code "Sub New().New()

'This call is required by the Windows Form Designer.()

'Add any initialization after the InitializeComponent() callSub

'Form overrides dispose to clean up the component list.Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Required by the Windows Form Designercomponents As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.WithEvents MainMenu1 As System.Windows.Forms.MainMenuWithEvents MenuItem1 As System.Windows.Forms.MenuItemWithEvents MenuItem2 As System.Windows.Forms.MenuItemWithEvents MenuItem3 As System.Windows.Forms.MenuItemWithEvents MenuItem4 As System.Windows.Forms.MenuItemWithEvents MenuItem5 As System.Windows.Forms.MenuItemWithEvents Button1 As System.Windows.Forms.ButtonWithEvents Button2 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form2)).MainMenu1 = New System.Windows.Forms.MainMenu.MenuItem1 = New System.Windows.Forms.MenuItem.MenuItem2 = New System.Windows.Forms.MenuItem.MenuItem3 = New System.Windows.Forms.MenuItem.MenuItem4 = New System.Windows.Forms.MenuItem.MenuItem5 = New System.Windows.Forms.MenuItem.Button1 = New System.Windows.Forms.Button.Button2 = New System.Windows.Forms.Button.SuspendLayout()

''MainMenu1

'Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5})

''MenuItem1

'Me.MenuItem1.Index = 0.MenuItem1.Text = "Демонстрация"

''MenuItem2

'Me.MenuItem2.Index = 1.MenuItem2.Text = "Тренинг"

''MenuItem3

'Me.MenuItem3.Index = 2.MenuItem3.Text = "Контроль"

''MenuItem4

'Me.MenuItem4.Index = 3.MenuItem4.Text = "Назад"

''MenuItem5

'Me.MenuItem5.Index = 4.MenuItem5.Text = "Выход"

''Button1

'Me.Button1.BackColor = System.Drawing.Color.Yellow.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button1.Location = New System.Drawing.Point(16, 408).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(144, 40).Button1.TabIndex = 0.Button1.Text = "Об авторе"

''Button2

'Me.Button2.BackColor = System.Drawing.Color.Orange.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button2.Location = New System.Drawing.Point(16, 456).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(136, 40).Button2.TabIndex = 1.Button2.Text = "Справка"

''Form2

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image).ClientSize = New System.Drawing.Size(840, 505).ControlBox = False.Controls.Add(Me.Button2).Controls.Add(Me.Button1).Menu = Me.MainMenu1.Name = "Form2".Text = "Режимы".ResumeLayout(False)Sub

#End RegionSub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Clickobj_Form15 As New Form15_Form15.Show()SubSub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Clickobj_Form16 As New Form16_Form16.Show()SubSub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Clickobj_Form17 As New Form17_Form17.Show()SubSub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click()SubSub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.ClickSubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form13 As New Form13_Form13.Show()SubClass

Программа для формы 3

Public Class Form3

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "Sub New().New()

'This call is required by the Windows Form Designer.()

'Add any initialization after the InitializeComponent() callSub

'Form overrides dispose to clean up the component list.Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Required by the Windows Form Designercomponents As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.WithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button4 As System.Windows.Forms.ButtonWithEvents Button5 As System.Windows.Forms.ButtonWithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Rewind As System.Windows.Forms.LabelWithEvents FFRD As System.Windows.Forms.LabelWithEvents Play As System.Windows.Forms.LabelWithEvents Eject As System.Windows.Forms.LabelWithEvents Stopp As System.Windows.Forms.Label

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form3)).Button2 = New System.Windows.Forms.Button.Button3 = New System.Windows.Forms.Button.Button4 = New System.Windows.Forms.Button.Button5 = New System.Windows.Forms.Button.PictureBox1 = New System.Windows.Forms.PictureBox.Rewind = New System.Windows.Forms.Label.FFRD = New System.Windows.Forms.Label.Play = New System.Windows.Forms.Label.Eject = New System.Windows.Forms.Label.Stopp = New System.Windows.Forms.Label.SuspendLayout()

''Button2

'Me.Button2.BackColor = System.Drawing.Color.GreenYellow.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.Location = New System.Drawing.Point(584, 520).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(136, 40).Button2.TabIndex = 2.Button2.Text = "Далее >>"

''Button3

'Me.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(440, 520).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 2.Button3.Text = "<< Назад"

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Yellow.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.Blue.Button4.Location = New System.Drawing.Point(40, 520).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(144, 40).Button4.TabIndex = 5.Button4.Text = "Об авторе"

''Button5

'Me.Button5.BackColor = System.Drawing.Color.Orange.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button5.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button5.Location = New System.Drawing.Point(208, 520).Button5.Name = "Button5".Button5.Size = New System.Drawing.Size(120, 40).Button5.TabIndex = 6.Button5.Text = "Справка"

''PictureBox1

'Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image).PictureBox1.Location = New System.Drawing.Point(0, 8).PictureBox1.Name = "PictureBox1".PictureBox1.Size = New System.Drawing.Size(848, 504).PictureBox1.TabIndex = 8.PictureBox1.TabStop = False

''Rewind

'Me.Rewind.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte)).Rewind.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Rewind.Location = New System.Drawing.Point(416, 256).Rewind.Name = "Rewind".Rewind.Size = New System.Drawing.Size(256, 32).Rewind.TabIndex = 9.Rewind.Text = "кнопка управления Rewind"

''FFRD

'Me.FFRD.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte)).FFRD.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)).FFRD.Location = New System.Drawing.Point(560, 328).FFRD.Name = "FFRD".FFRD.Size = New System.Drawing.Size(248, 32).FFRD.TabIndex = 10.FFRD.Text = "кнопка управления F.FRD"

''Play

'Me.Play.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte)).Play.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)).Play.Location = New System.Drawing.Point(584, 264).Play.Name = "Play".Play.Size = New System.Drawing.Size(232, 32).Play.TabIndex = 11.Play.Text = "кнопка управления Play"

''Eject

'Me.Eject.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte)).Eject.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)).Eject.Location = New System.Drawing.Point(448, 320).Eject.Name = "Eject".Eject.Size = New System.Drawing.Size(248, 32).Eject.TabIndex = 12.Eject.Text = "кнопка управления Eject"

''Stopp

'Me.Stopp.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte)).Stopp.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)).Stopp.Location = New System.Drawing.Point(592, 376).Stopp.Name = "Stopp".Stopp.Size = New System.Drawing.Size(240, 32).Stopp.TabIndex = 13.Stopp.Text = "кнопка управления Stop"

''Form3

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).BackColor = System.Drawing.Color.Teal.ClientSize = New System.Drawing.Size(864, 565).ControlBox = False.Controls.Add(Me.Stopp).Controls.Add(Me.Eject).Controls.Add(Me.Play).Controls.Add(Me.FFRD).Controls.Add(Me.Rewind).Controls.Add(Me.PictureBox1).Controls.Add(Me.Button5).Controls.Add(Me.Button4).Controls.Add(Me.Button2).Controls.Add(Me.Button3).Name = "Form3".Text = "Демонстрация".ResumeLayout(False)Sub

#End RegionSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickobj_Form16 As New Form16_Form16.Show()SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click()Sub

#Region "Установка курсора"Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove((e.X > 672) And (e.X < 720) And (e.Y > 288) And (e.Y < 312) Or _

(e.X > 632) And (e.X < 672) And (e.Y > 288) And (e.Y < 312) Or _

(e.X > 728) And (e.X < 760) And (e.Y > 296) And (e.Y < 320) Or _

(e.X > 672) And (e.X < 696) And (e.Y > 344) And (e.Y < 368)) Or _

(e.X > 696) And (e.X < 712) And (e.Y > 344) And (e.Y < 368) Then.Cursor = Cursors.Hand.Cursor = Cursors.DefaultIf(e.X > 672) And (e.X < 720) And (e.Y > 288) And (e.Y < 312) Then.Visible = True.Visible = FalseIf(e.X > 632) And (e.X < 672) And (e.Y > 288) And (e.Y < 312) Then.Visible = True.Visible = FalseIf(e.X > 728) And (e.X < 760) And (e.Y > 296) And (e.Y < 320) Then.Visible = True.Visible = FalseIf(e.X > 672) And (e.X < 696) And (e.Y > 344) And (e.Y < 368) Then.Visible = True.Visible = FalseIf(e.X > 696) And (e.X < 712) And (e.Y > 344) And (e.Y < 368) Then.Visible = True.Visible = FalseIfSub

#End Region

#Region "Установка кнопок"Sub PictureBox1_MouseUp1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp(e.X > 672) And (e.X < 720) And (e.Y > 288) And (e.Y < 312) Then_Form4 = New Form4= Application.StartupPath + "\кнопка_Play.ppt"_Form4.Show()If(e.X > 632) And (e.X < 672) And (e.Y > 288) And (e.Y < 314) Then_Form4 = New Form4= Application.StartupPath + "\кнопка_Rewind.ppt"_Form4.Show()If(e.X > 728) And (e.X < 760) And (e.Y > 296) And (e.Y < 320) Then_Form4 = New Form4= Application.StartupPath + "\кнопка_F.FRD.ppt"_Form4.Show()If(e.X > 672) And (e.X < 696) And (e.Y > 344) And (e.Y < 368) Then_Form4 = New Form4= Application.StartupPath + "\кнопка_Eject.ppt"_Form4.Show()If(e.X > 696) And (e.X < 712) And (e.Y > 344) And (e.Y < 368) Then_Form4 = New Form4= Application.StartupPath + "\кнопка_Stop.ppt"_Form4.Show()IfSub

#End RegionSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickobj_Form13 As New Form13_Form13.Show()SubClass

Программа для формы 4

Public Class Form4

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "Sub New().New()

'This call is required by the Windows Form Designer.()

'Add any initialization after the InitializeComponent() callSub

'Form overrides dispose to clean up the component list.Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Required by the Windows Form Designercomponents As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.WithEvents Button1 As System.Windows.Forms.ButtonWithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowser

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form4)).Button1 = New System.Windows.Forms.Button.AxWebBrowser1 = New AxSHDocVw.AxWebBrowser(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit().SuspendLayout()

''Button1

'Me.Button1.BackColor = System.Drawing.Color.GreenYellow.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.ForeColor = System.Drawing.Color.Blue.Button1.Location = New System.Drawing.Point(576, 488).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(144, 32).Button1.TabIndex = 0.Button1.Text = "<< Назад"

''AxWebBrowser1

'Me.AxWebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill.AxWebBrowser1.Enabled = True.AxWebBrowser1.Location = New System.Drawing.Point(0, 0).AxWebBrowser1.OcxState = CType(resources.GetObject("AxWebBrowser1.OcxState"), System.Windows.Forms.AxHost.State).AxWebBrowser1.Size = New System.Drawing.Size(736, 533).AxWebBrowser1.TabIndex = 1

''Form4

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).ClientSize = New System.Drawing.Size(736, 533).Controls.Add(Me.AxWebBrowser1).Controls.Add(Me.Button1).Name = "Form4".Text = "Презентация"(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit().ResumeLayout(False)Sub

#End RegionSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)()SubSub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.Navigate(filename)SubSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click()SubClass

Программа для формы 5

Public Class Form5

Inherits System.Windows.Forms.Form

Dim a() As String = {"Покажите кнопку, которая производит воспроизведение видеосюжета", "Покажите кнопку, которая перематывает видеосюжет назад", "Покажите кнопку, которая перематывает видеосюжет вперед", "Покажите кнопку, которая выдает видеокассету", "Покажите кнопку, которая останавливает все действия"}

Dim i As Integer = Int(5 * Rnd())Mas() As Integer = {0, 0, 0, 0, 0}s As Double

#Region " Windows Form Designer generated code "Sub New().New()

'This call is required by the Windows Form Designer.()

'Add any initialization after the InitializeComponent() callSub

'Form overrides dispose to clean up the component list.Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Required by the Windows Form Designercomponents As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.WithEvents Label1 As System.Windows.Forms.LabelWithEvents Label2 As System.Windows.Forms.LabelWithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button3 As System.Windows.Forms.ButtonWithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form5)).Label1 = New System.Windows.Forms.Label.Label2 = New System.Windows.Forms.Label.Button2 = New System.Windows.Forms.Button.Button3 = New System.Windows.Forms.Button.PictureBox1 = New System.Windows.Forms.PictureBox.Button1 = New System.Windows.Forms.Button.SuspendLayout()

''Label1

'Me.Label1.BackColor = System.Drawing.Color.Lime.Label1.Font = New System.Drawing.Font("Comic Sans MS", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.Location = New System.Drawing.Point(336, 8).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(304, 40).Label1.TabIndex = 1.Label1.Text = "Ответьте на вопрос"

''Label2

'Me.Label2.BackColor = System.Drawing.Color.Yellow.Label2.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label2.Location = New System.Drawing.Point(24, 64).Label2.Name = "Label2".Label2.Size = New System.Drawing.Size(872, 40).Label2.TabIndex = 2.Label2.Text = "Label2"

''Button2

'Me.Button2.BackColor = System.Drawing.Color.Orange.Button2.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button2.Location = New System.Drawing.Point(608, 616).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(144, 32).Button2.TabIndex = 3.Button2.Text = "Справка"

'Me.Button3.BackColor = System.Drawing.Color.Yellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.ForeColor = System.Drawing.Color.Blue.Button3.Location = New System.Drawing.Point(448, 616).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(144, 32).Button3.TabIndex = 4.Button3.Text = "Об авторе"

''PictureBox1

'Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image).PictureBox1.Location = New System.Drawing.Point(40, 112).PictureBox1.Name = "PictureBox1".PictureBox1.Size = New System.Drawing.Size(848, 504).PictureBox1.TabIndex = 5.PictureBox1.TabStop = False

''Button1

'Me.Button1.BackColor = System.Drawing.Color.Red.Button1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(784, 616).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(104, 32).Button1.TabIndex = 6.Button1.Text = "Выход"

''Form5

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).ClientSize = New System.Drawing.Size(928, 661).ControlBox = False.Controls.Add(Me.Button1).Controls.Add(Me.PictureBox1).Controls.Add(Me.Button3).Controls.Add(Me.Button2).Controls.Add(Me.Label2).Controls.Add(Me.Label1).Name = "Form5".Text = "Тренинг".ResumeLayout(False)Sub

#End RegionSub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load()= Int(5 * Rnd()).Text = CStr(a(i))Sub

#Region "Установка кнопок"Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

'Playi = 0 Then(e.X > 672) And (e.X < 720) And (e.Y > 288) And (e.Y < 312) Then(i) = Mas(i) + 1("Верно")_Form4 = New Form4= Application.StartupPath + "\кнопка_Play.ppt"_Form4.Show()("Ошибка")IfIf

'Rewindi = 1 Then(e.X > 632) And (e.X < 672) And (e.Y > 288) And (e.Y < 314) Then(i) = Mas(i) + 1("Верно")_Form4 = New Form4= Application.StartupPath + "\кнопка_Rewind.ppt"_Form4.Show()("Ошибка")IfIf

'F.FRDi = 2 Then(e.X > 728) And (e.X < 760) And (e.Y > 296) And (e.Y < 320) Then(i) = Mas(i) + 1("Верно")_Form4 = New Form4= Application.StartupPath + "\кнопка_F.FRD.ppt"_Form4.Show()("Ошибка")IfIf

'кнопка_Ejecti = 4 Then(e.X > 672) And (e.X < 696) And (e.Y > 344) And (e.Y < 368) Then(i) = Mas(i) + 1("Верно")_Form4 = New Form4= Application.StartupPath + "\кнопка_Eject.ppt"_Form4.Show()("Ошибка")IfIf

'кнопка_Stopi = 3 Then(e.X > 696) And (e.X < 712) And (e.Y > 344) And (e.Y < 368) Then(i) = Mas(i) + 1("Верно")_Form4 = New Form4= Application.StartupPath + "\кнопка_Stop.ppt"_Form4.Show()("Ошибка")IfIf= 0i = 0 To 4= s + Mas(i)is = 15 Then("Режим Тренинг пройден!")Obj_Form5 As New Form5_Form5.Close()Obj_Form2 As New Form2_Form2.Show()()= Int(5 * Rnd()).Text = CStr(a(i))IfSub

#End RegionSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click()SubClass

Программа для формы 7

Public Class Form7System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents Label1 As System.Windows.Forms.LabelWithEvents PictureBox4 As System.Windows.Forms.PictureBoxWithEvents PictureBox3 As System.Windows.Forms.PictureBoxWithEvents PictureBox2 As System.Windows.Forms.PictureBoxWithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Button4 As System.Windows.Forms.ButtonWithEvents Button5 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form7)).Label1 = New System.Windows.Forms.Label.PictureBox4 = New System.Windows.Forms.PictureBox.PictureBox3 = New System.Windows.Forms.PictureBox.PictureBox2 = New System.Windows.Forms.PictureBox.PictureBox1 = New System.Windows.Forms.PictureBox.Button4 = New System.Windows.Forms.Button.Button5 = New System.Windows.Forms.Button.SuspendLayout()

''Label1

'Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte)).Label1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Label1.Location = New System.Drawing.Point(32, 8).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(624, 64)

Me.Label1.TabIndex = 9.Label1.Text = "Выполните действия, необходимые для воспроизведения сюжета"

Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

''PictureBox4

'Me.PictureBox4.Dock = System.Windows.Forms.DockStyle.Fill.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image).PictureBox4.Location = New System.Drawing.Point(0, 0).PictureBox4.Name = "PictureBox4".PictureBox4.Size = New System.Drawing.Size(692, 466).PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox4.TabIndex = 8.PictureBox4.TabStop = False

''PictureBox3

'Me.PictureBox3.Dock = System.Windows.Forms.DockStyle.Fill.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image).PictureBox3.Location = New System.Drawing.Point(0, 0).PictureBox3.Name = "PictureBox3".PictureBox3.Size = New System.Drawing.Size(692, 466).PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox3.TabIndex = 7.PictureBox3.TabStop = False

''PictureBox2

'Me.PictureBox2.Dock = System.Windows.Forms.DockStyle.Fill.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image).PictureBox2.Location = New System.Drawing.Point(0, 0).PictureBox2.Name = "PictureBox2".PictureBox2.Size = New System.Drawing.Size(692, 466).PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox2.TabIndex = 6.PictureBox2.TabStop = False

''PictureBox1

'Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte)).PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image).PictureBox1.Location = New System.Drawing.Point(0, 0).PictureBox1.Name = "PictureBox1".PictureBox1.Size = New System.Drawing.Size(692, 466).PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox1.TabIndex = 5.PictureBox1.TabStop = False

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Yellow.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.Blue.Button4.Location = New System.Drawing.Point(0, 424).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(144, 40).Button4.TabIndex = 14.Button4.Text = "Об авторе"

''Button5

'Me.Button5.BackColor = System.Drawing.Color.Orange.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button5.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button5.Location = New System.Drawing.Point(160, 424).Button5.Name = "Button5".Button5.Size = New System.Drawing.Size(120, 40).Button5.TabIndex = 15.Button5.Text = "Справка"

''Form7

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).ClientSize = New System.Drawing.Size(692, 466).ControlBox = False.Controls.Add(Me.Button5).Controls.Add(Me.Button4).Controls.Add(Me.Label1).Controls.Add(Me.PictureBox1).Controls.Add(Me.PictureBox4).Controls.Add(Me.PictureBox3).Controls.Add(Me.PictureBox2).Name = "Form7".StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen.Text = "Задание1".ResumeLayout(False)Sub

#End Regionbal_1 As IntegerSub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp_1 = 0

'включение(e.X > 504) And (e.X < 624) And (e.Y > 288) And (e.Y < 328) Or _

(e.X > 24) And (e.X < 72) And (e.Y > 120) And (e.Y < 144) Then.Visible = False.Visible = True.Visible = False.Visible = FalseSubIf("Неправильно." + vbCrLf + "Вы заработали 0 баллов.", MsgBoxStyle.Critical, "Результат")

Me.Hide()_1 = 0obj_Form8 As New Form8_Form8.Show()SubSub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

'вставка кассеты(e.X > 336) And (e.X < 512) And (e.Y > 152) And (e.Y < 200) Then.Visible = False.Visible = False.Visible = True.Visible = FalseSubIf("Неправильно." + vbCrLf + "Вы заработали 2 балла.", MsgBoxStyle.Critical, "Результат")

Me.Hide()_1 = 2obj_Form8 As New Form8_Form8.Show()SubSub PictureBox3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp

'Playobj_Form8 As New Form8(e.X > 544) And (e.X < 640) And (e.Y > 216) And (e.Y < 248) Or _

(e.X > 48) And (e.X < 96) And (e.Y > 152) And (e.Y < 176) Then.Visible = False.Visible = False.Visible = False.Visible = True

MsgBox("Вы полностью прошли первое задание, Ваша оценка за первое задание 5")

Me.Hide()_1 = 5_Form8.Show()SubIf("Неправильно." + vbCrLf + "Вы заработали 4 балла.", MsgBoxStyle.Critical, "Результат")

Me.Hide()_1 = 4_Form8.Show()SubSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickobj_Form13 As New Form13_Form13.Show()SubClass

Программа для формы 8

Public Class Form8System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents Button3 As System.Windows.Forms.ButtonWithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Label1 As System.Windows.Forms.LabelWithEvents PictureBox2 As System.Windows.Forms.PictureBoxWithEvents PictureBox3 As System.Windows.Forms.PictureBoxWithEvents PictureBox4 As System.Windows.Forms.PictureBoxWithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form8)).Button3 = New System.Windows.Forms.Button.PictureBox1 = New System.Windows.Forms.PictureBox.Label1 = New System.Windows.Forms.Label.PictureBox2 = New System.Windows.Forms.PictureBox.PictureBox3 = New System.Windows.Forms.PictureBox.PictureBox4 = New System.Windows.Forms.PictureBox.Button2 = New System.Windows.Forms.Button.Button1 = New System.Windows.Forms.Button.SuspendLayout()

''Button3

'Me.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(680, 608).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 4.Button3.Text = "<< Назад"

''PictureBox1

'Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image).PictureBox1.Location = New System.Drawing.Point(0, 0).PictureBox1.Name = "PictureBox1".PictureBox1.Size = New System.Drawing.Size(688, 461).PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox1.TabIndex = 5.PictureBox1.TabStop = False

''Label1

'Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte)).Label1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Label1.Location = New System.Drawing.Point(32, 0).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(624, 64)

Me.Label1.TabIndex = 10.Label1.Text = "Выполните действия, необходимые для перемотки видеосюжета в начало кассеты"

Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

''PictureBox2

'Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image).PictureBox2.Location = New System.Drawing.Point(0, 0).PictureBox2.Name = "PictureBox2".PictureBox2.Size = New System.Drawing.Size(688, 461).PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox2.TabIndex = 11.PictureBox2.TabStop = False

''PictureBox3

'Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image).PictureBox3.Location = New System.Drawing.Point(0, 0).PictureBox3.Name = "PictureBox3".PictureBox3.Size = New System.Drawing.Size(688, 461).PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox3.TabIndex = 13.PictureBox3.TabStop = False

''PictureBox4

'Me.PictureBox4.Location = New System.Drawing.Point(8, 0).PictureBox4.Name = "PictureBox4".PictureBox4.Size = New System.Drawing.Size(688, 461).PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox4.TabIndex = 15.PictureBox4.TabStop = False

''Button2

'Me.Button2.BackColor = System.Drawing.Color.Orange.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button2.Location = New System.Drawing.Point(520, 416).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(136, 40).Button2.TabIndex = 18.Button2.Text = "Справка"

''Button1

'Me.Button1.BackColor = System.Drawing.Color.Yellow.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button1.Location = New System.Drawing.Point(352, 416).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(144, 40).Button1.TabIndex = 17.Button1.Text = "Об авторе"

''Form8

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).ClientSize = New System.Drawing.Size(692, 466).ControlBox = False.Controls.Add(Me.Button2).Controls.Add(Me.Button1).Controls.Add(Me.Label1).Controls.Add(Me.Button3).Controls.Add(Me.PictureBox1).Controls.Add(Me.PictureBox4).Controls.Add(Me.PictureBox3).Controls.Add(Me.PictureBox2).Name = "Form8".StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen.Text = "задание 2".ResumeLayout(False)Sub

#End Regionbal_2 As IntegerSub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp_2 = 0

'включение(e.X > 528) And (e.X < 624) And (e.Y > 288) And (e.Y < 328) Or _

(e.X > 24) And (e.X < 72) And (e.Y > 120) And (e.Y < 144) Then.Visible = False.Visible = True.Visible = False.Visible = FalseSubIf("Неправильно." + vbCrLf + "Вы заработали 0 баллов.", MsgBoxStyle.Critical, "Результат")

Me.Hide()_2 = 0obj_Form9 As New Form9_Form9.Show()SubSub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

'вставка кассеты(e.X > 336) And (e.X < 512) And (e.Y > 152) And (e.Y < 200) Then.Visible = False.Visible = False.Visible = True.Visible = FalseSubIf("Неправильно." + vbCrLf + "Вы заработали 2 балла.", MsgBoxStyle.Critical, "Результат")

Me.Hide()_2 = 2obj_Form9 As New Form9_Form9.Show()SubSub PictureBox3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp

'Rewindobj_Form9 As New Form9(e.X > 528) And (e.X < 568) And (e.Y > 216) And (e.Y < 240) Or _

(e.X > 24) And (e.X < 56) And (e.Y > 168) And (e.Y < 192) Then.Visible = False.Visible = False.Visible = False.Visible = True

MsgBox("Вы полностью прошли второе задание, Ваша оценка за второе задание 5")

Me.Hide()_2 = 5_Form9.Show()SubIf("Неправильно." + vbCrLf + "Вы заработали 4 балла.", MsgBoxStyle.Critical, "Результат")

Me.Hide()_2 = 4_Form9.Show()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")

End SubClass

Программа для формы 9

Class Form9System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.WithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button1 As System.Windows.Forms.ButtonWithEvents Label1 As System.Windows.Forms.LabelWithEvents PictureBox2 As System.Windows.Forms.PictureBoxWithEvents PictureBox3 As System.Windows.Forms.PictureBoxWithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button4 As System.Windows.Forms.ButtonWithEvents PictureBox4 As System.Windows.Forms.PictureBox

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form9)).PictureBox1 = New System.Windows.Forms.PictureBox.Button3 = New System.Windows.Forms.Button.Button1 = New System.Windows.Forms.Button.Label1 = New System.Windows.Forms.Label.PictureBox2 = New System.Windows.Forms.PictureBox.PictureBox3 = New System.Windows.Forms.PictureBox.Button2 = New System.Windows.Forms.Button.Button4 = New System.Windows.Forms.Button.PictureBox4 = New System.Windows.Forms.PictureBox.SuspendLayout()

''PictureBox1

'Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image).PictureBox1.Location = New System.Drawing.Point(0, 0).PictureBox1.Name = "PictureBox1".PictureBox1.Size = New System.Drawing.Size(688, 461).PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox1.TabIndex = 2.PictureBox1.TabStop = False

''Button3

'Me.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(752, 608).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 4.Button3.Text = "<< Назад"

''Button1

'Me.Button1.BackColor = System.Drawing.Color.Magenta.Button1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(472, 608).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(224, 40).Button1.TabIndex = 5.Button1.Text = "Показать результат"

''Label1

'Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte)).Label1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Label1.Location = New System.Drawing.Point(32, 0).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(624, 64).Label1.TabIndex = 11.Label1.Text = "Выполните действия, которые необходимы для окончания просмотра видеосюжета".Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

''PictureBox2

'Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image).PictureBox2.Location = New System.Drawing.Point(8, 0).PictureBox2.Name = "PictureBox2".PictureBox2.Size = New System.Drawing.Size(688, 461).PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox2.TabIndex = 12.PictureBox2.TabStop = False

''PictureBox3

'Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image).PictureBox3.Location = New System.Drawing.Point(0, 0).PictureBox3.Name = "PictureBox3".PictureBox3.Size = New System.Drawing.Size(688, 461).PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox3.TabIndex = 14.PictureBox3.TabStop = False

''Button2

'Me.Button2.BackColor = System.Drawing.Color.Orange.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button2.Location = New System.Drawing.Point(240, 424).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(136, 40).Button2.TabIndex = 17.Button2.Text = "Справка"

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Yellow.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button4.Location = New System.Drawing.Point(72, 424).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(144, 40).Button4.TabIndex = 16.Button4.Text = "Об авторе"

''PictureBox4

'Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image).PictureBox4.Location = New System.Drawing.Point(0, 0).PictureBox4.Name = "PictureBox4".PictureBox4.Size = New System.Drawing.Size(688, 461).PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage.PictureBox4.TabIndex = 18.PictureBox4.TabStop = False

''Form9

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).ClientSize = New System.Drawing.Size(692, 466).ControlBox = False.Controls.Add(Me.Button2).Controls.Add(Me.Button4).Controls.Add(Me.Label1).Controls.Add(Me.Button1).Controls.Add(Me.Button3).Controls.Add(Me.PictureBox1).Controls.Add(Me.PictureBox3).Controls.Add(Me.PictureBox2).Controls.Add(Me.PictureBox4).Name = "Form9".StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen.Text = "Задание 3".ResumeLayout(False)Sub

#End RegionSub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp= 0

'остановка(e.X > 568) And (e.X < 584) And (e.Y > 248) And (e.Y < 264) Or _

(e.X > 80) And (e.X < 112) And (e.Y > 192) And (e.Y < 216) Then.Visible = False.Visible = True.Visible = False.Visible = FalseSubIf= 0("Неправильно." + vbCrLf + "Вы заработали 0 баллов.", MsgBoxStyle.Critical, "Результат")bal As Integer = (bal1 + bal2 + bal3)ocenka As Integer = ((bal) * 5) \ 18st As String = "Ваша общая оценка " + CStr(ocenka) + " !"("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка").Close()obj_Form2 As New Form2_Form2.Show()SubSub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

'вставка кассеты(e.X > 568) And (e.X < 584) And (e.Y > 248) And (e.Y < 272) Or _

(e.X > 80) And (e.X < 112) And (e.Y > 120) And (e.Y < 144) Then.Visible = False.Visible = False.Visible = True.Visible = FalseSubIf= 2("Неправильно." + vbCrLf + "Вы заработали 2 балла.", MsgBoxStyle.Critical, "Результат")bal As Integer = (bal1 + bal2 + bal3)ocenka As Integer = ((bal) * 5) \ 18st As String = "Ваша общая оценка " + CStr(ocenka) + " !"("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка").Close()obj_Form2 As New Form2_Form2.Show()SubSub PictureBox3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUpobj_Form2 As New Form2bal As Integerocenka As Integerst As String

'выключение(e.X > 512) And (e.X < 552) And (e.Y > 240) And (e.Y < 256) Or _

(e.X > 80) And (e.X < 112) And (e.Y > 136) And (e.Y < 152) Then.Visible = False.Visible = False.Visible = False.Visible = True= 6("Вы полностью прошли третье задание, Ваша оценка за третье задание 6")= (bal1 + bal2 + bal3)= ((bal) * 5) \ 18= "Ваша общая оценка " + CStr(ocenka) + " !"= 6("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка").Close()_Form2.Show()SubIf= 4("Неправильно." + vbCrLf + "Вы заработали 4 балла.", MsgBoxStyle.Critical, "Результат")= (bal1 + bal2 + bal3)= ((bal) * 5) \ 18= "Ваша общая оценка " + CStr(ocenka) + " !"("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка").Close()_Form2.Show()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubClass

Программа для формы 13

Public Class Form13System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Label1 As System.Windows.Forms.LabelWithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button3 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form13)).PictureBox1 = New System.Windows.Forms.PictureBox.Label1 = New System.Windows.Forms.Label.Button2 = New System.Windows.Forms.Button.Button3 = New System.Windows.Forms.Button.SuspendLayout()

''PictureBox1

'Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image).PictureBox1.Location = New System.Drawing.Point(8, -8).PictureBox1.Name = "PictureBox1".PictureBox1.Size = New System.Drawing.Size(488, 672).PictureBox1.TabIndex = 1.PictureBox1.TabStop = False

''Label1

'Me.Label1.Location = New System.Drawing.Point(416, 24).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(344, 200)

Me.Label1.TabIndex = 2.Label1.Text = "Автором этой разработки стала студентка группы ДРЭ-К3-1 Попивняк Юлия Владимировн" & _

"а"

''Button2

'Me.Button2.BackColor = System.Drawing.Color.Orange.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button2.Location = New System.Drawing.Point(568, 464).Button2.Name = "Button2".Button2.Size = New System.Drawing.Size(136, 40).Button2.TabIndex = 3.Button2.Text = "Справка"

''Button3

'Me.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(568, 544).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 4.Button3.Text = "<< Назад"

''Form13

'Me.AutoScaleBaseSize = New System.Drawing.Size(16, 41).ClientSize = New System.Drawing.Size(968, 670).ControlBox = False.Controls.Add(Me.Button3).Controls.Add(Me.Button2).Controls.Add(Me.Label1).Controls.Add(Me.PictureBox1).Font = New System.Drawing.Font("Comic Sans MS", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Name = "Form13".Text = "Об авторе".WindowState = System.Windows.Forms.FormWindowState.Maximized.ResumeLayout(False)Sub

#End RegionSub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.ClickSubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click()SubClass

Программа для формы 14

Public Class Form14System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowserWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form14)).AxWebBrowser1 = New AxSHDocVw.AxWebBrowser.Button3 = New System.Windows.Forms.Button.Button1 = New System.Windows.Forms.Button(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit().SuspendLayout()

''AxWebBrowser1

'Me.AxWebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill.AxWebBrowser1.Enabled = True.AxWebBrowser1.Location = New System.Drawing.Point(0, 0).AxWebBrowser1.OcxState = CType(resources.GetObject("AxWebBrowser1.OcxState"), System.Windows.Forms.AxHost.State).AxWebBrowser1.Size = New System.Drawing.Size(968, 670).AxWebBrowser1.TabIndex = 2

''Button3

'Me.Button3.BackColor = System.Drawing.Color.Yellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.ForeColor = System.Drawing.Color.Blue.Button3.Location = New System.Drawing.Point(24, 600).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(144, 40).Button3.TabIndex = 7.Button3.Text = "Об авторе"

''Button1

'Me.Button1.BackColor = System.Drawing.Color.GreenYellow.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(824, 616).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(136, 40).Button1.TabIndex = 8.Button1.Text = "<< Назад"

''Form14

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).ClientSize = New System.Drawing.Size(968, 670).ControlBox = False.Controls.Add(Me.Button1).Controls.Add(Me.Button3).Controls.Add(Me.AxWebBrowser1).Name = "Form14".Text = "Справка".WindowState = System.Windows.Forms.FormWindowState.Maximized(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit().ResumeLayout(False)Sub

#End RegionSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click()SubClass

Программа для формы 15

Public Class Form15System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents Label1 As System.Windows.Forms.LabelWithEvents Label2 As System.Windows.Forms.LabelWithEvents Button1 As System.Windows.Forms.ButtonWithEvents Button4 As System.Windows.Forms.ButtonWithEvents Button5 As System.Windows.Forms.ButtonWithEvents Button3 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form15)).Label1 = New System.Windows.Forms.Label.Label2 = New System.Windows.Forms.Label.Button1 = New System.Windows.Forms.Button.Button4 = New System.Windows.Forms.Button.Button5 = New System.Windows.Forms.Button.Button3 = New System.Windows.Forms.Button.SuspendLayout()

''Label1

'Me.Label1.BackColor = System.Drawing.Color.Transparent.Label1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte)).Label1.Location = New System.Drawing.Point(8, 0).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(264, 48).Label1.TabIndex = 0.Label1.Text = "Режим Демонстрация".Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

''Label2

'Me.Label2.BackColor = System.Drawing.Color.Transparent.Label2.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label2.ForeColor = System.Drawing.Color.Maroon.Label2.Location = New System.Drawing.Point(192, 72).Label2.Name = "Label2".Label2.Size = New System.Drawing.Size(424, 192)

Me.Label2.TabIndex = 1.Label2.Text = " Этот режим описывает работу кнопок видеомагнитофона и активизирует их в резул" & _

"ьтате «щелчка» в соответствующей области фотографии. При наведении на каждую кно" & _

"пку видеомагнитофона появляется поясняющая надпись с названием данной кнопки."

''Button1

'Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte)).Button1.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(464, 432).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(272, 40).Button1.TabIndex = 2.Button1.Text = "Перейти на демонстрацию"

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Yellow.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.Blue.Button4.Location = New System.Drawing.Point(16, 432).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(144, 40).Button4.TabIndex = 6.Button4.Text = "Об авторе"

''Button5

'Me.Button5.BackColor = System.Drawing.Color.Orange.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button5.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button5.Location = New System.Drawing.Point(176, 432).Button5.Name = "Button5".Button5.Size = New System.Drawing.Size(120, 40).Button5.TabIndex = 7.Button5.Text = "Справка"

''Button3

'Me.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(312, 432).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 9.Button3.Text = "<< Назад"

''Form15

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image).ClientSize = New System.Drawing.Size(736, 493).ControlBox = False.Controls.Add(Me.Button3).Controls.Add(Me.Button5).Controls.Add(Me.Button4).Controls.Add(Me.Button1).Controls.Add(Me.Label2).Controls.Add(Me.Label1).Name = "Form15".Text = "Демонстрация".ResumeLayout(False)Sub

#End RegionSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form3 As New Form3_Form3.Show()SubSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click()SubClass

Программа для формы 16

Public Class Form16System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents Label1 As System.Windows.Forms.LabelWithEvents Label2 As System.Windows.Forms.LabelWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button5 As System.Windows.Forms.ButtonWithEvents Button4 As System.Windows.Forms.ButtonWithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form16)).Label1 = New System.Windows.Forms.Label.Label2 = New System.Windows.Forms.Label.Button3 = New System.Windows.Forms.Button.Button5 = New System.Windows.Forms.Button.Button4 = New System.Windows.Forms.Button.Button1 = New System.Windows.Forms.Button.SuspendLayout()

''Label1

'Me.Label1.BackColor = System.Drawing.Color.Transparent.Label1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte)).Label1.Location = New System.Drawing.Point(184, 16).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(264, 48).Label1.TabIndex = 1.Label1.Text = "Режим Тренинг".Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

''Label2

'Me.Label2.BackColor = System.Drawing.Color.Transparent.Label2.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label2.ForeColor = System.Drawing.Color.Yellow.Label2.Location = New System.Drawing.Point(80, 96).Label2.Name = "Label2".Label2.Size = New System.Drawing.Size(464, 200)

Me.Label2.TabIndex = 2.Label2.Text = " В этом режиме случайно отображаются кадры с 5-ю заданиями. Условием завершения" & _

" работы в режиме «Тренинг» является правильное выполнение всех заданий не менее " & _

"3 раз в любой последовательности. Допускается повторное отображение заданий, вып" & _

"олненных правильно."

''Button3

'Me.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(296, 440).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 14.Button3.Text = "<< Назад"

''Button5

'Me.Button5.BackColor = System.Drawing.Color.Orange.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button5.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button5.Location = New System.Drawing.Point(160, 440).Button5.Name = "Button5".Button5.Size = New System.Drawing.Size(120, 40).Button5.TabIndex = 12.Button5.Text = "Справка"

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Yellow.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.Blue.Button4.Location = New System.Drawing.Point(0, 440).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(144, 40).Button4.TabIndex = 11.Button4.Text = "Об авторе"

''Button1

'Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte)).Button1.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(448, 440).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(272, 40).Button1.TabIndex = 10.Button1.Text = "Перейти на тренинг"

''Form16

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image).ClientSize = New System.Drawing.Size(768, 517).ControlBox = False.Controls.Add(Me.Button3).Controls.Add(Me.Button5).Controls.Add(Me.Button4).Controls.Add(Me.Button1).Controls.Add(Me.Label2).Controls.Add(Me.Label1).Name = "Form16".Text = "тренинг".ResumeLayout(False)Sub

#End RegionSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form5 As New Form5_Form5.Show()SubClass

Программа формы 17

Public Class Form17System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New().New()

'Этот вызов требуется конструктором форм Windows.()

'Добавьте код инициализации после вызова InitializeComponent()Sub

'Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)disposing ThenNot (components Is Nothing) Then.Dispose()IfIf.Dispose(disposing)Sub

'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer

'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

'Ее можно изменить в конструкторе форм Windows.

'Не изменяйте ее в редакторе исходного текста.

Friend WithEvents Label1 As System.Windows.Forms.LabelWithEvents Label2 As System.Windows.Forms.LabelWithEvents Button3 As System.Windows.Forms.ButtonWithEvents Button5 As System.Windows.Forms.ButtonWithEvents Button4 As System.Windows.Forms.ButtonWithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form17)).Label1 = New System.Windows.Forms.Label.Label2 = New System.Windows.Forms.Label.Button3 = New System.Windows.Forms.Button.Button5 = New System.Windows.Forms.Button.Button4 = New System.Windows.Forms.Button.Button1 = New System.Windows.Forms.Button.SuspendLayout()

''Label1

'Me.Label1.BackColor = System.Drawing.Color.Transparent.Label1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label1.ForeColor = System.Drawing.Color.Red.Label1.Location = New System.Drawing.Point(216, 8).Label1.Name = "Label1".Label1.Size = New System.Drawing.Size(264, 48).Label1.TabIndex = 2.Label1.Text = "Режим Контроль".Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

''Label2

'Me.Label2.BackColor = System.Drawing.Color.Transparent.Label2.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Label2.ForeColor = System.Drawing.Color.Magenta.Label2.Location = New System.Drawing.Point(120, 72).Label2.Name = "Label2".Label2.Size = New System.Drawing.Size(472, 218)

Me.Label2.TabIndex = 3.Label2.Text = " В этом режиме задано три комплексных задания, имеющие не менее двух вариантов в" & _

"ыполнения. При выполнении задания подлежат анализу все варианты решения, при это" & _

"м неправильным считается ответ, не подходящий ни под один вариант выполнения зад" & _

"ания. При первой ошибке контроль прекращается с выводом оценки."

''Button3

'.Button3.BackColor = System.Drawing.Color.GreenYellow.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button3.Location = New System.Drawing.Point(320, 384).Button3.Name = "Button3".Button3.Size = New System.Drawing.Size(136, 40).Button3.TabIndex = 19.Button3.Text = "<< Назад"

''Button5

'Me.Button5.BackColor = System.Drawing.Color.Orange.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button5.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)).Button5.Location = New System.Drawing.Point(184, 384).Button5.Name = "Button5".Button5.Size = New System.Drawing.Size(120, 40).Button5.TabIndex = 17.Button5.Text = "Справка"

''Button4

'Me.Button4.BackColor = System.Drawing.Color.Yellow.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button4.ForeColor = System.Drawing.Color.Blue.Button4.Location = New System.Drawing.Point(24, 384).Button4.Name = "Button4".Button4.Size = New System.Drawing.Size(144, 40).Button4.TabIndex = 16.Button4.Text = "Об авторе"

''Button1

'Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte)).Button1.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte)).Button1.Location = New System.Drawing.Point(472, 384).Button1.Name = "Button1".Button1.Size = New System.Drawing.Size(272, 40).Button1.TabIndex = 15.Button1.Text = "Перейти на контроль"

''Form17

'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13).BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image).ClientSize = New System.Drawing.Size(752, 437).ControlBox = False.Controls.Add(Me.Button3).Controls.Add(Me.Button5).Controls.Add(Me.Button4).Controls.Add(Me.Button1).Controls.Add(Me.Label2).Controls.Add(Me.Label1).Name = "Form17".Text = "контроль".ResumeLayout(False)Sub

#End RegionSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickobj_Form13 As New Form13_Form13.Show()SubSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickObj_Form14 As New Form14_Form14.Show()_Form14.AxWebBrowser1.Navigate(Application.StartupPath + "\СПРАВКА.htm")SubSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form7 As New Form7.Hide()_Form7.PictureBox1.Visible = True_Form7.PictureBox2.Visible = False_Form7.PictureBox3.Visible = False_Form7.PictureBox4.Visible = False_Form7.Show()Sub

End Class