7065

Разработка модуля информационной системы Амортизация оборудования

Лабораторная работа

Информатика, кибернетика и программирование

Разработка модуля информационной системы Амортизация оборудования Цель лабораторной работы: приобретение практических навыков создания пользовательских форм для разработки модуля информационной системы Амортизация оборудования. Краткие теоретическ...

Русский

2013-01-14

79.5 KB

12 чел.

Разработка модуля информационной системы Амортизация оборудования

Цель лабораторной работы: приобретение практических навыков создания пользовательских форм для разработки модуля информационной системы «Амортизация оборудования».

Краткие теоретические сведения

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

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

Встроенная финансовая функция программы Excel АМГД (SYD) вычисляет годовую амортизацию имущества для указанного периода.

Синтаксис функции:

АМГД(стоимость; остаток; время эксплуатации; период)

Аргументы функции:

 стоимость – это начальная стоимость имущества;

 остаток – остаточная стоимость в конце периода амортизации (иногда называют ликвидной стоимостью имущества);

 время эксплуатации – период амортизации;

 период – номер периода, для которого вычисляется амортизация.

Функция ДДОБ (DDB) вычисляет величину амортизации имущества для указанного периода, используя метод двукратного (или k-кратного) учета амортизации.

Синтаксис функции:

ДДОБ(стоимость; остаток; время эксплуатации; период; коэффициент)

Аргументы функции:

 стоимость – это начальная стоимость имущества;

остаток – остаточная стоимость в конце периода амортизации (иногда называют ликвидной стоимостью имущества);

 время эксплуатации – период амортизации;

 период – номер периода, для которого вычисляется амортизация;

коэффициент – норма снижения балансовой стоимости (амортизации). Если коэффициент опущен, то предполагается, что он равен 2 (метод двукратного учета амортизации).

Порядок выполнения лабораторной работы

  1.  С помощью редактора пользовательских форм создайте диалоговое окно «Расчет амортизации» (рис. 3.5.1). Пользовательская форма должна содержать следующие объекты:
  •  текстовые поля (TextBox) для ввода исходных данных, расчета величины амортизации и считывания коэффициента амортизации;
  •  переключатели (OptionButton) для задания метода вычисления амортизации;
  •  кнопки (СommandButton) для выполнения вычислительного процесса и отмены вычислений;
  •  счетчик (SpinButton) для ввода коэффициента амортизации.

Рис. 1. Диалоговое окно «Расчет амортизации»

  1.  Опишите программный код для ввода исходных данных:

– первоначальной стоимости оборудования, для которого подсчитывается амортизация;

–  остаточной стоимости оборудования;

–  времени полной амортизации;

  •  периода, для которого рассчитывается амортизация;
  •  метода амортизации.

Вид программного кода:

Dim B As Double

Dim E As Double

Dim A As Double

Dim Ye As Integer

Dim Yc As Integer

Dim k As Integer

Dim Flag As Boolean

  1.  Опишите программный код для проверки согласованности вводимых данных, в частности, если остаток больше начальной стоимости, необходимо выдать сообщение (рис. 3.5.2).

Рис. 3.5.2. Сообщение о несогласованности вводимых данных

Например, для проверки остатка и начальной стоимости:

If B < E Then

MsgBox "Остаток больше начальной стоимости", _

vbExclamation, "Амортизация"

TextBox1.SetFocus

Exit Sub

End If

  1.  Опишите программный код для подключения метода амортизации.
    1.  Для стандартного метода вычисления амортизации используется встроенная финансовая функция АМГД (SYD):

A = Application.SYD(B, E, Ye, Yc),

где     А – амортизация;

В – первоначальная стоимость оборудования, для которого подсчитывается амортизация;

Е – остаточная стоимость оборудования;

Ye – время полной амортизации;

Yc – период, для которого рассчитывается амортизация.

  1.  Для метода k-кратного учета используется встроенная финансовая функция ДОБ (DDB):

A = Application.DDB(B, E, Ye, Yc, k),

где     k – коэффициент амортизации.

Предварительно необходимо определить выбранный переключатель:

If OptionButton1.Value = True Then

Flag = True

Else

Flag = False

End If

Затем, в зависимости от выбранного метода запишите программный код для выполнения расчета амортизации.

Например, для стандартного метода:

If Flag = True Then

A = Application.SYD(B, E, Ye, Yc)

Else

   Для метода k-кратного учета:

k = CInt(TextBox6.Text)

A = Application.DDB(B, E, Ye, Yc, k)

End If

Для вывода величины амортизации в диалоговом окне:

If A >= 0.01 Then

