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


 

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

7616. Законы Кирхгофа. Система уравнений электрического равновесия цепи 41.5 KB
  Законы Кирхгофа. Система уравнений электрического равновесия цепи Первый закон Кирхгофа: алгебраическая сумма мгновенных значений токов в узле равна нулю, при этом токи, втекающие в узел считают положительными, а вытекающие - отрицате...
7617. Классификация электрических цепей. Принцип наложения 31.5 KB
  Классификация электрических цепей. Принцип наложения Все электрические цепи можно разделить на цепи с сосредоточенными и распределенными параметрами. К цепям с сосредоточенными параметрами относят цепи, геометрическими размерами которых можно пренеб...
7618. Средства обработки БД в СУБД FoxPro 76.5 KB
  Средства обработки БД в СУБД FoxPro. Синтаксис и семантика основных операторов. SELECT 0 Выбрать свободную рабочую область и установить её текущей рабочей областью. Понятие рабочая область в определенном смысле соответствует понятию о...
7619. Потоковые функциональные SADT/IDEF0-диаграммы 40.5 KB
  Потоковые функциональные SADT/IDEF0-диаграммы. Базовые элементы языка. Действие(процесс) Поток данных Принципиальной особенностью языка SADT-диаграмм является наличие строгой интерпретации у каждой из 4-х сторон прямоугольника (блока), ...
7620. Базы данных. Информационные системы, базы данных и системы управления базами данных 1.38 MB
  Базы данных Информационные системы, базы данных и системы управления базами данных. Информационная система (ИС): предназначена для сбора, хранения и обработки информации ориентирована на конечного пользователя - непрограммиста. Конкретн...
7621. Введение в компьютерную графику 126.5 KB
  Введение в компьютерную графику Определение и основные задачи компьютерной графики. Области применения компьютерной графики. История развития компьютерной графики. Виды компьютерной графики. Определение и основные задачи компьютерной графики При обр...
7622. Аппаратное обеспечение компьютерной графики 191.5 KB
  Аппаратное обеспечение компьютерной графики Устройства вывода графических изображений, их основные характеристики. Мониторы, классификация, принцип действия, основные характеристики. Видеоадаптер. Принтеры, их классификация, основные характеристики ...
7623. Представление графических данных 171 KB
  Представление графических данных Форматы графических файлов. Понятие цвета. Зрительный аппарат человека, для восприятия цвета. Аддитивные и субтрактивные цвета в компьютерной графике. Понятие цветовой модели и режима. Закон Грассмана. Пиксельная глу...
7624. Фрактальная графика 306 KB
  Понятие фрактала и история появления фрактальной графики. Понятие размерности и ее расчет. Геометрические фракталы. Алгебраические фракталы. Системы итерируемых функций. Стохастические фракталы. Фракталы и хаос. Понятие фрактала ...