">
Информатика Программирование
Информация о работе

Тема: Объектно-ориентированное программирование

Описание: Программно-педагогическое средство. Постановка задачи. Формулировка задания. Информационная база. Вычислительная система. Инструментальные средства разработки проекта. Требования к конфигурации аппаратного обеспечения. Пректирование. Интерфейс.
Предмет: Информатика.
Дисциплина: Программирование.
Тип: Курсовая работа
Дата: 29.08.2012 г.
Язык: Русский
Скачиваний: 1
Поднять уникальность

Похожие работы:

ПРОГРАММНО-ПЕДАГОГИЧЕСКОЕ СРЕДСТВО

«ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ»

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

«Основы алгоритмизации и программирование»

2012 СОДЕРЖАНИЕ

Введение……………………………………………………………………………………….4

1 Постановка задачи…………………………………………………………………………..6

1.1 Формулировка задания……………………………………………………………6

1.2 Информационная база задачи…………………………………………………….6

2 Вычислительная система……………………………………………………………………7

2.1 Инструментальные средства разработки проекта……………………………….7

2.2 Среда разработки…………………………………………………………………..7

2.3 Требования к конфигурации аппаратного обеспечения…………………….......7

3 Проектирование……………………………………………………………………………...9

3.1 Проектирование интерфейса……………………………………………………...9

3.2 Описание алгоритма……………………………………………………………….10

3.3 Проектирование справочной системы приложения……………………………..10

4 Описание программы………………………………………………………………………..11

4.1 Логическая структура……………………………………………………………...11

4.2 Физическая структура……………………………………………………………...16

4.3 Особенности интерфейса………………………………………………………….16

5 Методика испытаний...………………………………………………………………………18

5.1 Тестовые примеры…………………………………………………………………18

5.2 Результаты тестирования………………………………………………………….27

5.3 Ошибки………………..……………………………………………………………27

6 Описание применения……………………………………………………………………...28

6.1 Назначение программы…………………………………………………………..28

6.2 Условия применения……………………………………………………………..28

6.3 Справочная система………………………………………………………………29

Заключение…………………………………………………………………………..…..……30

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

Приложение 1………………...……………………………………………………………….33

ВВЕДЕНИЕ

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

Данная пояснительная записка содержит разделы:

В разделе «Постановка задачи» будут описаны основные требования, предъявляемые к ППС.

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

В разделе «Проектирование» описаны все компоненты, использованные в данной программе.

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

В разделе «Испытание программы» описан порядок тестирования во всех возможных вариантах функционирования.

В разделе «Описание применения» будет описано наиболее удобное использование по алгоритму и сфера применения.

1 ПОСТАНОВКА ЗАДАЧИ

1.1.Формулировка задания

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

1.2 Информационная база задачи

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

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

2 ВЫЧИСЛИТЕЛЬНАЯ СИСТЕМА

2.1 Инструментальные средства разработки проекта

Delphi — это среда быстрой разработки, в которой в качестве языка программирования используется язык Object Pascal. Delphi позволяет прекрасно визуализировать любую программу, что намного облегчает работу с ней.

2.2 Среда разработки

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

Windows 7 – операционная система семейства Windows, выпущенная в 2008 году и быстро завоевавшая персональные компьютеры пользователей благодаря своей простоте и высокой производительности. Именно поэтому данный курсовой проект разрабатывался в операционной системе windows 7.

2.3 Требования к конфигурации аппаратного обеспечения

Для нормального функционирования проекта «Объектно-ориентированное программирование» необходимо и достаточно иметь ПК с операционной системой Windows Vista/ XP/ 7, программу Delphi 7.

Минимальные требования:

- процессор: Intel Pentium II 400 MHz (или аналогичный);

- оперативная память: 64 Mb;

- видеокарта: объем 4 Mb;

- операционная система: Windows 89/Me/NT/2000/XP;

- устройства ввода: клавиатура, мышь;

- устройство вывода: монитор.

3 ПРЕКТИРОВАНИЕ

3.1 Проектирование интерфейса

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

При нажатии на пункт «Прохождение тестов» появляется окно с выбором тестов « На время» либо «Без учёта времени».

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

При на нажатии на пункт «Допольнительно»

При нажатии на пункт «О программе» появляется окно с информацией о данном продукте.

