Информационная система обучения по курсу "Компьютерные сети"

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

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

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

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

1.8 Обзор информационных систем обучения

Систематические исследования в области компьютерной поддержки процесса обучения имеют более чем 30-летнюю историю. За этот период в США, Канаде, Англии, Франции, Японии, России и ряде других стран было разработано большое количество компьютерных систем учебного назначения, ориентированных на различные типы ЭВМ

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

В методологическом плане разработка и использование компьютерных средств поддержки обучения, в первую очередь - "мягкого" продукта, с самого начала развивались по двум направлениям, слабо связанным между собой. Первое направление опирается в своей основе на идеи программированного обучения. В его рамках разрабатываются и эксплуатируются автоматизированные обучающие системы (АОС) по различным учебным дисциплинам. Ядром АОС являются так называемые авторские системы, позволяющие преподавателю-разработчику вводить свой учебный материал в базу данных и программировать с помощью специальных авторских языков или других средств алгоритмы его изучения. Характерными представителями АОС, построенных на алгоритмах программированного обучения, длительное время являлись: за рубежом система PLATO, в нашей стране семейство АОС ВУЗ. С начала 90-х годов в России и странах СНГ распространяются инструментальные среды для создания компьютерных курсов на ПЭВМ типа IBM PC зарубежного (Private Tutor, LinkWay, Costoc) и отечественного производства: АДОНИС, АСОК, УРОК и др.

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

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

"Персональная революция" 80-х гг. принесла в сферу обучения не только новые технические, но и дидактические возможности. Это доступность ПЭВМ, простота диалогового общения и, конечно же, графика. Применение графических иллюстраций в учебных компьютерных системах позволяет не только увеличить скорость передачи информации обучаемому и повысить уровень ее понимания, но и способствует развитию таких важных для специалиста любой отрасли качеств, как интуиция, профессиональное "чутье", образное мышление. А на рынке компьютерных технологий появляются еще более перспективные для целей профессиональной подготовки технические и программные новинки. Это оптические внешние запоминающие устройства на компакт-дисках CD-ROM (Compact Disk Read Only Memory) с большими объемами памяти (сотни мегабайт), инструментальные программные средства гипертекста, мульти - и гипермедиа, системы "виртуальной реальности".

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

Использование таких систем позволяет создавать и широко тиражировать на лазерных компакт-дисках "электронные" руководства, справочники, книги, энциклопедии.

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

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

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

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

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

Теперь рассмотрим некоторые примеры информационных систем обучения и попытаемся выяснить наиболее актуальные технологии построения ИСО на сегодняшний день.

Сначала рассмотрим методические аспекты технологии создания "мягкого" продукта учебного назначения, положенные в основу системы Комплексов Автоматизированных ДИдактических Средств (системы КАДИС), разработанной и развиваемой в центре новых информационных технологий при Самарском государственном аэрокосмическом университете (СГАУ).

В комплексе обобщаются опыт и результаты многолетних исследований по компьютерной поддержке инженерной подготовки. Эти исследования были начаты в конце 70-х гг. на кафедре конструкции и проектирования летательных аппаратов СГАУ.

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

В состав САПР АУК входят следующие компоненты: учебное пособие, АУК для освоения и закрепления методики проектирования учебных комплексов, программные средства, информационное обеспечение.

Информационное обеспечение САПР АУК включает базы данных двух типов: базы данных с учебным материалом и журнал. Учебный материал содержит для каждого АУК блоки информации, упражнения, словарь терминов и понятий с их синонимами и определениями, условия вызова подключаемых программ (тренажеров, учебных ППП и т.п.). В журнале накапливается статистика по работе учащихся со всеми АУК.

Программные средства САПР АУК реализуют четыре вида интерфейсов: учащихся, преподавателей-пользователей и преподавателей-разработчиков учебных комплексов, администратора САПР АУК. Структурно все программы также можно разделить на четыре основные части: "проигрыватель" учебных комплексов, обеспечивающий работу учащихся и преподавателей-пользователей; инструментальную оболочку, позволяющую преподавателям-разработчикам наполнять базу данных учебных комплексов; набор программных утилит, реализующих некоторые дополнительные функции в работе преподавателей-разработчиков; утилиты администратора САПР АУК.

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

