42087

Створення Delphi-проекта з використанням компонентів-кнопок

Лабораторная работа

Информатика, кибернетика и программирование

Форма проекту повинна відтворювати зовнішній вигляд калькулятора за допомогою компонентів кнопок класу TBitBtn. Тоді до властивості Cption кнопок можна звернутися таким чином: Sender s TBitBtn.ТЗ Код програми...

Русский

2015-04-01

79.82 KB

3 чел.

Завдання:  

Створення Delphi-проекту ‘’Калькулятор’’, призначений для виконання чотирьох арифметичних операцій:’’+’’ ( додавання), ‘’-’’(віднімання),’’*’’ (множення), ‘’/’’ (ділення)над двома дійсними числами А і В. Форма проекту повинна відтворювати зовнішній вигляд  калькулятора  за допомогою  компонентів  - кнопок класу TBitBtn .

Крім арифметичних  операцій  калькулятор повинен  здійснювати операції видалення  останнього  символу  з зображення числа на панелі , а також повне очищення панелі та відображення на ній символу ‘’0’’.Орієнтований вигляд ‘’Калькулятора’’ наведений на рис.1.

Хід виконання роботи:

  1.  Створено  проект  та збережено його в папці : РП -31 ООП (№ студента в списку ) 5 6.

                                               

  1.  На формі розташовано   компоненти – кнопки таким чином, як показано на рис. 1.
  2.  Здійснено   реалізації  події натискання кнопок  відповідно до їх функціонального призначення.

Рис 1. Вікно програми

  1.  Для кнопок з зображенням цифр використано спільну  реалізацію  події OnClick з урахуванням значення її параметра Sender. Тоді до властивості Caption кнопок  можна звернутися таким чином: (Sender as TBitBtn).Coption. Аналогічно  здійснено по відношенню  до кнопок з зображенням арифметичних операцій. Символ обраної арифметичної  операції збережено в глобальній змінній ОР muny car.

  1.  При веденні символу ‘’ . ’’(крапка) зображення числа на панелі враховано те, що вона може бути тільки одна.
  2.  Зображення числа А (першого) здійснено при натисканні кнопок  арифметичних операцій , а другого  - при натисканні кнопки  ‘’=’’ (дорівнює).
  3.  Арифметичні операції виконано  при натисканні кнопки  ‘’=’’( дорівнює), використано оператор вибору case.

Рис 2. Результат роботи програми

Код програми:

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Ekran: TBitBtn;

B1: TBitBtn;

B2: TBitBtn;

B3: TBitBtn;

B4: TBitBtn;

Plus: TBitBtn;

B5: TBitBtn;

B6: TBitBtn;

B7: TBitBtn;

B8: TBitBtn;

Minus: TBitBtn;


B9: TBitBtn;

B0: TBitBtn;

Tochka: TBitBtn;

Pomn: TBitBtn;

Del_: TBitBtn;

Clear_: TBitBtn;

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

3

ЛР.ООП.10.05-06.ТЗ

Dorivn: TBitBtn;

Podil: TBitBtn;

procedure B1Click(Sender: TObject);

procedure PlusClick(Sender: TObject);

procedure DorivnClick(Sender: TObject);

procedure Clear_Click(Sender: TObject);

procedure Del_Click(Sender: TObject);

procedure TochkaClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Znak: char;

X , Y, Z: real;

implementation

{$R *.dfm}

//відображення кнопок накалькуляторі

procedure TForm1.B1Click(Sender: TObject);

begin

D

end;

//зробили кнопку активною  'Plus'

procedure TForm1.PlusClick(Sender: TObject);

var str:string;

begin

X:=StrToFloat(Ekran.Caption);

str:=(Sender as TBitBtn).Caption;

Znak:=str[1];

Ekran.Caption:='';

E nd;

// з    робили кнопку активною  'Dorivn'

P  rocedure TForm1.DorivnClick(Sender: TObject);

StrToFloat(Ekran.Caption);

case Znak of

'+': Z:=X+Y;

'-': Z:=X-Y;

'*': Z:=X*Y;

'/': if Y=0 then Ekran.Caption:='Error devide 0';

else begin

Z:=X/Y;

Ekran.Caption:=FloatToStr(Z);

end;

end;

// зробили кнопку активною  'Clear'

procedure TForm1.Clear_Click(Sender: TObject);

begin

