Мультимедийное учебное пособие по дисциплине "Высшая математика" на тему: "Знакомство с системой решения систем линейных уравнений"

 

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ

УКРАИНСКАЯ ИНЖЕНЕРНО-ПЕДАГОГИЧЕСКАЯ АКАДЕМИЯ

КАФЕДРА ИНФОРМАТИКИ И КОМПЬЮТЕРНЫХ ТЕХНОЛОГИЙ








ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

К БАКАЛАВРСКОЙ ДИПЛОМНОЙ РАБОТЕ НА ТЕМУ

«Мультимедийное учебное пособие по дисциплине «Высшая математика»

на тему: Знакомство с системой решения систем линейных уравнений












г. Харьков


УКРАИНСКАЯ ИНЖЕНЕРНО-ПЕДАГОГИЧЕСКАЯ АКАДЕМИЯ

Факультет Радиоэлектроники, электромеханики и компьютерных систем

Специальность (6.010100.36) Профессиональное обучение. Компьютерные технологии в управлении и обучении.

«УТВЕРЖДАЮ»

Зав. кафедрой ______

____________

«2» марта 2005 г.

ЗАДАНИЕ

на бакалаврскую дипломную работу студенту

гр. ДРЭ-К0-1, ___________________

. Тема бакалаврской дипломной работы: «Мультимедийное учебное пособие по дисциплине «Высшая математика» на тему: Знакомство с системой решения систем линейных уравнений »

утверждена приказом по факультету от «12» апреля 2005 г. №

. Срок сдачи студентом законченной дипломной работы

. Исходные данные дипломной работы: 1) образцы товарных обучающих систем;

) содержание тематически близких обучающих систем; 3) материалы лекций по дисциплинам «Технические средства обучения», «Методика профессионального обучения», «Компьютерные технологии в учебном процессе»; 4) сформированные умения прикладного программирования; 5) сведения о технико-экономических и стоимостных показателях из прайс-листов и других источников

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

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

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


РазделКонсультантЗадание выдалЗадание принялПрограммная частьПедагогическая частьЭкономическая частьОхрана труда

Дата выдачи задания «2» марта 2005 г.

Руководитель

Задание принял к исполнению «2» марта 2005 г.

Студент



РЕФЕРАТ


Пояснительная записка содержит 7 разделов, 35 иллюстраций, 21 таблицу и 9 литературных источников.

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

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

Ключевые слова: МУЛЬТИМЕДИЙНОЕ УЧЕБНОЕ ПОСОБИЕ, МУЛЬТИМЕДИЙНАЯ ИНСТРУКЦИЯ, ПЕДАГОГИЧЕСКИЙ СЦЕНАРИЙ, ЭКОНОМИЧЕСКИЕ ПОКАЗАТЕЛИ, ДИДАКТИЧЕСКИЙ ПРОЕКТ, ТЕХНИКА БЕЗОПАСНОСТИ.


СОДЕРЖАНИЕ


Введение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Интерфейс приложения

Методическая часть

Актуальность и необходимость в обучающей программе

Назначение программы

Структура обучающей программы

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

Работа с обучающей программой

Экономическая часть

Расчет сметы затрат на разработку обучающей программы

Расчет затрат

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

Охрана труда

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

Заключение

Список литературы

Приложение А


Введение

мультимедийное учебное пособие уравнение

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

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

Обучение ведется в интерактивном режиме. Система управляет учебным процессом, задаются контрольные вопросы и тестовые задания, ведется статистика учебного процесса.

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

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

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

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

Изображение видео урока в точности повторяет рабочий стол вашего компьютера и наглядно демонстрирует, каким образом использовать те или иные возможности Системы линейных уравнений (СЛУ). Таким образом, вам не потребуются десятки книг, и вы сможете уже через несколько уроков работать с пакетом прикладных программ по дисциплине «Высшая математика» Системы линейных уравнений.

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


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


Предметом разработки является обучающая система «Знакомство с Системой решение систем линейных уравнений».

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

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

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

Исполнитель - ст. гр.

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

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


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


Обучающая система «Знакомство с Системой линейных уравнений» предназначена для изучения программы Система линейных уравнений из пакета прикладных математических программ для изучения математики в ОСШ Украины.


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


Обучающая система «Знакомство с системой решения систем линейных уравнений» должна содержать следующие элементы:

современный Windows-интерфейс, основанный на использовании Меню и других средств выбора информации;

пункт меню Help, содержащий информацию о работе с программой;