На сегодняшний день наиболее востребованными и эффективными информационными системами обучения являются “сетевые” системы управления обучением (LMS) и системы управления содержимым обучения (LCMS).

Вслед за развитием систем управления сайтом (CMS - Content Management System), стали появляться специализированные системы, в частности для управления обучением.

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

· LMS - Learning Management System (система управления обучением);

· CMS - Course Management System (система управления курсами);

· LCMS - Learning Content Management System (система управления учебным материалом);

· MLE - Managed Learning Environment (оболочка для управления обучением);

· LSS - Learning Support System (система поддержки обучения);

· LP - Learning Platform (образовательная платформа);

· VLE - Virtual Learning Environments (виртуальные среды обучения).

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

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

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

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

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

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

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

Рассмотрим наиболее популярные LMS на сегодняшний момент:

MOODLE - Modular Object-Oriented Dynamic Learning Environment.

· Официальный сайт: www.moodle.org

· Поддержка: IMS/SCORM спецификаций

· Платформа: PHP, MySQL, PostgreSQL

· Лицензия: GNU General Public License (GPL)

· Поддержка русского языка: есть

Дизайн и разработка Moodle направляются особой философией обучения, которую можно вкратце назвать "педагогика социального конструкционизма" (social constructionist pedagogy).

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

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

Claroline

· Официальный сайт: www.claroline.net

· Поддержка: IMS/SCORM спецификаций

· Языки приложения: PHP, JAVA

· СУБД: MySQL

· Лицензия: GNU General Public License (GPL)

· Поддержка русского языка: есть

· Демонстрационный сайт: http://demo.opensourcecms.com/claroline/

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

Dokeos

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

Dokeos - результат работы некоторых членов первоначальной команды разработчиков Claroline, которые задумали:

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

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

Dokeos бесплатен поскольку лицензия Claroline (GNU/GPL) предполагает, что ветки подпадают под ту же лицензию. Поскольку ветка была выделена недавно, оба приложения сейчас относительно похожи друг на друга, хотя некоторые различия в эргономике, построении интерфейса, функционале уже начинают проявляться.

ATutor

Система создана канадскими разработчиками. Включает в себя весь необходимый e-learning инструментарий. Есть русскоязычная версия.

· Официальный сайт: www.atutor.ca

· Поддержка: IMS/SCORM

· Языки приложения: PHP, JAVA

· СУБД: MySQL

· Лицензия: GNU General Public License (GPL)

· Поддержка русского языка: есть

· Демонстрационный сайт: http://www.atutor.ca/atutor/demo/login.php

LAMS

· Официальный сайт: http://www.lamscommunity.org

· Языки приложения: Java

· СУБД: MySQL

· Лицензия: GNU General Public License (GPL)

· Поддержка русского языка: нет

· Демонстрационный сайт: http://lamsinternational.com/demo/intro_to_lams.html

Спецификация IMS Learning Design была подготовлена в 2003 году. В ее основу положены результаты работы Открытого университета Нидерландов (Open University of the Netherlands - OUNL) по языку образовательного моделирования «Educational Modelling Language» (EML), при помощи которого описывается «метамодель» разработки учебного процесса.

На основе данной спецификации была создана «Система управления последовательностью учебных действий» Learning Activity Management System (LAMS). LAMS предоставляет преподавателям визуальные средства для разработки структуры учебного процесса, позволяющие задавать последовательность видов учебной деятельности.

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

OLAT

· Официальный сайт: http://www.olat.org

· Стандарты: SCORM/IMS (IMS Content Packaging, IMS QTI)

· Языки приложения: Java

· СУБД: MySQL, PostgreSQL

· Лицензия: GNU General Public License (GPL)

· Поддержка русского языка: есть

· Демонстрационный сайт: http://demo.olat.org

Разработка системы началась еще в 1999 году в University of Zurich, Switzerland, где она является основной образовательной платформой электронного обучения.

OpenACS

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

· Официальный сайт: http://openacs.org

· СУБД: ORACLE

· Лицензия: GNU General Public License (GPL)

· Поддержка русского языка: есть

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

2. Разработка алгоритма обучения и компонентов информационной системы

2.1 Концепция ИС

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

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

- разработку концепции;

- проектирование ИС;

- разработку репозитория;