Ekran.Caption:='';

End;

/ / зробили кнопку активною  'Del'

procedure TForm1.Del_Click(Sender: TObject);

var s: string;

begin

s:=Ekran.Caption;

delete(s,length(s),1);

Ekran.Caption:=s;

end;

//зробили кнопку активною  'Tochka'

procedure TForm1.TochkaClick(Sender: TObject);

begin

if pos(',',Ekran.Caption)=0

then Ekran.Caption:=Ekran.Caption + ',';

eend;

end.

Висновок: На цій лабораторні роботі я навчилась:  Створювати Delphi-проекту ‘’Калькулятор’’.

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

4

ЛР.ООП.10.05-06.ТЗ


 

А также другие работы, которые могут Вас заинтересовать

25639. Кора большого мозга 56 KB
  Наиболее поверхностного и глубокого слоев коры. Для коры характерно расположение клеток и волокон слоями. Цитоархитектоника коры большого мозга.
25640. Костные ткани 38 KB
  В костной ткани обнаружено более 30 микроэлементов медь стронций цинк барий магний и др. Органическое вещество матрикс костной ткани представлено белками коллагенового типа и липидами. Морфофункциональные свойства костной ткани меняются в зависимости от возраста мышечной деятельности условий питания а также под влиянием деятельности желез внутренней секреции иннервации и др.
25641. Костный мозг 45.5 KB
  В данный период костный мозг накапливает стволовые клетки а клетки стромы с остеогенными потенциями создают микросреду необходимую для дифференцировки стволовых кроветворных клеток. У зародыша 36 нед развития в костном мозге диафиза трубчатых костей обнаруживаются жировые клетки. Он содержит стволовые кроветворные клетки СКК и диффероны гемопоэтических клеток эритроидного гранулоцитарного и мегакариоцитарного ряда а также предшественники В и Тлимфоцитов.
25642. Гистологическое строение трубчатой кости как органа 36 KB
  Компактное вещество образующее диафиз кости состоит из костных пластинок толщина которых колеблется от 4 до 1215мкм. Наружные общие генеральные пластинки не образуют полных колец вокруг диафиза кости перекрываются на поверхности следующими слоями пластинок. Внутренние общие пластинки хорошо развиты только там где компактное вещество кости непосредственно граничит с костномозговой полостью.
25643. МЫШЕЧНЫЕ ТКАНИ 27 KB
  В соответствии с морфофункциональным принципом в зависимости от структуры органелл сокращения мышечные ткани подразделяют на две подгруппы. 1 подгруппа поперечнополосатые исчерченные мышечные ткани. Исчерченные мышечные ткани сокращаются быстрее чем гладкие.
25644. Надпочечники 49.5 KB
  В корковом веществе надпочечников образуется комплекс стероидных гормонов которые регулируют обмен углеводов состав ионов во внутренней среде организма и половые функции глюкокортикоиды минералокортикоиды половые гормоны. Ацидофильные клетки становятся зачатком первичной фетальной коры будущих надпочечников. На 10й неделе внутриутробного периода первичная кора окружается снаружи мелкими базофильными клетками происходящими тоже из целомического эпителия которые дают начало дефинитивной коре надпочечников. Мозговая часть...
25645. Нейроглия 33.5 KB
  Клетки глии ЦНС делятся на макроглию глиоциты и микроглию. Эти клетки цилиндрической формы. Базальная поверхность большинства эпендимоцитов ровная но некоторые клетки имеют длинный отросток идущий глубоко в нервную ткань и почти лишены ресничек.
25646. Нейрон. НЕРВНАЯ ТКАНЬ 43 KB
  Нервные клетки нейроны нейроциты основные структурные компоненты нервной ткани выполняющие специфическую функцию. Нейроны. Нейроны нейроциты специализированные клетки нервной системы ответственные за рецепцию обработку процессинг стимулов проведение импульса и влияние на другие нейроны мышечные или секреторные клетки. Нейроны выделяют нейромедиаторы и другие вещества передающие информацию.
25647. Нервные волокна 32.5 KB
  По строению оболочек различают миелиновые и безмиелиновые нервные волокна. Безмиелиновые нервные волокна находятся преимущественно в составе вегетативной нервной системы. В нервных волокнах внутренних органов как правило в таком тяже имеется не один а несколько 1020 осевых цилиндров принадлежащих различным нейронам.