При нажатии на пункт «Выход из программы» программа прекращает свою работу.

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

MainMenu – позволяет создать меню на форме для удбного интерфейса при работе с программой.

OpenPictureDialog – позволяет загружать картинки для дальнейшего изменения интерфейса.

Label - указывает пользователю, что именно он должен ввести в поле ввода.

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

BitBtn – кнопка дающая возможность отобразить на ее поверхности изображение.

SpeedButton – реализуется для кнопок с фиксацией.

RadioGroup – в данной программе используется для реализации тестов с вариантами ответов.

Button - Простейшая и наиболее часто используемая кнопка.

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

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

Image – позволяет загрузить на форму картинку.

3.2. Проектирование справочной системы приложения

Данная справочная система была разработана на языке программирования HTML. Она содержит разделы:

1. Система тестов в которой описаны разновидности тестов
2. Вход и регестрация в котором описан как пользователь может создать новую учётную запись, либо войти под уже существующим Логином и Паролем.
3. Дополнительно в котором описано как можно изменить интерфейс программы.
4.О программе в котором описано для чего предназначен данный проект и что в нём можно осуществить.
5. Просмотр лекций в котором описано как можно перейти к той или иной лекции для повторения и закрепления знаний по теме «Объектно – ориентированное программирование».

4 ОПИСАНИЕ ПРОГРАММЫ

4.1. Логическая структура

Unit1
procedure Button1Click(Sender: TObject); - Осуществляет проверку логина и пароля, вход в программу при правильном логине и пароле.
procedure Button2Click(Sender: TObject); - Переход на форму регистрации, где можно создать свою учетную запись.
procedure TForm1.Button3Click(Sender: TObject); - Пункт меню «Выход», открывающий форму с вопросом о подтверждении выхода.

Unit2
procedure TForm2.Button1Click(Sender: TObject); - осуществляет регистрацию нового пользователя в программе ППС «Объектно-ориентированное программирование».
procedure TForm2.Button2Click(Sender: TObject); - выход из программы.


Unit3
procedure SpeedButton1Click(Sender: TObject); - открытие формы с прохождения тестов.
procedure SpeedButton2Click(Sender: TObject); - открывает форму просмотра лекций в программе .

procedure SpeedButton3Click(Sender: TObject); - выход из программы.

procedure SpeedButton4Click(Sender: TObject); - открытие окна «О программе».

procedure SpeedButton5Click(Sender: TObject); - открытие окна «Дополнительно».

Unit4
procedure TForm4.N1Click(Sender: TObject); - закрытие,выход из программы.

procedure TForm4.N2Click(Sender: TObject); - возвращение в главное меню.

procedure TForm4.SpeedButton1Click(Sender: TObject);- переход к тесту с выбором.

procedure TForm4.SpeedButton2Click(Sender: TObject); - переход к тесту на время.

procedure TForm4.N3Click(Sender: TObject); - пункт меню «Стили»,позволяет выбрать оформление формы.

procedure TForm4.N4Click(Sender: TObject); - пункт меню «Справка», позволяет пользователю обратиться за справочной информацией.

Unit5

procedure TForm5.N1Click(Sender: TObject); - пункт меню «Выход», выводит окно с подтверждением о выходе.

procedure TForm5.N2Click(Sender: TObject); - пункт меню «Справка», позволяет пользователю обратиться за справочной информацией.

Unit7
procedure TForm7.FormCreate(Sender: TObject); - количеству общих вопросов и количеству правильных вопросов присваиваем значение ноль

procedure TForm7.SpeedButton1Click(Sender: TObject);- - проверка правильности ответа, переход на следующий вопрос
procedure TForm7.RadioGroup1Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup2Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup3Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup4Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup9Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup8Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup7Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup6Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup5Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.RadioGroup10Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure TForm7.N2Click(Sender: TObject); - выход в главное меню.

procedure TForm7.N1Click(Sender: TObject); - пункт меню «Справка», позволяет пользователю обратиться за справочной информацией.

Unit8
procedure Tstatistic.SpeedButton4Click(Sender: TObject);-выводит системную время и дату, количество правильных ответов, записывает результаты в текстовый файл

procedure Tstatistic.SpeedButton1Click(Sender: TObject);- сохраняет статистику в файл

