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

UptoLike

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

41
нию амортизации
Продолжение табл . 12
1 2 3 4 5
Переклю-
чатель1
OptionButto
n1
Option1
Caption Стан-
дартная
Нет
Переклю-
чатель2
OptionButto
n2
Option2
Caption Крат-
ный учет
Нет
Командная
Кнопка 1
CommandB
utton1
КнопкаВы-
числить
Caption Вы-
числить.
Font: Тип
шрифта
Tahoma.
Начертание
полужирный.
Размер 2.
Click():
Проверяет , есть ли
данные для расчета .
Если данных нет , то
выдается сообщение
пользователю и вы-
ход из процедуры .
Проверяет , больше
ли начальная стои-
мость конечной. Ес-
ли нет , то выдается
сообщение и выход
из процедуры .
Проверяет , больше
ли период аморти-
зации номера теку -
щего периода. Если
нет , то выдается со-
общение и выход из
процедуры .
Проверяет , какой
выбран метод для
начисления аморти-
зации: линейный
или нелинейный и
производит расчет
согласно выбранно-
го метода.
Проверяет , в случае
выбора нелинейного
метода, наличие
кратности.
Командная
Кнопка 2
CommandB
utton2
КнопкаОч-
мсить
Caption Очи-
стить
Click() удаляет
текст из текстовых
полей
Командная
Кнопка 3
CommandB
utton3
КнопкаЗа -
вершить
Caption За -
вершить
Font: Тип
шрифта
Tahoma.
Начертание
полужирный.
Размер 12.
Click() завершает
программу и закры -
вает ее основное
окно.
6. Вид создаваемой формы приведен ниже.
                                       41
                              н ию            а м орт иза ции
                                                                    П род ол ж ен ие т а бл . 12
        1               2            3                   4                     5
П ерекл ю-         OptionButto                Caption – С т а н -
                                 Option1                                       Н ет
ча т ел ь 1        n1                         д а рт н а я
П ерекл ю-         OptionButto                Caption – К ра т -
                                 Option2                                       Н ет
ча т ел ь 2        n2                         н ый у чет
К ом а н д н а я   CommandB К н опка Вы-      Caption – Вы-         Click():
К н опка 1         utton1      числ ит ь      числ ит ь .           П роверяет , есть л и
                                              Font: Т ип            д а н н ые д л я ра счета .
                                              шриф т а –            Е сл и д а н н ых н ет , т о
                                              Tahoma.               выд а ется сообщен ие
                                              Н а черта н ие –      пол ь зова т ел ю и вы-
                                              пол у ж ирн ый.       ход из процед у ры.
                                              Р а зм ер– 2.         П роверяет, бол ь ше
                                                                    л и н а ча л ь н а я ст ои-
                                                                    м ост ь кон ечн ой. Е с-
                                                                    л и н ет , т о выд а ет ся
                                                                    сообщен ие и выход
                                                                    из процед у ры.
                                                                    П роверяет, бол ь ше
                                                                    л и период а м орт и-
                                                                    за ции н ом ера т еку -
                                                                    щего период а . Е сл и
                                                                    н ет , т о выд а ется со-
                                                                    общен ие и выход из
                                                                    процед у ры.
                                                                    П роверяет,           ка кой
                                                                    выбра н м ет од д л я
                                                                    н а числ ен ия а м орт и-
                                                                    за ции:        л ин ейн ый
                                                                    ил и н ел ин ейн ый и
                                                                    производ ит ра счет
                                                                    согл а сн о выбра н н о-
                                                                    го м ет од а .
                                                                    П роверяет , в сл у ча е
                                                                    выбора н ел ин ейн ого
                                                                    м ет од а ,       н а л ичие
                                                                    кра т н ост и.
                                                                    Click() – у д а л яет
К ом а н д н а я   CommandB   К н опка О ч-   Caption – О чи-
                                                                    т екст из т екст овых
К н опка 2         utton2     м сит ь         ст ит ь
                                                                    пол ей
                                              Caption – За-         Click() – за верша ет
                                              вершит ь              програ м м у и за кры-
                                              Font: Т ип            ва ет ее осн овн ое
К ом а н д н а я   CommandB   К н опка За-    шриф т а –            окн о.
К н опка 3         utton3     вершит ь        Tahoma.
                                              Н а черта н ие –
                                              пол у ж ирн ый.
                                              Р а зм ер– 12.

6. Вид созд а ва ем ой ф орм ы привед ен н иж е.