Приложение для тестирования студентов

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

Содержание

• Введение
• 1. Описание среды программирования
• 1.1 Объектно-ориентированное программирование
• 1.2 Интерфейс среды Delphi
• 1.3 События в Delphi
• 1.4 Свойства в Delphi
• 2. Разработка приложения для тестирования студентов
• 2.1 Системные требования
• Заключение
• Список литературы
• Приложение


Введение

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

Delphi - это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi - строго типизированный объектно-ориентированный язык.

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

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

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

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

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

- собрать необходимый материал для проведения конкретного анализа;

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

1. Описание среды программирования

Традиционно в среде Windows было достаточно сложно реализовывать пользовательский интерфейс. Но именно разработка интерфейса в Delphi является самой простой задачей для программиста

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

Среда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD - rapid application development), поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL - библиотека визуальных компонент, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE. Визуальные компоненты Delphi открыты для надстройки и переписывания.

Эта библиотека объектов включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE.

Delphi использует структурный объектно-ориентированный язык (ObjectPascal), который сочетает с одной стороны выразительную мощь и простоту программирования, характерную для языков 4GL, а с другой стороны эффективность языка 3GL. Программисты немедленно могут начать производить работающие приложения, и им не придется для этого изучать особенности программирования событий в Windows. Delphi полностью поддерживает передовые программные концепции включая инкапсуляцию, наследование, полиморфизм и управление событиями.

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

Объекты - это некоторые элементы, из которых строится приложение (программное);

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

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

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

1.2 Итнерфейс среды Delphi

Существует два основных вида интерфейса под Windows: MDI и SDI.

MDI (MultipleDocumentInterface) - определяет особый способ управления нескольких дочерних окон ВНУТРИ одного большого окна.

Среда Delphi же следует другой спецификации, называемой SingleDocumentInterface (SDI) , и состоит из нескольких отдельно расположенных окон.

Ниже перечислены основные составные части Delphi:

1. Дизайнер Форм (FormDesigner)

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

3. Палитра Компонент (ComponentPalette)

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

5. Справочник (On-linehelp)

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

Соответственно общий интерфейс среды по умолчанию состоит из 4-х основных окон (Рисунок 1):

Рисунок 1 Общий интерфейс среды программирования

Программисты на Delphi проводят большинство времени переключаясь между Дизайнером Форм и Окном Редактора Исходного Текста (которое для краткости называют Редактор).

Дизайнер Форм показан на рисунке 2, окно редактора - на рисунке 3.

Рисунок 2 Дизайнер форм

Дизайнер Форм в Delphi столь интуитивно понятен и прост в использовании, что создание визуального интерфейса превращается в детскую игру. Дизайнер Форм первоначально состоит из одного пустого окна, которое можно заполнять всевозможными объектами, выбранными на Палитре Компонент.

Несмотря на всю важность Дизайнера Форм, местом, где программисты проводят основное время, является Редактор. Логика является движущей силой программы и Редактор - то место, где программист ее "кодирует".

Слева от Дизайнера Форм можно видеть Инспектор Объектов (Рис.4). Заметьте, что информация в Инспекторе Объектов меняется в зависимости от объекта, выбранного на форме. Важно понять, что каждый компонент является настоящим объектом и можно менять его вид и поведение с помощью Инспектора Объектов.

Рисунок 4 Инспектор объектов,

Инспектор Объектов состоит из двух страниц, каждую из которых можно использовать для определения поведения данного компонента. Первая страница - это список свойств, вторая - список событий. Если нужно изменить что-нибудь, связанное с определенным компонентом, то обычно это делается в Инспекторе Объектов. К примеру, можно изменить имя и размер компонента TLabel изменяя свойства Caption, Left, Top, Height, и Width.

Можно использовать закладки внизу Инспектора Объектов для переключения между страницами свойств и событий. Страница событий связана с Редактором; если дважды щелкнуть мышкой на правую сторону какого-нибудь пункта, то соответствующий данному событию код автоматически запишется в Редактор, сам Редактор немедленно получит фокус, и сразу же имеется возможность добавить код обработчика данного события.

В главном окне принято выделять три основных выделенных элемента (не считая стандартной строки-заголовка):

· Строка меню (MenuSystem)

· Палитра компонентов

· Панель быстрого доступа (SpeedBar)

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