A = Format(A, "Fixed")

Else

A = 0

End If

TextBox5.Text = CStr(A)

  1.  Опишите программный код для переноса информации из пользовательской формы на лист программы EXCEL (рис. 3.5.3).

Рис. 3.5.3. Отчет, выводимый на рабочем листе программой расчета амортизации

Изменение ширины столбцов А и В и установку в них режима ввода текста с переносом можно выполнить используя следующий программный код:

ActiveSheet.Columns("A").Select

With Selection

.ColumnWidth = 30

.WrapText = True

End With

ActiveSheet.Columns("B").Select

With Selection

.ColumnWidth = 20

.WrapText = True

End With

Ввод заголовков  полей на рабочем листе, например для начальной стоимости:

With ActiveSheet

.Range("A1").Value = "Начальная стоимость"

…..

End With

Ввод данных в ячейки  рабочего листа:

With ActiveSheet

.Range("B1").Value = B

.Range("B2").Value = E

.Range("B3").Value = Ye

.Range("B4").Value = Yc

.Range("B6").Value = A

.Range("B5").WrapText = True

If Flag = True Then

.Range("B5").Value = "Стандартным методом"

Else

.Range("B5").Value = "методом " & CStr(k) & _

" кратного учета амортизации"

End If

End With

  1.  Опишите программный код скрытия названия, поля и счетчика для ввода кратности амортизации при выборе стандартного метода (рис. 3.5.4).

Private Sub OptionButton1_Click()

Label6.Visible = False

TextBox6.Visible = False

SpinButton1.Visible = False

End Sub

  1.  Опишите процедуру видимости названия, поля и счетчика для ввода кратности амортизации при задании кратности амортизации (рис. 3.5.1).

Private Sub OptionButton2_Click()

Label6.Visible = True

TextBox6.Visible = True

SpinButton1.Visible = True

End Sub

  1.  Опишите процедуру изменения кратного метода k-кратного учета амортизации.

Private Sub SpinButton1_Change()

TextBox6.Text = SpinButton1.Value

End Sub

Предварительно необходимо установить значение свойства Value объекта SpinButton1 равным 1.

  1.  Используя разработанную Вами пользовательскую форму, выполните расчеты по индивидуальному заданию.

Рис. 3.5.4. Диалоговое окно «Расчет амортизации» при выборе стандартного метода

Задание для выполнения лабораторной работы

Вы купили за Z руб. оборудование, которое имеет срок эксплуатации T лет и остаточную стоимость Zост. руб. (табл. 5.3.1). Используя разработанный модуль информационной системы, вычислите  годовую амортизацию за каждый год двумя методами.

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

Таблица 1

Исходные данные

В а р и а н т ы

1

2

3

4

5

6

7

8

9

10

Z, тыс.

руб.

26

14

26

25

45

28

38

17

19

29

T, лет

10

15

15

11

12

14

10

12

15

10

Zост., тыс.

руб.

18,6

6,4

11,7

8,9

14,5

19,4

12,9

6,9

13,7

7,8

Содержание отчета

  1.  Название лабораторной работы.
  2.  Особенности построения модуля информационной системы.
  3.  Исходные данные, пользовательская форма, результаты расчетов амортизации.
  4.  Дать анализ полученных результатов расчетов.
  5.  Результаты разработок предъявляются студентом на экране монитора.

Вопросы

  1.  Что такое амортизация? Какие методы используются для расчета амортизации?
  2.  Какие встроенные функции  программы Excel  Вам известны?
  3.  Расскажите о встроенной финансовой функции программы Excel АМГД.
  4.   Расскажите о встроенной финансовой функции программы Excel ДДОБ.
  5.  Расскажите о технологии создания пользовательской формы. Какие объекты используются при создании пользовательской формы для вычисления амортизации двумя методами?
  6.  Что такое программный код? Как описать исходные данные?
  7.  Каким образом выполняется проверка согласованности вводимых исходных данных?
  8.  Как записать программный код для подключения стандартного метода амортизации?
  9.  Как записать программный код для подключения метода k-кратного учета амортизации?
  10.  Каким образом осуществляется перенос информации из пользовательской формы на лист программы EXCEL.
  11.  Расскажите об изменении ширины столбцов А и В и установки в них режима ввода текста с переносом.
  12.  Расскажите о вводе заголовков  полей на рабочем листе  программы EXCEL.
  13.  Расскажите о вводе данных в ячейки  рабочего листа EXCEL.
  14.  Как описать процедуру видимости названия, поля и счетчика для ввода кратности амортизации при задании кратности амортизации?
  15.  Расскажите о практической реализации разработанного Вами модуля информационной системы.


 

