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.ТЗ


 

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

9840. Специфика формирования единого российского государства 14-17 века роль русской православной церкви в объединении Руси 30.44 KB
  Специфика формирования единого российского государства 14-17 века роль русской православной церкви в объединении Руси. Образование Русского централизованного государства плело значительные особенности по сравнению с аналогичными совпавшими по времен...
9841. Февраль 1917 года и альтернативы развития России. Большевицкие этапы революции 33.95 KB
  Февраль 1917 года и альтернативы развития России. Большевицкие этапы революции. Революцию организационно, технически не готовила ни одна партия или организация. Но она пришла во всем своем величии. Быстрая победа была неожиданной, ошеломляющей даже ...
9842. Сословная система российского общества 15-17 века 27.82 KB
  Сословная система российского общества 15-17 века. Процесс завершения образования Российского государства хронологически совпадает с образованием западноевропейских стран и приходится на время правления Ивана III (1462-1505) и Василия III (1505-1533...
9843. СССР в годы Великой отечественной войны этапы войны, решающие битвы, экономика и общество. Итоги и цены победы 43.78 KB
  СССР в годы Великой отечественной войны этапы войны, решающие битвы, экономика и общество. Итоги и цены победы. 22 июня 1941 г. Германия напала на Советский Союз без объявления войны, вместе с ней в войну вступили ее союзники: Италия, Румыния, Болга...
9844. Правление Ивана грозного: от централизации к феодальной диктатуре 37.3 KB
  Правление Ивана грозного: от централизации к феодальной диктатуре. Борьба за достижение основных стратегических целей в области внутренней и внешней политики, определившихся на рубеже XV-XVI веков, продолжалась в XVI столетии. Это столетие неразрывн...
9845. СССР в 1945-1953 гг. трудности послевоенного переустройства, ужесточение политического режима 26.22 KB
  СССР в 1945-1953 гг. трудности послевоенного переустройства, ужесточение политического режима. Война принесла огромные человеческие и материальные потери. В 1939-1945 гг. мир потерял от 55 до 75 млн. человек, т.е. в 5-7 раз больше, чем в Первую миро...
9846. Смутное время: кризис государства и общества в России в начале 17 века 33.63 KB
  Смутное время: кризис государства и общества в России в начале 17 века. XVII век является одной из наиболее сложных эпох Русской истории. Начало века - это Смутное время, которое до основания потрясло Российское государство и чуть было не привело ег...
9847. Реформы 1953-1964 гг.: первые попытки либерализации советской системы 37.18 KB
  Реформы 1953-1964 гг.: первые попытки либерализации советской системы. В сентябре 1953 г. Н.С. Хрущев был избран Первым секретарем ЦК КПСС. По какому пути могла пойти страна при новом лидере? Ответ на данный вопрос надо искать в соотношении сил в вы...
9848. Россия в новое время: складывание абсолютизма во второй половине 17 века 26.98 KB
  Россия в новое время: складывание абсолютизма во второй половине 17 века В XVII веке, начиная с Михаила Федоровича Романова (1613-1645), самодержавие активно лавировало между группировками господствующего класса, укрепляя трон и централизацию управл...