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


 

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

81399. Пенсионеры как объект социальной работы и социологического анализа 38.97 KB
  Роуз согласно которой культура становится стержнем объединяющим людей пожилого возраста создает особую близость между ними и в то же время обосабливает их от других возрастных когорт. Эта теория предполагает возрастную дифференциацию наряду с социальной разделяя людей на группы по их образу жизни и материальному положению. Терапевтические модели образующие фундамент практической работы с пожилыми людьми должны использовать 3 принципа: Изучение индивида в его социальной среде Понимание психосоциологического становления и развития...
81400. Социально-демографическая категория пожилых людей. Основные подходы к рассмотрению процесса ресоциализации пожилых людей 39.08 KB
  Основные подходы к рассмотрению процесса ресоциализации пожилых людей. У людей избравших в старости цель сохранения себя как личности важным является сохранение системы социальных связей и передача своего жизненного опыта. Рассматривая данную стратегию старения ученые отмечают что психика пожилых людей в этом случае отличается ориентировкой на настоящее и отсутствием депрессивной проекции на прошедшее.
81401. Принципы социальной работы с пожилыми людьми и основные аспекты социальной поддержки пожилых людей 39.62 KB
  Принципы социальной работы в отношении пожилых граждан следующие: принцип независимости подразумевает что пожилые люди должны иметь: доступ к основным благам и обслуживанию; возможность работать или заниматься какимилибо видами деятельности приносящей доход; участвовать в определении сроков прекращения трудовой деятельности; сохранять возможность участия в программах образования и профессиональной подготовки; жить в безопасных условиях с учетом личных наклонностей и изменяющегося состояния; получать содействие в проживании в домашних...
81402. Основные положения социальной политики в отношении пожилых людей 37.81 KB
  Устойчивое повышение уровня и качества жизни поддержание социально приемлемого образа жизни граждан старшего поколения осуществляется с учетом специфики положения возрастной и иной дифференциации пожилых людей национальных традиций конфессиональных и других различий по следующим основным направлениям: 1. усиление правовой защиты граждан пожилого возраста путем продвижения в действующее законодательство специальных норм способствующих реализации конституционных гарантий их прав осуществления комплексных мер оказания правовой и иной защиты...
81403. Социальное обслуживание пожилых людей 37.36 KB
  Традиционно в нашем обществе сложились три направления деятельности органов социальной защиты населения в том числе пожилых людей и старых людей: социальная помощь представление старым людям льгот и преимуществ; социальное обслуживание; организация пенсионного обеспечения. Для Большинства пожилых людей выход на пенсию это снижение доходов в полтора два и более раз. Отсутствие возможности у пожилых людей самостоятельно или с помощью родственников удовлетворять свои потребности не всегда должно являться основанием для помещения в...
81404. Формы социального обслуживания пожилых людей 35.74 KB
  Обязательным минимумом в работе таких центров является наличие трех отделений: социальной помощи на дому временного дневного пребывания срочной социальной помощи Основными задачами и функциями центров являются: выявление престарелых нуждающихся в социальной поддержке; определение конкретных видов и форм помощи лицам нуждающимся в социальной поддержке; привлечение государственных и общественных организаций для совместной работы; предоставление различных социальнобытовых услуг разового или постоянного характера лицам нуждающимся в...
81405. Инвалиды как объект социальной работы и социологического анализа 40.01 KB
  Социальная защита инвалидов это система гарантированных государством экономических социальных и правовых мер обеспечивающих инвалидам условия для преодоления замещения компенсации ограничений жизнедеятельности и направленных на создание им равных с другими гражданами возможностей для участия в жизни общества. Индивидуальная программа реабилитации инвалидов это комплекс оптимальных для инвалида реабилитационных мероприятий включающий в себя отдельные виды формы объемы сроки и порядок реализации медицинских профессиональных и др....
81406. Основные категории жизнедеятельности, определяющие установление соответствующей группы инвалидности 37.26 KB
  Критериями установления І группы инвалидности является ограничение одной или нескольких категорий жизнедеятельности в значительной степени: ограничение самообслуживания III ст.; ограничение способности самостоятельно передвигаться III ст.; ограничение способности к обучению III ст.; ограничение способности к трудовой деятельности III ст.
81407. Основные институты реализации программы трудоустройства инвалидов. Приведите конкретные примеры 32.89 KB
  Государство обеспечивает дополнительные гарантии гражданам испытывающим трудности в поиске работы путем разработки и реализации программ содействия занятости создания дополнительных рабочих мест и специализированных организаций включая рабочие места и организации для труда инвалидов установления квоты для приема на работу инвалидов а также путем организации обучения по специальным программам и другими мерами. Квота для приема на работу инвалидов устанавливается в соответствии с Федеральным законом О социальной защите инвалидов в...