пункт меню About (текстовая и звуковая информация об авторе);

графический элемент, размещенный на каждом окне и защищающий авторские права;

информация, представленную в структурированном виде;

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

система поиска двух видов: контекстный поиск, тематический поиск;

контролирующие блоки (не менее 10);

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


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


Условия эксплуатации обучающей системы «Знакомство с системой решения систем линейных уравнений» совпадают с условиями стабильной эксплуатации современных персональных компьютеров.

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

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


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


Для переноса обучающей системы «Знакомство с системой решения систем линейных уравнений» с целью его установки на персональных компьютерах, требуется один диск типа CD-R.

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


Транспортирование обучающей системы «Знакомство с системой решения систем линейных уравнений» целесообразно производить на CD-R, указанных в предыдущем пункте. Хранение следует осуществлять на CD-R.


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


Обучающая система «Знакомство с системой решения систем линейных уравнений» должна сопровождаться следующими документами:

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

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

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

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

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

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

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

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

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

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

обучающая система «Знакомство с системой решения систем линейных уравнений»;

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

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

КАЛЕНДАРНЫЙ ПЛАН


«УТВЕРЖДАЮ» Доцент кафедры ИКТ

_______________________

«2» марта 2005 г.


№ п/пНазвание этапов квалификационной работыСрок выполнения этапов квалификационной работыПримечание1.Уяснение поставленной задачи и оформление задания на квалификационную работу12.Подбор и изучение литературы по тематике квалификационной работы23.Разработка и оформление технического задания на создание программного продукта34.Анализ задачи и выбор методов её решения45.Разработка алгоритма5-66.Разработка и отладка программы97.Оформление пояснительной записки и графического материала108.Подготовка и оформление педагогической части11-159.Подготовка и оформление экономической части11-1510.Подготовка и оформление части по охране труда11-1511.Подготовка к защите1612.Предварительная защита1613.Защита квалификационной работы17Студент


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


Интерфейс приложения.


Кадр 1. Титульный лист


Регистрация - переход на форму регистрации пользователя (Кадр 2).

Методические указания - переход на форму где представлен перечень тем для обучения (кадр 4).

Тестирование - переход на форму для проведения тестирования (кадр 14).

О программе - переход на страничку приветствия пользователя (кадр 26).

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

Нажатие F1 - вызов помощи. (кадр 22)

Развлечения - выбор игр.( кадр 23)


Кадр 2. Регистрация


Удалить- для входа в систему под выбранным пользователя (кадр 1).

Добавить- для открытья формы регистрации (кадр 3).

Ехіt - выход с регистрации.


Кадр 3. «Список тем для обучения»


Призначення програмного середовища - переход на кадр 3

Персоніфікація учня - переход на кадр 4

Електронний задачник - переход на кадр 5

Режим тестування - переход на кадр 6

Варіанти текстових завдань - переход на кадр 7

Генератор завдань - переход на кадр 8

Зошит - переход на кадр 8

Методичні вказівки - переход на кадр 9

Використання програмного забезпечення - - переход на кадр 10

Поиск - позволяет выбрать поиск по контекстный и расширенный

- выход с программы в главное меню (кадр 1)

Видео инструкция - просмотр видео методички (кадр 5).


Кадр 4. Тема «Призначення программного середовища»


Вернуться в тестирование - переход на тестирование (кадр 15)

Поиск- кнопка для поиска тем и данных (кадр 11).

- кнопка выхода в главное меню (кадр 1).


Кадр 5. Тема «Персоніфікація учня»


Поиск - позволяет выбрать поиск по контекстный и расширенный

- выход с программы в главное меню (кадр 1)

Видео инструкция - просмотр видео методички (кадр 10).


Кадр 6. Тема «Електронний задачник»»


Поиск - позволяет выбрать поиск по контекстный и расширенный

- выход с программы в главное меню (кадр 1)

Видео инструкция - просмотр видео методички (кадр 5).


Кадр 7. Тема «Зошит»


Поиск - позволяет выбрать поиск по контекстный и расширенный

- выход с программы в главное меню (кадр 1)

Видео инструкция - просмотр видеометодички (кадр 5).


Кадр 8. Тема «Методичні вказівки»


Поиск - позволяет выбрать поиск по контекстный и расширенный

- выход с программы в главное меню (кадр 1)

Видео инструкция - просмотр видео методички (кадр 5).


Кадр 9. Тема «Використання програмного забезпечення»