procedure Tstatistic.SpeedButton2Click(Sender: TObject);-очищает поле Memo

procedure Tstatistic.SpeedButton3Click(Sender: TObject);- очищает поле Memo, закрывает данную форму, возвращает в главное меню

procedure Tstatistic.N1Click(Sender: TObject);-закрывает данную форму, возвращается в главное меню

Unit9

procedure RadioGroup5Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup10Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup9Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup4Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup8Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup3Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup7Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup2Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup6Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure RadioGroup1Click(Sender: TObject);- наращивает переменную правильных ответов и если она равна 10, тогда делаем доступной кнопки проверки

procedure Timer1Timer(Sender: TObject);- если прошло 10 секундБ, то заблокировать всю форму, закрыть её и вывести результаты

procedure SpeedButton1Click(Sender: TObject);- остановка таймера и подсчет парвильных ответов

procedure FormActivate(Sender: TObject);-активирует, запускает таймер

procedure TForm9.Button1Click(Sender: TObject);- выход в главное меню

procedure TForm9.N1Click(Sender: TObject); - выход из программы.

procedure TForm5.N2Click(Sender: TObject); - пункт меню «Справка», позволяет пользователю обратиться за справочной информацией.


Unit10
procedure ComboBox1Change(Sender: TObject);-позволяет выбрать лекцию

procedure TForm10.N1Click(Sender: TObject); - закрывает, возвращает в главное меню.

procedure TForm10.N2Click(Sender: TObject); - выходит из программы

procedure TForm10.N3Click(Sender: TObject); - пункт меню «Справка», позволяет пользователю обратиться за справочной информацией.


Unit11

procedure SpeedButton1Click(Sender: TObject); - закрывает форму

procedure SpeedButton2Click(Sender: TObject); - выходит из программы

Unit12

procedure BitBtn1Click(Sender: TObject); - позволяет менять стиль на Form4.

procedure BitBtn2Click(Sender: TObject); - позволяет менять стиль на Form4.

procedure BitBtn3Click(Sender: TObject); - позволяет менять стиль на Form4.

procedure BitBtn4Click(Sender: TObject); - позволяет менять стиль на Form4.

procedure TForm12.N1Click(Sender: TObject); - возвращает на Form4.

procedure TForm12.N2Click(Sender: TObject); - пункт меню «Справка», позволяет пользователю обратиться за справочной информацией.

4.2 Физическая структура

Описание модулей

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

Unit2 – дает возможность незарегистрированным пользователям создать свою учетную запись для идентификации в программе

Unit3 – главное меню, позволяет работать со всеми возможностями программы, так как осуществляет доступ к ним, модуль является главным меню программного продукта

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

Unit5- модуль позволяющий перейти к разделу описания «О программе».

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

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

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

Unit10-позволяет пользователю выбрать и ознакомиться с лекциями по теме «Объектно-ориентированное программирование».После ознакомления пользователь может вернуться в главное меню для прохождения тестов либо вообще остановить работу программы.

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

Unit12 – модуль, позволяющий выбирать стиль формы.

5 МЕТОДИКА ИСПЫТАНИЙ

5.1 Тестовые примеры и результаты тестирования

Пункт 1 – проверка авторизации.

Пункт 2 – проверка работы главного меню.

Пункт 3 – проверка меню выбора тестов.

1.Произвели запуск программы :



Рисунок1 – Форма авторизации

1.1.Вводим неверные данные в поля. Программа выдаёт нам сведения об ошибкеи просит повторить операцию.



Рисунок2 – Форма регистрации

1.2.При нажатии на кнопку «Зарегистрироваться» пользователь может создать новую учётную запись. При совпадении логина или пароля, ему сразу же выводиться сообщение «Уже существует»:



Рисунок 3 – Форма показывающая существующие логины

1.3 Вводим верные данные: логин- alina, пароль-123



Рисунок 4 – Форма показывающая правильный логин и пароль

И открывается форма Главное меню:



Рисунок 5 – Форма главного меню

2.1.При нажатии на кнопку «Просмотр лекции» открывается форма, которая предоставляет пользователю выбрать необходимую ему лекции по теме «Объектно-ориентированное программирование»:



Рисунок 6 – Форма просмотра лекций

2.2.При нажатии на кнопку «Выход» программа открывает форму с подтверждением о выходе из программы:



Рисунок 7 – Форма подтверждения выхода из программы

2.3.При нажатии на кнопку «Нет» программа возвращается на форму с выбором и просмотром лекций.

2.4.При нажатии на кнопку «Дополнительно» в главном меню открывается форма с вариантами изменения стиля формы.



Рисунок 8 – Форма выбора стиля

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



Рисунок 9 – Форма описания программы

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



Рисунок 10 – Форма выхода из программы

2.7.При нажатии на кнопку «Да» программа завершает свою работу.

3. Проверка меню выбора тестов и работа с тестами.

3.1. При нажатии на кнопку «Прохождение тестов » программа открывает форму с выбором тестов:



Рисунок 11 – Форма выбора теста

3.2. При нажатии на кнопку «Назад» программа возвращается на форму «Главное меню».

3.3. . При нажатии на кнопку «Выход» программа останавливает свою работу.

3.4. При выборе «Тесты с выбором» открывается форма с прохождением теста без учёта времени:



Рисунок 12 – Форма с тестом без учёта времени

3.4. При нажатии на кнопку «Выход» программа возвращается на форму «Главное меню».

3.5.При окончании теста пользователю необходимо ввести своё имя:



Рисунок 13 – Форма ввода имени для статистики

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



Рисунок 14 – Форма статистики

3.7.При выборе кнопки «Тесты на время» открывается форма с тестом на время.



Рисунок 15 – Форма с тестом на время

3.8. При нажатии на кнопку «Выход» программа возвращается на форму «Главное меню».

3.9.Если пользователь не уложился в заданное время ему выводит сообщение о том, что «К сожалению Ваше время вышло!»:



Рисунок 16 – Форма с сообщением о исходе времени

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



Рисунок 17 – Форма показывающая статистику

3.11.При нажатии на кнопку «Сбросить результат» все результаты будут аннулированы .



Рисунок 18 – Форма показывающая очистку статистики

5.2 Ошибки при написании

При написании данного курсового проекта, возникало не мало проблем и ошибок, например:

1. Ошибка в подключении справочной системы в Delphi.

2. Ошибка с изменением стиля форм. Её решением послужило перемещение основных картинок в корневую «Курсовая Алина», папку «Стили».

3. Ошибка с вводом-выводом в текстовый файл.

4. Ошибка с типизированными файлами.

5. Ошибка в составлении блок-схемы.

6 ОПИСАНИЕ ПРИМЕНЕНИЕ

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

Данная программа позволяет пользователю закрепить, проверить и усовершенствовать свои знания и умения по теме «Объектно-ориентированное программирование» в среде разработки Delphi.

6.2 Условия применения

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

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

6.3 Структура справочной системы

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

1. Система тестов. Здесь представлена полная информация о системе тестирования в программе.

2. Вход и регистрация. Предоставляет пользователю полную информацию о регистрации и авторизации в программе .

3. Дополнительно. Предоставляет пользователю информацию о возможности изменения стиля форм.

4. О программе. Предоставляет пользователю информацию о данном курсовом проекте.

5. Просмотр лекций. Здесь представлена информация об использовании лекций в программе на тему «Объектно-ориентированное программирование».

ЗАКЛЮЧЕНИЕ

В данном курсовом проекте рассматривается проблема изучения темы «Объектно-ориентированное программирование». Эта тема очень важна для изучения. Так как она помогает достичь максимально приближенных к аналогичным объектам из реального мира, что позволяет пользователю получить желаемый результат.

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

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

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

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

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

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Бобровский, С. И. Delphi 7: учеб курс / С. И. Бобровский. – СПб.: Питер, 2004. – 736 с.

2. Орлик, С.В. Секреты Delphi / С.В. Орлик. – М.: БИНОМ, 1996. – 316 с.

3. Фаронов, В. В. Программирование в Delphi 7: учеб. курс / В. В. Фаронов. - СПб.: Питер, 2004. – 459 с.

4. Программирование в Delphi для Windows. Архангельский А.Я. М.: Бином-Пресс,2007.

5. Программирование на языке Pascal. Рапаков Г. Г., Ржеуцкая С. Ю. СПб.: БХВ-Петербург, 2004.

