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

Размещено на http://www.allbest.ru

Размещено на http://www.allbest.ru

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

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

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

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

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

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

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

г. Харьков

2005

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

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

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

«УТВЕРЖДАЮ»

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

____________

«2» марта 2005 г.

ЗАДАНИЕ

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

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

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

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

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

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

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

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.	Уяснение поставленной задачи и оформление задания на квалификационную работу	1
2.	Подбор и изучение литературы по тематике квалификационной работы	2
3.	Разработка и оформление технического задания на создание программного продукта	3
4.	Анализ задачи и выбор методов её решения	4
5.	Разработка алгоритма	5-6
6.	Разработка и отладка программы	9
7.	Оформление пояснительной записки и графического материала	10
8.	Подготовка и оформление педагогической части	11-15
9.	Подготовка и оформление экономической части	11-15
10.	Подготовка и оформление части по охране труда	11-15
11.	Подготовка к защите	16
12.	Предварительная защита	16
13.	Защита квалификационной работы	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)

F1 - просмотр помощи (кадр 24)

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

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

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

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

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

F1 - просмотр помощи (кадр 24)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

Таблица 1.

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

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

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

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

Sэл = Рпотр * Фраб * Цэл	(3.1)

Где, Рпотр - потребляемая мощность ПК;

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

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

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

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

Наименование материалов	Единицы измерения	Количество	Цена за единицу т, грн.	Сумма, грн.
Наименование материалов	Лист	200	0,03	6
Бумага для принтера	Лист	300	0,05	15
Бумага для ксерокса	Лист	50	0,2	10
Канцелярские принадлежности	Шт			15
Диски для ПК	Шт	4	2,50	10
Прочие материалы				15
Итого:	71

Sэл = 0,25*200*0,16 = 8 грн.

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

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

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

С=(С*Н) / 100

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

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

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

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

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

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

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

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

Статьи затрат	Сумма, грн	Примечания
1.Материалы	71	Таблица 3.6
2.Затрары на оплату труда младшего специалиста	315,50
3.Отлчисления на социальные мероприятиях	118,13	37% от п.2
4.Электроэнергия	0,48
5.Накладные расходы	126,2	40% от п.2
Всего:	631,31

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

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

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

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

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

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

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

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

Охрана труда

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

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

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

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

Площадь = 48 м2

Объем = 27 м3

Освещение:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

еІV = еІІІ с*m

где с = 0.9 - Коэффициент светового пояса.

m = 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]:

k=1.5 , E= 300 лк

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

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

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

Sпот=70% Sстен=50% Sр=10%

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

Определим:

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

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

L = h* = 3.2*0.96 = 3.6 м

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

i = = = 48/59.2 = 0,81

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

=0.84

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

х*(L+1.5) = 9

x*(3.6+1.5) = 9

x*5.1 = 9

x = 8/5.1 = 2 шт

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

y*L = 7

y*3.6 = 7

y = 6/3.6 = 2 шт

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

Ncв= 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.

Visual Basic 6.0 Издательство Питер - С.П. 2004 680 стр.

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

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

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

Приложение А

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label4.ForeColor = vbBlue

Label1.ForeColor = vbBlue

Label2.ForeColor = vbBlue

Label5.ForeColor = vbBlue

Label6.ForeColor = vbBlue

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label1.ForeColor = vbGreen

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label2.ForeColor = vbGreen

End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label4.ForeColor = vbGreen

End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label5.ForeColor = vbGreen

End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label6.ForeColor = vbGreen

End Sub

Форма 9

Private Sub Label2_Click()

Form9.Show

Hide

Form9.MediaPlayer1.FileName = "D:/1/clip0010.avi"

Form9.MediaPlayer2.FileName = "D:/2/1.wav"

Label2.ForeColor = vbRed

End Sub

Private Sub Label3_Click()

Form9.Show

Hide

Form9.MediaPlayer1.FileName = "D:/1/clip0008.avi"

Form9.MediaPlayer2.FileName = "D:/2/regum.wav"

Label3.ForeColor = vbRed

End Sub

Private Sub Label4_Click()

Form9.Show

Hide

Form9.MediaPlayer1.FileName = "D:/1/робоче мысце учня.avi"

Form9.MediaPlayer2.FileName = "D:/2/zowut.wav"

Label4.ForeColor = vbRed

End Sub

Private Sub Label5_Click()

Form9.Show

Hide