Поиск - позволяет выбрать поиск по контекстный и расширенный

- выход с программы в главное меню (кадр 1)

Видео инструкция - просмотр видеометодички (кадр 5).


Кадр 10. Темы с видео обучением


- выход с программы в главное меню (кадр 1)


Кадр 10. Контекстный поиск


Выход - переход на форму с теорией (кадр 9).

Вернутся в обучение - переход на обучение (кадр 9).

Поиск - находит разделы в методичке (кадр 9).

Показать - показывает темы (кадр 9).

Очистить список - очистка списка найденных разделов.


Кадр 11. Расширенный поиск


Выход - переход на форму с теорией (кадр 9).

Вернутся в обучение - переход на обучение (кадр 9).

Поиск - находит разделы в методичке (кадр 12).

Показать - показывает темы (кадр 9).

Очистить список - очистка списка найденных разделов.


Кадр 12. «Результат поиска»


Кадр 13. Тестирование


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

Инструкция пользователя - переход на теоретическое обучение (Кадр 5)

Обнулить - нажимаем после выбора ответа на вопрос (Кадр 23)- просмотр помощи (кадр 24)

Ок - для продолжения теста и получения теста.( Кадр 21 )


Кадр 14. Продолжение тестирования


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

Инструкция пользователя - переход на теоретическое обучение (Кадр 5)

Обнулить - нажимаем после выбора ответа на вопрос (Кадр 23)- просмотр помощи (кадр 24)

Ок - для продолжения теста и получения теста.( Кадр 21 )


Кадр 15. Результат первого вопроса


ОК- для продолжения работы над тестом. (кадр 16)


Кадр 16. Справочная информация


вернуться в тестирование (кадр 14)


Кадр 17. Просмотр тем


вернуться в тестирование (кадр 14)


Кадр 18. Результаты тестирования

- для перехода на основную форму тестирования. (кадр 14)


Кадр 19. Информация об оценке


Ок-переход на следующий вопрос.


Кадр 20. Информация о программе


Выход в меню - выходит на главную форму (Кадр 1)


Кадр 21. Информация о разработчике»


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


Кадр 22.Окно анимационного сообщения о разработчике


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


Кадр 23. Выбор игр


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


Кадр 24. Игра «15»


Файл - для активизации меню игры


Кадр 25. Игра «Сапер»


Файл - для активизации меню игры



Методическая часть


Актуальность и необходимость в обучающей программе


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

Обучение ведется в интерактивном режиме. Система управляет учебным процессом, задаются контрольные вопросы и тестовые задания, ведется статистика учебного процесса.

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


Назначение программы


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

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

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

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


Структура обучающей программы

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



Работа с обучающей программой


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



Для просмотра цели и задачи данного обучающего диска в меню выбираем команду «О программе».



Для начало обучения в главном меню выбираем «Методические указании инструкция пользователя».

Нажав на кнопку «Методические указании инструкция пользователя» перед вами появится список Глав.. После просмотра текста можно просмотреть и видео нажав на кнопку «Видео обучение» где Вам предлагается список видео уроков или Вы можете выйти в «СОДЕРЖАНИЕ» или в «ГЛАВНОЕ МЕНЮ».



Для интересующей пользователя темы надо воспользоваться «ПОИСКОМ». После чего в окне появится список тем выбранные пользователем. Двойным щелчком ЛКМ нажав на данную тему можно перейти в главный список, где находится эта тема.



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


Пользователь также может просмотреть свои результаты после прохождения и получить свою оценку «ТЕСТИРОВАНИЯ». Также может вызывать помощь кнопкой „F1 и пройти таким образом тест.



Для просмотра автора программы нажмите на фамилию и имя в нижней части окна. В появившемся окне появится фотография



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

Экономическая часть


Расчет сметы затрат на разработку обучающей программы


Расчет сметы затрат на разработку обучающей программных калькуляций по отдельным статьям расходов всех видов необходимых ресурсов, приведенных в таблица 1


Таблица 1.

Статья расходовСумма, грнПримечание1.Материалы3338,5Таблица 22.Специалбное оборудование3967,5Таблица 33.Основная и дополнительная заработная плата персонала1487,8Таблица 44.Отчисление на социальные мероприятия837,5% от п.35.Расходы электроэнергии8Формула 3,16.Наклкдные расходы991,825% от п.3Всего:9864,6

Расчет стоимости основных материалов, необходимых для выполнения обучающий программе, приведен в таблице 3, а расчет затрат на специальное оборудование приведен в таблице 3

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