- разработку эргономического интерфейса для работы с данными курса;

- разработку системы управления курсом;

- тестирование.

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

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

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

96

Рис. 3. Общая структура ИС обучения

Данная ИС обучения предназначена для более удобного управления электронным учебником по компьютерным сетям и тем самым повышения эффективности обучения и самообучения по данному направлению.

Для работы информационной системы не требуется никакого специализированного программного обеспечения.

2.2 Проектирование ИС

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

Рассмотрим несколько базовых диаграмм:

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

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

Рис. 4 Диаграмма прецедентов

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

Рис. 5. Диаграмма компонентов

2.3 Разработка структуры базы данных

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

2.4 Разработка интерфейса обучающего курса

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

Рис. 6. Пример страницы курса

Разработка web-приложения велась с помощью следующих средств: язык гипертекстовой разметки HTML, каскадные таблицы стилей CSS. Для создания гипертекстовых страниц и элементов каскадных таблиц стилей использовался редактор Macromedia Dreamveawer.

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

Рис. 7. Компонент «веб-браузер» среды Delphi

Интерфейс тестового комплекса полностью реализован на Delphi. Материал для тестов берется из специальной базы - текстовых файлов. Варианты тестовых наборов генерируются случайным образом. Тестовый материал представлен в виде вопросов с четырьмя вариантами ответа, из которых один правильный.

Рис. 8. Тестовый комплекс системы

После прохождения теста осуществляется вывод результатов.

Рис. 9. Страница результатов теста

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

2.5 Разработка системы управления курсом

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

· использовалась итерационная (спиральная) модель разработки, т.к. полное завершение работ на каждом из этапов жизненного цикла не обязательно;

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

· использовалась объектная модель разработки программного обеспечения ИС;

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

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

В ходе проектирования и разработки информационной системы была применена методология RAD.

Методология разработки информационных систем, основанная на использовании средств быстрой разработки приложений, получила в последнее время широкое распространение и приобрела название методологии быстрой разработки приложений - RAD (Rapid Application Development).

Данная методология охватывает все этапы жизненного цикла современных информационных систем.

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

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

· небольшой команде программистов (обычно от 2 до 10 человек);

· тщательно проработанный производственный график работ, рассчитанный на сравнительно короткий срок разработки (от 2 до 6 мес.);

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

Основные принципы методологии RAD можно свести к следующему:

· используется итерационная (спиральная) модель разработки;

· полное завершение работ на каждом из этапов жизненного цикла не обязательно;

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

· необходимо применение CASE-средств и средств быстрой разработки приложений;

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

· необходимо использование прототипов, позволяющее полнее выяснить и реализовать потребности конечного пользователя;

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

· разработка ведется немногочисленной и хорошо управляемой командой профессионалов;

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

CASE-технологии (Computer Aided Software/System Engineering) охватывают обширную область поддержки многочисленных технологий проектирования информационных систем: от простых средств анализа и документирования до полномасштабных средств автоматизации, покрывающих весь жизненный цикл программного обеспечения.

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

· использование специальным образом организованного хранилища проектных метаданных (репозитория);

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

· интеграция отдельных компонент CASE-средств, обеспечивающая управляемость процессом разработки ИС;

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

В качестве основного CASE-средства для разработки нашей системы была выбрана среда визуальной разработки Borland Delphi. Основными преимуществами данной среды являются:

· Быстрота и легкость разработки приложения.

· Высокая производительность разработанного приложения

· Низкие требования разработанного приложения к ресурсам компьютера.

· Наращиваемость за счет встраивания новых компонент и инструментов в среду Delphi.

· Возможность разработки новых компонент и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных текстах)

· Удобное выстраивание иерархии объектов и тем самым структуры системы

Теперь рассмотрим структуру нашей системы управления курсом:

96

Рис. 10. Структура программного обеспечения информационной системы управления обучением

Главная страница представляет собой окно с названием системы и полями ввода логина и пароля для авторизации в системе и работы под своим профилем.

Рис. 11. Заголовочное окно информационной системы

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

Рис. 12. Окно выбора тем курса

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

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

Рис. 13. Окно обучения по выбранной теме.

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

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

Рис. 14. Окно с настройками системы

Здесь имеется инструмент для управления пользователями, а также списком тем курса.