А также другие работы, которые могут Вас заинтересовать

46324. Составление расчетной схемы и исходного уравнения для расчета исходного усилия Ри 359 KB
  Наряду с изменением величины исходного усилия силовой механизм может также изменять его направление, разлагать на составляющие и совместно с контактными элементами обеспечивать приложение зажимного усилия к заданной точке. Иногда силовые механизмы выполняют роль самотормозящего элемента, препятствуя раскреплению заготовки при внезапном выходе из строя привода.
46325. Расчет приводов зажимных устройств 73 KB
  Благодаря использованию более высокого давления жидкости по сравнению с пневмоприводом при тех же развиваемых усилиях имеет меньшие габариты и вес; масло обеспечивает смазку трущихся частей. 5 низкого давления и большой производительности и 4 высокого давления и малой производительности. После замыкания механизма упора зажимного элемента в деталях давления в системе увеличивается и напорный золотник 6 отключает насос низкого давления. В дальнейшем будет уже работать только насос высокого давления рис.
46326. Электромеханические приводы защитных устройств 58.5 KB
  Электромеханические приводы защитных устройств Электромеханические зажимные устройства ЭМЗУ состоят из электродвигателя передаточного механизма зажимных элементов. Электродвигатель работает кратковременно только при зажиме или отжиме поэтому в ЭМЗУ всегда имеется самотормозящая передача для фиксирования состояния системы после зажима и отключения двигателя. В квазистатических ЭМЗУ сила зажима создается только за счет электромагнитного момента двигателя и величина этой силы определяется настройкой динамометрирующих упругих элементов в...
46327. Выращивание зерновых и снижение затрат на их обработку 587.76 KB
  Однако в Россию завозится большое количество продуктов питания изза рубежа что способствует повышению продуктивной зависимости от стран запада и политическую зависимость страны. руб. руб. продукции руб.
46328. Проектирование приводной станции к полочному элеватору 1.74 MB
  Нахождение коэффициента запаса прочности. Нахождение коэффициента запаса прочности. Нахождение коэффициента запаса прочности Подбор подшипников по динамической грузоподъемности. Кинематический и энергетический расчет привода Мощность элеватора определяется по уравнению где Z производительность элеватора.
46329. Увеличение мощности пути железных дорог. Совершенствование машин с точки зрения ремонтопригодности 16.83 MB
  Увеличение мощности пути железных дорог требует усовершенствования технологии и организации ремонтнопутевых работ. Своевременный и качественный ремонт пути снижение затрат времени труда и эксплуатационных расходов повышение производительности труда достигает акиалной1 еханизацией путевых работ. Основным направлением в вопросе механизации путевых работ является создание высокопроизводительных машин обеспечивающих производство больших объемов работ в сравнительно небольшие окна и вынесение значительной части работ на путевые...
46330. Повышене результативности камерального контроля 172.9 KB
  Для достижения поставленной цели необходимо решить следующие задачи: изучить теоретические подходы к содержанию камеральной проверки определить её место и роль в системе государственного налогового контроля; исследовать нормативноправовой механизм камерального контроля в России; исследовать современное состояние контрольной деятельности на примере Межрайонной инспекции ФНС России; определить результативности камерального и выездного контроля сравнить их; разработать рекомендации по повышению результативности камерального контроля....
46331. Вольтметр электростатической системы, подключенный к источнику напряжения, имеющего форму прямоугольных однополярных импульсов, со скважностью 100 имеет показание 100 В 131.54 KB
  Решение: Рассчитаем в MthCD действующее значение напряжения которое измеряет вольтметр электростатической системы: Мгновенное значение напряжения Действующее значение напряжения Найдем Um из полученного выражения: В Рассчитаем в MthCD показание выпрямительного вольтметра с однополупериодной схемой выпрямления подключенного к тому же источнику. В Найти показания вольтметра вида В3 с детектором СКЗ и открытым входом при измерении им напряжения сигнала если Uv= В Um 0 Ut T t Вольтметр вида В3 с открытым...
46332. Гражданское и торговое право зарубежных стран 108.3 KB
  Обязательство это правоотношения в силу которого одно лицо кредитор имеет право требовать от другого лица должника выполнения какихлибо действий или воздержание от какихлибо действий. В обязательственном правоотношении участвуют кредитор лицо имеющее право требовать совершения обусловленных действий или воздержания от их совершения и должник лицо обязанное совершить оговоренное в обязательстве действие или воздержаться от его совершения. Этот пробел был восполнен французской правовой доктриной определяющей обязательство как...