Расчет затрат на потребляемую электроэнергию производится по формуле:


Sэл = Рпотр * Фраб * Цэл(3.1) Где, Рпотр - потребляемая мощность ПК;

Фраб - фонд рабочего времени, затрачиваемого на разработку программ (Фраб = 200 ч. );

Цэл - стоимость кВт \ ч.

Подставив соответствующие значения, получаем


Таблица 2. Расчет стоимости основных материалов.

Наименование материаловЕдиницы измеренияКоличествоЦена за единицу т, грн.Сумма, грн.Наименование материаловЛист2000,036Бумага для принтераЛист3000,0515Бумага для ксероксаЛист500,210Канцелярские принадлежностиШт15Диски для ПКШт42,5010Прочие материалы15Итого:71эл = 0,25*200*0,16 = 8 грн.


Таблица 3.Расчет затрат на спецоборудование

Наименование оборудованияЕдиници измеренияКоличествоЦена за единицу, грнСумма, грн1.Персональный компьютерШт12000 (1)20002.Компакт диск с программойШт135353.Приптер лазерных «Samsung»Шт110001000Итого:3035Расходы на доставку и установку оборудования (10%)303,5Всего3338,5

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

С=(С*Н) / 100


Теперь подставим числа


С = 3967,5*0,4 = 1587 грн.


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


Таблица 4 Расчет затрат на оплату труда.

ДолжностьКоличество, штСрок работы, месяцДолжностной оклад, грнСумма грн., месяц1.Руководитель группы133009001.научные сотрудники2335010503.Программист135001500Итого:3450Дополнительна з\п (15%)517.5Всего:3967.5

Расчет затрат на тиражирование методических указаний


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


Таблица 5 Статьи затрат.

Статьи затратСумма, грнПримечания1.Материалы71Таблица 3.62.Затрары на оплату труда младшего специалиста315,503.Отлчисления на социальные мероприятиях118,1337% от п.24.Электроэнергия0,485.Накладные расходы126,240% от п.2Всего:631,31

Расчет затрат


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


Таблица 6 Расчет затрат материалов.

Наименование материаловЕдиницы измеренияКоличествоЦена за единицу, грнСумма, грн1.Диски для ПКШт1202,50300Итого:300

Затраты на электроэнергию рассчитываются по формуле (3.1)

=0,25*12*0,16=0,48 грн.


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

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


Охрана труда


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


Вопросы охраны труда будут рассматриваться для учебного заведения УИПА, конкретно, для рабочего места в 213 аудитории, 4-ого корпуса. В данной аудитории проходят занятия по следующим предметам: «Исследование операций», «Компьютерное документоведение», «Программирование», «Компьютерные технологии в управлении и обучении», «Автоматизированные системы организационного управления» и др.

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

Краткая характеристика помещения:

Площадь = 48 м2

Объем = 27 м3

Освещение:

естественное: боковое, одностороннее

искусственное: общее, равномерное

Вентиляция: функционируют воздуховодные каналы, наличие двух функционирующих кондиционеров БК2000, естественная вентиляция: инфильтрация и проветривание.

Отопление: централизованное, водяное.

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

запыленность воздуха рабочей зоны;

повышенная или пониженная температура воздуха рабочей зоны;

повышенный уровень шума, электромагнитных излучений;

пониженная влажность воздуха, повышенная ионизация;

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

Город Харьков находится в 4-м световом поясе в зоне с неустойчивым снежным покровом.

Размером объектом расчета является толщина линии приблизительно 0,2 мм.

Согласно СНиП ІІ-4-79 характеристика зрительной работы - высокой точности, характеристика световой контраст объект различения с фоном - подразряд зрительной работы - Г

В помещении осуществляется боковое естественное освещение

Значение КЕО для Харькова


еІV = еІІІ с*m


где с = 0.9 - Коэффициент светового пояса.= 0.75 - Коэффициент солнечности климата для восприятия ориентирования окон.

Значения коэффициентов взяли из СНиП ІІ-4-79.

В аудитории постоянно используется искусственное общее освещение

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

Требуемое значение освещенности согласно характеристики зрительной работы Ен = 300 ЛК.

Произведем расчет искусственного освещения в аудитории 213 4-го корпуса методом коэффициентов использования по методичке приведенной в таблице [7].