2.7 Тестирование ИС

Тестирование осуществлялось одновременно с разработкой системы (согласно методологии RAD).

Тестирование информационной системы предполагает проверку корректности работы приложения при введении данных.

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

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

Заключение

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

Для создания программного обеспечения ИС использовалась среда визуального проектирования Delphi, сам курс реализован с помощью технологий гипертекста.

Информационная система включает в себя средства для управления курсом (администраторский раздел), средства для обучения и контроля по курсу, а также средства отображения статистической информации.

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

Список использованной литературы

1. Алиев В.С. Информационные технологии и системы финансового менеджмента: учеб. пособие. - М.: «ФОРУМ»: ИНФРА-М, 2007. - 320 с.

2. Гук М. Аппаратные средства локальных сетей. Энциклопедия. - Спб: Издательство «Питер», 2000 - 576 c.

3. Долятовский В.А., Долятовская В.Н. Исследование систем управления: Учебное-практическое пособие. - Москва: ИКЦ «МарТ», 2003 - 256 с.

4. Емельянова Н.З., Партыка Т.Л., Попов И.И. Основы построения автоматизированных информационных систем: Учебное пособие. - М: ФОРУМ: ИНФОРМА-М, 2007 - 416 с.

5. Колисниченко Д.Н. Сделай сам компьютерную сеть: монтаж, настройка, обслуживание - Спб.: Наука и Техника, 2004 - 400 с.

6. Компьютерные сети. Принципы, технологии, протоколы. В.Г. Олифер, Н.А. Олифер. - Спб.: Питер, 2001. - 672 с.

7. Компьютерные сети. 4-е изд./Э. Таненбаум - Спб.: Питер, 2003 - 992 с.

8. Новиков Ю.В., Кондратенко С.В. Локальные сети: архитектура, алгоритмы, проектирование. М.: ЭИОТ, 2000 - 312 с.

9. Новые педагогические и информационные технологии в системе образования: Учеб. пособие для студ. пед. вузов и системы повыш. квалиф. пед.кадров/ Под ред. Е.С. Полат. - М.: Издательский центр «Академия», 2001.- 272 с.

10. Пантер М., Синипер Р.Б. Проектирование и внедрение компьютерных сетей. Учебный курс. - 2-е изд., перераб. и доп: Пер. с англ. - Спб.: БХВ- Петербург, 2004. - 752 с.

11. Саак А.Э, Пахомов Е.В., Тюшняков В.Н. Информационные технологии управления: Учебник для вузов. - Спб.: Питер, 2005. - 320 с.

12. Семакин И.Г. Информационные системы и модели. Элективный курс: Учебный пособие / И.Г. Семакин, Е.К. Хеннер. - М.: БИНОМ. Лаборатория знаний, 2005. - 303 с.

13. Соловов А.В. Дидактика и технология электронного обучения в системе КАДИС // "Индустрия образования". 6. - М.: МГИУ, 2002, - с. 54-64.

14. Хортон У., Хортон К. Электронное обучение: инструменты и технологии / Пер. с англ. - М.: КУДИЦ-ОБРАЗ, 2005. - 640 с.

Приложение

Исходные коды модулей информационной системы

1. Модуль начальной страницы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

Tzagl = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

agl: Tzagl;

fil,fil1:textfile;

implementation

uses Unit19, Unit44, tester_, Unit4;

{$R *.dfm}

procedure Tzagl.Button1Click(Sender: TObject);

var s,s1,s2,log,pas:string;i:integer;k:boolean;

begin

s:='';

reset(fil);

while not eof(fil) do

begin

readln(fil,s2);

s:=s+s2;

end;

closefile(fil);

k:=true;

s1:='';

for i:=1 to length(s) do begin

if (s[i] = '*') then

begin

log:=s1;

s1:='';

end;

if (s[i] = '&') then

begin

pas:=s1;

if (edit1.text=log)and(edit2.Text=pas) then

begin

k:=false;

ElektKursInf.show;

zagl.Hide;

end;

s1:='';

end;

if (s[i] <> '&')and(s[i] <> '*') then s1:=s1+s[i];

end;

if (edit1.Text='admin')and(edit2.Text='pasw') then

begin

Form4.Show;

zagl.Hide;

