3.1.2.4.Определяем затраты на текущий ремонт оборудования, руб.

Результаты расчетов сведены в таблицу 3.3.

3.1.2.5. Расчет затрат на один машино-час

В современных рыночных экономических условиях ПО выступает преимущественно в виде продукции научно-технических организаций, представляющее собой функционально завершенное и имеющее товарный вид ПО ВТ, реализуемое покупателям по рыночным отпускным ценам, установленным в результате анализа рыночных условий переговоров с заказчиком и возможностей тиражирования. Все завершенные разработки ПО ВТ являются научно-технической продукцией.

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

У разработчика экономический эффект выступает в виде чистой прибыли, остающейся в распоряжении предприятия от реализации ПО, пользователя в виде экономии трудовых, материальных, финансовых ресурсов, получаемой за счет:

снижения трудоемкости расчетов и алгоритмизации программирования отладки программ за счет использования ПО в процессе разработки автоматизированных систем обработки данных;

сокращения расходов на оплату машинного времени и других ресурсов на отладку программ;

снижения расходов на материалы (магнитные ленты, магнитные диски и прочие материалы);

ускорение ввода в эксплуатацию новых систем;

улучшения показателей основной деятельности предприятия в результате использования ПО.

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

затраты на материалы;

стоимость машинного времени;

основная заработная плата;

отчисление в фонд социальной защиты населения;

обязательное страхование от несчастных случаев на производстве и от профессиональных заболеваний;

прочие затраты;

расходы на сопровождение и адаптацию;

На основании сметы затрат рассчитывается себестоимость и отпускная цена ПО.

3.1.3.1 Расчёт затрат на материалы

По статье "Материалы" отражаются расходы на магнитные носители, бумагу, красящие ленты и другие материалы, необходимые для разработки ПО.

Расчёт затрат на материалы (М), необходимые для разработки программного обеспечения (ПО) осуществляется по нормативу (Нр) на 100 команд (принимаем равным 4000 руб.), с учетом общего объема команд (VкПО).

где Н_Р - норматив расхода материалов в расчёте на 100 команд;

V_k ПО - общий объём программного продукта в командах.

3.1.3.2 Расчёт затрат на оплату труда

В результате выполнения дипломного проектирования была разработана программа для расчёта цен на строительные материалы и строительство объектов, формирования отчётов о затратах на материалы, технику и др средства для строительства. Программный продукт разработан в среде C++Builder 2006. Программа выполняет все поставленные задачи в полной мере, а также за имеющееся время на разработку программного продукта был обеспечен высокий уровень интерфейса, удобства работы с программой, полностью реализована помощь пользователю в виде справки и всплывающих подсказок во время работы с программой. Результаты, которые могут быть достигнуты при дальнейшем совершенствовании продукта, могут в несколько раз увеличить его функциональные возможности. Для этого необходимо внедрить модули ведения бухгалтерского учёта в программу, обеспечить взаимодействие программного продукта с другими системами учёта, которые применяются в организациях.

Литература

Исходный текст программы

Приветствие

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit12. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sGauge"

#pragma link "sPanel"

#pragma link "sRadioButton"

#pragma link "sLabel"

#pragma link "sSkinManager"

#pragma resource "*. dfm"

TForm12 *Form12;

// ---------------------------------------------------------------------------

__fastcall TForm12:: TForm12 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm12:: Timer1Timer (TObject *Sender)

{

CopyFileA ( (ExtractFilePath (ParamStr (0)) +"Launcher // "+"Launcher1. exe"). c_str (), (ExtractFilePath (ParamStr (0)) +"Обновление. exe"). c_str (),true);

Form12->AlphaBlendValue++;

if (Form12->AlphaBlendValue==255) {

DeleteFileA ( (ExtractFilePath (ParamStr (0)) +"Launcher // "+"Launcher1. exe"). c_str ());

Timer1->Enabled=false;

Timer2->Enabled=true; }

}

// ---------------------------------------------------------------------------

void __fastcall TForm12:: Timer2Timer (TObject *Sender)

{

sGauge1->Progress++;

if (sGauge1->Progress==1) {sGauge1->Suffix="% Проверка на наличие обновления. "; }

if (sGauge1->Progress==5) {sGauge1->Suffix="% Загрузка модулей программы. "; }

if (sGauge1->Progress==16) {sGauge1->Suffix="% Загрузка стиля ''Pulsar'' программы. "; }

if (sGauge1->Progress==30) {sGauge1->Suffix="% Подключение базы данных. "; }

if (sGauge1->Progress==44) {sGauge1->Suffix="% Оптимизация всех компонентов программы. "; }

if (sGauge1->Progress==sGauge1->MaxValue) {sGauge1->Suffix="% Запуск программы. ";

Sleep (1500); Timer2->Enabled=false; Timer3->Enabled=true; }

}

// ---------------------------------------------------------------------------

void __fastcall TForm12:: Timer4Timer (TObject *Sender)