Дано:Принятые обозначения:Высота рабочей поверхности Толщина объекта различения Освещаемая площадь Высота помещения Длина помещения Ширина помещения Заданная минимальная освещенность. Коэффициент запаса Коэффициент использования светового потока в долях единицыhр = 0,8 м d = 0,3 мм S = 48 м2 H = 4,5 м A = 8 м B = 6 м E= 300 лк k=1.5 = 0,84

Для данного помещения можно выбрать люминесцентные лампы т.к. высота помещения не превышает 6-ти метров.

В зависимости от выполняемых работ для данного помещения

Выбрали [Таблица 3, 1]:=1.5 , E= 300 лк

По условиям окружающей среды подобрали светильник ЛСП02 [1].

Выбранный светильник имеет кривую светораспределения типа Д-2, для которой = 0,96 [Табл. 7, 2].

Значения коэффициентов отражения стен и потолка [Табл. 3, 2]:пот=70% Sстен=50% Sр=10%

Принимаем hс=0.

Определим:

= H - hр - hс = 4,5 - 0 - 0,8 = 3,7 м


Расстояние между соседними светильниками определим по формуле:

= h* = 3.2*0.96 = 3.6 м


Для определения табличного значения коэффициента использования светового потока находится индекс помещения i :

i = = = 48/59.2 = 0,81


Выбираем из таблицы 2 [2]

=0.84

Определим число светильников расположенных вдоль помещения:


х*(L+1.5) = 9

*(3.6+1.5) = 9*5.1 = 9= 8/5.1 = 2 шт

Определим число светильников расположенных по ширине помещения:

*L = 7

*3.6 = 7= 6/3.6 = 2 шт

Определим количество светильников:

в= x*y = 2*2 = 4 шт


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


Ф=

Е=k*S*z / N*


Ф=7071,42


Ф = Ф/2 = 7071,42/2 = 3535,71 лк


Выбираем из приложения 7 [2] лампу типа ЛТБ мощностью 80Вт со стандартным световым потоком: Фст = 4440 лн.


Для аудитории 213 необходимо установить 4 светильника с люминесцентными лампами по 2 шт. в каждом мощностью 80Вт типа ЛТБ в соответствии со схемой 3.


Схема 3. Расположение люминесцентных ламп в аудитории 213.



Заключение


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

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

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

В мультимедийном пособии «Знакомство с системой решения систем линейных уравнений» Учащемся предложено выполнить 17 упражнение, которые объединены в 8 уроков: в конце каждого упражнения учащегося ожидает промежуточное обучение принципу «Выбери правильный ответ». По результатам тестирования выставляется оценка, а также даются рекомендации - идти дальше или повторить пройденный урок.

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

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

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


Список литературы


Дипломное проектирование. Методические указания по экономическому обоснованию дипломных проектов для студентов дневной и заочной формы обучения специальностей 7.0110101, 7.01010405, 7.01010429, 7.092203, 7.091401. - Харьков, УИПА, 1998.

Методичні вказівки з економічного обґрунтування дипломних проектів для студентів електромеханічного факультету. - Харків, УІПА, 2003 - 40 стор.

Методические указания по выполнению раздела «Охрана труда и окружающей среды» в дипломных проектах (специальности: 7.090601, 7.090603, 7.090501, 7.090503, 7.050201, 7.092201, 7.01010101).

Указания по выполнению методической части дипломного проекта специальности 7.01010101. - Харьков, УИПА, 1996.

Методические Указания к Бакалаврскому проекту Харьков, УИПА, 1996.Basic 6.0 Издательство Питер - С.П. 2004 680 стр.

СНИП II - 4 - 79 Естественное и искусственное освещение.

Методические указания по расчету искусственного освещения промышленных помещений в разделе «Охрана труда и окружающей среды» - Грицай А.К., Головченко Г.Т. - 1986 г.

Методические указания по дипломному проектированию. Раздел «Охрана труда» для инженерных и инженерно- педагогических специальностей \ сост. Смирнитская М.Б. Харьков: УИПА 2005-20 ст.




Приложение А

Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single).ForeColor = vbBlue.ForeColor = vbBlue.ForeColor = vbBlue.ForeColor = vbBlue.ForeColor = vbBlueSubSub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single).ForeColor = vbGreenSubSub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single).ForeColor = vbGreenSubSub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single).ForeColor = vbGreenSubSub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single).ForeColor = vbGreenSubSub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single).ForeColor = vbGreenSub

