Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
РЕШЕНИЕ ФУНКЦИОНАЛЬНЫХ И ВЫЧИСЛИТЕЛЬНЫХ ЗАДАЧ.doc
Скачиваний:
34
Добавлен:
25.11.2018
Размер:
4.81 Mб
Скачать

1.1.4 Окно кода

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

представляет собой расширенную и усовершенствованную версию широко известного языка Pascal (Turbo Pascal и Borland Pascal)

Рисунок 3 - Окно кода

1.1.5 Создание простого приложения

Теперь вы имеете некоторое представление об основных (но далеко не всех) элементах Интегрированной Среды Разработки (ИСР) Delphi. Самое время попробовать написать первое приложение в соответствии с указанным заданием.

Задание: Создайте приложение, содержащее надписи: «Введите х», «Введите у», «z=»; кнопку «Вычислить» и кнопку с картинкой «Закрыть»; два текстовых поля, в которые будут вводиться значения переменных х и у.

Технология выполнения задания

  1. Запустите Delphi, если вы еще это не сделали, с помощью меню Windows Пуск | Программы. Если Delphi уже работает, и вы уже делали какие-то эксперименты с формой, то откройте новое приложение. Для этого вам надо выполнить команду File | New. Ответьте «No» на вопрос Delphi, хотите ли вы сохранить изменения в ва­шем проекте;

  2. Перенесите, на пустую форму, которая открылась вам, кнопку типа TButton со страницы Standard палитры компонентов, Для этого выделите пиктограмму кнопки (она восьмая слева) и затем щелкните курсором мыши в нужном вам месте формы. На форме появится кнопка, которой Delphi присвоит имя по умолчанию — Buttonl;

  3. Аналогичным образом перенесите на форму с той же страницы Standard палитры компонентов три метки ТLabel (она на странице пятая слева), располагая их в столбец одну под другой. В этой метке в процессе выполнения приложения будет появляться текст, при нажатии пользователем кнопки. Delphi присвоит ей имя Label1;

  4. Аналогичным образом перенесите на форму с той же страницы Standard палитры компонентов два текстовых поля TEdit (она на странице шестая слева), располагая их напротив двух первых меток. В эти текстовые поля в процессе выполнения приложения вы будете вводить значения переменных х и у, при нажатии пользователем кнопки. Delphi присвоит ей имя Edit1;

  5. Аналогичным образом перенесите на форму со страницы Additional палитры компонентов кнопку с картинкой TBitBtn (она на странице вторая слева), располагая ее в правом нижнем углу формы. На форме появится кнопка с картинкой, которой Delphi присвоит имя по умолчанию — BitBtnl;

  6. Разместите, компоненты на форме примерно так, как показано на рисунке 1.5;

  7. Выделите на форме компонент Buttonl — кнопку. Перейдите в Инспектор Объектов и измените, ее свойство Caption (надпись), которое по умолчанию равно Buttonl (имя, которое по умолчанию присвоила этому компоненту Delp­hi) на «Вычислить»;

  8. Удалите текст в свойстве Caption метки Labell и введите с клавиатуры текст «Введите х», аналогичным образом измените свойство Caption меток Label2 и Label3 на соответствующие «Введите у» и «z=» в соответствии с рисунком 4;

Рисунок 4 - Промежуточный вид формы

  1. Выделите на форме компонент Edit1, и в свойстве Text сотрите содержимое. Аналогично удалите содержимое второго текстового поля;

  2. Выделите на форме компонент BitBtnl — кнопку с картинкой. Используя, инспектор объектов вкладку свойства выберем для свойства Kind команду bkClose, затем уже знакомое для вас свойство Caption изменим на «закрыть»;

  3. После правильного выполнения выше указанных действий форма должна выглядеть в соответствии с рисунком 5.

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

end.

Рисунок 5 - Итоговый вид формы

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

Проверим, как работает ваша программа.

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]