Палитра Компонент (см. Рис.5) позволяет Вам выбрать нужные объекты для размещения их на Дизайнере Форм. Для использования Палитры Компонент просто первый раз щелкните мышкой на один из объектов и потом второй раз - на Дизайнере Форм. Выбранный Вами объект появится на проектируемом окне и им можно манипулировать с помощью мыши.

Палитра Компонент использует постраничную группировку объектов. Внизу Палитры находится набор закладок - Standard, Additional, Dialogs и т.д. Если щелкнете мышью на одну из закладок, то можете перейти на следующую страницу Палитры Компонент. Принцип разбиения на страницы широко используется в среде программирования Delphi и его легко можно использовать в своей программе. (На странице Additional есть компоненты для организации страниц с закладками сверху и снизу).

Рисунок 5 Палитра компонент

SpeedBar находится непосредственно под меню, слева от Палитры Компонент (рис.6). SpeedBar выполняет много из того, что можно сделать через меню. Если задержать мышь над любой из иконок на SpeedBar, то можно увидеть, что появится подсказка, объясняющая назначение данной иконки. delphi программирование итнерфейс

Рисунок 6 SpeedBar

1.3 События в Delphi

Объекты из библиотеки визуальных компонент (VCL) Delphi, равно как и объекты реального мира, имеют свой набор свойств и свое поведение - набор откликов на события, происходящие с ними. Список событий для данного объекта, на которые он реагирует, можно посмотреть, например, в Инспекторе Объектов на странице событий. (На самом деле, на этой странице представлен список свойств, которые имеют тип вроде TMouseMoveEvent и представляют из себя процедуры-обработчики событий. Существует соглашение по названиям данных свойств. Например, OnDblClick соответствует двойному щелчку мыши, а OnKeyUp - событию, когда нажатая клавиша была отпущена.) Среди набора событий для различных объектов из VCL есть как события, портируемые из Windows (MouseMove, KeyDown), так и события, порождаемые непосредственно в программе (DataChange для TDataSource).

Поведение объекта определяется тем, какие обработчики и для каких событий он имеет. Создание приложения в Delphi состоит из настройки свойств используемых объектов и создания обработчиков событий.

Простейшие события, на которые иногда нужно реагировать - это, например, события, связанные с мышкой (они есть практически у всех видимых объектов) или событие Click для кнопки TButton. Предположим, что вы хотите перехватить щелчок левой кнопки мыши на форме. Чтобы сделать это - создайте новый проект, в Инспекторе Объектов выберите страницу событий и сделайте двойной щелчок на правой части для свойства OnClick. Получается заготовку для обработчика данного события.

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

1.4 Свойства в Delphi

Каждый компонент, который помещается на форму, имеет свое отражение в окне Инспектора Объектов (ObjectInspector).

ObjectInspector имеет две "странички" - "Properties" (Свойства) и "Events" (События). Создание программы в Delphi сводится к "нанесению" компонент на форму (которая, кстати, также является компонентом) и настройке взаимодействия между ними путем:

· изменения значения свойств этих компонент

· написания адекватных реакций на события .

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

Свойства служат двум главным целям. Во-первых, они определяют внешний вид формы или компонента. А во-вторых, свойства определяют поведение формы или компонента.

Существует несколько типов свойств, в зависимости от их "природы", т.е. внутреннего устройства:

Во-первых, те свойства, значения которых являются числами или строками. Например, свойства Left и Top принимают целые значения, определяющие положение левого верхнего угла компонента или формы. Свойства Caption и Name представляют собой строки и определяют заголовок и имя компонента или формы.

Во-вторых, те, которые могут принимать значения из предопределенного набора (списка). Простейший пример - это свойство типа Boolean , которое может принимать значения True или False .

И в-третьих, те, которые поддерживают вложенные значения (или объекты). ObjectInspector изображает знак "+" слева от названия таких свойств. Имеется два вида таких свойств: множества и комбинированные значения . ObjectInspector изображает множества в квадратных скобках. Если множество пусто, оно отображается как []. Установки для вложенных свойств вида "множество" обычно имеют значения типа Boolean. Наиболее распространенным примером такого свойства является свойство Style с вложенным множеством булевых значений. Комбинированные значения отображаются в Инспекторе Объектов как коллекция некоторых величин, каждый со своим типом данных (Рис. 1). Некоторые свойства, например, Font, для изменения своих значений имеют возможность вызвать диалоговое окно. Для этого достаточно щелкнуть маленькую кнопку с тремя точками в правой части строки Инспектора Объектов, показывающей данное свойство.

