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;
Ifrez=0 thenbeginlabel9.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 учебник).