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


 

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

52121. Розвязування тригонометричних рівнянь зведенням до однієї тригонометричної функції 7.06 MB
  Розвязування тригонометричних рівнянь зведенням до однієї тригонометричної функції. Формування в учнів умінь розвязувати тригонометричні рівняння способом зведення до однієї тригонометричної функції алгебраїчний спосіб розвивати логічне мислення уяву пам'ять виховувати інтерес до математики уважність відповідальність культуру математичних записів. Ми ніколи не станемо математиками...
52122. Розкладання многочленів на множники способом винесення спільного множника за дужки та способом групування 60 KB
  Тема: Розкладання многочленів на множники способом винесення спільного множника за дужки та способом групування. Які вирази називаються многочленами Що означає розкласти многочлен на множники Способи розкладання многочлена на множники Як розкласти многочлен на множники способом групування III.
52123. Решение задач с помощью производной 63 KB
  Активизировать познавательную деятельность учащихся путем решения задач с практическим содержанием. Оборудование: Портреты ученых Карточки с заданиями для устных упражнений Таблица Чертежи к задачам математические модели Минизадачники Ход урока В мире не происходит ничего в чем бы ни был виден смысл какогонибудь максимума или минимума Леонард Эйлер I. Выдающиеся ученые: француз Пьер Ферма 16011665 англичанин Исаак Ньютон 16431727 немец Готфрид Лейбниц16461716 француз Жозеф Лагранж 17361813...
52124. Розвязування систем рівнянь методом заміни змінної 4.01 MB
  Мета: освітня: формувати поняття однорідного многочлена симетричного многочлена; формувати умінь і навичок розвязування систем рівнянь методом заміни змінної та вироблення вмінь і навичок застосовувати цей спосіб під час розвязування систем рівнянь; розвиваюча: формувати вміння знаходити звязок з раніше вивченим: переносити набуті знання в нові ситуації; стимулювати учнів до висловлювань без побоювань помилитися; заохочувати знаходити свій спосіб фіксації пояснення нового матеріалу; виховна: виховувати культуру математичних міркувань;...
52125. Решение нестандартных задач в курсе алгебры 8-9 класса 1.46 MB
  Доказать что значение выражения является натуральным числом. А При каком положительном значении параметра сумма квадратов корней уравнения равна 16 Ответ: Б При каком отрицательном значении параметра сумма квадратов корней уравнения Ответ: Доказать что значение выражения натуральное число. Доказать что значение выражения чётное число отрицательное. Построить график функции const Построить график функции: а б в Доказать что график функции это две...
52126. Методи розвязування показникових рівнянь 1.22 MB
  Мета: Систематизувати й узагальнити знання уміння та навички учнів із теми формувати вміння учнів розвязувати показникові рівняння різними способами: зведення до однієї основи до спільного...
52127. Розвязування вправ з використанням формул скороченого множення 150 KB
  Розвязування вправ з використанням формул скороченого множення. навчальна формувати удосконалити та поглибити знання та вміння учнів використовувати формули скороченого множення: при розвязуванні вправ формувати навички їх творчого застосування при розвязуванні завдань високого рівня складності; розвивальна розвивати логічне мислення математичну мову вміння чітко висловлювати думки узагальнювати активність; виховна інтерес до математики. Розвязування вправ на застосування формул скороченого множення: для виконання...
52128. Действия с многочленами 51 KB
  Развивающие: развитие логического мышления, активности, познавательного интереса учащихся, умения работать самостоятельно, четко высказывать свои мысли. Развитие коммукативной компетентности, компетентности продуктивной творческой деятельности.
52129. Винесення спільного множника за дужки 87 KB
  Мета: навчити учнів застосовувати даний спосіб під час розвязування задач, розвивати внутрішню мотивацію учнів до теми, що вивчається; навчити учнів прогнозувати очікувані результати уроку; відтворити необхідні знання та вміння для досягнення результатів уроку.