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

24

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

КУРСОВАЯ РАБОТА

Автоматизация пакета методик «Работа психолога в школе» с помощью Delphi 6.0

Содержание

Введение

Глава 1. Обзор программных средств автоматизации психодиагностической методики

1.1 Web технологии

1.2 Основы работы с базами данных

1.3 Создание базы данных с использованием механизма BDE

Глава 2. Автоматизация с помощью Delphi 6.0 теста «Многофакторного исследования личности Р. Кеттелла»

2.1 Компьютерная психодиагностика

2.2 Интерфейс визуальной среды Borland Delphi 6.0

2.3 Структура модуля

2.4 Интерфейс автоматизированного теста «Многофакторного исследования личности Р. Кеттелла»

Заключение

Список использованных источников

Приложение

Введение

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

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

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

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

Личностные опросники - это специфический вид исследования, с помощью которого получают информацию о личности на основе ответов о ее склонности, интересах, степени общительности, особенностях поведения и реагирования в различных жизненных ситуациях. Однако нельзя упускать из вида различия, которые могут существовать между свойствами исследуемого человека и их признаками, которые мы отмечаем в поведении, т. к. непосредственно наблюдаем, особенности личности, являющиеся реальностью часто несовпадающие с теми «переменными», которые проявляются при обследовании с помощью тех или иных опросников. Наибольшие разногласия между различными психологами отмечаются именно в сфере представлений о самом предмете исследований личности. Как объем, так и содержание этого понятия не всеми понимается одинаково, а зачастую различно. Это необходимо учитывать при определении методологической ценности личностных опросников. Например, Г. Айзенк, Р. Кеттелл, Д. Гилфорд, [Айзенк Г. 1994г.] понимали личность скорее как множество элементов - черт, факторов. К настоящему времени уже накоплено большое количество данных, говорящих о том, что недопустимо рассматривать личность, как нечто статичное и атомарное. Однако возражать против существования таких черт личности, как экстраверсия, психастения и др., неверно т. к. люди с такими чертами существуют, о чем говорит житейский и клинический опыт. При обработке любых данных, получаемых о личности, необходимо в частности исследовать конкретного человека как живущего в определенных общественно-исторических условиях, состоящего в определенных общественных отношениях с другими людьми.

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

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

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

Различают три формы опросника 16PF, которые являются наиболее популярным средством экспресс - диагностики личности. Они используются во всех ситуациях, когда необходимо знание индивидуально - психологических особенностей человека. Опросник диагностирует черты личности, которые Р.Б. Кеттелл называет конституционными факторами /1/.

В нашем случае предлагается форма опросника А - которая считается стандартной формой (187 вопросов) для обследования людей с образованием не ниже чем 8-9 классов.

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

Объект: пакет методик «работа психолога в школе».

Предмет: диагностика конституционных факторов личности с помощью теста Р. Кеттелла.

Следовательно, можно определить следующие задачи:

· выбор тестовой методики из пакета «работа психолога в школе»;

· обзор программных средств для автоматизации.

· автоматизация выбранной методики с помощью Delphi 6.0

Автоматизированный тест поможет гораздо быстрей провести и обработать результаты методики. Следовательно, выдать результаты испытуемым. Для автоматизации выбранного теста было использовано объектно-ориентированное программирование, а именно визуальная среда разработки программ Borland Delphi6.0. Как известно, объектно-ориентированная программа состоит из объектов - отдельных фрагментов кода, обрабатывающего данные, которые взаимодействуют друг с другом через определённые интерфейсы. Это, например, графические объекты, записи в базах данных или совокупности числовых значений. Среда разработки Borland Delphi6.0 ориентирована, прежде всего, на создание программ для Windows. При этом Delphi обладает возможностью визуальной разработки приложений, благодаря наличию большого набора готовых компонентов, позволяющих избежать ручного кодирования.

Глава 1. Обзор программных средств автоматизации психодиагностической методики

1.1 Web технологии

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

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

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

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

Данные представляются не в виде непрерывного потока текстовой информации, а набором взаимосвязанных компонентов, переход по которым осуществляется при помощи гиперссылок. Гиперссылки - это объекты Web - страницы, содержащие информацию об адресе других Web - страниц. Однородная группа Web - страниц образует Web - узел (сайт). Язык HTML был создан специально для организации информации в сети Интернет. Интернет - глобальная, всемирная компьютерная сеть, соединяющая много других сетей и пользователей. И предлагает услуги электронной почты, переговоры, конференций связи, а также обладает возможностью доступа к удаленным компонентам, отправки и поиска файлов. Наиболее важной частью Интернета в настоящее время является Word Wide Web состоит сплошь из гипертекстов. У сети Интернет есть 2 грани: с одной стороны - это физическое объединение миллионов компонентов, а с другой объединение сотен миллионов документов; образующее всемирное информационное поле. Информация, опубликованная в сети в формате этой службы, представляется в виде Web - страницы. Это комплексные документы, которые могут содержать любые виды данных (текст, звук, видео). Для приема Web - страницы используют следующие документы (браузеры). Пример: Netscape Navigator. Основные назначения этих программ - загрузка Web - страницы из интернета и отображающие его на экране. Местонахождение нужной Web - страницы определяются адресом ИКК (стандартный адрес ресурса, она позволяет указать нужный документ на каком бы сервере сети он ни находится). Большинство Web - документов содержат гипертекстовые ссылки /2/.

