Задача по вычислению прибыли рентабельности производства
Курсовая работа, 11 Января 2013, автор: пользователь скрыл имя
Описание работы
В этой работе были достигнуты основные целы:
- дальнейшее развитие логического и алгоритмического мышления;
- умение применять основные навыки программирования для создания задачи на языке Visual Basic;
- выработка умения самостоятельного анализа, детализации, выбора методов решения задач, планированием использования возможностей среды Microsoft Visual Studio, а также различных источников информации для реализации этих задач.
Содержание работы
1. СЛОВЕСНОЕ ОПИСАНИЕ ЗАДАЧИ ……………………………….. 3
2. ЦЕЛИ …………………………………………………………………….4
3. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ……………………………………… 5
4. ЛОГИЧЕСКИЕ АЛГОРИТМЫ РЕШЕНИЯ ЗАДАЧИ……………………………… ………………………………. . 9
5. ПРОГРАММНЫЙ КОД ………………………………………………. 12
ВЫВОД ……………………………………………………………………….. 17
Файлы: 1 файл
Курсовая работа.doc
— 406.50 Кб (Скачать файл)
- End Sub
- Private Sub BtnRenPr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenPr2.Click
- 'сброс всех введенных и полученных чисел
- TxtProRP2.Text = ""
- TxtSSOS.Text = ""
- TxtSOOS.Text = ""
- LabRenPr.Text = ""
- LabRenPr.Visible = False
- End Sub
- Private Sub BtnRenProd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenProd.Click
- Dim RenProd As Single 'рентабельность продукции
- Dim ProRP4 As Integer 'прибыль от реализации продукции
- Dim ValIz As Integer 'валовые издержки
- 'заполнение переменных
- ProRP4 = Val(Trim(TxtProRP3.Text))
- ValIz = Val(Trim(TxtValIz.Text))
- 'вычисляем рентабельность продукции
- RenProd = CInt((ProRP4 / ValIz) * 100%)
- 'вывод результата
- LabRenProd.Text = "" & Str(RenProd) & " % "
- LabRenProd.Visible = True
- End Sub
- Private Sub BtnRenProd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenProd2.Click
- 'сброс всех введенных и полученных чисел
- TxtProRP3.Text = ""
- TxtValIz.Text = ""
- LabRenProd.Text = ""
- LabRenProd.Visible = False
- End Sub
- Private Sub BtnEcPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEcPr.Click
- Dim EcPr As Single 'экономическая прибыль
- Dim ChPr As Single 'чистая прибыль
- Dim SOOS As Single 'средние остатки оборотных средств
- Dim SpSD As Single 'ставка по срочным депозитам
- Dim DoR As Single 'доходы от реализации излишнего имущества
- Dim ZP As Single 'заработная плата
- 'заполнение переменных
- ChPr = Val(Trim(TxtChPr.Text))
- SOOS = Val(Trim(TxtSOOS2.Text))
- SpSD = Val(Trim(TxtSpSD.Text))
- DoR = Val(Trim(TxtDoR2.Text))
- ZP = Val(Trim(TxtZP.Text))
- 'вычисляем экономическую прибыль
- EcPr = ChPr - SOOS * (SpSD / 100) - DoR - ZP
- 'вывод результата
- LabEcPr.Text = "" & Str(EcPr) & " тыс. руб."
- LabEcPr.Visible = True
- End Sub
- Private Sub BtnEcPr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEcPr2.Click
- 'сброс всех введенных и полученных чисел
- TxtChPr.Text = ""
- TxtSOOS2.Text = ""
- TxtSpSD.Text = ""
- TxtDoR2.Text = ""
- TxtZP.Text = ""
- LabEcPr.Text = ""
- LabEcPr.Visible = False
- End Sub
- End Class
ВЫВОД
В этой работе были достигнуты основные целы:
- дальнейшее развитие логического и алгоритмического мышления;
- умение применять основные навыки программирования для создания задачи на языке Visual Basic;
- выработка умения самостоятельного анализа, детализации, выбора методов решения задач, планированием использования возможностей среды Microsoft Visual Studio, а также различных источников информации для реализации этих задач.
Вкратце, данная программа подсчитывает основные факторы с помощью которых можно вычислить прибыль рентабельности производства.
Я старалась написать работу в такой форме, чтобы она была понятна не только специалистам, имеющим опыт научных исследований, но и практикам, а также специалистам, работающим в других областях.
На мой взгляд, затронутая мной тема курсовой работы достаточно современна. Потому что одним из основных доходов предприятия является прибыль, хоть она и облагается налогами. Но всё же засчёт нее владелец компании может расширить свое производство и создать несколько филиалов.
Таким образом, с помощью созданной мной программой, Вы можете вычислить какова Ваша экономическая прибыль. И поймете нужно ли Вам продлевать «жизнь» своей фирмы или нет