6. Delphi 7. Хомоненко А.Д. и др. СПб.: БХВ-Петербург, 2008.

7. www.programmersforum.ru

8. www.codeforum.ru

9. www.delphisources.ru

ПРИЛОЖЕНИЕ 1

(ОБЯЗАТЕЛЬНОЕ)

ЛИСТИНГ ПРОГРАММЫ

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, xpman, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button3: TButton;

Image1: TImage;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit11;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

var s:stud; c:integer; f:boolean;

begin

assignfile(vvod,vvod.txt);

Form2.show;

form1.Visible:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

assignfile(vvod,vvod.txt);

reset(vvod);

seek(vvod,0);

if (edit1.Text<>) or (edit2.Text<>) then

while not eof(vvod) do

begin

read(vvod,s);

if (edit1.Text=s.log) and (edit2.Text=s.par) then

begin

form3.show;

form1.Visible:=false;

end

else

begin

label3.caption:= возможно вы не правильно ввели пароль.Повторите;

label3.visible:=true;

end;

end

else

label3.caption:= поле пустое нужно ввести;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form11.show;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm2 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Label4: TLabel;

Label8: TLabel;

Button2: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

type

stud=record

log:string[14];

par:string[16];

end;

var

vvod:file of stud;

Form2: TForm2; s:stud;

implementation

uses Unit1, Unit11;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var s:stud; c:integer; f:boolean;

vvod:file of stud;

begin

assignfile(vvod,vvod.txt);

{rewrite(vvod); }

reset(vvod);

f:=false;

while not eof(vvod) do

begin

read(vvod,s);

if (edit1.Text=s.log) then

begin

label4.Visible:=true;

f:=true;

end;

end;

if f=false then

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

if edit2.Text<> edit3.text then

label8.Visible:=true

else

begin

label8.Visible:=false;

label4.Visible:=false;

seek(vvod,filesize(vvod));

s.log:=edit1.Text;

s.par:=(edit3.text);

write(vvod,s);

closefile(vvod);

form1.Visible:=true;

form2.Close;

edit3.Text :=;

edit2.Text :=;

edit1.Text :=;

end

else

begin

label4.Visible:=false;

label8.caption:=Поля не заполнены;

label8.Visible:=true;

end;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form11.show;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, Buttons, ExtCtrls, jpeg, StdCtrls,ShellAPI;

type

TForm3 = class(TForm)

Panel1: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

Image1: TImage;

Label1: TLabel;

Button1: TButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4, Unit6, Unit10, Unit11, Unit5, Unit13, Unit1, Unit12;

{$R *.dfm}

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

form4.show;

form3.Visible:=false;

end;

procedure TForm3.SpeedButton6Click(Sender: TObject);

begin

form6.show;

form3.Visible:=false;

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);

begin

form10.show;

form3.Visible:=false;

end;

procedure TForm3.SpeedButton3Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm3.SpeedButton4Click(Sender: TObject);

begin

form5.show;

close;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Справкаlol.htm, nil, nil, SW_SHOWNORMAL);

end;

procedure TForm3.SpeedButton5Click(Sender: TObject);

begin

form12.show;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, Menus, Buttons, ExtCtrls, jpeg, ShellAPI;

type

TForm4 = class(TForm)

Panel1: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Image1: TImage;

N3: TMenuItem;

N4: TMenuItem;

Image2: TImage;

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit3, Unit1, Unit5, Unit7, Unit9, Unit12, Unit11;

{$R *.dfm}

procedure TForm4.N2Click(Sender: TObject);

begin

close;

form3.visible:=true;

end;

procedure TForm4.N1Click(Sender: TObject);

begin

close;

form11.show;

end;

{procedure TForm4.SpeedButton3Click(Sender: TObject);

begin

form5.Show;

form4.Visible:=false;

end; }

procedure TForm4.SpeedButton1Click(Sender: TObject);

begin

Form7.Show;

form4.Visible:=false;

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);

begin

Form9.Show;

form4.Visible:=false;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Спавка Алинаlol.html, nil, nil, SW_SHOWNORMAL)

end;

end.

unit Unit5;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, Menus, ShellAPI;

type

TForm5 = class(TForm)

Image1: TImage;

Memo1: TMemo;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure TForm5.N1Click(Sender: TObject);

begin

close;