HTML - язык гипертекстовой разметки. Документы HTML имеют расширение *.html, *.htm, *.ahtml, *.shtml. Гипертекстовая разбивка текстового документа в современных информационных системах позволяет создавать механизм нелинейного просмотра информации. HTML позволяет определить оформление элементов документа и имеет некий ограниченный набор инструкций - тегов, при помощи которых осуществляется процесс разметки. Инструкции (теги) HTML предназначены в первую очередь для управления процессам вывода содержимого документа на экран и определяют тем самым способ представление документа, но не его структуру. В качестве элемента гипертекстовой базы данных, описываемой HTML, используются текстовый файл.

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

XML (Extensible Markup Language) - это язык разметки, описывающий целый класс объектов данных, называемых XML- документами. Этот язык используется в качестве средства для описания грамматики других языков и контроля за правильностью составления документов. То есть сам по себе XML не содержит никаких тэгов, предназначенных для разметки, он просто определяет порядок их создания.

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

Еще одним из очевидных достоинств XML является возможность использования его в качестве универсального языка запросов к хранилищам информации. Сегодня в глубинах W3C находится на рассмотрении рабочий вариант стандарта XML-QL(или XQL), который, возможно, в будущем составит серьезную конкуренцию SQL. Кроме того, XML-документы могут выступать в качестве уникального способа хранения данных, который включает в себя одновременно средства для разбора информации и представления ее на стороне клиента. В этой области одним из перспективных направлений является интеграция Java и XML - технологий, позволяющая использовать мощь обеих технологий при построении машинно-независимых приложений, использующих, кроме того, универсальный формат данных при обмене информации.

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

Также одним из достоинств XML является то, что программы-обработчики XML- документов не сложны и уже сегодня появились и свободно распространяются всевозможные программные продукты, предназначенные для работы с XML-документами. XML поддерживается сегодня в Microsoft Internet Explorer 4/0 и в бета-версиях IE5. Было заявлено о его поддержке в последующих версиях Netscape Communicator, СУБД Oracle, DB-2, в приложениях MS-Office. Все это дает основания предполагать, что, скорее всего, в ближайшем будущем XML станет основным языком обмена информации для информационных систем, заменив собой, тем самым, HTML. На основе XML уже сегодня созданы такие известные специализированные языки разметки, как SMIL, CDF, MathML, XSL, и список рабочих проектов новых языков, находящихся на рассмотрении W3C, постоянно пополняется.

Dreamweaver относится к так называемым "визуальным" редакторам, то есть вы сразу можете видеть на экране (хотя бы приблизительно) результат своей работы. При этом он предоставляет полный доступ к источнику кода и не вставляет в него ничего лишнего, как это делает, например, FrontPage. Таким образом, вы можете создавать свою страничку и параллельно изучать HTML, заглядывая в источник.

Macromedia Dreamweaver - профессиональный редактор HTML для визуального создания и управления сайтами различной сложности и страницами сети Internet. Нравится ли вам вручную писать код HTML или вы предпочитаете работать в визуальной среде, Dreamweaver облегчает эту работу и обеспечивает вас полезными инструментами и средствами, чтобы сделать ваши проекты непревзойденными.

Dreamweaver включает в себя много инструментов и средств для редактирования и создания профессионального сайта: HTML, CSS, JavaScript, отладчик JavaScript, редакторы кода (просмотр кода и инспектор кода), что позволяет вам, редактировать JavaScript, XML и другие текстовые документы, которые поддерживаются в Dreamweaver. Технология Roundtrip HTML импортирует документы HTML без переформатирования кода, и вы можете настроить Dreamweaver, чтобы он наводил порядок и переформатировал HTML, как вы этого хотите.

Возможность визуального редактирования в Dreamweaver также позволяет вам быстро создавать или менять дизайн проекта без написания кода. Вы можете рассмотреть все ваши централизованные элементы и перетащить их с удобной панели непосредственно в документ.

Dreamweaver полностью настраиваемый. Используйте Dreamweaver, чтобы создавать свои собственные объекты и команды, изменять "горячие" клавиши и даже писать код JavaScript, чтобы расширять возможности Dreamweaver новыми свойствами, инспекторами свойств и новыми отчетами о сайте.

1.2 Основы работы с базами данных

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

Сразу оговоримся, что мы будем рассматривать только реляционные базы данных: во-первых, реляционные базы получили наибольшее распространение в мире; во-вторых, они наиболее “продвинуты” в научном плане; а в-третьих, ядро баз данных Borland Database Engine, на основе которого работают все последние продукты компании Borland, предназначено именно для работы с реляционными базами данных.

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

Требования к базам данных:

· Удовлетворяет всем требованиям пользователей к содержимому базы данных. Перед проектированием базы необходимо провести обширные исследования требований пользователей к функционированию базы данных.

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

· Обеспечивает естественное, легкое для восприятия структурирование информации. Качественное построение базы позволяет делать запросы к базе более “прозрачными” и легкими для понимания; следовательно, снижается вероятность внесения некорректных данных и улучшается качество сопровождения базы.

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

