fbpx

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

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

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

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

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

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

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

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

Скрипт, который упоминается в лекции, Вы найдете на вкладке 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

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

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

To view this content you need to be a member

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

General
Difficulty medium
Duration (min) medium (10..20)
Language ru (русский)
Software
Software TechEditor
There are no reviews for this content.
Write a review
BadExcellent
Verification code *
Facebook comment

Most viewed on Dystlab

Most viewed lectures for engineers

Let's get started!

Ready to master new skills?
Then start today!

Image

Sharing engineering skills

© Dystlab™. All rights reserved.

Office in Canada

223-2275 Lake Shore Boulevard West, Toronto, ON, M8V 3Y3

Office in Ukraine

76006, Ivano-Frankivsk, 17/97 Ivana Mykolaichuka str.

Contact Info

Follow Us - Fb. / Tw. / Inst.