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

                                           43

    9. С а м остоятел ь н о ввест и програ м м н ый код д л я обра бот ки события
        Click() объект а К нопкаЗаверш ить , гд е описыва ет ся выход из при-
        л ож ен ия.
    10. Д л я обра бот ки событ ия Click() кн опки К нопкаВ ы ч ис лить ввести
        код , описыва ющий сл ед у ющие д ейст вия:
              • проверку н а л ичия д а н н ых д л я ра счета в т екст овых пол ях
                 Text1, Text2, Text3, Text4;
              • преобра зова н ие д а н н ых к числ овом у ф орм а т у с пом ощь ю
                 ф у н кций CDbl и CInt;
              • проверку коррект н ост и д а н н ых:
                 Ø есл и dblП ервичн а яС т оим ост ь < dblО ст а т очн а яС тои-
                      м ост ь , т о выд а т ь соот вет ст ву ющее сообщен ие обошибке
                      с пом ощь ю ф у н кции MsgBox;
                 Ø есл и IntВрем яА м орт иза ции < IntП ериод Р а счета , т о вы-
                      д а т ь сообщен ие обошибке в сроке а м орт иза ции с пом о-
                      щь ю ф у н кции MsgBox;
                 Ø д л я эл ем ен тов Text1 (в 1-ом сл у ча е) и Text3 (во 2-ом сл у -
                      ча е) у ст а н овит ь ф оку с.
              • выбра т ь м етод ра счет а а м ортиза ции: ста н д а ртн ый ил и кра т-
                 н ый у чет .
                 В сл у ча е ст а н д а ртн ого у чет а перем ен н ой blnП ризн а к сл ед у -
                 ет присвоит ь зн а чен ие True, в прот ивн ом сл у ча е – зн а чен ие
                 False;
              • свойст ву Text эл ем ен т а Text5 присвоит ь зн а чен ие вычис-
                 л ен н ой а м орт иза ции с пом ощь ю ф у н кции CStr.
              • Д л я ра счета вел ичин ы а м орт иза ции испол ь зова ть сл ед у ю-
                 щие ф у н кции:
                 Ø SYD(н а ча л ь н а я ст оим ост ь им у щест ва ; ост а т очн а я ст ои-
                      м ост ь им у щест ва ; врем я экспл у а т а ции; период , за кот о-
                      рый вычисл яет ся а м орт иза ция). Возвра ща ет зн а чен ие
                      т ипа Double;
                 Ø DDB(н а ча л ь н а я стоим ость а кт ивов; ост а точн а я стои-
                      м ост ь а кт ивов; врем я экспл у а т а ции; период , д л я кот оро-
                      го вычисл яет ся а м ортиза ция; кра тн ост ь ). Возвра ща ет
                      зн а чен ие т ипа Double. DDB – ба л а н совый м етод д войн о-
                      го списа н ия;
                 Ø все па ра м етры, кром е па ра м етра "кра тн ост ь " им еют т ип
                      Double.
              • Н иж е привед ен програ м м н ый код ра зра бота н н ого проект а
                 "Р а счет а м ортиза ции", кот орым Вы м ож ет е воспол ь зова т ь ся
                 д л я са м опроверки в за т ру д н ит ел ь н ыхм ом ен т а х:

Private Sub К нопкаВ ы ч ис лить _Click()