Задача по вычислению прибыли рентабельности производства

Автор работы: Пользователь скрыл имя, 11 Января 2013 в 21:25, курсовая работа

Описание работы

В этой работе были достигнуты основные целы:
- дальнейшее развитие логического и алгоритмического мышления;
- умение применять основные навыки программирования для создания задачи на языке Visual Basic;
- выработка умения самостоятельного анализа, детализации, выбора методов решения задач, планированием использования возможностей среды Microsoft Visual Studio, а также различных источников информации для реализации этих задач.

Содержание работы

1. СЛОВЕСНОЕ ОПИСАНИЕ ЗАДАЧИ ……………………………….. 3
2. ЦЕЛИ …………………………………………………………………….4
3. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ……………………………………… 5
4. ЛОГИЧЕСКИЕ АЛГОРИТМЫ РЕШЕНИЯ ЗАДАЧИ……………………………… ………………………………. . 9
5. ПРОГРАММНЫЙ КОД ………………………………………………. 12

ВЫВОД ……………………………………………………………………….. 17

Скачать архив (176.58 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Курсовая работа.doc

— 406.50 Кб (Скачать файл)

 

    1.     End Sub
    3.     Private Sub BtnRenPr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenPr2.Click
    4.         'сброс всех введенных и полученных чисел
    5.         TxtProRP2.Text = ""
    6.         TxtSSOS.Text = ""
    7.         TxtSOOS.Text = ""
    8.         LabRenPr.Text = ""
    9.         LabRenPr.Visible = False
    10.     End Sub
    12.     Private Sub BtnRenProd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenProd.Click
    13.         Dim RenProd As Single 'рентабельность продукции
    14.         Dim ProRP4 As Integer 'прибыль от реализации продукции
    15.         Dim ValIz As Integer 'валовые издержки
    17.         'заполнение переменных
    18.         ProRP4 = Val(Trim(TxtProRP3.Text))
    19.         ValIz = Val(Trim(TxtValIz.Text))
    21.         'вычисляем рентабельность продукции
    22.         RenProd = CInt((ProRP4 / ValIz) * 100%)
    24.         'вывод результата
    25.         LabRenProd.Text = "" & Str(RenProd) & " % "
    26.         LabRenProd.Visible = True
    27.     End Sub
    29.     Private Sub BtnRenProd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenProd2.Click
    30.         'сброс всех введенных и полученных чисел
    31.         TxtProRP3.Text = ""
    32.         TxtValIz.Text = ""
    33.         LabRenProd.Text = ""
    34.         LabRenProd.Visible = False
    35.    End Sub
    37.     Private Sub BtnEcPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEcPr.Click
    38.         Dim EcPr As Single 'экономическая прибыль
    39.         Dim ChPr As Single 'чистая прибыль
    40.         Dim SOOS As Single 'средние остатки оборотных средств
    41.         Dim SpSD As Single 'ставка по срочным депозитам
    42.         Dim DoR As Single 'доходы от реализации излишнего имущества
    43.         Dim ZP As Single 'заработная плата
    45.         'заполнение переменных
    46.         ChPr = Val(Trim(TxtChPr.Text))
    47.         SOOS = Val(Trim(TxtSOOS2.Text))
    48.         SpSD = Val(Trim(TxtSpSD.Text))
    49.         DoR = Val(Trim(TxtDoR2.Text))
    50.         ZP = Val(Trim(TxtZP.Text))
    52.         'вычисляем экономическую прибыль
    53.         EcPr = ChPr - SOOS * (SpSD / 100) - DoR - ZP
    55.         'вывод результата
    56.         LabEcPr.Text = "" & Str(EcPr) & " тыс. руб."
    57.         LabEcPr.Visible = True
    58.     End Sub
    60.     Private Sub BtnEcPr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEcPr2.Click
    62.         'сброс всех введенных и полученных чисел
    63.         TxtChPr.Text = ""
    64.         TxtSOOS2.Text = ""
    65.         TxtSpSD.Text = ""
    66.         TxtDoR2.Text = ""
    67.         TxtZP.Text = ""
    68.         LabEcPr.Text = ""
    69.         LabEcPr.Visible = False
    70.     End Sub
    71. End Class

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ВЫВОД

В этой работе были достигнуты основные целы:

- дальнейшее развитие логического и алгоритмического мышления;

- умение применять основные навыки программирования для создания задачи на языке Visual Basic;

- выработка умения самостоятельного анализа, детализации, выбора методов решения задач, планированием использования возможностей среды Microsoft Visual Studio, а также различных источников информации для реализации этих задач.

Вкратце, данная программа подсчитывает основные факторы с помощью которых можно вычислить прибыль рентабельности производства.

Я старалась написать работу в такой форме, чтобы она была понятна не только специалистам, имеющим опыт научных исследований, но и практикам, а также специалистам, работающим в других областях.

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

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


Информация о работе Задача по вычислению прибыли рентабельности производства