Следующие пункты представляют основные шаги проектирования базы данных:

· Определить информационные потребности базы данных.

· Проанализировать объекты реального мира, которые необходимо смоделировать в базе данных. Сформировать из этих объектов сущности и характеристики этих сущностей (например, для сущности “деталь” характеристиками могут быть “название”, “цвет”, “вес” и т.п.) и сформировать их список.

· Поставить в соответствие сущностям и характеристикам - таблицы и столбцы (поля) в нотации, выбранной Вами СУБД (Paradox, dBase, FoxPro, Access, Clipper, InterBase, Sybase, Informix, Oracle и т.д.).

· Определить атрибуты, которые уникальным образом идентифицируют каждый объект.

· Выработать правила, которые будут устанавливать, и поддерживать целостность данных.

· Установить связи между объектами (таблицами и столбцами), провести нормализацию таблиц.

· Спланировать вопросы надежности данных и, при необходимости, сохранения секретности информации /3/.

1.3 Создание базы данных с использованием механизма BDE

Для хранения анкетных данных результатов тестирования в создании программ с помощью визуальной среды Delphi используется механизм BDE (Borland Database Engine).

Этот механизм реализован в виде набора библиотек, которые обеспечивают для программы, написанной на Паскале, простой и удобный доступ к базам данных независимо от их архитектуры. При использовании механизма BDE разработчик может не задумываться о том, как его программа будет работать с базой данных на физическом уровне: локально, в файл-серверной, либо в клиент-серверной архитектуре. Вдобавок при переходе к использованию СУБД разных производителей программисту не потребуется менять исходный код своей программы. Достаточно внести изменения только в настройки BDE.

Такое удобство достигается благодаря тому, что механизм BDE представляет собой программную прослойку (middleware) между клиентской программой и базой данных (или СУБД). Запрос из приложения передается внутрь механизма BDE, который использует специализированные системные программы (драйверы) для непосредственной работы с СУБД /4/.

В поставку BDE входит два набора драйверов:

· Первый набор предназначен для файл-серверных СУБД BASE, Paradox, FoxPro, Access и данных в текстовом формате.

· Второй набор ориентирован на клиент-серверные СУБД InterBase, IBM DB2, Informix, ORACLE, Sybase и Microsoft SQL Server. Этот набор называется SQL Links.

Конечно, кроме системы Delphi в мире существует немало пакетов создания программ, которые позволяют обращаться к любым СУБД. Поэтому давно разработан и существует стандартный протокол ODBC (Open Database Connectivity Interface, открытый интерфейс взаимодействия с базами данных), напоминающий независимую работу BDE. Драйверы ODBC выпущены для всех без исключения СУБД.

Реализация в системе Delphi прослойки BDE позволяет не привязывать программу СУБД. Если потребуется расширить число пользователей программы и перейти, например, с файл-серверной СУБД Base на более мощную СУБД, достаточно изменить несколько настроек BDE, не исправляя исходные.

Глава 2. Автоматизация с помощью Delphi 6.0 теста «Многофакторного исследования личности Р. Кеттелла»

2.1 Компьютерная психодиагностика

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

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

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

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

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

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

2.2 Интерфейс визуальной среды Borland Delphi 6.0

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

Для автоматизации исследовательских методик была использована объектно-ориентированное программирование, а именно среда разработки программ Delphi.

Delphi - язык и среда программирования, относящаяся к классу RAD- (Rapid Application Development _ «Средство быстрой разработки приложений») средств CASE - технологии. Delphi сделала разработку мощных приложений Windows быстрым процессом, доставляющим вам удовольствие. Приложения Windows, для создания которых требовалось большое количество человеческих усилий например в С++, теперь могут быть написаны одним человеком, использующим Delphi.

Интерфейс Windows обеспечивает полное перенесение CASE-технологий в интегрированную систему поддержки работ по созданию прикладной системы на всех фазах жизненного цикла работы и проектирования системы.

Delphi обладает широким набором возможностей, начиная от проектировщика форм и кончая поддержкой всех форматов популярных баз данных. Среда устраняет необходимость программировать такие компоненты Windows общего назначения, как метки, пиктограммы и даже диалоговые панели. Работая в Delphi, вы неоднократно могли видеть одинаковые «объекты» во многих разнообразных приложениях. Диалоговые панели (например, Choose File и Save File) являются примерами многократно используемых компонентов, встроенных непосредственно в Delphi, который позволяет приспособить эти компоненты к имеющийся задаче, чтобы они работали именно так, как требуется создаваемому приложению. Также здесь имеются предварительно определенные визуальные и невизуальные объекты, включая кнопки, объекты с данными, меню и уже построенные диалоговые панели. С помощью этих объектов можно, например, обеспечить ввод данных просто несколькими нажатиями кнопок мыши, не прибегая к программированию. Это наглядная реализация применений CASE-технологий в современном программировании приложений. Та часть, которая непосредственно связана с программированием интерфейса пользователя системой получила название визуальное программирование /8/

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

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

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

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

Основные составные части Delphi:

Дизайнер Форм (Form Designer).