end

else

if k then showmessage('Введите верные логин и пароль');

end;

procedure Tzagl.Button2Click(Sender: TObject);

var s3,s4:string;

begin

if (edit1.text<>'')and(edit2.Text<>'') then begin

append(fil);

s3:=edit1.text+'*'+edit2.text+'&';

writeln(fil,s3);

closefile(fil);

append(fil1);

s4:=edit1.text+'*0&0$0#';

writeln(fil1,s4);

closefile(fil1);

showmessage('Вы успешно зарегистрированы!')

end

else showmessage('Введите логин и пароль!')

end;

procedure Tzagl.FormCreate(Sender: TObject);

begin

assignfile(fil,'bd\user.txt');

assignfile(fil1,'bd\result.txt');

end;

end.

2. Модуль выбора темы курса

unit Unit19;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, StdCtrls, DBCtrls, ExtCtrls, Db, Provider, DBClient, MConnect;

type

TElektKursInf = class(TForm)

Panel2: TPanel;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

ListBox1: TListBox;

ListBox2: TListBox;

Memo1: TMemo;

Label3: TLabel;

Button2: TButton;

Button3: TButton;

ListBox3: TListBox;

procedure Exit1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

ElektKursInf: TElektKursInf;

fil1,fil:textfile;

implementation

uses Unit44, Unit1, Unit3, Unit5;

{$R *.DFM}

procedure TElektKursInf.Exit1Click(Sender: TObject);

begin

ElektKursInf.Hide;

zagl.close;

end;

procedure TElektKursInf.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

ElektKursInf.Hide;

zagl.Close;

end;

procedure TElektKursInf.FormShow(Sender: TObject);

var i,j:integer;s0,s,s2,k:string;

begin

assignfile(fil,'bd\path1.txt');

reset(fil);

s:='';

while not eof(fil) do

begin

readln(fil,s);

s0:=s;

end;

closefile(fil);

assignfile(fil,'bd\path.txt');

reset(fil);

Listbox1.Clear;

s:='';

while not eof(fil) do

begin

readln(fil,s);

Listbox1.Items.Add(s0+s);

end;

closefile(fil);

assignfile(fil,'bd\themes.txt');

reset(fil);

Listbox3.Clear;

s:='';

while not eof(fil) do

begin

readln(fil,s);

Listbox3.Items.Add(s);

end;

closefile(fil);

Label3.Caption:='Здравствуйте, '+zagl.Edit1.Text+'. Вы работаете с учебным курсом "Компьютерные сети"'; //ComboBox1.ItemIndex := 0;

s:='';

assignfile(fil1,'bd\result.txt');

reset(fil1);

while not eof(fil1) do

begin

readln(fil1,s2);

for i:=1 to length(s2) do begin

if (s2[i] = '*') then begin

if s=zagl.Edit1.Text then begin

j:=i+1;

while s2[j]<>'#' do begin

if s2[j]='&' then k:=s2[j+1];

j:=j+1;

end;

end;

end;

s:=s+s2[i];

end;

s:='';

end;

closefile(fil1);

{showmessage(k);}

if k='1' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

end;

if k='2' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

listbox2.items.Add(listbox3.Items.Strings[2]);

end;

if k='3' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

listbox2.items.Add(listbox3.Items.Strings[2]);

listbox2.items.Add(listbox3.Items.Strings[3]);

end;

if k='4' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

listbox2.items.Add(listbox3.Items.Strings[2]);

listbox2.items.Add(listbox3.Items.Strings[3]);

listbox2.items.Add(listbox3.Items.Strings[4]);

end;

if k='5' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

listbox2.items.Add(listbox3.Items.Strings[2]);

listbox2.items.Add(listbox3.Items.Strings[3]);

listbox2.items.Add(listbox3.Items.Strings[4]);

listbox2.items.Add(listbox3.Items.Strings[5]);

end;

if k='6' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

listbox2.items.Add(listbox3.Items.Strings[2]);

listbox2.items.Add(listbox3.Items.Strings[3]);

listbox2.items.Add(listbox3.Items.Strings[4]);

listbox2.items.Add(listbox3.Items.Strings[5]);

listbox2.items.Add(listbox3.Items.Strings[6]);

end;

if k='7' then begin