Form9.MediaPlayer1.FileName = "D:/1/clip0010.avi"

Form9.MediaPlayer2.FileName = "D:/2/zowut.wav"

Label5.ForeColor = vbRed

End Sub

Private Sub Label6_Click()

Form9.Show

Hide

Form9.MediaPlayer1.FileName = "D:/1/Регистрация.avi"

Label6.ForeColor = vbRed

End Sub

Private Sub Label7_Click()

Form9.Show

Hide

Form9.MediaPlayer1.FileName = "D:/1/k.avi"

Form9.MediaPlayer2.FileName = "D:/2/generator.wav"

Label7.ForeColor = vbRed

End Sub

ф4

Private Sub Command1_Click()

Form1.Show

Hide

End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()

Form8.Show

Hide

End Sub

лит

Private Sub Command1_Click(Index As Integer)

Form1.Show

Unload Me

End Sub

Private Sub Command3_Click()

Лит.Show

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Private Sub Command2_Click()

frmsearch.Show

End Sub

Private Sub Label1_Click(Index As Integer)

Open App.Path & "\Text\1.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label1(1).ForeColor = vbRed

End Sub

Private Sub Label10_Click()

Open App.Path & "\Text\4.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label10.ForeColor = vbRed

End Sub

Private Sub Label11_Click()

Form3.Show

Hide

End Sub

Private Sub Label2_Click(Index As Integer)

Open App.Path & "\Text\2.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label2(1).ForeColor = vbRed

End Sub

Private Sub Label3_Click(Index As Integer)

Open App.Path & "\Text\3.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label3(1).ForeColor = vbRed

End Sub

Private Sub Label4_Click(Index As Integer)

Open App.Path & "\Text\4.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label4(1).ForeColor = vbRed

End Sub

Private Sub Label5_Click(Index As Integer)

Open App.Path & "\Text\7.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label5(1).ForeColor = vbRed

End Sub

Private Sub Label6_Click(Index As Integer)

Open App.Path & "\Text\6.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label6(1).ForeColor = vbRed

End Sub

Private Sub Label7_Click()

Open App.Path & "\Text\8.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label7.ForeColor = vbRed

End Sub

Private Sub Label8_Click()

Open App.Path & "\Text\5.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label8.ForeColor = vbRed

End Sub

Private Sub Label9_Click()

Open App.Path & "\Text\9.txt" For Input As #1

Input #1, a1

Лит.Text1.Text = a1

Close #1

Label9.ForeColor = vbRed

End Sub

ф тестир

Dim n As Integer

Dim mark As Integer

Dim x As Integer

Dim k As Integer

Private Sub Command1_Click()

If Option2.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame2.Visible = True

End Sub

Private Sub Command2_Click()

If Option5.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame3.Visible = True

End Sub

Private Sub Command3_Click()

If Option8.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame4.Visible = True

End Sub

Private Sub Command4_Click()

If Option10.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame5.Visible = True

End Sub

Private Sub Command5_Click()

If Option14.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame6.Visible = True

End Sub

Private Sub Command6_Click()

If Option17.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame7.Visible = True

End Sub

Private Sub Command7_Click()

If Option20.Value = True Then

MsgBox "Ответ Верен"

n = n + 1

Else

MsgBox "Ответ неверен"

k = k + 1

End If

Frame7.Visible = True

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

x = MsgBox(st, vbInformation, "РЕЗУЛЬТАТ")

mark = Int(n * (5 / 3))

x = MsgBox(Str(mark), vbInformation, "ОЦЕНКА")

End Sub

Private Sub Command8_Click()

Лит.Show

Hide

End Sub

Private Sub Command9_Click()

n = 0

k = 0

End Sub

Private Sub tomain_Click()

Form1.Show

frmtest.Hide

n = 0

k = 0

Frame2.Visible = False

Frame3.Visible = False

Frame4.Visible = False

Frame5.Visible = False

Frame6.Visible = False

Frame7.Visible = False

Frame1.Visible = True

End Sub

ф поиск

Private Sub cmd_clear__Click()

con.Clear

End Sub

Private Sub cmd_clear_Click()

ogl_txt.Clear

End Sub

Private Sub cmdsearch_con_Click()

Dim o(1 To 10) As String

Dim c(1 To 10) As String

Dim m As Integer

Dim l As Integer

Dim k As String

Dim word As String

Dim word1 As String

Dim ogl As String