Delphi позволяет легко манипулировать свойствами компонент как в режиме проектирования (designtime), так и в режиме выполнения программы (runtime).

В режиме проектирования манипулирование свойствами осуществляется с помощью Дизайнера Форм (FormsDesigner) или, как Вы уже видели, на страничке "Properties" Инспектора Объектов.

2. Разработка приложения для тестирования студентов

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

Разместим на форме следующие компоненты:

1. PageControl1. Свойства Height - 529, Width - 1201.

2. TabSheet1-10, свойства у этих компонентов одинаковые. Caption - номерзадания, Top - 24, Width - 1193.

3. RadioGroup 1-10, у каждого компонента свой вопрос, его прописываем в Caption.

4. RadioButton 1-40, у каждого компонента свой вариант ответа (прописываем в Caption), один из них правильный. У правильного ответа в процедуре прописываем переменную и ставим число 1, у не правильного ответа, число 0.

5. Button 1-9 кнопка «далее». Свойства компонента: Caption - Далее, Top - 168, Width - 113. Далее прописываем процедуру перехода.

6. Button10 кнопка «Узнать результат». Свойства компонента: Caption - Узнать результат, Top - 96, Width - 121. Далее прописываем процедуру результата.

2.1 Системные требования

Данная программа должна работать автономно под управлением операционных систем Windows 95, Windows 98, Windows ME, NT 4.0, Windows 2000, Windows XP.

Для работы программного изделия требуется персональный компьютер, обладающий следующими параметрами:

ь объем ОЗУ не менее 32 Мб;

ь объем жесткого диска не менее 900 Мб;

ь микропроцессор с тактовой частотой не менее 133 МГц;

ь монитор с глубиной цвета 16 бит;

ь дисковод floppy-дисков.

Для бесперебойной работы программы рекомендуем следующие параметры компьютера:

ь объем ОЗУ 128 Мб;

ь объем жесткого диска 3 Гб;

ь микропроцессор с тактовой частотой 333 МГц.

Заключение

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

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

Достоинства:

Существует возможность очищать результат;

Программный продукт малотребователен к системным ресурсам компьютера.

Недостатки:

Невозможность сохранения результатов в памяти программы;

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

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

1. А. Архангельский, В. Ильин, М. Тагин Русская справка (HELP) по Delphi 5 и ObjectPascal (32 стр. с CD-ROM) Бином

2. А. Архангельский. Программирование в Delphi 7 Бином, ISBN 5-7989-0104-1

3. Хавьер Пашеку. Программирование в BorlandDelphi 2006 для профессионалов = Delphifor .NET Developer'sGuide. -- М.: Вильямс, 2006. -- 944 с. -- ISBN 0-672-32443-1

4. Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введениев Borland Delphi 2006 = Delphi for Dummies. -- М.: Диалектика, 2007. -- 336 с. -- ISBN 0-7645-0179-8

5. А. Архангельский. Программирование в Delphi 6 Бином, ISBN 5-7989-0227-7

6. П.Даpахвелидзе, Е.МаpковDelphi 4 в подлиннике П. Дарахвелидзе, Е. Марков, О. Котенок Программирование в Delphi 7 BHV-СПб, ISBN 5-8206-0052-56) П.В. Шумаков, В.В. Фаронов "Delphixx. Руководство разработчика базданных."

7. М.КэнтуDelphi 4 для пpофессионалов

8. Ч.КалвеpтDelphi 4, Энциклопедия пользователя

9. Стив Тейксейра ИКсавьеПачекоDelphi 5. Руководство разработчика. Том 2. Разработка компонентов и работа с базами данных 2000 Вильямс

10. Конопка Рей Создание оригинальных компонент в среде Delphi: Пер. с англ./Рей Конопка. К.: НИПФ - "ДиаСофт Лтд.", 1996. - 512 с. ISBN 5-7707-9551-4

11. ЛишнерРэй Секреты Delphi 2: Пер. с англ./РэйЛишнер. - К.: НИПФ - "ДиаСофт Лтд.", 1996. - 800 с. ISBN 966-7033-10-4

12. Том Сван "Секреты 32-разрядного программирования в Delphi" Диалектика, Киев, 1997. 480 стр.,

Приложение

