Разработка программы для расчетов в среде TechEditor

Tags: математика , программирование , techeditor

На этом занятии мы продолжим говорить об автоматизации инженерных расчетов и создадим приложение для определения сметной стоимости работ.

Почему именно смета? Потому что подсчет стоимости, в той или иной мере, касается практически всех видов инженерной деятельности. Вне зависимости от того, проектируете вы торговый центр или вантовый мост, электромобиль или мобильный сервис — вы тратите на это определенные ресурсы и, наверняка, вам важно понимать их общий объем.

Смета представляет собой план предстоящих расходов на реализацию проекта. Она систематизирует статьи расходов и приводит расчетчика к интегральным оценкам затрачиваемых ресурсов.

В рамках данного занятия мы ограничимся небольшим сметным калькулятором, который, при желании, вы сможете развить в нужном вам направлении.

Содержание видеоурока:

Постановка задачи
Подготовка к написанию программы
Разработка интерфейса пользователя
Программирование поведения
Оптимизация и улучшение

Как скачать и запустить скрипт

Скрипт, который упоминается в лекции, Вы найдете на вкладке Script. Если Вы являетесь активным подписчиком, то Вы можете скачать готовый документ (вкладка Download).

To view this content you need to be a member

Click MEMBERSHIP to subscribe or LOG IN if you are already our subscriber

MEMBERSHIP LOG IN

procedure Calculate(Sender: TObject);
var
  V1, V2, V3, V4, V5: Double;
  C1, C2, C3, C4, C5: Double;
  P1, P2, P3, P4, P5, TotalPrice: Double;  
begin
  // определяем объемы материалов:
  V1 := StrToFloat(Edit1.Text);  
  V2 := StrToFloat(Edit2.Text);  
  V3 := StrToFloat(Edit3.Text);  
  V4 := StrToFloat(Edit4.Text);  
  V5 := StrToFloat(Edit5.Text);  

  // определяем удельную стоимость:
  C1 := StrToFloat(Edit10.Text);  
  C2 := StrToFloat(Edit9.Text);  
  C3 := StrToFloat(Edit8.Text);  
  C4 := StrToFloat(Edit7.Text);  
  C5 := StrToFloat(Edit6.Text);  

  // вычисляем стоимость материала:
  P1 := V1 * C1;
  P2 := V2 * C2;
  P3 := V3 * C3;
  P4 := V4 * C4;
  P5 := V5 * C5;       
 
  // вычисляем общую стоимость:
  TotalPrice := P1 + P2 + P3 + P4 + P5;   
     
  // выводим стоимости:   
  Label13.Caption := '=' + FloatToStr(P1);   
  Label12.Caption := '=' + FloatToStr(P2);   
  Label11.Caption := '=' + FloatToStr(P3);   
  Label10.Caption := '=' + FloatToStr(P4);   
  Label9.Caption  := '=' + FloatToStr(P5);   
 
  // выводим итоговую стоимость:
  Label15.Caption := '=' + FloatToStr(TotalPrice);  
     
end;

How to use this content

Download and install TechEditor (don't worry, it's absolutely freeware from Dystlab™)
Download and unzip content
Open document (run file with extension *.tec) on your computer