con.Clear

c(1) = Лит.Label1(1).Caption

c(2) = Лит.Label2(1).Caption

c(3) = Лит.Label3(1).Caption

c(4) = Лит.Label4(1).Caption

c(5) = Лит.Label5(1).Caption

c(6) = Лит.Label6(1).Caption

c(7) = Лит.Label7.Caption

c(8) = Лит.Label8.Caption

c(9) = Лит.Label9.Caption

c(10) = Лит.Label10.Caption

o(1) = "1.txt"

o(2) = "2.txt"

o(3) = "3.txt"

o(4) = "4.txt"

o(5) = "5.txt"

o(6) = "6.txt"

o(7) = "7.txt"

o(8) = "8.txt"

o(9) = "9.txt"

o(10) = "10.txt"

Dim Flag As Boolean

Dim flag1 As Boolean

word = LCase(Trim(txtsearch_con.Text))

word1 = UCase(Trim(txtsearch_con.Text))

For l = 1 To 10

k = App.Path & "\Text\" + o(l)

Flag = False

Open k For Input As #1

Do While Not EOF(1)

Line Input #1, a

ogl = c(l)

flag1 = False

If InStr(a, word) > 0 Then

Flag = True

End If

Loop

If Flag = True Then

con.AddItem ogl

Close #1

Open k For Input As #1

Do While Not EOF(1)

Input #1, a1

Лит.Text1.Text = a1

Loop

Лит.Show

End If

Close #1

Next l

txtsearch_con.SetFocus

txtsearch_con.SelStart = 0

txtsearch_con.SelLength = Len(txtsearch_con)

End Sub

Private Sub cmdsearch_ogl_Click()

Dim c(1 To 10) As String

Dim l As Integer

Dim word1 As String

Dim word2 As String

Dim ogl_ As String

Dim ogl1 As String

ogl_txt.Clear

c(1) = Лит.Label1(1).Caption

c(2) = Лит.Label2(1).Caption

c(3) = Лит.Label3(1).Caption

c(4) = Лит.Label4(1).Caption

c(5) = Лит.Label5(1).Caption

c(6) = Лит.Label6(1).Caption

c(7) = Лит.Label7.Caption

c(8) = Лит.Label8.Caption

c(9) = Лит.Label9.Caption

c(10) = Лит.Label10.Caption

word1 = LCase(Trim(txtsearch_ogl.Text))

word2 = LCase(Trim(txtsearch_ogl.Text))

For l = 1 To 10

ogl_ = LCase(Trim(c(l)))

ogl1 = c(l)

If InStr(ogl_, word1) > 0 Or InStr(ogl_, word2) > 0 Then

ogl_txt.AddItem ogl1

End If

Next l

frmsearch.Show

For l = 1 To 10

If ogl_txt.Text = c(l) Then

'frmmain.lbltext1.ForeColor = vbWhite

End If

Next l

txtsearch_ogl.SetFocus

txtsearch_ogl.SelStart = 0

txtsearch_ogl.SelLength = Len(txtsearch_ogl)

End Sub

Private Sub cmdshow__Click()

Dim x(1 To 10) As String

Dim q(1 To 10) As String

Dim a 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 = ""

x(1) = Лит.Label1(1).Caption

x(2) = Лит.Label2(1).Caption

x(3) = Лит.Label3(1).Caption

x(4) = Лит.Label4(1).Caption

x(5) = Лит.Label5(1).Caption

x(6) = Лит.Label6(1).Caption

x(7) = Лит.Label7.Caption

x(8) = Лит.Label8.Caption

x(9) = Лит.Label9.Caption

x(10) = Лит.Label10.Caption

If con.SelCount Then

a = con.Text

End If

For l = 1 To 10

If a = x(l) Then

Лит.Show

'frmmain.shapetext.Visible = True

q(1) = Лит.Label1(1)

If 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

End If

Refresh

q(2) = Лит.Label2(1)

If 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 = False

End If

Refresh

q(3) = Лит.Label3(1)

If 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 = False

End If

Refresh

q(4) = Лит.Label4(1)

If 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

End If

Refresh

q(5) = Лит.Label5(1)

If 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 = False

End If

Refresh

q(6) = Лит.Label6(1)

If 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 = False

End If

Refresh

q(7) = Лит.Label7

