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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

38
Private Sub КнопкаРасчет _Click()
МесячнаяСтавка = ГодПроцентСтавка.Text / 1200#
СрокВмесяцах = СрокВгодах .Text * 12
fctr1 = (1 + МесячнаяСтавка) ^ СрокВмесяцах
clcpay = РазмерСсуды .Text * (МесячнаяСтавка * fctr1) / (fctr1 - 1)
МесячныйПлатеж.Text = Int(clcpay * 100) / 100
End Sub
Приведем пояснения к программному коду:
• МесячнаяСтавка = ГодПроцентСтавка.Text / 1200# - получает го-
довую процентную ставку из текстового окна ГодПроцентСтавка и
преобразует его к месячному сроку , сохраняя в переменной
МесячнаяСтавка ;
• СрокВмесяцах = СрокВгодах .Text * 12 – получает срок ссуды в го-
дах из текстового окна СрокВгодах и преобразует его в месяцы , со-
храняя в переменной СрокВмесяцах;
• clcpay = РазмерСсуды .Text * (МесячнаяСтавка * fctr1) / (fctr1 - 1)
• МесячныйПлатеж.Text = Int(clcpay * 100) / 100 – округляет резуль-
тат расчета и присваивает полученный результат текстовому окну
МесячныйПлатеж.Text
6. Самостоятельно разработать программные коды для объектов
управления кнопкаОчистить и кнопкаВыход.
7. Запустить программу на выполнение, просмотреть результат рабо -
ты и, если необходимо, исправить ошибки.
8. Сохранить в своей папке созданные форму и проект соответствен -
но под именами Платеж по ссуде.frm и Платеж по ссуде.Vbp.
9. Результат работы приложения представлен в форме, приведенной
ниже. 
                                     38
 Private Sub К нопкаР ас ч ет_Click()
 М ес яч наяС тавка= Г одП роцентС тавка.Text / 1200#
 С рокВ м ес яцах = С рокВ годах .Text * 12
 fctr1 = (1 + М ес яч наяС тавка) ^ С рокВ м ес яцах
 clcpay = Р азм ерС с у ды .Text * (М ес яч наяС тавка* fctr1) / (fctr1 - 1)
 М ес яч ны й П латеж.Text = Int(clcpay * 100) / 100
 End Sub

  П р ив е де м п оясн е н ия кп р огр ам м н ом укоду:
• М ес яч наяС тавка= Г одП роцентС тавка.Text / 1200# - пол у ча ет го-
  д ову ю процен т н у ю ст а вку из т екст ового окн а Г од П роцен т С т а вка и
  преобра зу ет его к м есячн ом у сроку , сохра н яя в перем ен н ой
  М есячн а яС т а вка ;
• С рокВ м ес яцах = С рокВ годах .Text * 12 – пол у ча ет срок ссу д ы в го-
  д а х из т екстового окн а С рокВгод а х и преобра зу ет его в м есяцы, со-
  хра н яя в перем ен н ой С рокВм есяца х;
• clcpay = Р азм ерС с у ды .Text * (М ес яч наяС тавка* fctr1) / (fctr1 - 1)
• М ес яч ны й П латеж.Text = Int(clcpay * 100) / 100 – окру гл яет резу л ь -
  т а т ра счет а и присва ива ет пол у чен н ый резу л ь т а т т екстовом у окн у
  М ес яч ны й П латеж.Text

6. С а м остоятел ь н о ра зра бот а т ь програ м м н ые код ы д л я объект ов
   у пра вл ен ия кнопкаО ч ис тить и кнопкаВ ы х од.
7. Запу ст ит ь програ м м у н а выпол н ен ие, просм отрет ь резу л ь т а т ра бо-
   т ы и, есл и н еобход им о, испра вит ь ошибки.
8. С охра н ит ь в своей па пке созд а н н ые ф орм у и проект соот вет ст вен -
   н о под им ен а м и П латежпо с с у де.frm и П латежпо с с у де.Vbp.
9. Р езу л ь т а т ра боты прил ож ен ия пред ст а вл ен в ф орм е, привед ен н ой
   н иж е.

Страницы