Форма 9Sub Label2_Click().Show.MediaPlayer1.FileName = "D:/1/clip0010.avi".MediaPlayer2.FileName = "D:/2/1.wav".ForeColor = vbRedSubSub Label3_Click().Show.MediaPlayer1.FileName = "D:/1/clip0008.avi".MediaPlayer2.FileName = "D:/2/regum.wav".ForeColor = vbRedSubSub Label4_Click().Show.MediaPlayer1.FileName = "D:/1/робоче мысце учня.avi".MediaPlayer2.FileName = "D:/2/zowut.wav".ForeColor = vbRedSubSub Label5_Click().Show.MediaPlayer1.FileName = "D:/1/clip0010.avi".MediaPlayer2.FileName = "D:/2/zowut.wav".ForeColor = vbRedSubSub Label6_Click().Show.MediaPlayer1.FileName = "D:/1/Регистрация.avi".ForeColor = vbRedSubSub Label7_Click().Show.MediaPlayer1.FileName = "D:/1/k.avi".MediaPlayer2.FileName = "D:/2/generator.wav".ForeColor = vbRedSub

ф4Sub Command1_Click().ShowSubSub Form_Load()SubSub Label1_Click().ShowSub

литSub Command1_Click(Index As Integer).ShowMeSubSub Command3_Click()

Лит.ShowSubSub Form_Load().Text = ""SubSub Command2_Click().ShowSubSub Label1_Click(Index As Integer)App.Path & "\Text\1.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1(1).ForeColor = vbRedSubSub Label10_Click()App.Path & "\Text\4.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1.ForeColor = vbRedSubSub Label11_Click().ShowSubSub Label2_Click(Index As Integer)App.Path & "\Text\2.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1(1).ForeColor = vbRedSubSub Label3_Click(Index As Integer)App.Path & "\Text\3.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1(1).ForeColor = vbRedSubSub Label4_Click(Index As Integer)App.Path & "\Text\4.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1(1).ForeColor = vbRedSubSub Label5_Click(Index As Integer)App.Path & "\Text\7.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1(1).ForeColor = vbRedSubSub Label6_Click(Index As Integer)App.Path & "\Text\6.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1(1).ForeColor = vbRedSubSub Label7_Click()App.Path & "\Text\8.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1.ForeColor = vbRedSubSub Label8_Click()App.Path & "\Text\5.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1.ForeColor = vbRedSubSub Label9_Click()App.Path & "\Text\9.txt" For Input As #1#1, a1

Лит.Text1.Text = a1#1.ForeColor = vbRedSub

ф тестирn As Integermark As Integerx As Integerk As IntegerSub Command1_Click()Option2.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = TrueSubSub Command2_Click()Option5.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = TrueSubSub Command3_Click()Option8.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = TrueSubSub Command4_Click()Option10.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = TrueSubSub Command5_Click()Option14.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = TrueSubSub Command6_Click()Option17.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = TrueSubSub Command7_Click()Option20.Value = True Then"Ответ Верен"

n = n + 1"Ответ неверен"

k = k + 1If.Visible = True

st = "Правильных ответов - " + Str(n) + Chr(10) + Chr(13) + "Неправильных ответов - " + Str(k)

x = MsgBox(st, vbInformation, "РЕЗУЛЬТАТ")= Int(n * (5 / 3))= MsgBox(Str(mark), vbInformation, "ОЦЕНКА")SubSub Command8_Click()

Лит.ShowSubSub Command9_Click()= 0= 0SubSub tomain_Click().Show.Hide= 0= 0.Visible = False.Visible = False.Visible = False.Visible = False.Visible = False.Visible = False.Visible = TrueSub

ф поискSub cmd_clear__Click().ClearSubSub cmd_clear_Click()_txt.ClearSubSub cmdsearch_con_Click()o(1 To 10) As Stringc(1 To 10) As Stringm As Integerl As Integerk As Stringword As Stringword1 As Stringogl As String.Clear(1) = Лит.Label1(1).Caption(2) = Лит.Label2(1).Caption(3) = Лит.Label3(1).Caption(4) = Лит.Label4(1).Caption(5) = Лит.Label5(1).Caption(6) = Лит.Label6(1).Caption(7) = Лит.Label7.Caption(8) = Лит.Label8.Caption(9) = Лит.Label9.Caption(10) = Лит.Label10.Caption(1) = "1.txt"(2) = "2.txt"(3) = "3.txt"(4) = "4.txt"(5) = "5.txt"(6) = "6.txt"(7) = "7.txt"(8) = "8.txt"(9) = "9.txt"(10) = "10.txt"Flag As Booleanflag1 As Boolean= LCase(Trim(txtsearch_con.Text))= UCase(Trim(txtsearch_con.Text))l = 1 To 10= App.Path & "\Text + o(l)= Falsek For Input As #1While Not EOF(1)Input #1, a= c(l)= FalseInStr(a, word) > 0 Then= TrueIfFlag = True Then.AddItem ogl#1k For Input As #1While Not EOF(1)#1, a1