{

const char *FileTo = (ExtractFilePath (ParamStr (0)) +"Launcher // "+"Project1. exe"). c_str ();

const char *FileFrom = (ExtractFilePath (ParamStr (0)) +"Обновление. exe"). c_str ();

if (FileExists (FileTo) ==false) {Timer4->Enabled=false; Timer1->Enabled=true; }

else {Timer4->Enabled=false; Form12->Close ();

ShellExecute (Handle, "open", FileFrom, 0, 0, SW_SHOWNORMAL); }

}

// ---------------------------------------------------------------------------

void __fastcall TForm12:: Timer3Timer (TObject *Sender)

{

Form12->AlphaBlendValue--;

if (Form12->AlphaBlendValue==0) {

DataModule4->ADOConnection1->Connected=true;

DataModule4->ADOQuery1->Active=true;

DataModule4->ADOQuery2->Active=true;

DataModule4->ADOQuery3->Active=true;

DataModule4->ADOQuery4->Active=true;

DataModule4->ADOQuery5->Active=true;

DataModule4->ADOQuery6->Active=true;

DataModule4->ADOQuery7->Active=true;

DataModule4->ADOQuery8->Active=true;

DataModule4->ADOQuery9->Active=true;

DataModule4->ADOQuery10->Active=true;

DataModule4->ADOQuery11->Active=true;

DataModule4->ADOQuery12->Active=true;

DataModule4->ADOQuery13->Active=true;

DataModule4->ADOQuery14->Active=true;

DataModule4->ADOQuery15->Active=true;

DataModule4->ADOQuery16->Active=true;

DataModule4->ADOTable1->Active=true;

DataModule4->ADOTable2->Active=true;

DataModule4->ADOTable3->Active=true;

DataModule4->ADOTable4->Active=true;

DataModule4->ADOTable5->Active=true;

DataModule4->ADOTable6->Active=true;

DataModule4->ADOTable7->Active=true;

DataModule4->ADOTable8->Active=true;

DataModule4->ADOTable9->Active=true;

DataModule4->ADOTable10->Active=true;

DataModule4->ADOTable11->Active=true;

DataModule4->ADOTable12->Active=true;

DataModule4->ADOTable13->Active=true;

DataModule4->ADOTable14->Active=true;

DataModule4->ADOTable15->Active=true;

DataModule4->ADOTable16->Active=true;

Form2->Timer1->Enabled=true;

Form5->Timer1->Enabled=true;

Timer3->Enabled=false;

Form12->Hide ();

Form1->Show (); }

}

// ---------------------------------------------------------------------------

Меню программы

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit5. h"

#include "Unit6. h"

#include "Unit7. h"

#include "Unit8. h"

#include "Unit12. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sLabel"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sBitBtn"

#pragma link "sBevel"

#pragma link "sMonthCalendar"

#pragma link "sSkinManager"

#pragma link "sButton"

#pragma resource "*. dfm"

TForm1 *Form1;

// ---------------------------------------------------------------------------

__fastcall TForm1:: TForm1 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn1Click (TObject *Sender)