listbox2.items.Add(listbox3.Items.Strings[1]);

listbox2.items.Add(listbox3.Items.Strings[2]);

listbox2.items.Add(listbox3.Items.Strings[3]);

listbox2.items.Add(listbox3.Items.Strings[4]);

listbox2.items.Add(listbox3.Items.Strings[5]);

listbox2.items.Add(listbox3.Items.Strings[6]);

listbox2.items.Add(listbox3.Items.Strings[7]);

end;

listbox2.ItemIndex:=0;

end;

procedure TElektKursInf.ComboBox1Change(Sender: TObject);

begin

{with ClientElektKurs do

begin

while not EOF do

begin

ListBox2.items.add(FieldByName('Kurs').AsString);

next;

end;

end;}

end;

procedure TElektKursInf.Button1Click(Sender: TObject);

begin

ListBox1.ItemIndex:=ListBox2.ItemIndex;

Form37.WebBrowser1.Navigate(ListBox1.Items.Strings[ListBox1.ItemIndex]);

//Form37.ComboBox1.Text:=ListBox1.Items.Strings[ListBox1.ItemIndex];

Form37.ToolButton2.Enabled:=false;

Form37.ToolButton3.Enabled:=false;

Form37.Show;

Button1.Enabled:=false;

Label3.Caption:='';

//ElektKursInf.Hide;

end;

procedure TElektKursInf.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TElektKursInf.Button3Click(Sender: TObject);

begin

Form5.Show;

end;

end.

3. Модули статистики по группам и индивидуально

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm3 = class(TForm)

StringGrid1: TStringGrid;

procedure FormShow(Sender: TObject);

procedure StringGrid1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

s,s2:string;

fil1:textfile;

i,j:integer;

implementation

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);

var s0:double;

begin

StringGrid1.Cells[0,0]:='Логин';

StringGrid1.Cells[1,0]:='Время обучения(мин.)';

StringGrid1.Cells[2,0]:='Количество пройденных тем';

StringGrid1.Cells[3,0]:='Количество баллов';assignfile(fil1,'bd\result.txt');

reset(fil1);

s:='';

i:=1;

while not eof(fil1) do

begin

readln(fil1,s2);

for j:=1 to length(s2) do begin

if s2[j]='*' then begin

StringGrid1.Cells[0,i]:=s;

s:='';

continue;

end;

if s2[j]='&' then begin

s0:=strtofloat(s)/60000;

StringGrid1.Cells[1,i]:=floattostr(s0);

s:='';

continue;

end;

if s2[j]='$' then begin

StringGrid1.Cells[2,i]:=s;

s:='';

continue;

end;

if s2[j]='#' then begin

StringGrid1.Cells[3,i]:=s;

s:='';

continue;

end;

s:=s+s2[j];

end;

i:=i+1;

StringGrid1.RowCount:=i;

end;

closefile(fil1);

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids;

type

TForm5 = class(TForm)

StringGrid1: TStringGrid;

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

s,s1,s2,s3:string;

fil1:textfile;

