Лабораторная работа №1 «применение базовых компонент в инструментальной среде delphi»
Тема: Применение базовых компонент в инструментальной среде Delphi.
Цель работы: знакомство с инструментальной средой программирования Delphi, развитие навыков работы с базовыми компонентами Delphi.
• изучить интерфейс инструментальной среды программирования Delphi;
• научиться работать с базовыми компонентами;
• овладеть навыками быстрого создания законченных приложений Windows.
Лабораторная работа выполняется в операционной системе Windows XP/200x с использование инструментальной среды Delphi и языка программирования Object Pascal.
Выполнил: .
Гр.
Задача 1:
Код программы:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm5 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
//щелчок на кнопке Пересчет
procedure TForm5.Button1Click(Sender: TObject);
var
ms: integer; //скорость м/с
kmh: real; //скорость км/час
begin
//если поле Edit1 пустое, то при выполнении функции
//StrToInt возникает ошибка.
//Проверим, ввел ли пользователь скорость в поле Edit1
if Length(Edit1.Text) = 0 then
begin
ShowMessage('Надо ввести скорость');
exit; //завершить обработку события
end;
ms := StrToInt(Edit1.Text); //ввести исходные данные
kmh := ms * 3.6; //пересчитать
//вывести результат
Label3.Caption:=
IntToStr(ms) + ' м/с - это ' + FloatToStr(kmh) + ' км/час'
end;
//нажатие клавиши в поле Edit1
procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//В поле Скорость (Edit1) можно ввести только
//цифры. Процедура проверяет, явл ли символ
//допустимым
if not ((Key >= '0') and (Key<='9') or (Key = #8)) then Key := Chr(0);
end;
end.
Результат работы программы: x=5*3.6=18
Задача 2:
Код программы:
unit Unit5;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm5 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;