49501 (588664), страница 6
Текст из файла (страница 6)
@Ввод Сигнал
@Вывод Загрузка
@Спец процесс
ЕСЛИ «Сохранить»=TRUE ТО
ВЫВОД Запуск диалогового окна Сохранить
@КОНЕЦ
Спецификация «Печать»
@Ввод Сигнал
@Вывод Загрузка
@Спец процесс
ЕСЛИ «Печать»=TRUE ТО
ВЫВОД Запуск Word
@КОНЕЦ
6.2. Руководство пользователю
Электронный справочник по работе с программой Visual Basic ориентирован на самостоятельное изучение материала студентами, а также начинающим программистам, желает изучить данный язык программирования.
В программном продукте «Электронный справочник по работе с программой Visual Basic», написанной на Microsoft Visual Basic 6.0, были реализованы следующие функции и процедуры.
При запуске программы появится стартовое окно, в котором будет отображено её название, а также – появится окно Введите пароль, в котором нужно заполнить поля и нажать Ок, после чего загрузится сама программа «Электронный справочник по работе с программой Visual Basic». На главной форме программы располагаются все основные элементы управления.
Главное меню программы:
-
Меню «Файл» содержит кнопки «Открыть» (запускает стандартное диалоговое окно Windows «Open». Нажав «ОК», выбранный документ будет открыт в текстовом поле главной формы), «Сохранить» (Запускает стандартное диалоговое окно Windows «Save»), «Печать» и «Выход»;
-
Меню «Поиск» (запускает диалоговое окно «Поиск», в появившемся поле вводится название искомого документа);
-
Меню «Закладки» содержит кнопки «Новая» (Автоматически сохраняется название просматриваемой темы) и «Открыть» (Из предложенного списка тем можно открыть любую из них);
-
Меню «Пользователю» содержит кнопку «Редактор паролей»;
-
Меню «Справка» содержит кнопку «О программе».
В левой части окна справочника находятся главы и темы, а в большом окне отображаются выбранные темы в формате HTML-страниц.
Внизу располагаются кнопки: «Пример» (в большом окне отображается пример по какой -либо теме), «Начать тест» (окно с тестовыми вопросами и вариантами ответов), «Назад» (возвращает на предыдущую тему), «Главная» (возвращает на главную страницу) и «Вперед» (переходит на следующую страницу).
Раздел 7. Расчет экономической эффективности дипломного проекта
7.1. Расчет стоимости разработки
Величину затрат на научно-исследовательские работы определяют на основе метода калькуляций. В этом случае затраты определяются расчетом по отдельным статьям расходов и их последующим суммированием в форме. Рассмотрим затраты по отдельным статьям расходов.
7.2. Расчёт статьи, материалы, покупные изделия, полуфабрикаты
На эту статью относится стоимость материалов, покупных изделий, полуфабрикатов и других материальных ценностей, расходуемых непосредственно в процессе выполнения НИР по теме. Цена материальных ресурсов определяется по соответствующим ценникам. В стоимость материальных затрат включаются транспортные расходы (10% от прейскурантной цены).
Таблица 1
Расчёт статьи, материалы, покупные изделия, полуфабрикаты
Наименование товара | Единицы измерения | Количество | Цена за единицу (руб.) | Суммарные затраты (руб.) |
Дискеты | Пачка | 2 | 170 | 340 |
Диски (CD-RW) | Пачка | 1 | 500 | 500 |
Бумага для принтера | Пачка | 1 | 130 | 130 |
Итого (затраты) 970 |
С учётом транспортных расходов: Транспортные расходы 10%
10%:100=0,1
970+0.1*970=1064 (руб.)
7.3. Расчёт основной заработной платы
К этой статье относятся основная заработная плата работников, а также премии, входящие в фонд заработной платы. Расчёт основной заработной платы выполняется на основе трудоёмкости выполнения каждого этапа в человеко-днях и величины месячного должностного оклада исполнителя. Среднее количество рабочих дней в месяце равно 20-ти. Следовательно, дневная заработная плата определяется делением размера оклада на количество рабочих дней в месяце. Трудоемкость определяется по готовым расчетам или следующим образом: по таблицам 1 и 2 находится количество дней, которое необходимо потратить на каждый из 5-ти этапов разработки. Например, на первом этапе разработки потребуется количество дней, равное сумме продолжительностей работ, коды которых: 0-1, 0-3, 1-2, 2-5, 3-4. Трудоемкость каждого этапа определяется для группы специалистов, отвечающих за этот этап разработки. Произведение трудоемкости на сумму дневной заработной платы определяет затраты по зарплате для каждого работника на все время разработки.
Таблица 2
Расчет основной заработной платы по теме
Наименование работ | Исполнитель | Оклад (руб.) | Дневная зарплата (руб.) | Трудоем-ть (в человеко-днях) | Затраты по зарплате (руб.) |
1.Подготовительный этап | Ведущий инженер | 1300 | 15 | 40 | 600 |
Инженер | 1150 | 11 | 20 | 220 | |
2.Разработка алгоритмов и программ | Ведущий инженер | 1400 | 20 | 30 | 600 |
Программист | 1200 | 15 | 20 | 300 | |
Инженер | 1000 | 12 | 20 | 240 | |
3.Оформление документации и подготовка к сдаче | Инженер | 1000 | 15 | 25 | 375 |
Итого: 2335 |
7.4. Расчет дополнительной заработной платы
На эту статью относятся выплаты, предусмотренные законодательством о труде за неотработанное по уважительным причинам время: оплата очередных и дополнительных отпусков и т.п. (принимается в размере 20% от суммы основной заработной платы):
20%:100=0,2
2335 * 0,2 = 467 руб.
7.5. Расчёт накладных расходов
К этой статье относят расходы по управлению научно-исследовательской организацией, выполняющей данную разработку, а также расходы по содержанию и ремонту зданий, сооружений, оборудования, коммунальные услуги и т. п.
Накладные расходы принимаются в размере 250% от суммы основной заработной платы.
250%:100=2,5
2335*2.5 = 5837,5руб.
7.6. Расчёт договорной цены разработки
Калькуляция стоимости разработки приведена в таблице 3.
Полная себестоимость разработки определяется суммированием пп.1-4 таблицы 3.
Полная себестоимость:
1064 + 2335 + 467 + 5837,5 = 9703,5
Оптовая цена определяется следующим образом:
Цопт = себестоимость + прибыль.
Прибыль составляет 30% от себестоимости:
30%:100=0,3
Прибыль =9703,5 *0.3 =2911,05 руб.
Цопт = 9703,5+2911,05=12614,55 руб.
При расчете договорной цены в общую стоимость включается НДС 18%
18% : 100 = 0,18
12614,55 * 0,18 = 2270,619
12614,55 + 2270,619 = 14885,169
Таблица 3
Калькуляция стоимости разработки
№ п/п | Наименование статьи расхода | Затраты (в руб.) |
1. | Материалы, покупные изделия, полуфабрикаты | 970 |
2. | Основная заработная плата | 2335 |
3. | Дополнительная заработная плата | 467 |
4. | Накладные расходы | 5837,5 |
5. | Полная себестоимость | 9703,5 |
6. | Прибыль | 2911,05 |
7. | Оптовая цена | 12614,55 |
8. | НДС 18% | 2270,619 |
9. | Договорная цена | 14885,169 |
Заключение
В данном разделе дипломного проекта осуществлена калькуляция темы с расчётом договорной цены ПП и дано технико-экономическое обоснование с оценкой экономической эффективности применения ПП.
Договорная цена на ПП, сформированная на основе нормативной себестоимости производства ПП и прибыли, составляет 14885,169 руб.
Экономический эффект от использования данного ПП за расчётный период (5 лет) составит 74425,845 руб., при этом эффективность разработки – примерно 0.68, т. е. разработчик покроет свои расходы на создание автоматизированной системы ориентировочно за год и затем начнёт получать прибыль.
Таким образом, заказчик должен утвердить затраты на создание нашей автоматизированной системы, поскольку в результате анализа установлено, что внедрение разработки оправдано и экономически целесообразно.
Приложение 1
Исходный код программы «Электронный справочник по работе с программой
Visual Basic»
I. m_Tbook.frm
Основная форма учебника
Const SuperRootName = "NULL?+1234r55tegwegdsfasfgsdg"
Const SubjectFile = "Subject.htm"
Const ExampleFile = "Example.rtf"
Const TestFile = "Test\index.htm"
Const iThemeListWidth = 3000
Dim NavPath As String
Dim NavBKPath As String
Dim bFullMode As Boolean
Function CreateTheme(pName As String, rName As String)
Dim tmpNode As Node
Set tmpNode = m_ThemeList.Nodes.Add(, tvwFirst, rName, pName, 1, 3)
End Function
Function CreateSection(pName As String, rName As String)
Dim tmpNode As Node
Set tmpNode = m_ThemeList.Nodes.Add(rName, tvwChild, , pName, 2)
End Function
Private Sub Themes_Loading()
Dim sFile As String
Dim i As Integer
sFile = Dir(App.Path & "\Themes\", vbDirectory)
Do Until sFile = ""
If sFile <> "." And sFile <> ".." Then
CreateTheme sFile, "r" & CStr(i)
CreateSection SuperRootName, "r" & CStr(i)
End If
sFile = Dir
i = i + 1
Loop
End Sub
Private Sub Form_Load()
Load m_Password
m_Password.Show 1
Themes_Loading
bFullMode = False
m_CmdSwitch.Caption = "Ïðèìåð"