i,j:integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.FormShow(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='1 тема';

StringGrid1.Cells[1,0]:='2 тема';

StringGrid1.Cells[2,0]:='3 тема';

StringGrid1.Cells[3,0]:='4 тема';

StringGrid1.Cells[4,0]:='5 тема';

StringGrid1.Cells[5,0]:='6 тема';

StringGrid1.Cells[6,0]:='7 тема';

assignfile(fil1,'bd\result1.txt');

reset(fil1);

s:='';

s3:='';

while not eof(fil1) do

begin

readln(fil1,s2);

s:=s+s2;

end;

for j:=1 to length(s) do begin

if s[j]='*' then begin

if s1=zagl.Edit1.Text then begin

i:=j+1;

while s[i]<>'*' do begin

if s[i]='!' then begin

StringGrid1.Cells[0,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='$' then begin

StringGrid1.Cells[1,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='#' then begin

StringGrid1.Cells[2,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='%' then begin

StringGrid1.Cells[3,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='^' then begin

StringGrid1.Cells[4,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='@' then begin

StringGrid1.Cells[5,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='~' then begin

StringGrid1.Cells[6,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

s3:=s3+s[i];

i:=i+1;

end;

end;

s1:='';

end;

s1:=s1+s[j];

if s[j]='~' then s1:='';

end;

closefile(fil1);

end;

end.

4. Модуль обучения по курсу

unit Unit44;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

OleCtrls, SHDocVw, ToolWin, ComCtrls, StdCtrls, ExtDlgs, ExtCtrls, Menus;

const

HTMLID_FIND = 1;

HTMLID_VIEWSOURCE = 2;

HTMLID_OPTIONS = 3;

type

TForm37 = class(TForm)

WebBrowser1: TWebBrowser;

StatusBar1: TStatusBar;

ProgressBar1: TProgressBar;

OpenDialog1: TOpenDialog;

CoolBar1: TCoolBar;

ToolBar1: TToolBar;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton6: TToolButton;

ComboBox1: TComboBox;

ToolButton8: TToolButton;

ToolButton1: TToolButton;

Timer1: TTimer;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

procedure WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ToolButton7Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

procedure WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

procedure ToolButton8Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;}

{ Public declarations }

end;

var

Form37: TForm37;

z,time1:integer;m:string;

implementation

uses Unit19, kontr;

{$R *.DFM}

procedure TForm37.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

{if Key = VK_RETURN then

WebBrowser1.Navigate(ComboBox1.Text);}

end;

procedure TForm37.ToolButton1Click(Sender: TObject);

begin

{ if OpenDialog1.Execute then

begin

WebBrowser1.Navigate(OpenDialog1.FileName);

ComboBox1.Text := OpenDialog1.FileName;

end;}

timer1.Enabled:=false;

close;

end;

procedure TForm37.ToolButton2Click(Sender: TObject);

begin

z:=z+1;

WebBrowser1.GoBack;

ToolButton3.Enabled:=true;

end;

procedure TForm37.ToolButton3Click(Sender: TObject);

begin

z:=z-1;

if z>-1 then WebBrowser1.GoForward else ToolButton3.Enabled:=false;

end;

procedure TForm37.ToolButton4Click(Sender: TObject);

begin

WebBrowser1.Stop;

end;

procedure TForm37.ToolButton5Click(Sender: TObject);

begin

WebBrowser1.Refresh;

end;

procedure TForm37.ToolButton6Click(Sender: TObject);

var

PostData, Headers: OLEvariant;

begin

WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);

end;

procedure TForm37.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString);

begin

StatusBar1.SimpleText := Text;

end;

procedure TForm37.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);

begin

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

end;

procedure TForm37.FormClose(Sender: TObject; var Action: TCloseAction);

begin

timer1.Enabled:=false;

Form37.Hide;

ElektKursInf.Show;

ElektKursInf.Button1.Enabled:=true;

end;

procedure TForm37.ToolButton7Click(Sender: TObject);

const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';

{var

CmdTarget : IOleCommandTarget;

vaIn, vaOut: OleVariant;

PtrGUID: PGUID;}

begin

{New(PtrGUID);

PtrGUID^ := CGID_WebBrowser;

if WebBrowser1.Document <> nil then

try

WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);

if CmdTarget <> nil then

try

CmdTarget.Exec( PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);

finally

CmdTarget._Release;

end;

except

// nothing

end;

Dispose(PtrGUID);}

end;

procedure TForm37.FormShow(Sender: TObject);

begin

time1:=0;

timer1.Enabled:=true;

Form37.Caption:=ElektKursInf.ListBox2.Items.Strings[ElektKursInf.ListBox2.ItemIndex];

end;

procedure TForm37.WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

var l:integer;

begin

end;

procedure TForm37.WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

Combobox1.Text:=WebBrowser1.LocationURL;

if (ElektKursInf.ListBox1.Items.Strings[ElektKursInf.ListBox1.ItemIndex]<>WebBrowser1.LocationURL)then ToolButton2.Enabled:=true else ToolButton2.Enabled:=false;

end;

procedure TForm37.ToolButton8Click(Sender: TObject);

begin

Form2.Show;

Form37.Hide;

end;

procedure TForm37.Timer1Timer(Sender: TObject);

begin

time1:=time1+timer1.interval;

end;

procedure TForm37.N1Click(Sender: TObject);

begin

close;

end;

end.

5. Модуль контрольного тестирования

unit tester_;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, ExtCtrls,