ттттт. Практическая работа Работа с интерфейсом среды программирования Delphi. Создание простого проекта. Запуск программ на выполнение

• Название: Практическая работа Работа с интерфейсом среды программирования Delphi. Создание простого проекта. Запуск программ на выполнение
• Анкор: ттттт
• Дата: 30.01.2022
• Размер: 2.63 Mb.
• Имя файла: 0018f8f0-cdfb5c43.doc
• Тип: Практическая работа; #346059
• страница: 10 из 16

Практическая работа №12.Работа со строками в Delphi.

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



Рис. 1.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Edit, Label, Button. Фрагмент программы

procedure TForm1.Button2Click(Sender: TObject); begin

s:=Edit1.Text;

k:=StrToInt(Edit2.Text);

t:=StrToInt(Edit3.text);

Delete(s,k,t);

Edit10.Text:=s;

end;

procedure TForm1.Button3Click(Sender: TObject); begin

s:=Edit1.Text; q:=StrToInt(Edit4.Text); w:=Edit5.Text; Insert(w,s,q); edit11.Text:=s;

end;

procedure TForm1.Button4Click(Sender: TObject); begin

s:=Edit1.Text;

p:=StrToInt(Edit6.Text);

l:=StrToInt(Edit7.Text);

Copy(s,p,l);

sl:=copy(s,p,l);

Edit12.Text:=s1;

end;

procedure TForm1.Button5Click(Sender: TObject); begin

s:=Edit1.Text; r:=Edit9.Text; a:=Pos(r,s);

edit13.Text:=IntToStr(a);

end;

procedure TForm1.Button6Click(Sender: TObject); begin

s:=edit1.Text; b:=Length(s); edit14.Text:=IntToStr(b);

end;

Практическая работа №13.Составление программ, используя графические возможности Delphi.

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

Введите графический объект изображения значения температуры.

1. Поместите на форму два поля ввода Edit и четыре кнопки.



2. Ввести число в левое поле. По нажатию на кнопку "по Фаренгейту" в правом поле выводится преобразованное число. По нажатию кнопки "Очистить" очищаются поля ввода.

3. Ограничьте вводимые температуры диапазоном от 0°C до 100°C (если введено значение, превышающее 100°C или 212°F, то при нажатии кнопки в полях ввода должно отобразиться 100 и 212 соответственно).

4. Отобразить столбик термометра графически. Добавьте компоненты Image.

5. Сделать видимой только ту кнопку, которая необходима для преобразования.



Листинг программы

unit Unitl; interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForml = class(TForm) Editl: TEdit; Edit2: TEdit; Buttonl: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Imagel: TImage; Image2: TImage; Labell: TLabel; Label2: TLabel;

procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ButtonlClick(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end; var

Forml: TForml;

implementation

{$R *.dfm}

procedure TForml.FormCreate(Sender: TObject); begin

Editl.Text := ''; Edit2.Text := '';

Imagel.Canvas.Pen.Color := clRed; Imagel.Canvas.Brush.Color := clWhite; Imagel.Canvas.Rectangle(l0,l,23,360); Image2.Canvas.Pen.Color := clBlue; Image2.Canvas.Brush.Color := clWhite; Image2.Canvas.Rectangle(l0,l,23,360); end;

procedure TForml.Button2Click(Sender: TObject);

var a, b, c : real;

begin

a := StrToFloat(Editl.Text);

if (a > 0) or (a < l00) then b := l.8 * a + 32;

if a > l00 then b := 2l2;

if a < 0 then b := 32;

Edit2.Text := FloatToStr(b);

Image1.Canvas.Pen.Color := clRed; Image1.Canvas.Brush.Color := clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image1.Canvas.Pen.Color := clRed; Image1.Canvas.Brush.Color := clRed; Image1.Canvas.Rectangle(10,round(360-a),23,360); Image2.Canvas.Pen.Color := clBlue; Image2.Canvas.Brush.Color := clWhite; Image2.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color := clBlue; Image2.Canvas.Brush.Color := clBlue; Image2.Canvas.Rectangle(10,round(360-b),23,360);

end;

procedure TForm1.Button1Click(Sender: TObject);

var a, c, d : real;

begin

c := StrToFloat(Edit2.Text); if (c > 32) or (c < 212) then d := ( c - 32)/1.8; if c < 32 then d := 0; if c > 212 then d := 100; Edit1.Text := FloatToStr(d); Image2.Canvas.Pen.Color := clBlue; Image2.Canvas.Brush.Color := clWhite; Image2.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color := clBlue; Image2.Canvas.Brush.Color := clBlue; Image2.Canvas.Rectangle(10,round(360-c),23,360); Image1.Canvas.Pen.Color := clRed; Image1.Canvas.Brush.Color := clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image1.Canvas.Pen.Color := clRed; Image1.Canvas.Brush.Color := clRed; Image1.Canvas.Rectangle(10,round(360-d),23,360); end;

procedure TForm1.Button3Click(Sender: TObject); begin

Edit1.Text := ''; Edit2.Text := '';

Image1.Canvas.Pen.Color := clRed; Image1.Canvas.Brush.Color := clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color := clBlue; Image2.Canvas.Brush.Color := clWhite; Image2.Canvas.Rectangle(10,1,23,360);

end;

procedure TForm1.Button4Click(Sender: TObject); begin

Close; end;

procedure TForm1.Edit1Enter(Sender: TObject); begin

Button2.Visible := true; Button1.Visible := False; end;

procedure TForm1.Edit2Enter(Sender: TObject); begin

Button1.Visible := True;

Button2.Visible := False; end; end.

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

1. 
   Из каких составных частей состоит интегрированная среда разработки программ Delphi?
   
2. 
   Что представляет собой программа Delphi?
   
3. 
   Какие действия необходимо выполнить для правильной ор- ганизации проекта?
   
4. 
   Как создается обработчик событий для кнопки?
   
5. 
   Какие приняты соглашения по именам составных частей проекта ?