Воронеж 2021 Практическая работа №1 Тема практической работы: Файл проекта. Структура и Назначение
Вывод : Сегодня я изучил виды и свойства кнопок в Delphi. Практическая работа №22
жүктеу/скачать 0.7 Mb.
|
| Вывод : Сегодня я изучил виды и свойства кнопок в Delphi.
Практическая работа №22 Тема практической работы: Работа с проектом в Delphi. Цель практической работы: Узнать, что такое фрейм, научится с ним работать. Ход работы : Задание №1
Рис 94
Листинг : unit FreeCalcUnit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, StdCtrls; type TForm1 = class(TForm) EditOpetand1: TEdit; EditOperand2: TEdit; EditResult: TEdit; LabelOperator: TLabel; LabelResult: TLabel; CloseBitBtn: TBitBtn; Panel1: TPanel; AddBtn: TSpeedButton; SubBtn: TSpeedButton; MulBtn: TSpeedButton; DivideBtn: TSpeedButton; ModBtn: TSpeedButton; DivBtn: TSpeedButton; ClearBtn: TSpeedButton; procedure AddBtnClick(Sender: TObject); procedure SubBtnClick(Sender: TObject); procedure MulBtnClick(Sender: TObject); procedure DivideBtnClick(Sender: TObject); procedure ModBtnClick(Sender: TObject); procedure DivBtnClick(Sender: TObject); procedure ClearBtnClick(Sender: TObject); procedure CloseBitBtnClick(Sender: TObject); { Private declarations } public
{ Public declarations } end;
var Form1: TForm1; Result: Integer; implementation {$R *.dfm} procedure TForm1.AddBtnClick(Sender: TObject); begin Result:= StrToInt(EditOpetand1.Text)+ StrToInt(EditOperand2.Text); EditResult.Text:=IntToStr(Result); LabelOperator.Caption:=AddBtn.Caption; LabelResult.Caption:='='; end; procedure TForm1.SubBtnClick(Sender: TObject); begin Result:= StrToInt(EditOpetand1.Text)- StrToInt(EditOperand2.Text); EditResult.Text:=IntToStr(Result); LabelOperator.Caption:=AddBtn.Caption; LabelResult.Caption:='='; end; procedure TForm1.MulBtnClick(Sender: TObject); begin Result:= StrToInt(EditOpetand1.Text)* StrToInt(EditOperand2.Text); EditResult.Text:=IntToStr(Result); LabelOperator.Caption:=AddBtn.Caption; LabelResult.Caption:='='; end; procedure TForm1.DivideBtnClick(Sender: TObject); var Result:Real; begin
Result:= StrToInt(EditOpetand1.Text)/ StrToInt(EditOperand2.Text); EditResult.Text:=FloatToStr(Result); LabelOperator.Caption:=AddBtn.Caption; LabelResult.Caption:='='; end;
procedure TForm1.ModBtnClick(Sender: TObject); begin
Result:= StrToInt(EditOpetand1.Text)mod StrToInt(EditOperand2.Text); EditResult.Text:=IntToStr(Result); LabelOperator.Caption:=AddBtn.Caption; LabelResult.Caption:='='; end;
procedure TForm1.DivBtnClick(Sender: TObject); begin
Result:= StrToInt(EditOpetand1.Text)div StrToInt(EditOperand2.Text); EditResult.Text:=IntToStr(Result); LabelOperator.Caption:=AddBtn.Caption; LabelResult.Caption:='='; end;
procedure TForm1.ClearBtnClick(Sender: TObject); begin
EditOpetand1.Text:=''; EditOperand2.Text:=''; EditResult.Text:=''; LabelOperator.Caption:='?'; LabelResult.Caption:='?'; end;
procedure TForm1.CloseBitBtnClick(Sender: TObject); begin
Close; end;
end. Задание №2 Рис 95
Листинг : unit Unit1; interface uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Edit1Change(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1Change(Sender: TObject); var Hours, rate, overtime , result :real; begin if Edit1.Text<>'' then Hours:=StrToInt(Edit1.Text) else
Hours:=0; if Hours>37.5 then Overtime:=Hours-37.5 else Overtime:=0; if Edit2.Text<>'' then Rate:=StrToFloat(Edit2.Text) else Rate:=0;
Result:=Hours*Rate+0.5*Overtime*Rate; Edit3.Text:=FloatToStrF(Result,ffCurrency,10,2); end; end.
жүктеу/скачать 0.7 Mb. Достарыңызбен бөлісу:
|