Окно Редактора Исходного Текста (Editor Window).

Палитра Компонент (Component Palette).

Инспектор Объектов (Object Inspector).

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

2.3 Структура модуля

Таблица 2.3.1 - Основные модули автоматизированного теста

Название модуля	Назначение	Связь с другими модулями
Kettell.dpr	содержит информацию о проекте теста	StartUnit, TestUnit, ResikUnit,
StartUnit	Содержит инструкцию к тесту «Многофакторного исследования личности Р. Кеттелла»	TestUnit
TestUnit	содержит процедуры: вывода вопросов, вывода ответов, подсчета результатов по тесту «Многофакторного исследования личности Р. Кеттелла»	ResikUnit
ResikUnit	содержит процедуру вывода интерпретации по тесту «Многофакторного исследования личности Р. Кеттелла»

Таблица 2.3.2 - Основные элементы автоматизированного теста

Название элемента	Назначение	Состав	Связь с другими элементами
StartForm	Содержит инструкцию к тесту «Многофакторного исследования личности Р. Кеттелла», кнопку запуска теста	Memo1, Button1,	TestForm, ResikForm
TestForm	Содержит поле с вопросами, поля с вариантами ответов, кнопки выбора ответа, кнопку перехода между вопросами	Memo1, Memo2, Memo3, Memo4, Button1, RadioButton1, RadioButton2, RadioButton3.	ResikForm
ResikForm	Содержит интерпретацию по тесту «Многофакторного исследования личности Р. Кеттелла», кнопку закрытия теста.	Memo1, Label1 - Label32, BitBtn1.

Таблица 2.3.3 - Основные процедуры и переменные автоматизированного теста

Название модуля (Unit)	Основные процедуры (Procedure)	Основные переменные (Private)
StartUnit	FormCreate, Button1Click
TestUnit	RadioButtonClick; RadioButton2Click, RadioButton3Click, FormCreate, Button1Click, Stens;	bop; pos; var1; var2; var3; A, B, C, E, F, G, H, I, L, M, N, O, Q1, Q2, Q3, Q4; Ast, Bst, Cst, Est, Fst, Gst, Hst, Ist, Lst, Mst, Nst, Ost, Q1st, Q2st, Q3st, Q4st.
ResikUnit	FormCreate

Таблица 2.4 - Основные объекты автоматизированного теста

Форма	Название	Содержание
StartForm	Memo1	Вывод инструкции к тесту
	Button1	Открытие TestForm
TestForm	Label1	Содержит название методики
	Memo1	вывод вопросов
	Memo2	вывод вариантов ответа А
	Memo3	вывод вариантов ответа В
	Memo4	вывод вариантов ответа С
	Button1	кнопка «далее» переход к следующему вопросу
	RadioButton1	кнопка выбора варианта А
	RadioButton2	кнопка выбора варианта В
	RadioButton3	кнопка выбора варианта С
ResikForm	Memo1	Вывод интерпретаций методики
	Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11, Label12, Label13, Label14, Label15, Label16	Содержат соответствующие названия факторов: A, B, C, E, F, G, H, I, L, M, N, O, Q1, Q2, Q3, Q4
	Label17, Label18 Label19 Label20 Label21 Label22 Label23 Label24 Label25 Label26 Label27 Label28 Label29 Label30 Label31 Label32	Выводят результаты теста по соответствующим факторам
	BitBtn1	Кнопка закрытия теста

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

2.4 Интерфейс автоматизированного теста «Многофакторного исследования личности Р. Кеттелла»

При запуске приложения пользователю открывается форма с инструкцией к тесту (рисунок 2.4.1)

Рисунок 2.4.1 - форма с инструкцией к тесту

После нажатия кнопки «Поскакали! Тыгдым» открывается форма с первым вопросом теста и вариантами ответа на него, (рисунок 2.4.2).

Рисунок 2.4.2 - форма с текстом теста

После того как выбрался один из вариантов ответа, активируется кнопка «Далее» (рисунок 2.4.3)

Рисунок 2.4.3 - форма с текстом теста

автоматизация психодиагностический кеттелл delphi

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

Рисунок 2.4.4 - форма с интерпретацией

По нажатии кнопки «Усё! Покеда…» программа закрывается.

Заключение

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

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

Таким образом, задачи:

· выбор тестовой методики из пакета «работа психолога в школе»;

· обзор программных средств для автоматизации.

· автоматизация выбранной методики с помощью Delphi 6.0

поставленные нами в начале работы были выполнены полностью. А, следовательно, цель достигнута.

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

Список использованных источников

1. Бурлачук Л.Ф. Словарь-справочник по психодиагностике / Л. Ф. Бурлачук, С. М. Морозов - СПб.: Питер, 2001. - 528 с.: ил.

2. Буч, Г. Объектно-ориентированный анализ и проектирование с примерами приложений на С++ / Г. Буч, 2-е изд. - М.: «Издательство Бином», СПб.: «Невский диалект», 2000. - 560с.

3. Нагоркина О. Энциклопедия домашнего психолога/ автор-составитель О. Нагоркина - Саратов: Софит-Принт; М.: ОЛМА-ПРЕСС, 2000 - 540 с., ил.