Лит.Text1.Text = a1

Лит.ShowIf#1l_con.SetFocus_con.SelStart = 0_con.SelLength = Len(txtsearch_con)SubSub cmdsearch_ogl_Click()c(1 To 10) As Stringl As Integerword1 As Stringword2 As Stringogl_ As Stringogl1 As String_txt.Clear(1) = Лит.Label1(1).Caption(2) = Лит.Label2(1).Caption(3) = Лит.Label3(1).Caption(4) = Лит.Label4(1).Caption(5) = Лит.Label5(1).Caption(6) = Лит.Label6(1).Caption(7) = Лит.Label7.Caption(8) = Лит.Label8.Caption(9) = Лит.Label9.Caption(10) = Лит.Label10.Caption= LCase(Trim(txtsearch_ogl.Text))= LCase(Trim(txtsearch_ogl.Text))l = 1 To 10_ = LCase(Trim(c(l)))= c(l)InStr(ogl_, word1) > 0 Or InStr(ogl_, word2) > 0 Then_txt.AddItem ogl1Ifl.Showl = 1 To 10ogl_txt.Text = c(l) Then

'frmmain.lbltext1.ForeColor = vbWhiteIfl_ogl.SetFocus_ogl.SelStart = 0_ogl.SelLength = Len(txtsearch_ogl)SubSub cmdshow__Click()x(1 To 10) As Stringq(1 To 10) As Stringa As String