form3.show;

end;

procedure TForm5.N2Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Справка Алинаlol.html, nil, nil, SW_SHOWNORMAL);

end;

end.

unit Unit7;

interface

uses

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

Dialogs, Buttons, StdCtrls, ExtCtrls, jpeg, Menus, shellapi;

type

TForm7 = class(TForm)

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

RadioGroup7: TRadioGroup;

RadioGroup8: TRadioGroup;

RadioGroup9: TRadioGroup;

RadioGroup10: TRadioGroup;

SpeedButton1: TSpeedButton;

Label1: TLabel;

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure RadioGroup4Click(Sender: TObject);

procedure RadioGroup9Click(Sender: TObject);

procedure RadioGroup8Click(Sender: TObject);

procedure RadioGroup7Click(Sender: TObject);

procedure RadioGroup6Click(Sender: TObject);

procedure RadioGroup5Click(Sender: TObject);

procedure RadioGroup10Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

true_otvet:integer;

kolvo:integer;

end;

var

Form7: TForm7;

implementation

uses Unit8, Unit3, Unit1;

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);

begin

kolvo:=0;

true_otvet:=0;

end;

procedure TForm7.SpeedButton1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup2.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup3.ItemIndex = 0

then true_otvet:=true_otvet+1;

if RadioGroup4.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup5.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup6.ItemIndex = 1

then true_otvet:=true_otvet+1;

if RadioGroup7.ItemIndex = 1

then true_otvet:=true_otvet+1;

if RadioGroup8.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup9.ItemIndex = 0

then true_otvet:=true_otvet+1;

if RadioGroup10.ItemIndex = 0

then true_otvet:=true_otvet+1;

statistic.Label2.Caption:=inttostr(true_otvet);

close;

statistic.show;

end;

procedure TForm7.RadioGroup1Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup2Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup3Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup4Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup9Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup8Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup7Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup6Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup5Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.RadioGroup10Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

form3.show;

close;

end;

procedure TForm7.N2Click(Sender: TObject);

begin

close;

form3.Visible:=true;;

end;

procedure TForm7.N1Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Справка Алинаlol.html, nil, nil, SW_SHOWNORMAL);

end;

end.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Buttons, Menus;

type

Tstatistic = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Label1: TLabel;

Edit1: TEdit;

SpeedButton4: TSpeedButton;

Memo1: TMemo;

Label2: TLabel;

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var t:string;

statistic: Tstatistic;

implementation

uses Unit7, Unit3;

{$R *.dfm}

procedure Tstatistic.SpeedButton4Click(Sender: TObject);

begin

t:=Edit1.Text + тест.txt;

memo1.Visible:=true;

SpeedButton1.Visible:=true;

SpeedButton2.Visible:=true;

SpeedButton3.Visible:=true;

SpeedButton4.Visible:=false;

memo1.Lines.Add(DateToStr(date));

memo1.Lines.Add(TimeToStr(time));

memo1.Lines.Add(Edit1.Text + Вы прошли тест с выбором ответа ответив на +

Label2.Caption + вопросов);

end;

procedure Tstatistic.SpeedButton1Click(Sender: TObject);

begin

memo1.Lines.SaveToFile(результаты + t);

end;

procedure Tstatistic.SpeedButton2Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure Tstatistic.SpeedButton3Click(Sender: TObject);

begin

memo1.Clear;

form3.visible:=true;

close;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, ExtCtrls, Buttons, StdCtrls, jpeg, Menus, shellapi;

type

TForm9 = class(TForm)

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

RadioGroup4: TRadioGroup;

RadioGroup5: TRadioGroup;

RadioGroup6: TRadioGroup;

RadioGroup7: TRadioGroup;

RadioGroup8: TRadioGroup;

RadioGroup9: TRadioGroup;

RadioGroup10: TRadioGroup;

SpeedButton1: TSpeedButton;

Timer1: TTimer;

Image1: TImage;

Image2: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure RadioGroup5Click(Sender: TObject);

procedure RadioGroup10Click(Sender: TObject);

procedure RadioGroup9Click(Sender: TObject);

procedure RadioGroup4Click(Sender: TObject);

procedure RadioGroup8Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure RadioGroup7Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup6Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

time,kolvo, true_otvet,sek,min:integer;

end;

var

Form9: TForm9;

