Visual Basic. Практика. Ищенко В.А - 39 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

39
Задание 12. Разработка VB – приложения "Расчет величины
амортизации основных фондов"
Разработать проект для расчета величины амортизации основных
фондов (зданий, оборудования).
Одной из статей затрат, включаемых в себестоимость продукции
(работ, услуг) и уменьшаемых налогооблагаемую сумму при исчислении
налога на прибыль, являются амортизационные исчисления. Объектом на-
числения амортизации по основным средствам признается имущество, на-
ходящееся у налогоплательщика на праве собственности, используемое
для извлечения дохода, со сроком полезного использования более 12 меся-
цев и первоначальной стоимостью более 10 тыс. руб.
Порядок выполнения задания
1. Запустить приложение Visual Basic и создать новый проект “Рас-
чет амортизации”.
2. Разработать пользовательский интерфейс, расположив на форме с
помощью панели элементов управления следующие объекты
управления: шесть меток (Label1 – Label6), шесть текстовых полей
(TextBox1 – TextBox6), рамка (Frame), два переключателя
(OptionButton1, OptionButton2), три командные кнопки
(CommandButton1, CommandButton2, CommandButton3).
3. Задать объектам управления свойства , указанные в табл . 12, а так-
же описать обрабатываемое событие для каждого объекта управле-
ния.
4. Задать форме и объектам управления, расположенным на ней, до-
полнительные различные свойства (аналогично табл . 2).
5. В общей области модуля формы (General) ввести код , описываю-
щий типы переменных:
• dblПервичнаяСтоимость, dblОстаточнаяСтоимость, dblВе-
личинаАмортизации – вещественные переменные двойной
точности с плавающей запятой;
• IntВремяАмортизации, IntПериодРасчета, IntКратность – це-
лые переменные;
• blnПризнак – логическое значение;
• программный код приведен ниже:
Option Explicit
Dim dblПервичнаяСтоимость As Double
Dim dblОстаточнаяСтоимость As Double
Dim dblВеличинаАмортизации As Double
Dim IntВремяАмортизации As Integer
Dim IntПериодРасчета As Integer
Dim IntКратность As Integer
Dim blnПризнак As Boolean 
                                             39
       Задание12. РазработкаVB – приложения "Рас ч ет велич ины
       ам ортизации ос новны х ф ондов"

         Р а зра бота т ь проект д л я ра счет а вел ичин ы а м ортиза ции осн овн ых
ф он д ов (зд а н ий, обору д ова н ия).
         О д н ой из ст а т ей за т ра т, вкл юча ем ых в себестоим ост ь прод у кции
(ра бот, у сл у г) и у м ен ь ша ем ых н а л огообл а га ем у ю су м м у при исчисл ен ии
н а л ога н а прибыл ь , явл яют ся а м орт иза цион н ые исчисл ен ия. О бъект ом н а -
числ ен ия а м ортиза ции по осн овн ым сред ст ва м призн а ет ся им у щест во, н а -
ход ящееся у н а л огопл а т ел ь щика н а пра ве собст вен н ости, испол ь зу ем ое
д л я извл ечен ия д оход а , со сроком пол езн ого испол ь зова н ия бол ее 12 м еся-
цев и первон а ча л ь н ой стоим ост ь ю бол ее 10 тыс. ру б.

                               П ор ядокв ы п ол н е н ия задан ия

     1. Запу ст ит ь прил ож ен ие Visual Basic и созд а ть н овый проект “Р а с-
        чет а м ортиза ции”.
     2. Р а зра бота т ь пол ь зова т ел ь ский ин терф ейс, ра спол ож ив н а ф орм е с
        пом ощь ю пан ели эл емен т о в у правл ен и я сл ед у ющие объект ы
        у пра вл ен ия: шест ь м ет ок (Label1 – Label6), шест ь т екст овых пол ей
        (TextBox1 – TextBox6), ра м ка (Frame), д ва перекл юча т ел я
        (OptionButton1,          OptionButton2),       три       ком а н д н ые     кн опки
        (CommandButton1, CommandButton2, CommandButton3).
     3. Зад а т ь объект а м у пра вл ен ия свойст ва , у ка за н н ые в т а бл . 12, а т а к-
        ж е описа т ь обра батыва ем ое событ ие д л я ка ж д ого объект а у пра вл е-
        н ия.
     4. Зад а т ь ф орм е и объект а м у пра вл ен ия, ра спол ож ен н ым н а н ей, д о-
        пол н ит ел ь н ые ра зл ичн ые свойст ва (а н а л огичн о т а бл . 2).
     5. В общей обл а ст и м од у л я ф орм ы (General) ввести код , описыва ю-
        щий типы перем ен н ых:
             • dblП ервичн а яС т оим ост ь , dblО ст а т очн а яС т оим ост ь , dblВе-
                 л ичин а А м ортиза ции – вещест вен н ые перем ен н ые д войн ой
                 т очн ости с пл а ва ющей за пят ой;
             • IntВрем яА м ортиза ции, IntП ериод Р а счет а , IntК ра тн ост ь – це-
                 л ые перем ен н ые;
             • blnП ризн а к – л огическое зн а чен ие;
             • програ м м н ый код привед ен н иж е:
                 Option Explicit
                 Dim dblП ервич наяС тоим ос ть As Double
                 Dim dblО с таточ наяС тоим ос ть As Double
                 Dim dblВ елич инаАм ортизации As Double
                 Dim IntВ рем яАм ортизации As Integer
                 Dim IntП ериодР ас ч етаAs Integer
                 Dim IntК ратнос ть As Integer
                 Dim blnП ризнак As Boolean

Страницы