• Код программы:
• unit Unit1;
• interface
• uses
• Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
• Dialogs, StdCtrls, ExtCtrls, ComCtrls, Menus;
• type
• TForm1 = class(TForm)
• PageControl1: TPageControl;
• TabSheet1: TTabSheet;
• TabSheet2: TTabSheet;
• TabSheet3: TTabSheet;
• RadioGroup1: TRadioGroup;
• RadioGroup2: TRadioGroup;
• RadioGroup3: TRadioGroup;
• RadioButton1: TRadioButton;
• RadioButton2: TRadioButton;
• RadioButton3: TRadioButton;
• RadioButton4: TRadioButton;
• RadioButton7: TRadioButton;
• RadioButton8: TRadioButton;
• RadioButton9: TRadioButton;
• RadioButton10: TRadioButton;
• RadioButton11: TRadioButton;
• RadioButton12: TRadioButton;
• Button1: TButton;
• Button2: TButton;
• TabSheet4: TTabSheet;
• RadioGroup4: TRadioGroup;
• RadioButton13: TRadioButton;
• RadioButton14: TRadioButton;
• RadioButton15: TRadioButton;
• RadioButton16: TRadioButton;
• Button4: TButton;
• Button3: TButton;
• TabSheet5: TTabSheet;
• RadioGroup5: TRadioGroup;
• RadioButton17: TRadioButton;
• RadioButton18: TRadioButton;
• RadioButton19: TRadioButton;
• RadioButton20: TRadioButton;
• Button5: TButton;
• TabSheet6: TTabSheet;
• RadioGroup6: TRadioGroup;
• RadioButton21: TRadioButton;
• RadioButton22: TRadioButton;
• RadioButton23: TRadioButton;
• RadioButton24: TRadioButton;
• Button6: TButton;
• TabSheet7: TTabSheet;
• RadioGroup7: TRadioGroup;
• RadioButton25: TRadioButton;
• RadioButton26: TRadioButton;
• RadioButton27: TRadioButton;
• RadioButton28: TRadioButton;
• Button7: TButton;
• TabSheet8: TTabSheet;
• RadioGroup8: TRadioGroup;
• RadioButton29: TRadioButton;
• RadioButton30: TRadioButton;
• RadioButton31: TRadioButton;
• RadioButton32: TRadioButton;
• Button8: TButton;
• TabSheet9: TTabSheet;
• RadioGroup9: TRadioGroup;
• RadioButton33: TRadioButton;
• RadioButton34: TRadioButton;
• RadioButton35: TRadioButton;
• RadioButton36: TRadioButton;
• TabSheet10: TTabSheet;
• RadioGroup10: TRadioGroup;
• RadioButton37: TRadioButton;
• RadioButton38: TRadioButton;
• RadioButton39: TRadioButton;
• RadioButton40: TRadioButton;
• Button9: TButton;
• Button10: TButton;
• RadioButton5: TRadioButton;
• RadioButton6: TRadioButton;
• MainMenu1: TMainMenu;
• N1: TMenuItem;
• N2: TMenuItem;
• procedure Button1Click(Sender: TObject);
• procedure Button2Click(Sender: TObject);
• procedure Button3Click(Sender: TObject);
• procedure RadioButton1Click(Sender: TObject);
• procedure RadioButton2Click(Sender: TObject);
• procedure RadioButton3Click(Sender: TObject);
• procedure RadioButton4Click(Sender: TObject);
• procedure RadioButton5Click(Sender: TObject);
• procedure RadioButton6Click(Sender: TObject);
• procedure RadioButton7Click(Sender: TObject);
• procedure RadioButton8Click(Sender: TObject);
• procedure RadioButton9Click(Sender: TObject);
• procedure RadioButton10Click(Sender: TObject);
• procedure RadioButton11Click(Sender: TObject);
• procedure RadioButton12Click(Sender: TObject);
• procedure RadioButton13Click(Sender: TObject);
• procedure RadioButton14Click(Sender: TObject);
• procedure RadioButton15Click(Sender: TObject);
• procedure RadioButton16Click(Sender: TObject);
• procedure RadioButton17Click(Sender: TObject);
• procedure RadioButton18Click(Sender: TObject);
• procedure RadioButton19Click(Sender: TObject);
• procedure RadioButton20Click(Sender: TObject);
• procedure Button4Click(Sender: TObject);
• procedure RadioButton21Click(Sender: TObject);
• procedure RadioButton22Click(Sender: TObject);
• procedure RadioButton23Click(Sender: TObject);
• procedure RadioButton24Click(Sender: TObject);
• procedure Button5Click(Sender: TObject);
• procedure RadioButton25Click(Sender: TObject);
• procedure RadioButton26Click(Sender: TObject);
• procedure RadioButton27Click(Sender: TObject);
• procedure RadioButton28Click(Sender: TObject);
• procedure Button6Click(Sender: TObject);
• procedure RadioButton29Click(Sender: TObject);
• procedure RadioButton30Click(Sender: TObject);
• procedure RadioButton31Click(Sender: TObject);
• procedure RadioButton32Click(Sender: TObject);
• procedure Button7Click(Sender: TObject);
• procedure RadioButton34Click(Sender: TObject);
• procedure RadioButton33Click(Sender: TObject);
• procedure RadioButton35Click(Sender: TObject);
• procedure RadioButton36Click(Sender: TObject);
• procedure RadioButton37Click(Sender: TObject);
• procedure RadioButton38Click(Sender: TObject);
• procedure RadioButton39Click(Sender: TObject);
• procedure RadioButton40Click(Sender: TObject);
• procedure Button8Click(Sender: TObject);
• procedure Button9Click(Sender: TObject);
• procedure Button10Click(Sender: TObject);
• procedure N1Click(Sender: TObject);
• procedure N2Click(Sender: TObject);
• private
• { Private declarations }
• public
• { Public declarations }
• end;
• var
• Form1: TForm1;
• a,b,c,d,s,e,f,g,h,i,p: integer;
• implementation
• uses Unit2, Unit3, Unit4;
• {$R *.dfm}
• procedure TForm1.Button1Click(Sender: TObject);
• begin
• form1.TabSheet1.Enabled:=false;
• form1.TabSheet10.Enabled:=true;
• pagecontrol1.TabIndex:=1;
• end;
• procedure TForm1.Button2Click(Sender: TObject);
• begin
• form1.TabSheet2.Enabled:=false;
• form1.TabSheet3.Enabled:=true;
• pagecontrol1.TabIndex:=2;
• end;
• procedure TForm1.Button3Click(Sender: TObject);
• begin
• form1.TabSheet3.Enabled:=false;
• form1.TabSheet4.Enabled:=true;
• pagecontrol1.TabIndex:=3;
• end;
• procedure TForm1.RadioButton1Click(Sender: TObject);
• begin
• a:=0;
• end;
• procedure TForm1.RadioButton2Click(Sender: TObject);
• begin
• a:=1;
• end;
• procedure TForm1.RadioButton3Click(Sender: TObject);
• begin
• a:=0;
• end;
• procedure TForm1.RadioButton4Click(Sender: TObject);
• begin
• a:=0;
• end;
• procedure TForm1.RadioButton5Click(Sender: TObject);
• begin
• b:=0;
• end;
• procedure TForm1.RadioButton6Click(Sender: TObject);
• begin
• b:=1;
• end;
• procedure TForm1.RadioButton7Click(Sender: TObject);
• begin
• b:=0;
• end;
• procedure TForm1.RadioButton8Click(Sender: TObject);
• begin
• b:=0;
• end;
• procedure TForm1.RadioButton9Click(Sender: TObject);
• begin
• c:=1;
• end;
• procedure TForm1.RadioButton10Click(Sender: TObject);
• begin
• c:=0;
• end;
• procedure TForm1.RadioButton11Click(Sender: TObject);
• begin
• c:=0;
• end;
• procedure TForm1.RadioButton12Click(Sender: TObject);
• begin
• c:=0;
• end;
• procedure TForm1.RadioButton13Click(Sender: TObject);
• begin
• d:=1;
• end;
• procedure TForm1.RadioButton14Click(Sender: TObject);
• begin
• d:=0;
• end;
• procedure TForm1.RadioButton15Click(Sender: TObject);
• begin
• d:=0;
• end;
• procedure TForm1.RadioButton16Click(Sender: TObject);
• begin
• d:=0;
• end;
• procedure TForm1.RadioButton17Click(Sender: TObject);
• begin
• e:=1;
• end;
• procedure TForm1.RadioButton18Click(Sender: TObject);
• begin
• e:=0;
• end;
• procedure TForm1.RadioButton19Click(Sender: TObject);
• begin
• e:=0;
• end;
• procedure TForm1.RadioButton20Click(Sender: TObject);
• begin
• e:=0;
• end;
• procedure TForm1.Button4Click(Sender: TObject);
• begin
• form1.TabSheet4.Enabled:=false;
• form1.TabSheet5.Enabled:=true;
• pagecontrol1.TabIndex:=4;
• end;
• procedure TForm1.RadioButton21Click(Sender: TObject);
• begin
• f:=0;
• end;
• procedure TForm1.RadioButton22Click(Sender: TObject);
• begin
• f:=0;
• end;
• procedure TForm1.RadioButton23Click(Sender: TObject);
• begin
• f:=1;
• end;
• procedure TForm1.RadioButton24Click(Sender: TObject);
• begin
• f:=0;
• end;
• procedure TForm1.Button5Click(Sender: TObject);
• begin
• form1.TabSheet5.Enabled:=false;
• form1.TabSheet6.Enabled:=true;
• pagecontrol1.TabIndex:=5;
• end;
• procedure TForm1.RadioButton25Click(Sender: TObject);
• begin
• g:=0;
• end;
• procedure TForm1.RadioButton26Click(Sender: TObject);
• begin
• g:=0;
• end;
• procedure TForm1.RadioButton27Click(Sender: TObject);
• begin
• g:=0;
• end;
• procedure TForm1.RadioButton28Click(Sender: TObject);
• begin
• g:=1;
• end;
• procedure TForm1.Button6Click(Sender: TObject);
• begin
• form1.TabSheet6.Enabled:=false;
• form1.TabSheet7.Enabled:=true;
• pagecontrol1.TabIndex:=6;
• end;
• procedure TForm1.RadioButton29Click(Sender: TObject);
• begin
• h:=1;
• end;
• procedure TForm1.RadioButton30Click(Sender: TObject);
• begin
• h:=0;
• end;
• procedure TForm1.RadioButton31Click(Sender: TObject);
• begin
• h:=0;
• end;
• procedure TForm1.RadioButton32Click(Sender: TObject);
• begin
• h:=0;
• end;
• procedure TForm1.Button7Click(Sender: TObject);
• begin
• form1.TabSheet7.Enabled:=false;
• form1.TabSheet8.Enabled:=true;
• pagecontrol1.TabIndex:=7;
• end;
• procedure TForm1.RadioButton34Click(Sender: TObject);
• begin
• i:=0;
• end;
• procedure TForm1.RadioButton33Click(Sender: TObject);
• begin
• i:=1;
• end;
• procedure TForm1.RadioButton35Click(Sender: TObject);
• begin
• i:=0;
• end;
• procedure TForm1.RadioButton36Click(Sender: TObject);
• begin
• i:=0;
• end;
• procedure TForm1.RadioButton37Click(Sender: TObject);
• begin
• begin
• p:=0;
• end;
• end;
• procedure TForm1.RadioButton38Click(Sender: TObject);
• begin
• begin
• p:=0;
• end;
• end;
• procedure TForm1.RadioButton39Click(Sender: TObject);
• begin
• p:=1;
• end;
• procedure TForm1.RadioButton40Click(Sender: TObject);
• begin
• p:=0;
• end;
• procedure TForm1.Button8Click(Sender: TObject);
• begin
• form1.TabSheet8.Enabled:=false;
• form1.TabSheet9.Enabled:=true;
• pagecontrol1.TabIndex:=8;
• end;
• procedure TForm1.Button9Click(Sender: TObject);
• begin
• form1.TabSheet9.Enabled:=false;
• form1.TabSheet10.Enabled:=true;
• pagecontrol1.TabIndex:=9;
• end;
• procedure TForm1.Button10Click(Sender: TObject);
• begin
• form2:=TForm2.Create(self);
• form2.Show;
• s:= a+b+c;
• if s=3 then Form2.Label2.Caption:='5'
• else if s=2 then Form2.Label2.Caption:='4'
• else if s=1 then Form2.Label2.Caption:='3'
• else if s=0 then Form2.Label2.Caption:='2'
• end;
• procedure TForm1.N1Click(Sender: TObject);
• begin
• form3.Show;
• end;
• procedure TForm1.N2Click(Sender: TObject);
• begin
• form4.Show;
• end;
• end.
• Размещено на Allbest.ru