Interface

1 2 3 4 5 6 7

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

Type

TPrima = class(TForm)

Label 1: TLabel;

Edit 1: TEdit;

Pusk: TButton;

Label 2: TLabel;

Edit 2: TEdit;

Label 3: TLabel;

Edit 3: TEdit;

procedure PuskClick(Sender: TObject);

Private

{ Private declarations }

public

{ Public declarations }

end;

Var

Prima: TPrima;

Implementation

{$R *.dfm}

procedure TPrima.PuskClick(Sender: TObject);

var Unom,Inom,Snom:real;

Begin

Unom:=StrToFloat(Edit 1 .Text);

Inom:=StrToFloat(Edit 2 .Text);

Snom:=Unom*Inom;

Edit 3 .Text:=FloatToStr(Snom);

end;

end.

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

Введите в свою программу образец оформления процедуры или скопируйте данную процедуру. При копировании обратите внимание на расстановку операторных скобок (begin, end) во избежание появления лишних. Функция StrToFloat (Edit 1 .Text) преобразует строковую переменную, введенную в поле Edit 1. Text в переменную с плавающей запятой Float. Разделителем целой и десятичной части в поле Text служит запятая, а не точка. Преобразованное содержание строки поля Text присваивается переменной Unom типа real. Таким же образом осуществляется ввод номинального тока. Вывод вычисленной номинальной мощности осуществляется в этом задании в поле Edit 3. Text. Поскольку это поле предназначено для строковых паременных, то переменную с плавающей запятой следует преобразовать в строку, т.е. совершить операцию обратную вышеописанной. Для такого преобразования имеется функция FloatToStr (). Значение этой функции, у которой в параметрах указано Snom присваивается полю Edit 3. Text.

Хотя данный пример достаточно прост, он отражает операции ввода и вывода, часто применяющиеся в любых программах.

Запустите программу. Поскольку при написании кода Вами были допущены ошибки, то их следует найти и исправить. Запуск осуществляется или из меню Run / Run или функциональной клавишей F9 или щелчком мыши по зеленому треугольнику на панели инструментов. После запуска программы нажмите кнопку Пуск и прочитайте ответ в поле Edit 3. Text, расположенном рядом с меткой label 3 «Snom (кВА)». Измените числа в полях ввода, и снова нажмите Пуск. Убедитесь, что программа считает все правильно. Завершите выполнение программы, нажав крестик завершения работы в правом верхнем углу формы.

Задание 4.

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

2. Разработать интерфейс программы.

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

4. Рассчитать характеристики в соответствии с заданием.

5. Скопировать загрузочный модуль программы в каталог готовых программ.

Контрольные вопросы

1. Чем отличаются свойства формы Caption и Name?

2. Как изменить заголовок формы?

3. Для чего нужны окна инспектора объектов, окно дерева объектов, окно кода программы, окно управления проектом программы?

4. Как поместить объект на форму?

5. Как передвинуть объект в нужное место?