implementation

uses Unit8, Unit3, Unit1;

{$R *.dfm}

procedure TForm9.RadioGroup5Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup10Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup9Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup4Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup8Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup3Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup7Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup2Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup6Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.RadioGroup1Click(Sender: TObject);

begin

kolvo:=kolvo+1;

if kolvo=10

then SpeedButton1.Enabled:=true;

end;

procedure TForm9.Timer1Timer(Sender: TObject);

begin

time:=time+1;

if time = 10

then

begin

RadioGroup1.Enabled:=False;

RadioGroup2.Enabled:=False;

RadioGroup3.Enabled:=False;

RadioGroup4.Enabled:=False;

RadioGroup5.Enabled:=False;

RadioGroup6.Enabled:=False;

RadioGroup7.Enabled:=False;

RadioGroup8.Enabled:=False;

RadioGroup9.Enabled:=False;

RadioGroup10.Enabled:=False;

//if

ShowMessage(К сожалению Ваше время вышло!);

close;

statistic.show;

statistic.Memo1.Clear;

statistic.Memo1.Lines.Add(К сожалению, Вы не уложились в отведённое время.);

end;

end;

procedure TForm9.SpeedButton1Click(Sender: TObject);

begin

timer1.Enabled:=false;

if RadioGroup1.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup2.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup3.ItemIndex = 0

then true_otvet:=true_otvet+1;

if RadioGroup4.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup5.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup6.ItemIndex = 1

then true_otvet:=true_otvet+1;

if RadioGroup7.ItemIndex = 1

then true_otvet:=true_otvet+1;

if RadioGroup8.ItemIndex = 2

then true_otvet:=true_otvet+1;

if RadioGroup9.ItemIndex = 0

then true_otvet:=true_otvet+1;

if RadioGroup10.ItemIndex = 0

then true_otvet:=true_otvet+1;

statistic.memo1.Lines.Add(Вы прошли тест на время);

close;

statistic.show;

end;

procedure TForm9.FormActivate(Sender: TObject);

begin

Timer1.Enabled:=true;

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

form3.show;

close;

end;

procedure TForm9.N1Click(Sender: TObject);

begin

close;

form3.show;

end;

procedure TForm9.N2Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Справка Алинаlol.html, nil, nil, SW_SHOWNORMAL);

end;

end.

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, Menus,shellapi;

type

TForm10 = class(TForm)

Memo1: TMemo;

MainMenu1: TMainMenu;

N1: TMenuItem;

ComboBox1: TComboBox;

N2: TMenuItem;

N3: TMenuItem;

procedure ComboBox1Change(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit3, Unit11, Unit1;

{$R *.dfm}

procedure TForm10.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.ItemIndex = 0 then

memo1.Lines.LoadFromFile(лекции1.txt);

if ComboBox1.ItemIndex = 1 then

memo1.Lines.LoadFromFile(лекции2.txt);

if ComboBox1.ItemIndex = 1 then

memo1.Lines.LoadFromFile(лекции3.txt);

end;

procedure TForm10.N1Click(Sender: TObject);

begin

close;

form3.visible:=true;

end;

procedure TForm10.N2Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm10.N3Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Справка Алинаlol.html, nil, nil, SW_SHOWNORMAL);

end;

end.

unit Unit11;

interface

uses

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

Dialogs, Buttons, jpeg, ExtCtrls;

type

TForm11 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

Image1: TImage;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TForm11.SpeedButton1Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm11.SpeedButton2Click(Sender: TObject);

begin

close;

form4.show;

end;

end.

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtDlgs, Menus, shellapi;

type

TForm12 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

OpenPictureDialog1: TOpenPictureDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit4, Unit1, Unit3;

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

form4.image1.picture.LoadfromFile(стиль1.bmp);

form3.image1.picture.LoadfromFile(стиль1.bmp);

end;

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

form4.image1.picture.LoadfromFile(стиль2.bmp);

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

form4.image1.picture.LoadfromFile(стиль3.bmp);

end;

procedure TForm12.BitBtn4Click(Sender: TObject);

begin

form4.image1.picture.LoadfromFile(стиль4.bmp);

end;

procedure TForm12.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm12.N2Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, open, Справка Алинаlol.html, nil, nil, SW_SHOWNORMAL);

end;

end.



1