{

Form1->Close ();

Form2->Show ();

Form2->sGroupBox1->Visible=true;

Form2->sGroupBox2->Visible=false;

Form2->sGroupBox3->Visible=false;

Form2->sGroupBox4->Visible=false;

Form2->sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn2Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton1->SetFocus ();

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox1->Visible=true;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn3Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton2->SetFocus ();

Form5->sGroupBox1->Visible=false;

Form5->sGroupBox2->Visible=true;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn4Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton3->SetFocus ();

Form5->sGroupBox1->Visible=false;

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox3->Visible=true;

Form5->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn9Click (TObject *Sender)

{

Form12->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: Timer1Timer (TObject *Sender)

{

sStatusBar1->Panels->Items [0] - >Text=Time ();

sStatusBar1->Panels->Items [1] - >Text=Date ();

sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";

sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";

Form2->sStatusBar1->Panels->Items [0] - >Text=Time ();

Form2->sStatusBar1->Panels->Items [1] - >Text=Date ();

Form2->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";

Form2->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";

Form3->sStatusBar1->Panels->Items [0] - >Text=Time ();

Form3->sStatusBar1->Panels->Items [1] - >Text=Date ();

Form3->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";

Form3->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";

Form5->sStatusBar1->Panels->Items [0] - >Text=Time ();

Form5->sStatusBar1->Panels->Items [1] - >Text=Date ();

Form5->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";

Form5->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";

Form6->sStatusBar1->Panels->Items [0] - >Text=Time ();

Form6->sStatusBar1->Panels->Items [1] - >Text=Date ();

Form6->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";

Form6->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";

Form7->sStatusBar1->Panels->Items [0] - >Text=Time ();

Form7->sStatusBar1->Panels->Items [1] - >Text=Date ();

Form7->sStatusBar1->Panels->Items [2] - >Text="АРМ ПТО_Beta v0.1";

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sButton1Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton20->SetFocus ();

Form5->sGroupBox1->Visible=false;

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=true;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sButton2Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet2;

Form5->sPageControl2->ActivePage=Form5->sTabSheet3;

Form5->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: FormKeyDown (TObject *Sender, WORD &Key,

TShiftState Shift)

{

if (Key==VK_ESCAPE) {sBitBtn9Click (sBitBtn9); }

if (Key==VK_F1) {sBitBtn8Click (sBitBtn8); }

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn8Click (TObject *Sender)

{

AnsiString FILE_HELP_NAME_STR = "help. chm";

if (FileExists (FILE_HELP_NAME_STR)) {

ShellExecute (Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL);

return; }

else{Application->MessageBoxA ("Справка отсутствует!","Ошибка. ",16);

return; }

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn7Click (TObject *Sender)

{

Form8->ShowModal ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn5Click (TObject *Sender)

{

Form7->ShowModal ();

Form7->sPageControl1->ActivePage=Form7->sTabSheet1;

Form7->sPageControl2->ActivePage=Form7->sTabSheet3;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sBitBtn6Click (TObject *Sender)

{

Form7->Show ();

Form7->sPageControl1->ActivePage=Form7->sTabSheet2;

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: sButton3Click (TObject *Sender)

{

Form1->Close ();

Form6->Show ();

Form6->sGroupBox1->Visible=true;

Form6->sGroupBox2->Visible=false;

}

// ---------------------------------------------------------------------------

Нормативно-справочная информация

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit6. h"

#include "Unit7. h"

#include "Unit8. h"

#include "Unit12. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sGroupBox"

#pragma link "sPanel"

#pragma link "sRadioButton"

#pragma link "sStatusBar"

#pragma link "acDBGrid"

#pragma link "sButton"

#pragma link "sDBEdit"

#pragma link "sLabel"

#pragma resource "*. dfm"

TForm2 *Form2;

// ---------------------------------------------------------------------------

__fastcall TForm2:: TForm2 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sRadioButton2Click (TObject *Sender)

{

sDBGrid7->Visible=true;

sDBGrid8->Visible=false;

sDBGrid6->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sRadioButton3Click (TObject *Sender)

{

sDBGrid8->Visible=true;

sDBGrid7->Visible=false;

sDBGrid6->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sRadioButton1Click (TObject *Sender)

{

sDBGrid6->Visible=true;

sDBGrid7->Visible=false;

sDBGrid8->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton1Click (TObject *Sender)

{

DataModule4->ADOTable1->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox1->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton8Click (TObject *Sender)

{

Form2->Close ();

Form1->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton7Click (TObject *Sender)

{

Form2->Close ();

Form3->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton6Click (TObject *Sender)

{

DataModule4->ADOTable6->First ();

DataModule4->ADOTable7->First ();

DataModule4->ADOTable8->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox2->Visible=true;

sGroupBox1->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton5Click (TObject *Sender)

{

DataModule4->ADOTable5->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox3->Visible=true;

sGroupBox2->Visible=false;

sGroupBox1->Visible=false;

sGroupBox4->Visible=false;

sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton4Click (TObject *Sender)

{

DataModule4->ADOTable4->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox4->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox1->Visible=false;

sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton3Click (TObject *Sender)

{

DataModule4->ADOTable3->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sDBGrid3->Visible=true;

sDBGrid2->Visible=false;

sGroupBox5->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox1->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton2Click (TObject *Sender)

{

DataModule4->ADOTable2->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sDBGrid2->Visible=true;

sDBGrid3->Visible=false;

sGroupBox5->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox1->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton16Click (TObject *Sender)

{

Form2->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox1->Visible=true;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton15Click (TObject *Sender)

{

if (DataModule4->ADOTable1->IsEmpty () ==true) // если записей нет то будет true

Application->MessageBoxA ("Запись удалена!","Удаление. ",64); // уведомление пользователю

else {

DataModule4->ADOTable1->Delete ();

ShowMessage ("Запись удалена");

} // удаляем с последующем уведомлением

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: Timer1Timer (TObject *Sender)

{

if (sRadioButton1->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable6->RecordCount); }

if (sRadioButton2->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable7->RecordCount); }

if (sRadioButton3->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable8->RecordCount); }

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: sButton14Click (TObject *Sender)

{

Form2->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet2;

Form5->sPageControl2->ActivePage=Form5->sTabSheet3;

Form5->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: N9Click (TObject *Sender)

{

AnsiString FILE_HELP_NAME_STR = "help. chm";

if (FileExists (FILE_HELP_NAME_STR))

{ShellExecute (Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL);

return; }

else{Application->MessageBoxA ("Справка отсутствует!","Ошибка. ",16);

return; }

}

// ---------------------------------------------------------------------------

void __fastcall TForm2:: FormActivate (TObject *Sender)

{ /*

DataModule4->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;

DataModule4->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;