If x(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 = False

End If

Refresh

q(8) = Лит.Label8

If x(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 = False

End If

Refresh

q(9) = Лит.Label9

If x(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 = False

End If

Refresh

q(10) = Лит.Label10

If x(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 = False

End If

Refresh

End If

Next l

End Sub

Private Sub cmdshow_Click()

Dim x(1 To 10) As String

Dim q(1 To 10) As String

Dim a 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 = ""

x(1) = Лит.Label1(1).Caption

x(2) = Лит.Label2(1).Caption

x(3) = Лит.Label3(1).Caption

x(4) = Лит.Label4(1).Caption

x(5) = Лит.Label5(1).Caption

x(6) = Лит.Label6(1).Caption

x(7) = Лит.Label7.Caption

x(8) = Лит.Label8.Caption

x(9) = Лит.Label9.Caption

x(10) = Лит.Label10.Caption

If ogl_txt.SelCount Then

a = ogl_txt.Text

End If

For l = 1 To 10

If a = x(l) Then

Лит.Show

'frmmain.shapetext.Visible = True

q(1) = Лит.Label1(1)

If 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

End If

Refresh

q(2) = Лит.Label2(1)

If 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 = False

End If

Refresh

q(3) = Лит.Label3(1)

If 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 = False

End If

Refresh

q(4) = Лит.Label4(1)

If 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 = False

End If

Refresh

q(5) = Лит.Label5(1)

If 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 = False

End If

Refresh

q(6) = Лит.Label6(1)

If 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 = False

End If

Refresh

q(7) = Лит.Label7

If x(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 = False

End If

Refresh

q(8) = Лит.Label8

If x(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 = False

End If

Refresh

q(9) = Лит.Label9

If x(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 = False

End If

Refresh

q(10) = Лит.Label10

If x(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 = False

End If

Refresh

End If

Next l

End Sub

Private Sub Command1_Click()

Form1.Show

Unload Me

End Sub

Private Sub Command2_Click()

Лит.Show

Unload Me

End Sub

Private Sub Form_Load()

End Sub

ф 7 о авторе

Dim fW As Integer, fH As Integer ' ширина и высота картинки

Dim x As Integer, y As Integer

Private Sub Command1_Click()

Form1.Show

Hide

End Sub

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

Private Sub Form_Initialize()

Picture2.Visible = False

Picture2.AutoSize = True

Picture2.Picture = LoadPicture(CurDir + "\6.bmp")

fW = Picture2.Width

fH = Picture2.Height

Form1.Width = Form1.Width + Picture2.Width - Picture1.Width

Picture1.Width = Picture2.Width

x = 0

y = 0

Timer1.Interval = 50

Timer1.Enabled = True

End Sub

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

Private Sub Timer1_Timer()

y = y + 10

' вывод части Picture1 в Picture2

Picture1.PaintPicture Picture2.Picture, _

-x, -y

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

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

' верхнюю часть картинки снизу

If y + Picture1.ScaleHeight >= Picture2.ScaleHeight Then

Picture1.PaintPicture Picture2.Picture, _

-0, -y + Picture2.ScaleHeight

End If

If y >= Picture2.ScaleHeight Then y = 0

End Sub

фрм аним

Dim fW As Integer, fH As Integer ' ширина и высота картинки

Dim x As Integer, y As Integer

' щелчок на кнопке Ok

Private Sub Command1_Click()

Form1.Show

Hide

End Sub

Private Sub Command2_Click()

Form1.Show

Hide

End Sub

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

Private Sub Form_Initialize()

Picture2.Visible = False

Picture2.AutoSize = True

Picture2.Picture = LoadPicture(CurDir + "\5.bmp")

fW = Picture2.Width

fH = Picture2.Height

Form1.Height = Form1.Height + Picture2.Height - _

Picture1.Height

Command1.Top = Command1.Top + Picture2.Height - _

Picture1.Height

Picture1.Height = Picture2.Height

x = 0

y = 0

Timer1.Interval = 50

Timer1.Enabled = True

End Sub

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

Private Sub Timer1_Timer()

x = x + 40

' вывод части Picture1 в Picture2

Picture1.PaintPicture Picture2.Picture, _

-x, -y

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

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

' часть картинки рядом справа

If x + Picture1.ScaleWidth >= Picture2.ScaleWidth Then

Picture1.PaintPicture Picture2.Picture, _

-x + Picture2.ScaleWidth, -y

End If

If x >= Picture2.Width Then x = 0

End Sub

Размещено на Allbest.ru