Лит.Label1(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = False

Лит.Text1.Text = ""(1) = Лит.Label1(1).Caption(2) = Лит.Label2(1).Caption(3) = Лит.Label3(1).Caption(4) = Лит.Label4(1).Caption(5) = Лит.Label5(1).Caption(6) = Лит.Label6(1).Caption(7) = Лит.Label7.Caption(8) = Лит.Label8.Caption(9) = Лит.Label9.Caption(10) = Лит.Label10.Captioncon.SelCount Then= con.TextIfl = 1 To 10a = x(l) Then

Лит.Show

'frmmain.shapetext.Visible = True(1) = Лит.Label1(1)x(l) = q(1) Then

Лит.Label1(1).Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = False

If(2) = Лит.Label2(1)x(l) = q(2) Then

Лит.Label1(1).Visible = False

Лит.Label2(1).Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(3) = Лит.Label3(1)x(l) = q(3) Then

Лит.Label1(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = True

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(4) = Лит.Label4(1)x(l) = q(4) Then

Лит.Label1(1).Visible = False

Лит.Label4(1).Visible = True

Лит.Label3(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = False

If(5) = Лит.Label5(1)x(l) = q(5) Then

Лит.Label1(1).Visible = False

Лит.Label5(1).Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(6) = Лит.Label6(1)x(l) = q(6) Then

Лит.Label1(1).Visible = False

Лит.Label6(1).Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(7) = Лит.Label7x(l) = q(7) Then

Лит.Label1(1).Visible = False

Лит.Label7.Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(8) = Лит.Label8x(l) = q(8) Then

Лит.Label1(1).Visible = False

Лит.Label8.Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label2(1).Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(9) = Лит.Label9x(l) = q(9) Then

Лит.Label1(1).Visible = False

Лит.Label9.Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label2(1).Visible = False

Лит.Label10.Visible = FalseIf(10) = Лит.Label10x(l) = q(10) Then

Лит.Label1(1).Visible = False

Лит.Label10.Visible = True

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label2(1).Visible = FalseIfIflSub

Sub cmdshow_Click()x(1 To 10) As Stringq(1 To 10) As Stringa As String

Лит.Label1(1).Visible = False

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = False

Лит.Text1.Text = ""(1) = Лит.Label1(1).Caption(2) = Лит.Label2(1).Caption(3) = Лит.Label3(1).Caption(4) = Лит.Label4(1).Caption(5) = Лит.Label5(1).Caption(6) = Лит.Label6(1).Caption(7) = Лит.Label7.Caption(8) = Лит.Label8.Caption(9) = Лит.Label9.Caption(10) = Лит.Label10.Captionogl_txt.SelCount Then= ogl_txt.TextIfl = 1 To 10a = x(l) Then

Лит.Show

'frmmain.shapetext.Visible = True(1) = Лит.Label1(1)x(l) = q(1) Then

Лит.Label1(1).Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = False

If(2) = Лит.Label2(1)x(l) = q(2) Then

Лит.Label2(1).Visible = True

Лит.Label1(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(3) = Лит.Label3(1)x(l) = q(3) Then

Лит.Label3(1).Visible = True

Лит.Label2(1).Visible = False

Лит.Label1(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(4) = Лит.Label4(1)x(l) = q(4) Then

Лит.Label4(1).Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label1(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(5) = Лит.Label5(1)x(l) = q(5) Then

Лит.Label5(1).Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label1(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(6) = Лит.Label6(1)x(l) = q(6) Then

Лит.Label6(1).Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label1(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(7) = Лит.Label7x(l) = q(7) Then

Лит.Label7.Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label1(1).Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(8) = Лит.Label8x(l) = q(8) Then

Лит.Label8.Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label1(1).Visible = False

Лит.Label9.Visible = False

Лит.Label10.Visible = FalseIf(9) = Лит.Label9x(l) = q(9) Then

Лит.Label9.Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label1(1).Visible = False

Лит.Label10.Visible = FalseIf(10) = Лит.Label10x(l) = q(10) Then

Лит.Label10.Visible = True

Лит.Label2(1).Visible = False

Лит.Label3(1).Visible = False

Лит.Label4(1).Visible = False

Лит.Label5(1).Visible = False

Лит.Label6(1).Visible = False

Лит.Label7.Visible = False

Лит.Label8.Visible = False

Лит.Label9.Visible = False

Лит.Label1(1).Visible = FalseIfIflSubSub Command1_Click().ShowMeSubSub Command2_Click()

Лит.ShowMeSubSub Form_Load()Sub

ф 7 о автореfW As Integer, fH As Integer ' ширина и высота картинкиx As Integer, y As IntegerSub Command1_Click().Show

HideSub

' инициализация формы

Private Sub Form_Initialize().Visible = False.AutoSize = True.Picture = LoadPicture(CurDir + "\6.bmp")= Picture2.Width= Picture2.Height.Width = Form1.Width + Picture2.Width - Picture1.Width.Width = Picture2.Width= 0= 0.Interval = 50.Enabled = True

End Sub


' обработка сигнала таймера

Private Sub Timer1_Timer()= y + 10

' вывод части Picture1 в Picture2.PaintPicture Picture2.Picture, _

x, -y

' если выведенная часть картинки не полностью

' покрывает область вывода (Picture2), дорисовываем

' верхнюю часть картинки снизуy + Picture1.ScaleHeight >= Picture2.ScaleHeight Then.PaintPicture Picture2.Picture, _

, -y + Picture2.ScaleHeightIfy >= Picture2.ScaleHeight Then y = 0Sub

фрм анимfW As Integer, fH As Integer ' ширина и высота картинкиx As Integer, y As Integer

' щелчок на кнопке OkSub Command1_Click().ShowSubSub Command2_Click().ShowSub

' инициализация формыSub Form_Initialize().Visible = False.AutoSize = True.Picture = LoadPicture(CurDir + "\5.bmp")= Picture2.Width= Picture2.Height.Height = Form1.Height + Picture2.Height - _.Height.Top = Command1.Top + Picture2.Height - _.Height.Height = Picture2.Height= 0= 0.Interval = 50.Enabled = True

End Sub

' обработка сигнала таймера

Private Sub Timer1_Timer()= x + 40

' вывод части Picture1 в Picture2.PaintPicture Picture2.Picture, _

x, -y

' если выведенная часть картинки не полностью

' покрывает область вывода (Picture2), дорисовываем

' часть картинки рядом справаx + Picture1.ScaleWidth >= Picture2.ScaleWidth Then.PaintPicture Picture2.Picture, _

x + Picture2.ScaleWidth, -yIfx >= Picture2.Width Then x = 0

End Sub



МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ УКРАИНСКАЯ ИНЖЕНЕРНО-ПЕДАГОГИЧЕСКАЯ АКАДЕМИЯ КАФЕДРА ИНФОРМАТИКИ И КОМПЬЮТЕРНЫХ ТЕХНОЛОГИЙ

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