4. Дюк, В.А. Компьютерная психодиагностика / В. А. Дюк. - СПб, Издательство «Братство», 1994. - 364с.

5. Культин, Н. Б. Программирование в Turbo Pascal 7.0 и Delphi / Н. Б. Культин. - СПб.: BHV - С-Петербург, 1998 - 240 с., ил.

6. Гофман В. Delphi 6/ В. Гофман, А. Хомоненко. - СПб, Издательство «ПИТЕР», 1999. - 348с.

7. Таланов В.Л. Справочник практического психолога/ В.Л. Таланов - СПб.: Сова, М.: ЭКСМО, 2003. - 928с.

8. Глушков, С. В. Программирование на Delphi 6.0 / С. В. Глушков, А. Л. Клевцов, С. А. Теребилов. - Харьков: Фолио, 2002. - 518с.

9. Психология индивидуальных различий ТЕКСТЫ /под ред. Ю.Б. Гиппенрейдера, В.Я.Романова - М. изд-во МГУ, 1982г.

10. Психологические тесты / Под. Ред. А.А. Карелина: В 2 т. - М.: Гуманит. Изд. Центр ВЛАДОС, 2003г. - Т.1.- 312с.

11. Энциклопедия психологических тестов - 2. - М.: ТЕРРА, - 2000. - 400с

ПРИЛОЖЕНИЕ

Код программы

unit Start;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls;

type

TForm3 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Test, Resik;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

form1.showmodal;

form3.Close;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Inst.txt');

end;

end.

unit Test;

interface

uses

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

StdCtrls;

type

TForm1 = class(TForm)

RadioButton: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button1: TButton;

Memo1: TMemo;

Label1: TLabel;

Memo2: TMemo;

Memo3: TMemo;

Memo4: TMemo;

