50065 (Разработка и реализация программы расчета платежа за электроэнергию), страница 2

//Предыдущий алгоритм расчета и оценки//

var

a: Real48;

b: Real48;

c: Real48;

d: Real48;

rez:Real48;

begin

a:= StrToFloat(Edit4.Text);

b:= StrToFloat(Edit5.Text);

c:= StrToFloat(Edit6.Text);

d:= StrToFloat(Edit7.Text);

rez := (a*b)+c-d;

If rez<10 then begin label9.Caption :='Так мало... Вы как так умудрились?';end;

If rez>10 then begin label9.Caption :='Вы счастливчик !!! Это совсем немного';end;

If rez=0 then begin label9.Caption :='Поздравляю вы не должны ни копейки'; end;

If rez<0 then begin label9.Caption :='Вы жулик !!! это невозможно'; end;

If rez>500 then begin label9.Caption :='Хм... немало... но терпимо'; end;

If rez>1000 then begin label9.Caption :='Ого... многовато'; end;

If rez>5000 then begin label10.Caption :='Быстро выключайте все !!! Уже и так света понажгли !!!'; end;

If rez>10000 then begin label9.Caption :='Вам капец...'; end;

If rez>50000 then begin label9.Caption :='Сдается мне вы юморист...'; end;

If rez>1000000 then begin label9.Caption :='Хватит прикалываться !!!'; end;

//По сути так называемый «вывод» бланка представляет собой выведенную картинку таблицы (заранее заготовлена в Excel) где не указанны числа и слова с соответственных графах. На их местах стоят метки заголовки которых меняются на результаты расчетов. Изначально параметр Visible (видимость) этой картинки и Label – ов поставлен на False. А также размер программы подогнан так что пользователь не видит их, но по нажатию кнопки после выполнения расчетов размер программы меняется так, чтобы бланк и Label-ы были видны и их параметр visible меняется на false. Также параметр visible меняется у button 3 (бланк) и button 4 (скрыть) так что в результате кнопка БЛАНК исчезает и на ее месте появляется кнопка СКРЫТЬ//

//Присваивание//

label11.Caption :=Edit3.Text;

label13.Caption :=Edit1.Text;

label14.Caption :=Edit2.Text;

label15.Caption :=FloatToStrF(rez,ffFixed,90,2);

label16.Caption :=Edit7.Text;

label17.Caption :=Edit6.Text;

label18.Caption :=Edit5.Text;

label19.Caption :=Edit4.Text;

//включение видимости изображения бланка и меток-надписей//

image2.Visible:=true;

label19.Visible:=true;

label18.Visible:=true;

label17.Visible:=true;

label16.Visible:=true;

label15.Visible:=true;

label14.Visible:=true;

label13.Visible:=true;

label12.Visible:=true;

label11.Visible:=true;

//Изменение размера программы//

Form1.height:=593;

//Изменение видимости кнопок//

Button3.Visible:=false;

Button4.Visible:=true;

end;

//Описание процедуры НАЖАТЬ НОПКА 4 (СКРЫТЬ)//

//Меняет размер окна программы так чтобы изображение бланка не было видно и после убирает кнопку СКРЫТЬ а на ее место возвращате кнопку БЛАНК чтобы пользователь мог повторить действие //

procedure TForm1.Button4Click(Sender: TObject);

begin

//Изменение размера//

Form1.height:=490;

//Настройка видимости кнопок//

Button4.Visible:=false;

Button3.Visible:=true;

end;

//Конец программы//

end.

Заключение

Результатом выполнения курсовой работы является программа «Миниэлектрик V 1.0.exe», разработанная в среде Delphi 7.

Выполняя курсовую работу я научился пользоваться средой программирования Delphi 7, освоил работу с графическим интерфейсом и научился его создавать, нашел большие различия между средами Pascal и Delphi 7 и некоторые сходства, получил новые теоретические и практические знания по программированию в новой на тот момент (ни разу до этого момента не работал с delphi 7) для меня средой программирования которой теперь с удовольствием пользуюсь и для других целей.

Список использованной литературы

1. Самоучитель по Delphi 7 для начинающих (Электронный .chm учебник).