procedure RadioButtonClick(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Stens;

private

bop:tstringlist;

pos:integer;

var1:tstringlist;

var2:tstringlist;

var3:tstringlist;

A, B, C, E, F, G, H, I, L, M, N, O, Q1, Q2, Q3, Q4:integer;

Ast, Bst, Cst, Est, Fst, Gst, Hst, Ist, Lst, Mst, Nst, Ost, Q1st, Q2st, Q3st, Q4st:integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Resik;

{$R *.DFM}

procedure TForm1.RadioButtonClick(Sender: TObject);

begin

Button1.Enabled:=true;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Button1.Enabled:=true;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

Button1.Enabled:=true;

end;

procedure TForm1.Stens;

begin

if (A>=0) and (A<=4) then Ast:=1;

if (A>=5) and (A<=6) then Ast:=2;

if (A=7) then Ast:=3;

if (A>=8) and (A<=9) then Ast:=4;

if (A>=10) and (A<=12) then Ast:=5;

if (A=13) then Ast:=6;

if (A>=14) and (A<=15) then Ast:=7;

if (A=16) then Ast:=8;

if (A>=17) and (A<=18) then Ast:=9;

if (A>=19) and (A<=20) then Ast:=10;

if (B>=0) and (B<=4) then Bst:=1;

if (B=5) then Bst:=2;

if (B=6) then Bst:=4;

if (B=7) then Bst:=5;

if (B=8) then Bst:=6;

if (B=9) then Bst:=7;

if (B=10) then Bst:=8;

if (B=11) then Bst:=9;

if (B>=12) and (B<=13) then Bst:=10;

if (C>=0) and (C<=3) then Cst:=1;

if (C>=7) and (C<=8) then Cst:=2;

if (C>=9) and (C<=10) then Cst:=3;

if (C>=11) and (C<=12) then Cst:=4;

if (C>=13) and (C<=14) then Cst:=5;

if (C>=15) and (C<=16) then Cst:=6;

if (C>=17) and (C<=18) then Cst:=7;

if (C>=19) and (C<=20) then Cst:=8;

if (C>=21) and (C<=22) then Cst:=9;

if (C>=23) and (C<=26) then Cst:=10;

if (E>=0) and (E<=3) then Est:=1;

if (E=4) then Est:=2;

if (E>=5) and (E<=6) then Est:=3;

if (E>=7) and (E<=8) then Est:=4;

if (E>=9) and (E<=10) then Est:=5;

if (E>=11) and (E<=12) then Est:=6;

if (E>=13) and (E<=14) then Est:=7;

if (E>=15) and (E<=16) then Est:=8;

if (E>=17) and (E<=18) then Est:=9;

if (E>=19) and (E<=26) then Est:=10;

if (G>=0) and (G<=4) then Gst:=1;

if (G>=5) and (G<=6) then Gst:=2;

if (G>=7) and (G<=8) then Gst:=3;

if (G>=9) and (G<=10) then Gst:=4;

if (G>=11) and (G<=12) then Gst:=5;

if (G=13) then Gst:=6;

if (G>=14) and (G<=15) then Gst:=7;

if (G>=16) and (G<=17) then Gst:=8;

if (G=18) then Gst:=9;

if (G>=19) and (G<=20) then Gst:=10;

if (H>=0) and (H<=2) then Hst:=1;

if (H>=3) and (H<=4) then Hst:=2;

if (H>=5) and (H<=7) then Hst:=3;

if (H>=8) and (H<=9) then Hst:=4;

if (H>=10) and (H<=12) then Hst:=5;

if (H>=13) and (H<=15) then Hst:=6;

if (H>=16) and (H<=17) then Hst:=7;

if (H>=18) and (H<=20) then Hst:=8;

if (H>=21) and (H<=22) then Hst:=9;

if (H>=23) and (H<=26) then Hst:=10;

if (I>=0) and (I<=5) then Ist:=1;

if (I=6) then Ist:=2;

if (I>=7) and (I<=8) then Ist:=3;

if (I>=9) and (I<=10) then Ist:=4;

if (I>=11) and (I<=12) then Ist:=5;

if (I=13) then Ist:=6;

if (I=14) then Ist:=7;

if (I=15) then Ist:=8;

if (I>=16) and (I<=17) then Ist:=9;

if (I>=18) and (I<=20) then Ist:=10;

if (L>=0) and (L<=1) then Lst:=1;

if (L>=2) and (L<=3) then Lst:=2;

if (L=4) then Lst:=3;

if (L=5) then Lst:=4;

if (L>=6) and (L<=7) then Lst:=5;

if (L>=8) and (L<=9) then Lst:=6;

if (L=10) then Lst:=7;

if (L>=11) and (L<=12) then Lst:=8;

if (L>=13) and (L<=14) then Lst:=9;

if (L>=15) and (L<=20) then Lst:=10;

if (M>=0) and (M<=5) then Mst:=1;

if (M>=6) and (M<=7) then Mst:=2;

if (M=8) then Mst:=3;

if (M>=9) and (M<=10) then Mst:=4;

if (M>=11) and (M<=12) then Mst:=5;

if (M>=13) and (M<=14) then Mst:=6;

if (M>=15) and (M<=16) then Mst:=7;

if (M=17) then Mst:=8;

if (M=18) then Mst:=9;

if (M>=20) and (M<=26) then Mst:=10;

if (N>=0) and (N<=5) then Nst:=1;

if (N=6) then Nst:=2;

if (N=7) then Nst:=3;

if (N=8) then Nst:=4;

if (N>=9) and (N<=10) then Nst:=5;

if (N=11) then Nst:=6;

if (N>=12) and (N<=13) then Nst:=7;

if (N=14) then Nst:=8;

if (N>=15) and (N<=16) then Nst:=9;

if (N>=17) and (N<=20) then Nst:=10;

if (O>=0) and (O<=3) then Ost:=1;

if (O>=4) then Ost:=2;

if (O>=5) and (O<=6) then Ost:=3;

if (O>=7) then Ost:=4;

if (O>=8) and (O<=9) then Ost:=5;

if (O>=10) and (O<=12) then Ost:=6;

if (O>=13) and (O<=14) then Ost:=7;

if (O>=15) and (O<=16) then Ost:=8;

if (O>=17) and (O<=18) then Ost:=9;

if (O>=19) and (C<=26) then Ost:=10;

if (Q1>=0) and (Q1<=3) then Q1st:=1;

if (Q1=4) then Q1st:=2;

if (Q1=5) then Q1st:=3;

if (Q1>=6) and (Q1<=7) then Q1st:=4;

if (Q1=8) then Q1st:=5;

if (Q1=9) then Q1st:=6;

if (Q1>=10) and (Q1<=11) then Q1st:=7;

if (Q1>=12) and (Q1<=13) then Q1st:=8;

if (Q1=14) then Q1st:=9;

if (Q1>=18) and (Q1<=20) then Q1st:=10;

if (Q2>=0) and (Q2<=3) then Q2st:=1;

if (Q2=4) then Q2st:=2;

if (Q2>=5) and (Q2<=6) then Q2st:=3;

if (Q2=7) then Q2st:=4;

if (Q2>=8) and (Q2<=9) then Q2st:=5;

if (Q2>=10) and (Q2<=11) then Q2st:=6;

if (Q2>=12) and (Q2<=13) then Q2st:=7;

if (Q2>=14) and (Q2<=15) then Q2st:=8;

if (Q2>=16) and (Q2<=17) then Q2st:=9;

if (Q2>=18) and (Q2<=20) then Q2st:=10;

if (Q3>=0) and (Q3<=4) then Q3st:=1;

if (Q3>=5) then Q3st:=2;

if (Q3>=6) and (Q3<=7) then Q3st:=3;

if (Q3>=8) and (Q3<=9) then Q3st:=4;

if (Q3=10) then Q3st:=5;

if (Q3>=11) and (Q3<=12) then Q3st:=6;

if (Q3=13) then Q3st:=7;

if (Q3=14) then Q3st:=8;

if (Q3>=15) and (Q3<=16) then Q3st:=9;

if (Q3>=17) and (Q3<=20) then Q3st:=10;

if (Q4>=0) and (Q4<=3) then Q4st:=1;

if (Q4>=4) and (Q4<=5) then Q4st:=2;

if (Q4>=6) and (Q4<=7) then Q4st:=3;

if (Q4>=8) and (Q4<=10) then Q4st:=4;

if (Q4>=11) and (Q4<=12) then Q4st:=5;

if (Q4>=13) and (Q4<=15) then Q4st:=6;

if (Q4>=16) and (Q4<=18) then Q4st:=7;

if (Q4>=19) and (Q4<=20) then Q4st:=8;

if (Q4>=21) and (Q4<=22) then Q4st:=9;

if (Q4>=23) and (Q4<=26) then Q4st:=10;

Form2.Label17.Caption:=IntToStr(Ast);//число в строки

Form2.Label18.Caption:=IntToStr(Bst);

Form2.Label19.Caption:=IntToStr(Cst);

Form2.Label20.Caption:=IntToStr(Est);

Form2.Label21.Caption:=IntToStr(Fst);

Form2.Label22.Caption:=IntToStr(Gst);

Form2.Label23.Caption:=IntToStr(Hst);

Form2.Label24.Caption:=IntToStr(Ist);

Form2.Label25.Caption:=IntToStr(Lst);

Form2.Label26.Caption:=IntToStr(Mst);

Form2.Label27.Caption:=IntToStr(Nst);

Form2.Label28.Caption:=IntToStr(Ost);

Form2.Label29.Caption:=IntToStr(Q1st);

Form2.Label30.Caption:=IntToStr(Q2st);

Form2.Label31.Caption:=IntToStr(Q3st);

Form2.Label32.Caption:=IntToStr(Q4st);

form2.ShowModal;

form1.Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Button1.Enabled:=False;

pos:=1;

bop:=TStringList.Create();

bop.LoadFromFile('Bopros.txt');

Memo1.Lines[0]:=bop.Strings[pos];

var1:=TStringList.Create();

var1.LoadFromFile('VarA.txt');

Memo2.Lines[0]:=var1.Strings[pos];

var2:=TStringList.Create();

var2.LoadFromFile('VarB.txt');

Memo3.Lines[0]:=var2.Strings[pos];

var3:=TStringList.Create();

var3.LoadFromFile('VarC.txt');

Memo4.Lines[0]:=var3.Strings[pos];

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Lines.Clear;

memo2.Lines.Clear;

memo3.Lines.Clear;

memo4.Lines.Clear;

if RadioButton.Checked then

begin

if (pos=3) or (pos=52) or (pos=101) or (pos=126) or (pos=176) then A:=A+2;

if (pos=152) or (pos=177) or (pos=178) then B:=B+1;

if (pos=4) or (pos=30) or (pos=55) or (pos=80) or (pos=104) or (pos=105) or (pos=130) or (pos=179) then C:=C+2;

if (pos=7) or (pos=56) or (pos=131) or (pos=155) or (pos=156) or (pos=180) or (pos=181) then E:=E+2;

if (pos=33) or (pos=58) or (pos=83) or (pos=132) or (pos=133) or (pos=182) or (pos=183) then F:=F+2;

if (pos=109) or (pos=134) or (pos=160) or (pos=184) or (pos=185) then G:=G+2;

if (pos=10) or (pos=36) or (pos=110) or (pos=111) or (pos=135) or (pos=136) or (pos=186) then H:=H+2;

if (pos=12) or (pos=37) or (pos=112) or (pos=138) or (pos=163) then I:=I+2;

if (pos=38) or (pos=88) or (pos=113) or (pos=114) or (pos=164) then L:=L+2;

if (pos=39) or (pos=40) or (pos=65) or (pos=91) or (pos=115) or (pos=116) or (pos=140) then M:=M+2;

if (pos=17) or (pos=42) or (pos=117) or (pos=142) or (pos=167) then N:=N+2;

if (pos=18) or (pos=43) or (pos=69) or (pos=94) or (pos=118) or (pos=119) or (pos=143) then O:=O+2;

if (pos=20) or (pos=46) or (pos=70) or (pos=145) or (pos=169) then Q1:=Q1+2;

if (pos=47) or (pos=71) or (pos=72) or (pos=146) or (pos=171) then Q2:=Q2+2;

if (pos=48) or (pos=73) or (pos=98) or (pos=148) or (pos=173) then Q3:=Q3+2;

if (pos=49) or (pos=50) or (pos=74) or (pos=99) or (pos=124) or (pos=149) or (pos=174) then Q4:=Q4+2;

end;

if RadioButton2.Checked then

begin

if (pos=3) or (pos=26) or (pos=27) or (pos=51) or (pos=52) or (pos=76) or (pos=101) or (pos=126) or (pos=151) or (pos=176) then A:=A+1;

if (pos=28) or (pos=53) or (pos=54) or (pos=78) or (pos=103) or (pos=128) then B:=B+1;

if (pos=4) or (pos=5) or (pos=29) or (pos=30) or (pos=55) or (pos=79) or (pos=80) or (pos=104) or (pos=105) or (pos=129) or (pos=130) or (pos=154) or (pos=179) then C:=C+1;

if (pos=6) or (pos=7) or (pos=31) or (pos=32) or (pos=56) or (pos=57) or (pos=81) or (pos=106) or (pos=131) or (pos=155) or (pos=156) or (pos=180) or (pos=181) then E:=E+1;

if (pos=8) or (pos=33) or (pos=58) or (pos=82) or (pos=83) or (pos=107) or (pos=108) or (pos=132) or (pos=133) or (pos=157) or (pos=158) or (pos=182) or (pos=183) then F:=F+1;

if (pos=9) or (pos=43) or (pos=59) or (pos=84) or (pos=109) or (pos=134) or (pos=159) or (pos=160) or (pos=184) or (pos=185) then G:=G+1;

if (pos=10) or (pos=35) or (pos=36) or (pos=60) or (pos=61) or (pos=85) or (pos=86) or (pos=110) or (pos=111) or (pos=135) or (pos=136) or (pos=161) or (pos=186) then H:=H+1;

if (pos=11) or (pos=12) or (pos=37) or (pos=62) or (pos=87) or (pos=112) or (pos=137) or (pos=138) or (pos=162) or (pos=163) then I:=I+1;

if (pos=13) or (pos=38) or (pos=63) or (pos=64) or (pos=88) or (pos=89) or (pos=113) or (pos=114) or (pos=139) or (pos=164) then L:=L+1;

if (pos=14) or (pos=15) or (pos=39) or (pos=40) or (pos=65) or (pos=90) or (pos=91) or (pos=115) or (pos=116) or (pos=140) or (pos=141) or (pos=165) or (pos=166) then M:=M+1;

if (pos=16) or (pos=17) or (pos=41) or (pos=42) or (pos=66) or (pos=67) or (pos=92) or (pos=117) or (pos=142) or (pos=167) then N:=N+1;

if (pos=18) or (pos=19) or (pos=43) or (pos=44) or (pos=68) or (pos=69) or (pos=93) or (pos=94) or (pos=118) or (pos=119) or (pos=143) or (pos=144) or (pos=168) then O:=O+1;

if (pos=20) or (pos=21) or (pos=45) or (pos=46) or (pos=70) or (pos=95) or (pos=120) or (pos=145) or (pos=169) or (pos=170) then Q1:=Q1+1;

if (pos=22) or (pos=47) or (pos=71) or (pos=72) or (pos=96) or (pos=97) or (pos=121) or (pos=122) or (pos=146) or (pos=171) then Q2:=Q2+1;

if (pos=23) or (pos=24) or (pos=48) or (pos=73) or (pos=98) or (pos=123) or (pos=147) or (pos=148) or (pos=172) or (pos=173) then Q3:=Q3+1;

if (pos=25) or (pos=49) or (pos=50) or (pos=74) or (pos=75) or (pos=99) or (pos=100) or (pos=124) or (pos=125) or (pos=149) or (pos=150) or (pos=174) or (pos=175) then Q4:=Q4+1;

end;

if RadioButton3.Checked then

begin

if (pos=26) or (pos=27) or (pos=51) or (pos=76) or (pos=151) then A:=A+2;

if (pos=77) or (pos=102) or (pos=127) or (pos=153) then B:=B+1;

if (pos=5) or (pos=29) or (pos=79) or (pos=80) or (pos=129) or (pos=154) then C:=C+2;

if (pos=6) or (pos=31) or (pos=32) or (pos=57) or (pos=81) or (pos=106) then E:=E+2;

if (pos=8) or (pos=82) or (pos=107) or (pos=108) or (pos=157) or (pos=158) then F:=F+2;

if (pos=9) or (pos=43) or (pos=59) or (pos=84) or (pos=159) then G:=G+2;

if (pos=35) or (pos=60) or (pos=61) or (pos=85) or (pos=86) or (pos=161) then H:=H+2;

if (pos=11) or (pos=62) or (pos=87) or (pos=137) or (pos=162) then I:=I+2;

if (pos=13) or (pos=63) or (pos=64) or (pos=89) or (pos=139) then L:=L+2;

if (pos=14) or (pos=15) or (pos=90) or (pos=141) or (pos=165) or (pos=166) then M:=M+2;

if (pos=16) or (pos=41) or (pos=66) or (pos=67) or (pos=92) then N:=N+2;

if (pos=19) or (pos=44) or (pos=68) or (pos=93) or (pos=144) or (pos=168) then O:=O+2;

if (pos=21) or (pos=45) or (pos=95) or (pos=120) or (pos=170) then Q1:=Q1+2;

if (pos=22) or (pos=96) or (pos=97) or (pos=121) or (pos=122) then Q2:=Q2+2;

if (pos=23) or (pos=24) or (pos=123) or (pos=147) or (pos=172) then Q3:=Q3+2;

if (pos=25) or (pos=75) or (pos=100) or (pos=125) or (pos=150) or (pos=175) then Q4:=Q4+2;

end;

if RadioButton.Checked then RadioButton.Checked:=false;

if RadioButton2.Checked then RadioButton2.Checked:=false;

if RadioButton3.Checked then RadioButton3.Checked:=false;

pos:=pos+1;

if pos<bop.Count then

memo1.Lines.Strings[0]:=bop.Strings[pos];

memo2.Lines.Strings[0]:=var1.Strings[pos];

memo3.Lines.Strings[0]:=var2.Strings[pos];

memo4.Lines.Strings[0]:=var3.Strings[pos];

if pos<bop.Count then memo1.Lines.Strings[0]:=bop.Strings[pos];

if pos=bop.Count then Stens();